Routine: DGYSPOST

Information

DGYSPOST ;ALB/MLI - POST-INIT FOR PATCH DG*5.3*54 ; 10 APRIL 95

Name	Comments	DBIA/ICR reference
EN	; entry point
DQ	; called to begin processing
SSNXREF	; update SSN x-ref in ^DPT if not currently set
ARMCLN	; loop through ^DGPM("ARM" and make sure entries are valid
MAIL	; generate an e-mail bulletin when done
LINE(TEXT)	; add text to mail message
TEXT	; text to display

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: EN+2
Function Call: WRITE	Prompt: !,X Line Location: EN+2
Function Call: WRITE	Prompt: !,"Task queued: ",ZTSK Line Location: EN+5
Function Call: WRITE	Prompt: "...RUNNING IMMEDIATELY" Line Location: EN+6
Function Call: WRITE	Prompt: !,"Done!" Line Location: EN+6
Function Call: WRITE	Prompt: !,">> Resetting SSN cross-reference on PATIENT file (#2)..." Line Location: SSNXREF+2
Function Call: WRITE	Prompt: "." Line Location: SSNXREF+4
Function Call: WRITE	Prompt: !,">> Checking ARM cross-reference on PATIENT MOVEMENT file (#405)..." Line Location: ARMCLN+2
Function Call: WRITE	Prompt: "." Line Location: ARMCLN+8