Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: DG53P951

Package: Registration

Routine: DG53P951


Information

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

Source Information

Source file <DG53P951.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Kernel 6 ^%ZTLOAD  ($$DT,$$FMADD,$$HL7TFM)^XLFDT  UPDATE^XPDID  (BMES,MES)^XPDUTL  ($$IEN,$$NAME,$$STA)^XUAF4  $$CREATE^XUSAP  
VA FileMan 4 DD^%DT  NOW^%DTC  $$GET1^DID  ($$GET1,GETS)^DIQ  
Registration 2 TFL^VAFCTFU1  $$SITE^VASITE  
Health Level Seven 1 $$MSG^HLCSUTL  
MailMan 1 ^XMD  
Master Patient Index VistA 1 $$GETDFN^MPIF001  

Entry Points

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

External References

Name Field # of Occurrence
DD^%DT MAIL1+7, MAIL2+7
NOW^%DTC MAIL1+7, MAIL2+7
^%ZTLOAD EN1+16, EN1+36
$$GET1^DID BLDARR+3
$$GET1^DIQ LOOP1+9, PID+4, QRD+4
GETS^DIQ SSN+1, LOOP2+9, LOOP2+18
$$MSG^HLCSUTL LOOP1+9
$$GETDFN^MPIF001 PID+2, QRD+2
TFL^VAFCTFU1 LOOP2+13
$$SITE^VASITE LOOP2+22
$$DT^XLFDT EN3+14
$$FMADD^XLFDT EN3+13
$$HL7TFM^XLFDT MSH+2
^XMD MAIL1+8, MAIL2+8
UPDATE^XPDID USR+15, EN1+39
BMES^XPDUTL USR+3, USR+12, USR+13, USR+14, EN1+17, EN1+37
MES^XPDUTL USR+4, USR+5, EN1+12, EN1+31
$$IEN^XUAF4 MSH+11
$$NAME^XUAF4 MSH+11
$$STA^XUAF4 LOOP2+23
$$CREATE^XUSAP USR+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN2+8
Function Call: WRITE
  • Prompt: !,"DG*5.3*951 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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ,  GETS^DIQ
