Routine: PSGWPOST

Information

PSGWPOST ;BHAM/CML-POST INIT CONVERSION ROUTINE ; 27 Dec 93 / 11:12 AM

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

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