Routine: PSJIPST1

Information

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

Source Information

Source file <PSJIPST1.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Inpatient Medications	3	ENS^PSGIU BADNAMES^PSJIPST3 CONVERT^PSJUTL1
Kernel	3	^%ZTLOAD $$FMDIFF^XLFDT MES^XPDUTL
VA Fileman	2	NOW^%DTC FILE^DICN
MailMan	1	^XMD

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Inpatient Medications	1	PSJIPST

Entry Points

Name	Comments	DBIA/ICR reference
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
UNDO	; FOR DIAGNOSTIC DEVELOPMENT ONLY!!!
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
START	;
MAILMUD	;
DONE	;
SETUP1	;
ENMUD	; Mark ALL 50 drugs as UD items.
SETUP	;

External References

Name	Field # of Occurrence
NOW^%DTC	DEQORDER+4, DEQORDER+9, MAILMUD+1
^%ZTLOAD	ENORDER+4, ENPL+3
FILE^DICN	SETUP1+4
ENS^PSGIU	ENMUD+1
BADNAMES^PSJIPST3	DEQORDER+6
CONVERT^PSJUTL1	DEQORDER+5
$$FMDIFF^XLFDT	DEQORDER+11
^XMD	DEQORDER+13, MAILMUD+3
MES^XPDUTL	ENORDER+6, ENORDER+7, ENORDER+9, ENPL+5, ENPL+6, ENPL+8

Interaction Calls

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DEQORDER+9, MAILMUD+1
^DD(101	SETUP1+3
^ORD(101 - [#101]	SETUP+1, SETUP1+1, SETUP1+2, SETUP1+3*
^PS(55 - [#55]	DEQORDER+5, UNDO+1*, UNDO+2!, UNDO+3!
^PSDRUG - [#50]	ENMUD+1

Label References

Name	Line Occurrences
DONE	START+3
SETUP	START+3

Naked Globals

Name	Field # of Occurrence
^("I"	ENMUD+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DEQORDER+4, DEQORDER+9, DEQORDER+11, MAILMUD+1
APU	MAILMUD+1~
DA	DONE+1!, SETUP1+4!
DA(1	SETUP1+4*
>> DAYS	DEQORDER+11*, DEQORDER+12
DD	SETUP1+4!
DFN	DEQORDER+5, DONE+1!, UNDO+1, UNDO+2, UNDO+3
DIC	DONE+1!, SETUP1+4!*
DIC(0	SETUP1+4*
DIE	DONE+1!
DIFROM	DEQORDER+13~, MAILMUD+3~
DIK	DONE+1!
DINUM	DONE+1!
DLAYGO	DONE+1!, SETUP1+4*
DO	SETUP1+4!
DR	DONE+1!
DRG	ENMUD+1*, MAILMUD+1~
DT	ENMUD+1
DUZ	DEQORDER+9, MAILMUD+1
>> HOURS	DEQORDER+11*, DEQORDER+12
ITEM	START+3*, DONE+1!, SETUP+1, SETUP1+1, SETUP1+2, SETUP1+5
MENU	START+3*, DONE+1!, SETUP+1, SETUP1+1, SETUP1+2, SETUP1+5
>> MENUP	SETUP+1*, SETUP1+2, SETUP1+3, SETUP1+4
>> MINS	DEQORDER+11*, DEQORDER+12
ON	DONE+1!, UNDO+2, UNDO+3
>> PCNT	DEQORDER+4, DEQORDER+5, DEQORDER+12
PSG	DEQORDER+9!, DONE+1!
PSG(1	DEQORDER+10*
PSG(2	DEQORDER+10*
PSG(3	DEQORDER+12*
PSG(4	DEQORDER+12*
PSG(5	DEQORDER+12*
>> PSIUDA	ENMUD+1*
>> PSIUX	ENMUD+1*
PSJ	MAILMUD+1~
PSJ(1	MAILMUD+2*
PSJ(2	MAILMUD+2*
>> PSJMESSG	ENORDER+7, ENORDER+9, ENPL+6, ENPL+8
>> PSJSTART	DEQORDER+4*, DEQORDER+11
U	UNDO+1
X	DEQORDER+11, DONE+1!, SETUP1+1, SETUP1+2
XMDUZ	DEQORDER+9, DONE+1!, MAILMUD+1
XMSUB	DEQORDER+9, DONE+1!, MAILMUD+1
XMTEXT	DEQORDER+9, DONE+1!, MAILMUD+1
XMY	DEQORDER+9!, DONE+1!, MAILMUD+1~
XMY(	DEQORDER+9, MAILMUD+1
Y	DEQORDER+9, DEQORDER+10, DONE+1!, SETUP1+5, MAILMUD+1, MAILMUD+2
ZTDESC	ENORDER+4, ENPL+3, DONE+1!
ZTDTH	ENORDER+4, ENPL+3, DONE+1!
ZTIO	ENORDER+4, ENPL+3, DONE+1!
ZTREQ	DONE+1!
ZTRTN	ENORDER+4, ENPL+3, DONE+1!
ZTSAVE	ENORDER+4!, ENPL+3!, DONE+1!
ZTSK	ENORDER+4!, ENORDER+7, ENORDER+9, ENPL+3!, ENPL+6, ENPL+8, DONE+1!

Customize PDF page

Package: Inpatient Medications

Routine: PSJIPST1

Call Graph Total: 9

Caller Graph Total: 1