Routine: PSGWPOST

Package	Total	Call Graph
Auto Replenishment Ward Stock	2	^PSGWPST1 IG^PSGWUTL1
MailMan	1	^XMD
VA Fileman	1	(,NOW)^%DTC

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGWINIT

Entry Points

Name	Comments	DBIA/ICR reference
QUIT
POST4	;Check for duplicate entries in ITEM subfile (#58.11) of 58.1
MOVE	;
POST3	;Re-initialize sort keys for AOU Inventory Groups
POST2	;Re-index "IU" cross-reference in the Drug file (#50)
POST1	;Convert RETURN REASON subfield to new location as multiple
START	;
ACHK	;** continue checking for number of active items
TIME
EPST4
FINAL	;Set AR/WS node in file #59.7

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Beginning post-init..." Line Location: START+2
Function Call: WRITE	Prompt: !!,"Post-init completed ",PRT,".",!,"AR/WS Version 2.3 has been successfully installed!",!!,"Initialization process took ",MIN," minutes." Line Location: QUIT+1
Function Call: WRITE	Prompt: !!,"Post-init conversion of RETURN REASON subfield has already been done!" Line Location: POST1+1
Function Call: WRITE	Prompt: !!,"Now moving existing RETURN REASON data to new location" Line Location: POST1+2
Function Call: WRITE	Prompt: "." Line Location: MOVE+2
Function Call: WRITE	Prompt: !!,"Now re-indexing the ""IU"" cross-reference in the Drug file (#50)" Line Location: POST2+1
Function Call: WRITE	Prompt: !!,"Now re-initializing sort keys for AOUs in AOU Inventory Group file (#58.2)" Line Location: POST3+2
Function Call: WRITE	Prompt: !!,"Now checking for duplicate entries in the ITEM subfile of the Pharmacy",!,"AOU Stock file." Line Location: POST4+1
Function Call: WRITE	Prompt: !!,"No duplicate entries exist !" Line Location: POST4+5
Function Call: WRITE	Prompt: !!,"Duplicate entries exist.",!,"A MailMan message is being sent to you regarding the problem." Line Location: POST4+6

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	QUIT+2
^DD("DD"	QUIT
^DD("SITE"	FINAL+1
^PS(59.7 - [#59.7]	FINAL+1, FINAL+2, POST1+1
^PSDRUG - [#50]	POST2+2
^PSDRUG("IU"	POST2+2!*
^PSI(58.1 - [#58.1]	POST1+3, MOVE+1, MOVE+2*, POST4+3, POST4+4, ACHK+1
^PSI(58.2 - [#58.2]	POST3+1
^TMP("PSGWDUP"	POST4+7, POST4+8, POST4+9, POST4+10, POST4+11, POST4+12, POST4+13, POST4+14, POST4+15*, POST4+18!
^XUSEC("PSGWMGR"	POST4+17

Name	Field # of Occurrence
%	QUIT, QUIT+3!
ACNT	POST4+3, POST4+4, EPST4!, ACHK+1*
AOU	QUIT+3!, POST1+3, MOVE+1, MOVE+2, POST4+3, POST4+4, ACHK+1
CNT	QUIT+3!, POST2+2, POST4+2, POST4+4*, POST4+5
DONE	QUIT*, QUIT+3!, TIME
DRG	POST2+2, POST2+3!, POST4+3, POST4+4
DUZ	POST4+17
IDT	POST4+4, EPST4!, ACHK+1
INITDT	FINAL+2, QUIT+3!
ITM	QUIT+3!, POST1+3, MOVE+1, MOVE+2, POST4+3, POST4+4
ITMT	POST4+4*, EPST4!, ACHK+1
MIN	QUIT+1, QUIT+3!, TIME*
PRT	QUIT*, QUIT+1, QUIT+3!
PSGWDT	POST4+2*, POST4+4, EPST4!, ACHK+1
PSGWDUZ	POST4+17*, POST4+18!
REA	QUIT+3!, MOVE+1*, MOVE+2
RET	QUIT+3!, POST1+3*, MOVE+1, MOVE+2
RRFLG	START+2, FINAL+2, QUIT+3!, POST1+4
START	QUIT, QUIT+3!, TIME
X	FINAL+1, QUIT+2, QUIT+3!, TIME*, POST4+2
X1	QUIT+3!, TIME*
X2	QUIT+3!, TIME*
XMDUZ	POST4+16*, POST4+18!
XMSUB	POST4+16*, POST4+18!
XMTEXT	POST4+16*, POST4+18!
XMY	POST4+7!, POST4+18!
XMY(	POST4+17*
XQABT1	QUIT+3!
XQABT2	QUIT+3!
XQABT3	QUIT+3!
XQABT4	START+1*, QUIT+3!
XQABT5	QUIT+2*, QUIT+3!
Y	QUIT, QUIT+3!, TIME