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 |  Local Variables |  All
Print Page as PDF
Routine: RGMTHLDP

Package: Clinical Information Resource Network

Routine: RGMTHLDP


Information

RGMTHLDP ;BIR/CML-MPI/PD HL7 ACTIVITY BY PATIENT/ALL PROTOCOLS ;11/05/01

Source Information

Source file <RGMTHLDP.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 ^%ZISC  $$FMTE^XLFDT  EN^XUTMDEVQ  
VA FileMan 3 NOW^%DTC  ^DIC  ^DIR  
Master Patient Index VistA 1 $$GETDFN^MPIF001  
Registration 1 $$SITE^VASITE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Clinical Information Resource Network 1 RGMT DIAG ALL PROTOCOLS  

Entry Points

Name Comments DBIA/ICR reference
LOOKUP1 ;Lookup by patient name/ssn
QUIT ;
BEGIN ;
LOOKUP2 ;Lookup by ICN
ASK1 ;Ask for PATIENT
HDR ;HEADER
ASK2 ;Ask for Date Range
CHK ;
DEV ;
START ;
PRT ;Print report
MSG ;
LOOP ;Loop on ^XTMP("RGMT","HLICN" & ^XTMP("RGMT","HLDFN"

External References

Name Field # of Occurrence
NOW^%DTC PRT+3
^%ZISC QUIT+7
^DIC LOOKUP1+2
^DIR ASK1+3, ASK2+4, ASK2+6, QUIT+1, HDR+2, LOOKUP2+2
$$GETDFN^MPIF001 LOOKUP2+3
$$SITE^VASITE PRT+1
$$FMTE^XLFDT PRT+2, PRT+3, PRT+15
EN^XUTMDEVQ DEV+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CHK+8
Function Call: WRITE
  • Prompt: !!,"This option allows you to search for ALL activity in the HL7 MESSAGE TEXT"
  • Line Location: BEGIN+1
Function Call: WRITE
  • Prompt: !,"(#772) file for a specific patient during a selected period of time. This"
  • Line Location: BEGIN+2
Function Call: WRITE
  • Prompt: !,"search is accomplished using data set into a temporary global built by the"
  • Line Location: BEGIN+3
Function Call: WRITE
  • Prompt: !,"option ""Compile MPI/PD HL7 Data""."
  • Line Location: BEGIN+4
Function Call: WRITE
  • Prompt: !!!,"Patient lookup can be done by (P)atient Name/SSN or by (I)CN.",!
  • Line Location: ASK1+1
Function Call: WRITE
  • Prompt: !!,"Enter date range for data to be included in report."
  • Line Location: ASK2+1
Function Call: WRITE
  • Prompt: !!,"The right margin for this report is 80.",!!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!!"
  • Line Location: DEV+4
Function Call: WRITE
  • Prompt: !!,PROT,":"
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: !!,"No data found for this patient."
  • Line Location: PRT+26
Function Call: WRITE
  • Prompt: !
  • Line Location: QUIT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"HL7 TRANSMISSION PATIENT DATA at ",SITE," on ",HDT,?72,"Page: ",PG
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!,"Patient: ",$P(^DPT(DFN,0),U)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"Date Range: ",PRGBDT," to ",PRGEDT
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!,"Related Event Protocol"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !?4,"Date",?26,"Type",?42,"Status",?69,"^HL(772,IEN"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !?4,"=>^HLMA(IEN",?24,"Protocol",?50,"Status",?74,"Link",!,LN
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOKUP1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOKUP2+1
Function Call: WRITE
  • Prompt: !!,"No patient DFN match can be found for this ICN!"
  • Line Location: LOOKUP2+4
Function Call: WRITE
  • Prompt: " ",$P(^DPT(DFN,0),"^")
  • Line Location: LOOKUP2+5
Function Call: WRITE
  • Prompt: !!,"This patient has no HL7 messaging activity in the current compiled data set."
  • Line Location: MSG+1
Routine Call
  • DIC
  • Line Location:
    • LOOKUP1+2
Routine Call
  • DIR
  • Line Location:
    • ASK1+3
    • ASK2+4
    • ASK2+6
    • QUIT+1
    • HDR+2
    • LOOKUP2+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] HDR+5, LOOKUP1+5, LOOKUP2+5
^HL(771.6 - [#771.6] PRT+21
^HLCS(870 - [#870] PRT+23
^HLMA - [#773] PRT+21, PRT+22, PRT+23
^HLMA("B" PRT+20
^ORD(101 - [#101] PRT+22
^TMP("RGMTHLDP" START+1!, LOOP+10*, PRT+5, PRT+7, PRT+9, PRT+11, PRT+13, PRT+17, PRT+18, PRT+26
, QUIT+3!
^XTMP("RGMT" CHK+1, CHK+4, CHK+9, CHK+10, ASK1+7, ASK1+8, LOOP+1, LOOP+5, LOOP+6, LOOP+7
, LOOP+8, LOOP+9, LOOP+10

Label References

Name Line Occurrences
ASK1 ASK1+4, ASK1+5
ASK2 ASK1+4
HDR PRT+4, PRT+14, PRT+24
LOOKUP1 ASK1+4
LOOKUP2 ASK1+5
MSG ASK1+7, ASK1+8
QUIT CHK+1, CHK+4, ASK1+3, ASK1+7, ASK1+8, ASK2+4, ASK2+6, DEV+5, LOOP+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRT+3, QUIT+4!
DFN ASK1+7, LOOP+3, QUIT+4!, HDR+5, LOOKUP1+1!, LOOKUP1+4*, LOOKUP1+5, LOOKUP2+1!, LOOKUP2+3*, LOOKUP2+4!
, LOOKUP2+5
DIC LOOKUP1+2*!
DIC("A" LOOKUP1+2*
DIC(0 LOOKUP1+2*
DIR ASK1+3!, ASK2+2!, ASK2+4!, ASK2+6!, QUIT+1!, HDR+2!, LOOKUP2+2!
DIR("A" ASK1+2*, ASK2+3*, ASK2+5*, LOOKUP2+2*
DIR("B" ASK1+2*
DIR(0 ASK1+2*, ASK2+3*, ASK2+5*, QUIT+1*, HDR+2*, LOOKUP2+2*
DIRUT ASK1+3, ASK2+2!, ASK2+4, ASK2+6, LOOKUP2+2
DTOUT ASK2+2!
DUOUT ASK2+2!
GOT QUIT+4!
HDT PRT+3*, QUIT+4!, HDR+4
HLMAIEN PRT+19*, PRT+20*, PRT+21, PRT+22, PRT+23, PRT+25, QUIT+5!
HLMALINK PRT+23*, PRT+25, QUIT+5!
HLMAPROT PRT+22*, PRT+25, QUIT+5!
HLMASTAT PRT+21*, PRT+25, QUIT+5!
ICN ASK1+4, ASK1+5, ASK1+7, ASK1+8, LOOP+3, QUIT+4!, LOOKUP1+1!, LOOKUP1+5*, LOOKUP2+1!, LOOKUP2+3*
, LOOKUP2+4!
IEN LOOP+9*, LOOP+10, PRT+12*, PRT+13*, PRT+16, PRT+17, PRT+18, PRT+20, QUIT+4!
IOF CHK+8, QUIT+7, HDR+3
IOSL PRT+14, PRT+24
IOST QUIT+1, QUIT+7, HDR+1, HDR+2, HDR+3
JJ QUIT+2*, QUIT+4!, HDR+1*
LL QUIT+4!
LN PRT+1*, QUIT+4!, HDR+9
PG PRT+1*, QUIT+4!, HDR+2, HDR+3*, HDR+4
>> POP DEV+3
PRGBDT PRT+2*, QUIT+4!, HDR+6
PRGEDT PRT+2*, QUIT+4!, HDR+6
PROT LOOP+6*, LOOP+7, LOOP+8, LOOP+9, LOOP+10, PRT+5*, PRT+7, PRT+9, PRT+11, PRT+13
, PRT+17, PRT+18, QUIT+4!
QFLG RGMTHLDP+9*, PRT+1*, PRT+5, PRT+7, PRT+9, PRT+11, PRT+13, PRT+14, PRT+20, PRT+24
, QUIT+1, QUIT+4!, HDR+2*
RGBDT ASK2+4*, ASK2+5, LOOP+4, PRT+2, QUIT+4!
RGDT LOOP+4*, LOOP+5*, LOOP+6, LOOP+7, LOOP+8, LOOP+9, LOOP+10, PRT+6*, PRT+7*, PRT+9
, PRT+11, PRT+13, PRT+15, PRT+17, PRT+18, QUIT+6!
RGEDT ASK2+6*, LOOP+2, PRT+2, QUIT+6!
SITE PRT+1*, QUIT+6!, HDR+4
SS QUIT+2*, QUIT+6!, HDR+1*
STAT LOOP+8*, LOOP+9, LOOP+10, PRT+10*, PRT+11*, PRT+13, PRT+16, PRT+17, PRT+18, QUIT+6!
STOPDT LOOP+2*, LOOP+5, QUIT+6!
SUB1 LOOP+3*, LOOP+5, LOOP+6, LOOP+7, LOOP+8, LOOP+9, LOOP+10, QUIT+6!
SUB2 LOOP+3*, LOOP+5, LOOP+6, LOOP+7, LOOP+8, LOOP+9, LOOP+10, QUIT+6!
TXT QUIT+6!
TYPE ASK1+3*, ASK1+4, ASK1+5, LOOP+7*, LOOP+8, LOOP+9, LOOP+10, PRT+8*, PRT+9*, PRT+11
, PRT+13, PRT+16, PRT+17, PRT+18, QUIT+6!
U START+1*, PRT+1*, HDR+5, LOOKUP1+5
X QUIT+6!
Y ASK1+3, ASK2+4, ASK2+6, QUIT+6!, HDR+2, LOOKUP1+3, LOOKUP1+4, LOOKUP2+3
>> ZTQUEUED QUIT+7
>> ZTREQ QUIT+7*
>> ZTSAVE("DFN" DEV+2*
>> ZTSAVE("ICN" DEV+2*
>> ZTSAVE("RGBDT" DEV+2*
>> ZTSAVE("RGEDT" DEV+2*
ZTSK QUIT+6!
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 |  Local Variables |  All