^DGPF(26.13 - [#26.13] GETS^DIQ
^DGPF(26.14 - [#26.14] GET1^DID
^HLMA - [#773] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPF(26.13 - [#26.13] LOOP2+4, LOOP2+7
^HLMA("B" LOOP1+5, LOOP1+6
^TMP("DG53951P1" LOOP1+4
^TMP("DG53951P2" EN2+6
^TMP("DG951PST" EN3+7

Label References

Name Line Occurrences
$$BLDSTR PRINT1+17, PRINT1+18, PRINT1+19, PRINT1+20, HEAD1+17, HEAD1+18, HEAD1+19, HEAD1+20, PRINT2+15, PRINT2+16
, PRINT2+17, PRINT2+18, HEAD2+15, HEAD2+16, HEAD2+17, HEAD2+18
@( PARSE+9
BLDARR EN3+10
BLDLST1 OBX+4
BLDLST2 LOOP2+24
EN1 EN+4
EN3 EN1+1
HEAD1 PRINT1+13
HEAD2 PRINT2+10
LOOP1 EN3+15
LOOP2 EN2+15
MAIL1 EN3+18
MAIL2 EN2+19
MSG2 EN2+12
PARSE LOOP1+10
PRINT1 EN3+16
PRINT2 EN2+16
RECPIENT EN3+17, EN2+18
SSN PID+5, QRD+5
USR EN+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% MAIL1+7, MAIL2+2~, MAIL2+7
ACTNARY EN3+3~
ACTNARY( BLDARR+5*, OBX+4
COL BLDSTR~, BLDSTR+1
DDASH PRINT1+2~, PRINT1+3*, HEAD1+2~, HEAD1+5*, HEAD1+24, PRINT2+2~, PRINT2+3*, HEAD2+2~, HEAD2+5*, HEAD2+22
DFN PARSE+1~, PARSE+5~, PID+2*, PID+3, PID+4, QRD+2*, QRD+3, QRD+4, SSN+1, SSN+2
DG772 LOOP1+2~, LOOP1+5*, LOOP1+6, BLDLST1+3
DG773 LOOP1+2~, LOOP1+6*, LOOP1+9, BLDLST1+3
DGACTN LOOP1+3~, LOOP1+8!, OBX+3*, OBX+4
DGBEHAV PARSE+1~, PARSE+5~, PARSE+6*, OBR+2*, OBX+2
DGCNT PRINT1+2~, PRINT1+10*, PRINT1+13, HEAD1+27*, PRINT2+2~, PRINT2+7*, PRINT2+10, HEAD2+25*
DGCURNT LOOP2+8~, LOOP2+23*, BLDLST2+2
DGDATA PRINT1+12~, PRINT1+15*, PRINT1+16, PRINT1+17, PRINT1+19, PRINT1+20, PRINT2+9~, PRINT2+13*, PRINT2+16, PRINT2+17
, PRINT2+18
DGDFN LOOP2+2~, LOOP2+4*, LOOP2+7, LOOP2+13, LOOP2+18, LOOP2+19
DGERR BLDARR+2~, BLDARR+4, LOOP2+8~, LOOP2+10
DGEVNTYP LOOP1+2~, LOOP1+7!, MSH+8*, MSH+9
DGFLDS LOOP2+8~
DGFLDS( LOOP2+13, LOOP2+16, LOOP2+21
DGIEN LOOP2+2~, LOOP2+7*, LOOP2+9, LOOP2+13, LOOP2+16, LOOP2+21, BLDLST2+2, PRINT2+2~, PRINT2+7*, PRINT2+11*
, PRINT2+12, PRINT2+13
DGINST LOOP2+2~
DGLIST EN3+1~, EN3+7*, EN3+8, EN3+15, EN3+16, EN3+19, LOOP1~, OBX+4, BLDLST1~, BLDLST1+3
, PRINT1~, PRINT1+4, PRINT1+5, PRINT1+6, PRINT1+7, PRINT1+8, PRINT1+9, PRINT1+11, PRINT1+13, PRINT1+14
, PRINT1+15, PRINT1+22, HEAD1~, HEAD1+4, HEAD1+7, HEAD1+9, HEAD1+11, HEAD1+13, HEAD1+15, HEAD1+22
, HEAD1+24, HEAD1+26, EN2+2~, EN2+6*, EN2+7, EN2+15, EN2+16, EN2+17, EN2+20, LOOP2~
, LOOP2+24, BLDLST2~, BLDLST2+2, PRINT2~, PRINT2+4, PRINT2+8, PRINT2+10, PRINT2+11, PRINT2+12, PRINT2+13
, PRINT2+20, HEAD2~, HEAD2+4, HEAD2+7, HEAD2+9, HEAD2+11, HEAD2+13, HEAD2+20, HEAD2+22, HEAD2+24
DGMSGTYP LOOP1+2~, LOOP1+7!, MSH+7*, MSH+9
DGOUT PARSE+1~, PARSE+3*, PARSE+4, PARSE+7, MSH+3*, MSH+5*, MSH+12*
DGOWN LOOP2+2~, LOOP2+8~, LOOP2+22*, BLDLST2+2
DGPROCDT LOOP1+2~, LOOP1+7!, MSH+2*, MSH+3, MSH+5
DGPTICN LOOP1+2~, LOOP1+7!, PID+1*, PID+2, QRD+1*, QRD+2, BLDLST1+3
DGPTNAME LOOP1+3~, LOOP1+8!, PID+4*, QRD+4*, BLDLST1+2, BLDLST1+3, PRINT1+2~, PRINT1+10*, PRINT1+11*, PRINT1+14
, PRINT1+15, PRINT1+18, LOOP2+8~, LOOP2+16*, BLDLST2+2, PRINT2+2~, PRINT2+7*, PRINT2+12*, PRINT2+13, PRINT2+14
, PRINT2+15
DGRCPNT EN3+5~, MAIL1+6*, EN2+5~, EN2+25*, MAIL2+6*
DGRCPNT( MAIL1+6, EN2+25, MAIL2+6
DGRCPNT(1 RECPIENT+2*
DGRCPNT(2 RECPIENT+3*
DGREF LOOP1+2~, LOOP1+4*, LOOP1+7, LOOP1+9, LOOP1+10, LOOP1+11, PARSE~, PARSE+4, PARSE+7, PARSE+8
MSH+2, MSH+7, MSH+8, MSH+10, PID+1, QRD+1, OBR+2, OBX+3, OBX+4
DGRESULT LOOP2+8~, LOOP2+13, LOOP2+14
DGRESULT(1 LOOP2+15
DGSGMENT PARSE+1~
DGSGMENT(0 PARSE+2*, PARSE+8*, PARSE+9
DGSITE PRINT1+2~, PRINT1+10*, PRINT1+14*, PRINT1+15, PRINT1+16, PRINT1+17, LOOP2+8~, LOOP2+21*, LOOP2+22, LOOP2+23
, BLDLST2+2, PRINT2+2~, PRINT2+7*, PRINT2+8*, PRINT2+11, PRINT2+12, PRINT2+13
DGSORT EN3+2~
DGSORT("DGBEG" EN3+13*, MSH+5
DGSORT("DGEND" EN3+14*, MSH+5
DGSSN LOOP1+3~, LOOP1+8!, SSN+2*, BLDLST1+3
DGSSN(2 SSN+2
DGSSN4 LOOP2+8~, LOOP2+19*, BLDLST2+2
DGSSN4(2 LOOP2+19
DGSTANUM LOOP1+3~, LOOP1+8!, MSH+10*, MSH+11, BLDLST1+2, BLDLST1+3
DGSTNAME LOOP1+3~, LOOP1+8!, MSH+11*, BLDLST1+3
DGXPD USR~, USR+3, USR+15, EN1~, EN1+4, EN1+39
DIFROM MAIL1+2~, MAIL2+2~
DT EN3+13
DUZ MAIL1+5, MAIL2+5
I BLDARR+2~, BLDARR+5*
IOC LOOP2+2~, LOOP2+3*, LOOP2+5*, LOOP2+6
IOF EN2+8
LN EN3+4~, PRINT1+21*, PRINT1+22, HEAD1+3*, HEAD1+4, HEAD1+6*, HEAD1+7, HEAD1+8*, HEAD1+9, HEAD1+10*
, HEAD1+11, HEAD1+12*, HEAD1+13, HEAD1+14*, HEAD1+15, HEAD1+21*, HEAD1+22, HEAD1+23*, HEAD1+24, HEAD1+25*
, HEAD1+26, EN2+3~, PRINT2+19*, PRINT2+20, HEAD2+3*, HEAD2+4, HEAD2+6*, HEAD2+7, HEAD2+8*, HEAD2+9
, HEAD2+10*, HEAD2+11, HEAD2+12*, HEAD2+13, HEAD2+19*, HEAD2+20, HEAD2+21*, HEAD2+22, HEAD2+23*, HEAD2+24
MES EN1+2~, EN1+12, EN1+19!, EN1+31
MES(1 EN1+3*, EN1+20*
MES(10 EN1+29*
MES(11 EN1+30*
MES(2 EN1+4*, EN1+21*
MES(3 EN1+5*, EN1+22*
MES(4 EN1+6*, EN1+23*
MES(5 EN1+7*, EN1+24*
MES(6 EN1+8*, EN1+25*
MES(7 EN1+9*, EN1+26*
MES(8 EN1+10*, EN1+27*
MES(9 EN1+11*, EN1+28*
NSL BLDSTR~, BLDSTR+1
NSTR BLDSTR~, BLDSTR+1
SNDMAIL EN3+6~, EN3+11*, MAIL1+9*, EN2+4~, EN2+14*, EN2+21, MAIL2+9*
STR BLDSTR~, BLDSTR+1
SUB1 PARSE+1~, PARSE+2*, PARSE+4*, PARSE+7, PARSE+8, MSH+2, MSH+7, MSH+8, MSH+10, PID+1
QRD+1, OBR+2, OBX+3, OBX+4
SUB2 PARSE+1~, PARSE+2*, PARSE+7*, PARSE+8, MSH+2, MSH+7, MSH+8, MSH+10, PID+1, QRD+1
OBR+2, OBX+3, OBX+4
TEXT PRINT1+12~, PRINT1+16*, PRINT1+17*, PRINT1+18*, PRINT1+19*, PRINT1+20*, PRINT1+22, HEAD1+2~, HEAD1+16*, HEAD1+17*
, HEAD1+18*, HEAD1+19*, HEAD1+20*, HEAD1+22, PRINT2+9~, PRINT2+14*, PRINT2+15*, PRINT2+16*, PRINT2+17*, PRINT2+18*
, PRINT2+20, HEAD2+2~, HEAD2+14*, HEAD2+15*, HEAD2+16*, HEAD2+17*, HEAD2+18*, HEAD2+20
U PARSE+8, MSH+2, MSH+7, MSH+8, MSH+10, PID+1, QRD+1, OBR+2, OBX+3, OBX+4
, BLDLST1+3, PRINT1+16, PRINT1+17, PRINT1+19, PRINT1+20, LOOP2+22, BLDLST2+2, PRINT2+16, PRINT2+17, PRINT2+18
UIEN USR+1~, USR+10*, USR+12, USR+13, USR+14
X EN1+2~, EN1+17*, EN1+37*, BLDARR+2~, BLDARR+3*, BLDARR+5
XMDUZ MAIL1+2~, MAIL1+3*, MAIL2+2~, MAIL2+3*
XMSUB MAIL1+2~, MAIL1+3*, MAIL2+2~, MAIL2+3*
XMTEXT MAIL1+2~, MAIL1+4*, MAIL2+2~, MAIL2+4*
XMY MAIL1+2~, MAIL2+2~
XMY( MAIL1+5*, MAIL1+6*, MAIL2+5*, MAIL2+6*
XPDIDTOT EN+1~, EN+2*, USR+3, EN1+4
XPDIDVT EN+1~, EN+2*
Y BLDARR+2~, BLDARR+5*, MAIL1+7*, MAIL2+7*
ZTDESC EN1+2~, EN1+13*, EN1+32*
ZTDTH EN1+2~, EN1+35*
ZTIO EN1+2~, EN1+15*, EN1+34*
>> ZTQUEUED USR+2, USR+11, EN1+1, LOOP2+3, LOOP2+6
ZTREQ EN1+2~, EN3+20*
ZTRTN EN1+2~, EN1+14*, EN1+33*
ZTSAVE EN1+2~
ZTSK EN1+2~, EN1+17, EN1+18, EN1+37
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All