Routine: DG53P951

Information

DG53P951 ;SHRPE/YMG - Post Install for DG patch 951 ;03-May-2018

Name	Comments	DBIA/ICR reference
EN	; entry point
USR(DGXPD)	; create non-human user for PRF interface
EN1(DGXPD)	;Queue the HL7 CHECK POST INSTALLATION REPORT to Taskman
EN3	;
BLDARR	;
LOOP1(DGLIST)	;
PARSE(DGREF)	;
MSH	;Parse MSH segment
PID	;Parse PID segment
QRD	;Parse QRD segment
OBR	;Parse OBR segment
OBX	;Parse OBX segment
SSN	;extract patient's SSN4
BLDLST1(DGLIST)	;
PRINT1(DGLIST)	;
HEAD1(DGLIST)	;
BLDSTR(NSTR,STR,COL,NSL)	;build a string
RECPIENT	;
MAIL1	;Send mailman message to user with results
EN2	;
MSG2	;
LOOP2(DGLIST)	;
BLDLST2(DGLIST)	;
PRINT2(DGLIST)	;
HEAD2(DGLIST)	;
MAIL2	;Send mailman message to user will results

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN2+8
Function Call: WRITE	Prompt: !,"DG5.3951 IOC SITE DBRS PATIENTS POST-RELEASE REPORT",! Line Location: EN2+9
Function Call: WRITE	Prompt: ! Line Location: EN2+13
Function Call: WRITE	Prompt: !!,"SUCCESSFULLY SENT EMAIL : IOC SITE DBRS PATIENTS POST-RELEASE REPORT",!! Line Location: EN2+22
Function Call: WRITE	Prompt: "To the following recipient:",! Line Location: EN2+23
Function Call: WRITE	Prompt: ?3,"POSTMASTER" Line Location: EN2+24
Function Call: WRITE	Prompt: !,?3,$G(DGRCPNT(DGRCPNT)) Line Location: EN2+25
Function Call: WRITE	Prompt: !! Line Location: EN2+26
Function Call: WRITE	Prompt: !,"This post install routine will check all patients with DBRS data in the local" Line Location: MSG2+1
Function Call: WRITE	Prompt: !,"PRF ASSIGNMENT FILE (#26.13) and verify if patients are registered in other VA" Line Location: MSG2+2
Function Call: WRITE	Prompt: !,"sites." Line Location: MSG2+3
Function Call: WRITE	Prompt: !!,"HL7 transaction messages for these patients need to be re-sent to other site to" Line Location: MSG2+5
Function Call: WRITE	Prompt: !,"ensure synchronization of DBRS data.",! Line Location: MSG2+6
Function Call: WRITE	Prompt: "Working..." Line Location: LOOP2+3
Function Call: WRITE	Prompt: "." Line Location: LOOP2+6
Function Call: WRITE	Prompt: !!," >>> No IOC SITE DBRS PATIENTS record have been found." Line Location: PRINT2+5
Function Call: WRITE	Prompt: !!," NO EMAIL GENERATED.",! Line Location: PRINT2+6