NAMEPSO INTERVENTION NEW ENTRY
DESCRIPTIONThis option is used to enter an entry into the APSP INTERVENTION file.
CREATORUSER,ONE
E ACTION PRESENTYES
ENTRY ACTIONW @IOF W !!,"Enter Pharmacy Intervention",!! F S DIC(0)="QEMAL",DIC="^APSPQA(32.4,",DLAYGO=9009032.4,DIADD="" D ^DIC K DA,DR,DIADD K:Y=-1 X,DIC,DIADD,DA,DIE Q:Y=-1 S DA=+Y,DIE=DIC,DR="[PSO INTERVENTION NEW]" K DIC D ^DIE
EXIT ACTIONK DLAYGO
HELP FRAMEPSO ENTER INTERVENTION
LOCKPSORPH
MENU TEXTEnter Pharmacy Intervention
PACKAGEOUTPATIENT PHARMACY
TYPEaction
UPPERCASE MENU TEXTENTER PHARMACY INTERVENTION
X ACTION PRESENTYES