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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RGMTHL2

Package: Clinical Information Resource Network

Routine: RGMTHL2


Information

RGMTHL2 ;BIR/CML-COMPILE MPI/PD HL7 DATA FOR BI-DIRECTIONAL TCP ;11/15/01

Source Information

Source file <RGMTHL2.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 2 ^%ZTLOAD  ($$FMADD,$$FMTE,$$NOW)^XLFDT  
VA FileMan 2 (C,NOW)^%DTC  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Clinical Information Resource Network 1 RGMT DIAG COMPILE HL7 DATA  

Entry Points

Name Comments DBIA/ICR reference
BEGIN ;
QUE ;Queue the task.
START ;
LOOP ;Loop on ^HL(772 date xref
PAT
QUIT ;
SET ;
STOP ;stop the compile
SHOW ;show status of compile

External References

Name Field # of Occurrence
C^%DTC BEGIN+5
NOW^%DTC START+4, PAT+17
^%ZTLOAD QUE+2
^DIR RGMTHL2+33, BEGIN+10, BEGIN+13, STOP+6
$$FMADD^XLFDT START+6, START+8
$$FMTE^XLFDT RGMTHL2+21, BEGIN+6, START+11, START+12, STOP+11, SHOW+4, SHOW+6, SHOW+8
$$NOW^XLFDT BEGIN+1, BEGIN+9, BEGIN+12, STOP+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RGMTHL2+10
Function Call: WRITE
  • Prompt: !,"This utility searches the HL7 MESSAGE TEXT (#772) file for a selected"
  • Line Location: RGMTHL2+11
Function Call: WRITE
  • Prompt: !,"date range. Each HL7 message in the date range is examined. If the"
  • Line Location: RGMTHL2+12
Function Call: WRITE
  • Prompt: !,"RELATED EVENT PROTOCOL field contains the MPI/PD protocols (e.g., ""VAF"","
  • Line Location: RGMTHL2+13
Function Call: WRITE
  • Prompt: !,"""RG"", or ""MPI"") data is compiled into the ^XTMP(""RGMT"",""HL"" array."
  • Line Location: RGMTHL2+14
Function Call: WRITE
  • Prompt: !!,"A cross-reference is built on patient ICN and DFN for faster data retrieval"
  • Line Location: RGMTHL2+15
Function Call: WRITE
  • Prompt: !,"for the associated reports."
  • Line Location: RGMTHL2+16
Function Call: WRITE
  • Prompt: !!,"=> ""Compile MPI/PD HL7 Data"" last ran to completion on "_CDT_".",!
  • Line Location: RGMTHL2+22
Function Call: WRITE
  • Prompt: !
  • Line Location: RGMTHL2+25
Function Call: WRITE
  • Prompt: !!,"Enter date range for data to be compiled."
  • Line Location: BEGIN+3
Function Call: WRITE
  • Prompt: !,"Beginning Date for Report: ",$$FMTE^XLFDT(X)
  • Line Location: BEGIN+6
Function Call: WRITE
  • Prompt: !!,"Stop HL7 Message Compile."
  • Line Location: STOP+1
Function Call: WRITE
  • Prompt: !?3,"<< No compile is currently running >>"
  • Line Location: STOP+2
Function Call: WRITE
  • Prompt: !?3,"<< No compile is currently running >>"
  • Line Location: STOP+3
Function Call: WRITE
  • Prompt: !!,"A compile is currently running for ",?35,": ",^XTMP("RGMT","HL","@@@@","RANGE"),"."
  • Line Location: STOP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: STOP+6
Function Call: WRITE
  • Prompt: !!,"Show status of HL7 Message Compile."
  • Line Location: SHOW+1
Function Call: WRITE
  • Prompt: !?3,"<< No compile is currently running >>"
  • Line Location: SHOW+2
Function Call: WRITE
  • Prompt: !!,"Compile range ",?31,": ",^XTMP("RGMT","HL","@@@@","RANGE")
  • Line Location: SHOW+3
Function Call: WRITE
  • Prompt: !,"The compile was started ",?31,": ",$$FMTE^XLFDT(^XTMP("RGMT","HL","@@@@","STARTED"))
  • Line Location: SHOW+4
Routine Call
  • DIR
  • Line Location:
    • RGMTHL2+33
    • BEGIN+10
    • BEGIN+13
    • STOP+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT("AICN" SET+3
^DPT("SSN" PAT+10
^HL(771.6 - [#771.6] LOOP+15
^HL(772 - [#772] LOOP+1, LOOP+5, LOOP+11, PATPAT+1, PAT+2, PAT+3, PAT+4, PAT+6, PAT+8
PAT+9, PAT+12, PAT+13, PAT+14
^HLMA - [#773] LOOP+14
^HLMA("B" LOOP+13
^ORD(101 - [#101] LOOP+8, LOOP+9
^XTMP("RGMT" RGMTHL2+18, RGMTHL2+19, RGMTHL2+21, RGMTHL2+23, RGMTHL2+24, BEGIN+5, START+2!, START+3!, START+5*, START+6*
START+9*, START+10*, START+13*, LOOP+2, LOOP+3*, LOOP+17*, PAT+5*, PAT+7*, PAT+11*, PAT+17*
PAT+18!, SET+2*, SET+3*, STOP+2, STOP+3, STOP+5, STOP+8*, STOP+10, STOP+11*, SHOW+2
SHOW+3, SHOW+4, SHOW+5, SHOW+6, SHOW+7, SHOW+8

Label References

Name Line Occurrences
BEGIN RGMTHL2+18
QUIT RGMTHL2+20, RGMTHL2+33, BEGIN+7, BEGIN+13, QUE+3, STOP+2, STOP+3, STOP+12, SHOW+2, SHOW+9
SET PAT+2, PAT+3, PAT+12, PAT+15

Naked Globals

Name Field # of Occurrence
^(0 PAT+2, PAT+3, PAT+5, PAT+6, PAT+12, PAT+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% START+5, START+6, PAT+17, QUIT+1!
ACT RGMTHL2+33*, BEGIN+2*, BEGIN+4, BEGIN+7, START+3, START+9, QUIT+1!
CDT RGMTHL2+21*, RGMTHL2+22, QUIT+1!
DFN PAT+5*, PAT+10*, PAT+11, QUIT+1!, SET+3*
DIR RGMTHL2+25!, RGMTHL2+33!, BEGIN+8!, BEGIN+10!, BEGIN+11!, BEGIN+13!, STOP+6!
DIR("?" RGMTHL2+30*, RGMTHL2+31*, RGMTHL2+32*
DIR("A" RGMTHL2+26*, RGMTHL2+27*, RGMTHL2+28*, BEGIN+9*, BEGIN+12*, STOP+6*
DIR("B" RGMTHL2+29*, STOP+6*
DIR(0 RGMTHL2+25*, BEGIN+9*, BEGIN+12*, STOP+6*
DIRUT RGMTHL2+33, BEGIN+7, BEGIN+8!, BEGIN+10, BEGIN+11!, BEGIN+13
DT START+6
DTOUT BEGIN+8!, BEGIN+11!
DUOUT BEGIN+8!, BEGIN+11!
FROM QUIT+2!, STOP+10*, STOP+11
GOT PAT+1*, PAT+4*, PAT+5*, PAT+7*, PAT+8*, PAT+11*, QUIT+1!, SET+1*
HL773 LOOP+13*, LOOP+14, QUIT+1!
ICN PAT+2*, PAT+3*, PAT+6*, PAT+7, PAT+12*, PAT+14*, QUIT+1!, SET+2, SET+3
IEN LOOP+4*, LOOP+5*, LOOP+11, LOOP+13, LOOP+17, PATPAT+1, PAT+2, PAT+3, PAT+4
PAT+5, PAT+6, PAT+7, PAT+8, PAT+9, PAT+11, PAT+12, PAT+13, PAT+14, QUIT+1!
SET+2, SET+3
IEN0 LOOP+5*, LOOP+6, LOOP+11, QUIT+1!
IOF RGMTHL2+10
PRGBDT START+11*, START+13, QUIT+1!
PRGEDT START+12*, START+13, QUIT+1!
QFLG START+1*, LOOP+1, LOOP+2*, QUIT+2!
RANGE QUIT+2!, STOP+10*
REP LOOP+6*, LOOP+7, LOOP+8, LOOP+9, QUIT+1!
REPNM LOOP+9*, LOOP+17, PAT+5, PAT+7, PAT+11, QUIT+1!, SET+2, SET+3
RGBDT BEGIN+6*, BEGIN+10*, BEGIN+12, START+8, QUIT+1!
RGDT START+8*, START+9, START+11, LOOP+1*, LOOP+3, LOOP+5, LOOP+17, PAT+5, PAT+7, PAT+11
QUIT+1!, SET+2, SET+3
RGEDT BEGIN+13*, START+7, QUIT+2!
RGNOW BEGIN+1*, QUIT+2!
RPNM LOOP+9*, LOOP+10, QUIT+2!
SSN PAT+9*, PAT+10, QUIT+2!
STAT LOOP+11*, LOOP+12, LOOP+14*, LOOP+15, LOOP+16, QUIT+2!
STATNM LOOP+15*, LOOP+16*, LOOP+17, PAT+5, PAT+7, PAT+11, QUIT+2!, SET+2, SET+3
STOP QUIT+2!, STOP+9*, STOP+11
STOPDT START+7*, START+10, START+12, LOOP+1, QUIT+2!
TXT PAT*, PAT+1, PAT+2, PAT+3, PAT+4, PAT+6, PAT+7, PAT+8, PAT+9, PAT+11
PAT+12, PAT+13, PAT+14, QUIT+2!
TYPE LOOP+11*, LOOP+17, PAT+5, PAT+7, PAT+11, QUIT+2!, SET+2, SET+3
U START+4*, LOOP+6, LOOP+9, LOOP+11, LOOP+15, PAT+1, PAT+4, PAT+5, PAT+6, PAT+8
PAT+12, PAT+13, PAT+14
X BEGIN+6, QUIT+2!
X1 BEGIN+5*, QUIT+2!
X2 BEGIN+5*, QUIT+2!
Y RGMTHL2+33, BEGIN+10, BEGIN+13, QUIT+2!, STOP+7
>> ZTDESC QUE+2*
>> ZTIO QUE+2*
>> ZTQUEUED QUIT+3
>> ZTREQ QUIT+3*
>> ZTRTN QUE+2*
>> ZTSAVE("ACT" QUE+1*
>> ZTSAVE("RGBDT" QUE+1*
>> ZTSAVE("RGEDT" QUE+1*
ZTSK QUIT+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All