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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: AGHL7

Package: IHS Patient Registration

Routine: AGHL7


Information

AGHL7 ; IHS/ASDS/EFG -- LOOP THROUGH XTMP USING DFN ;

Source Information

Source file <AGHL7.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 3 ^%ZTLOAD  ($$FMADD,$$FMDIFF,$$FMTE,$$HADD,$$NOW)^XLFDT  EN^XQOR  
VA Fileman 3 IX^DIC  FILE^DICN  ^DIE  
IHS VA Utilities 2 $$DIR^XBDIR  HELP^XBHELP  
IHS Patient Registration 1 AGR1^AGTXST  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Registration GUI 1 AGGEXPRT  

Entry Points

Name Comments DBIA/ICR reference
XPORT ;EP - From TaskMan for regular xport.
AG ;EP - From AGMENU, EXIT ACTION.
MSGIDS ;TM a job to update date/time msg sent, ack received.
GEN(AGTYPE,AGCAUSE,INDA)
START ;EP-HL7 CALL
TXMSG(DFN,AGTYPE,AGCAUSE,INHF) ;make entry into agtxmsg
MSGIDSTM
REGALL ;EP - From menu.

External References

Name Field # of Occurrence
^%ZTLOAD MSGIDS+2
AGR1^AGTXST XPORT+14
IX^DIC MSGIDSTM+6
FILE^DICN TXMSG+5
^DIE MSGIDSTM+10
$$DIR^XBDIR XPORT+65, REGALL+6, REGALL+28
HELP^XBHELP REGALL+5
$$FMADD^XLFDT XPORT+23
$$FMDIFF^XLFDT XPORT+64, REGALL+27
$$FMTE^XLFDT XPORT+3, XPORT+25, XPORT+64, REGALL+9, REGALL+26
$$HADD^XLFDT MSGIDS+1
$$NOW^XLFDT XPORT+2, XPORT+62, REGALL+8, REGALL+25, TXMSG+2
EN^XQOR START+5, AG+7, GEN+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Ending Regular Xport @ ",$$FMTE^XLFDT($P(AGTIME,U,2)),!,"Elapsed time: ",$S($P(AGTIME,U,2)=$P(AGTIME,U):"Less than a second.",1:$$FMDIFF^XLFDT($P(AGTIME,U,2),$P(AGTIME,U,1),3))
  • Line Location: XPORT+64
Function Call: WRITE
  • Prompt: !,"Begin at ",$$FMTE^XLFDT(AGB),"."
  • Line Location: REGALL+9
Function Call: WRITE
  • Prompt: !,AG4," Patients",!
  • Line Location: REGALL+11
Function Call: WRITE
  • Prompt: " | ",$J(AGC/AG4*100,0,0),"%"
  • Line Location: REGALL+22
Function Call: WRITE
  • Prompt: !," End at ",$$FMTE^XLFDT(AGE),"."
  • Line Location: REGALL+26
Function Call: WRITE
  • Prompt: !,"Elapsed time: ",$$FMDIFF^XLFDT(AGE,AGB,3)
  • Line Location: REGALL+27
Routine Call
  • DIE
  • Line Location:
    • MSGIDSTM+10
