Routine: PSAREORD

Information

PSAREORD ;BIR/JMB-Nightly Background Job - CONT'D ;7/23/97

Source Information

Source file <PSAREORD.m>

Call Graph

Call Graph Total: 2

Package	Total	Call Graph
Drug Accountability	1	SITES^PSAUTL1
MailMan	1	^XMD

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Drug Accountability	1	PSAPSI3

Entry Points

Name	Comments	DBIA/ICR reference
QUIT
NDC	;Gets VSN dispense units,dispense units/order unit, order unit for
SEND	;Send the mail message to the holders of the PSA ORDERS key.
PHARM	;Looks for drugs that are >= reorder level in pharmacy locations.
EXIT	;Kills the variables & TMP globals.
NONCS	;Loops through the non-controlled subs to create mail message text.
CS	;Loops through the controlled subs to create mail message text.
VAULT	;Looks for drugs that are >= reorder level in master vaults.
SETMSG	;Creates the body of the mail message.

External References

Name	Field # of Occurrence
SITES^PSAUTL1	SETMSG+3
^XMD	SEND+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(51.5 - [#51.5]	NDC+5
^PSD(58.8 - [#58.8]	PHARM+2, PHARM+3, PHARM+4, PHARM+6, PHARM+7, VAULT+1, VAULT+2, VAULT+3, VAULT+5, VAULT+6 , SETMSG+3, SETMSG+4
^PSDRUG - [#50]	PHARM+10, PHARM+11, VAULT+9, VAULT+10, NDC+4, NDC+5, NDC+6
^PSDRUG("C"	NDC+4
^TMP("PSAMSGO"	PHARM+1!, QUIT!, SETMSG+2, SETMSG+5, SETMSG+6, SETMSG+7, SETMSG+8, SETMSG+9, SETMSG+11, SETMSG+12 , EXIT+1!
^TMP("PSAORD"	PHARM+11*, VAULT+11, NONCS+1, NONCS+2, NONCS+4, NONCS+5, EXIT+1!
^TMP("PSAORDCS"	VAULT+10*, VAULT+11, NONCS+6, CS+1, CS+3, CS+4, EXIT+1!
^TMP("PSAREORD"	PHARM+1!
^XUSEC("PSJ RPHARM"	NONCS+6

Label References

Name	Line Occurrences
CS	NONCS+1
EXIT	VAULT+11
NDC	PHARM+10, VAULT+9
QUIT	SEND+4
SEND	NONCS+6
SETMSG	NONCS+5, CS+4

Naked Globals

Name	Field # of Occurrence
^(	NONCS+5, CS+4
^(0	NDC+5, NDC+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DT	PHARM+4, VAULT+3
DUZ	NONCS+6
PSA	NONCS+1!, EXIT+2!
PSABAL	NONCS+5, CS+4, SETMSG+11, EXIT+2!
PSACNT	PHARM+1, NONCS+1, SETMSG+2, SETMSG+4, SETMSG+5, SETMSG+6, SETMSG+7, SETMSG+8, SETMSG+9, SETMSG+11 , SETMSG+12*, EXIT+2!
PSACNT(	SETMSG+4*
PSACOMB	SETMSG+3, EXIT+2!
PSADRG	PHARM+5, PHARM+6, PHARM+7, PHARM+10, PHARM+11, VAULT+4, VAULT+5, VAULT+6, VAULT+9, VAULT+10 , NONCS+3, NONCS+4, NONCS+5, CS+2, CS+3, CS+4, NDC+4, NDC+5, NDC+6, SETMSG+10 , SETMSG+11, EXIT+2!
PSADU	NDC+2!, NDC+6*, NDC+8, NDC+9!
PSADUOU	NDC+2!, NDC+6*, NDC+8, NDC+9!
PSAFIRST	PHARM+5, VAULT+4, NONCS+3, CS+2, SETMSG+1, SETMSG+3*, EXIT+2!
PSAISIT	SETMSG+3, EXIT+2!
PSAISITN	EXIT+2!
PSALEN	SETMSG+10*, EXIT+2!
PSALOC	PHARM+1, PHARM+2, PHARM+3, PHARM+4, PHARM+6, PHARM+7, PHARM+11, VAULT+1, VAULT+2, VAULT+3 , VAULT+5, VAULT+6, VAULT+10, NONCS+1, NONCS+2, NONCS+4, NONCS+5, CS+1, CS+3, CS+4 , SETMSG+3, SETMSG+4, EXIT+2!
PSALOCA	SETMSG+3!, EXIT+2!
PSALOCA(	SETMSG+3*
PSALOCA(""	SETMSG+3
PSALOCN	SETMSG+3*, SETMSG+5, SETMSG+6, EXIT+2!
PSALVSN	PHARM+10!, PHARM+11, PHARM+12!, VAULT+9!, VAULT+10, VAULT+11!, NDC+2!, NDC+8*
>> PSANDC	PHARM+10, VAULT+9, NDC+3*, NDC+4
PSANODE	PHARM+7, PHARM+8, PHARM+9, PHARM+11, VAULT+6, VAULT+7, VAULT+8, VAULT+10, EXIT+2!
PSAOSIT	SETMSG+3, EXIT+2!
PSAOSITN	EXIT+2!
PSAOU	NDC+2!, NDC+5*, NDC+8, NDC+9!
PSASPACE	SETMSG+10*, SETMSG+11, EXIT+2!
PSASTOCK	NONCS+5, CS+4, SETMSG+11, EXIT+2!
PSASYN	NDC+2!, NDC+4*, NDC+5, NDC+6, NDC+9!
PSAVSN	NONCS+5, CS+4, NDC+2!, NDC+5*, NDC+7, NDC+8, NDC+9!, SETMSG+12
XMDUZ	SEND+1*, EXIT+2!
XMSUB	SEND+1*, EXIT+2!
XMTEXT	SEND+1*, EXIT+2!
XMY	SEND+4, QUIT!, EXIT+2!
XMY("G.PSA RE	ORDER LEVEL" , SEND+3*

Customize PDF page

Package: Drug Accountability

Routine: PSAREORD

Call Graph Total: 2

Caller Graph Total: 1