Routine: RGMTHLDP

Information

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

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:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

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

Entry Points

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

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!

Customize PDF page

Package: Clinical Information Resource Network