Routine Call
  • DIC
  • Line Location:
    • MSGIDSTM+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^INTHU - [#4001] Classic Fileman Calls
^AGTXMSG - [#9009063.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AGFAC("AC" XPORT+48, REGALL+17
^AGTXMSG - [#9009063.1] XPORT+21, XPORT+23, MSGIDSTM+5
^AGTXMSG("D" MSGIDSTM+4
^AGTXMSG(0 XPORT+11, XPORT+19
^AGTXST - [#9009063] XPORT+15
^AUPNPAT - [#9000001] XPORT+41, XPORT+42, XPORT+43, XPORT+47, XPORT+49, REGALL+12, REGALL+16, REGALL+18
^AUPNPAT("ADTE" XPORT+30, XPORT+32
^AUPNPAT(0 REGALL+10
^AUTTSITE(1 XPORT+6, XPORT+13
^DPT - [#2] XPORT+44, REGALL+13, REGALL+14
^INTHU - [#4001] MSGIDSTM+9
^TMP("AGHL7" XPORT+8!, XPORT+35*, XPORT+45, XPORT+56!
^XTMP("AGHL7" START+2, START+3, START+4, START+6!, START+7
^XTMP("AGHL7AG" AG+2, AG+3, AG+4, AG+6, AG+8!, AG+9

Label References

Name Line Occurrences
GEN XPORT+34, XPORT+51, REGALL+19
MSGIDS XPORT+58
TXMSG GEN+4

Naked Globals

Name Field # of Occurrence
^( XPORT+21
^(0 XPORT+49, REGALL+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % XPORT+19*, XPORT+21*, XPORT+23
AG4 REGALL+7~, REGALL+10*, REGALL+11, REGALL+22
AGB REGALL+7~, REGALL+8*, REGALL+9, REGALL+27
AGC REGALL+7~, REGALL+10*, REGALL+21*, REGALL+22
AGCAUSE GEN~, GEN+4, TXMSG~, TXMSG+4
AGDFN AG+1~, AG+6*
AGDUZ2 START+1~, START+4*, AG+1~, AG+6*, XPORT+1~, XPORT+7*, XPORT+55, REGALL+7~, REGALL+10*, REGALL+24
AGE REGALL+7~, REGALL+25*, REGALL+26, REGALL+27
AGIEN MSGIDSTM+1~, MSGIDSTM+3*, MSGIDSTM+4*, MSGIDSTM+5, MSGIDSTM+8
AGLIEN XPORT+12~, XPORT+15
AGQUIT XPORT+1~, XPORT+46*, XPORT+47, XPORT+52*
AGTIME XPORT+1~, XPORT+2*, XPORT+3, XPORT+62*, XPORT+64
AGTXBDT XPORT+1~, XPORT+15*, XPORT+23*, XPORT+25, XPORT+29, XPORT+42
AGTXDATE XPORT+1~, XPORT+29*, XPORT+30*, XPORT+32
AGTXSITE XPORT+12~, XPORT+13*, XPORT+15
AGTYPE GEN~, GEN+2, GEN+4, TXMSG~, TXMSG+2*, TXMSG+4
AGXREF MSGIDSTM+1~, MSGIDSTM+2*
>> D MSGIDSTM+5*
DA GEN+1~, TXMSG+1~, TXMSG+3!, MSGIDSTM+1~, MSGIDSTM+8*, MSGIDSTM+9
DD TXMSG+3!
DFN START+1~, START+2*, START+3, START+4, START+6, START+7, AG+1~, AG+3*, AG+4, AG+6
, AG+8, AG+9, XPORT+1~, XPORT+31*, XPORT+32*, XPORT+33, XPORT+34, XPORT+35, XPORT+40*, XPORT+41*
, XPORT+42, XPORT+43, XPORT+44, XPORT+45, XPORT+47, XPORT+49, XPORT+50, XPORT+51, REGALL+7~, REGALL+10*
, REGALL+12*, REGALL+13, REGALL+14, REGALL+16, REGALL+18, REGALL+19, GEN+4, TXMSG~, TXMSG+4
DIC START+4*, AG+6*, XPORT+1~, REGALL+7~, GEN+1~, GEN+2*, TXMSG+1~, TXMSG+3!, TXMSG+4*, MSGIDSTM+1~
, MSGIDSTM+5*
DIC("DR" TXMSG+4*
DIC(0 TXMSG+4*, MSGIDSTM+5*
DIE MSGIDSTM+1~, MSGIDSTM+8*
DO TXMSG+3!
DR GEN+1~, TXMSG+1~, TXMSG+3!, MSGIDSTM+1~, MSGIDSTM+8*, MSGIDSTM+9*
DT XPORT+30, XPORT+43
DUZ(2 XPORT+6*, XPORT+7, XPORT+46*, XPORT+47*, XPORT+48, XPORT+49, XPORT+55*, REGALL+10, REGALL+15*, REGALL+16*
, REGALL+17, REGALL+18, REGALL+24*
DZ2 START+1~, START+2*, START+3, START+4, START+6, START+7, AG+1~, AG+2*, AG+3, AG+4
, AG+6, AG+8, AG+9
INDA START+1~, START+4*, AG+1~, AG+6*, XPORT+1~, REGALL+7~, GEN~
INHF GEN+1~, GEN+4, TXMSG~, TXMSG+4
U XPORT+6, XPORT+13, XPORT+15, XPORT+19, XPORT+21, XPORT+23, XPORT+42, XPORT+43, XPORT+44, XPORT+49
, XPORT+62, XPORT+64, REGALL+10, REGALL+14, REGALL+18, MSGIDSTM+5, MSGIDSTM+8, MSGIDSTM+9
X START+4*, AG+6*, GEN+1~, GEN+2*, TXMSG+1~, TXMSG+2*, MSGIDSTM+1~, MSGIDSTM+5*
>> Y MSGIDSTM+7, MSGIDSTM+8
>> ZTDESC MSGIDS+1*
>> ZTDTH MSGIDS+1*
>> ZTIO MSGIDS+1*
>> ZTQUEUED XPORT+3, XPORT+9, XPORT+25, XPORT+28, XPORT+33, XPORT+39, XPORT+50, XPORT+63
>> ZTREQ MSGIDSTM+13*
>> ZTRTN MSGIDS+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All