Routine: PSJIPST1

Information

PSJIPST1 ;BIR/CML3-INSTALL INPATIENT MEDS FOR OE/RR (& MAS) ;03 OCT 96 / 8:42 AM

Name	Comments	DBIA/ICR reference
START	;
ENORDER	; Begin conversion of existing orders (active after t-365) ; THIS IS NO LONGER CALLED FROM OUR POST INIT ; THIS CONVERSION IS RAN THROUGH CPRS
ENPL	; Entry point to begin conversion process to change pick list ; from primary drug to orderable item.
DEQORDER	; Convert existing UD and IV orders to new format. ; Entries found with no 0 node will be deleted! ; THIS IS NO LONGER USED
DONE	;
UNDO	; FOR DIAGNOSTIC DEVELOPMENT ONLY!!!
SETUP	;
SETUP1	;
ENMUD	; Mark ALL 50 drugs as UD items.
MAILMUD	;

Name	Line Occurrences
Function Call: WRITE	Prompt: " (to start NOW).",!!,"YOU WILL RECEIVE A MAILMAN MESSAGE WHEN TASK #"_ZTSK_" HAS COMPLETED." Line Location: ENORDER+8
Function Call: WRITE	Prompt: " (to start NOW).",!!,"YOU WILL RECEIVE A MAILMAN MESSAGE WHEN TASK #"_ZTSK_" HAS COMPLETED." Line Location: ENPL+7
Function Call: WRITE	Prompt: $C(7),!!,"Cannot find the protocol menu '",MENU,"'.",!,"You need to add the protocol '",ITEM,"' to this protocol menu.",! Line Location: SETUP+1
Function Call: WRITE	Prompt: $C(7),!!,"Cannot find the protocol '",ITEM,"'.",!,"You need to add this protocol to the protocol menu '",MENU,"'.",! Line Location: SETUP1+1
Function Call: WRITE	Prompt: !,"Protocol '",ITEM,"' is already set up under the protocol",!,"menu '",MENU,"'." Line Location: SETUP1+2
Function Call: WRITE	Prompt: !,"Protocol '",ITEM,"' ",$S($P(Y,"^",3):"",1:"NOT "),"added to the protocol menu",!,"'",MENU,"'." Line Location: SETUP1+5