Routine: RGMTHLDB

Information

RGMTHLDB ;BIR/CML-MPI/PD HL7 ACTIVITY BY PATIENT/SINGLE PROTOCOL ;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 SINGLE PROTOCOL

Entry Points

Name	Comments	DBIA/ICR reference
CHK	;
BEGIN	;
ASK1	;Ask for Protocol
ASK2	;Ask for Date Range
ASK3	;Ask for TYPE
ASK4	;Ask for PATIENT
DEV	;
START	;
LOOP	;Loop on ^XTMP("RGMT","HLICN" & ^XTMP("RGMT","HLDFN"
QUIT	;
HDR	;HEADER
BATCHPRT	;
PROC	;Print data
BREAK	;Break up text lines greater than 75
LOOKUP1	;Lookup by patient name/ssn
LOOKUP2	;Lookup by ICN

External References

Name	Field # of Occurrence
NOW^%DTC	START+4
^%ZISC	QUIT+5
^DIC	ASK1+4, LOOKUP1+2
^DIR	ASK2+4, ASK2+7, ASK3+3, ASK4+3, QUIT+1, HDR+2, LOOKUP2+2
$$GETDFN^MPIF001	LOOKUP2+3
$$SITE^VASITE	START+2
$$FMTE^XLFDT	START+3, START+4, BATCHPRT+5, PROC+2
EN^XUTMDEVQ	DEV+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: CHK+10
Function Call: WRITE	Prompt: !!,"This option allows you to search for activity related to a specific protocol in" Line Location: BEGIN+1
Function Call: WRITE	Prompt: !,"the HL7 MESSAGE TEXT (#772) file for a patient during a selected period of time." Line Location: BEGIN+2
Function Call: WRITE	Prompt: !,"This 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: ! Line Location: ASK1+1
Function Call: WRITE	Prompt: ! Line Location: ASK2+1
Function Call: WRITE	Prompt: ! Line Location: ASK3+1
Function Call: WRITE	Prompt: !!!,"Patient lookup can be done by (P)atient Name/SSN or by (I)CN.",! Line Location: ASK4+1
Function Call: WRITE	Prompt: !!,"The right margin for this print is 80.",!! Line Location: DEV+1
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!!" Line Location: DEV+5
Function Call: WRITE	Prompt: !,"No data found for this patient." Line Location: LOOP+15
Function Call: WRITE	Prompt: ! Line Location: QUIT+2
Function Call: WRITE	Prompt: ! Line Location: HDR+1
Function Call: WRITE	Prompt: !,"File #772 IEN",?19,"Date",?39,"Status",!?4,"""IN"" Subfield",!,LN Line Location: HDR+8
Function Call: WRITE	Prompt: !,"Batch Msg #",IEN," - Line #",BATCHIEN Line Location: BATCHPRT+4
Function Call: WRITE	Prompt: !?19,$$FMTE^XLFDT($E(RGDT,1,12)),?39,STAT,! Line Location: BATCHPRT+5
Function Call: WRITE	Prompt: !?4,NODE Line Location: BATCHPRT+8
Function Call: WRITE	Prompt: !,IEN,?19,$$FMTE^XLFDT($E(RGDT,1,12)),?39,STAT,! Line Location: PROC+2
Function Call: WRITE	Prompt: !?4,NODE Line Location: PROC+5
Function Call: WRITE	Prompt: !?4,$E(NODE,CNT,CNT+74) Line Location: BREAK+2
Function Call: WRITE	Prompt: ! Line Location: LOOKUP1+1
Function Call: WRITE	Prompt: !!,"This patient does not have an ICN!" Line Location: LOOKUP1+5
Function Call: WRITE	Prompt: ! Line Location: LOOKUP2+1
Function Call: WRITE	Prompt: !!,"No patient match can be found for this ICN!" Line Location: LOOKUP2+4
Function Call: WRITE	Prompt: " ",$P(^DPT(DFN,0),"^") Line Location: LOOKUP2+5
Routine Call	DIC Line Location: ASK1+4 LOOKUP1+2
Routine Call	DIR Line Location: ASK2+4 ASK2+7 ASK3+3 ASK4+3 QUIT+1 HDR+2 LOOKUP2+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	HDR+5, LOOKUP1+5, LOOKUP2+5
^HL(772 - [#772]	LOOP+9, LOOP+10, LOOP+11, LOOP+12, LOOP+13, LOOP+14, BATCHPRT+6, PROC+3
^XTMP("RGMT"	CHK+1, CHK+5, CHK+11, CHK+12, START+1, LOOP+1, LOOP+5, LOOP+6, LOOP+7, LOOP+8 , BATCHPRT+3

Label References

Name	Line Occurrences
ASK4	ASK4+4, ASK4+5
BATCHPRT	LOOP+8
BREAK	BATCHPRT+7, PROC+4
HDR	START+5, BATCHPRT+2, PROC+5, BREAK+2
LOOKUP1	ASK4+4
LOOKUP2	ASK4+5
PROC	LOOP+11, LOOP+12, LOOP+13, LOOP+14
QUIT	CHK+1, CHK+5, ASK1+4, ASK2+4, ASK2+7, ASK3+3, ASK4+3, DEV+6, START+1, LOOP+1

Naked Globals

Name	Field # of Occurrence
^(0	LOOP+11, LOOP+12, LOOP+13, LOOP+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	START+4, QUIT+3!
BATCHIEN	QUIT+3!, BATCHPRT+3*, BATCHPRT+4, BATCHPRT+6
CNT	QUIT+3!, BREAK+1, BREAK+2
DFN	ASK4+4, ASK4+5, LOOP+3, LOOP+14, QUIT+3!, HDR+5, LOOKUP1+1!, LOOKUP1+4, LOOKUP1+5!, LOOKUP2+1! , LOOKUP2+3, LOOKUP2+4!, LOOKUP2+5
DIC	ASK1+2, ASK1+4!, LOOKUP1+2!
DIC("A"	LOOKUP1+2*
DIC("S"	ASK1+3*
DIC(0	ASK1+2, LOOKUP1+2
DIR	ASK2+2!, ASK2+4!, ASK2+7!, ASK3+3!, ASK4+3!, QUIT+1!, HDR+2!, LOOKUP2+2!
DIR("A"	ASK2+3, ASK2+6, ASK3+2, ASK4+2, LOOKUP2+2*
DIR("B"	ASK4+2*
DIR(0	ASK2+3, ASK2+6, ASK3+2, ASK4+2, QUIT+1, HDR+2, LOOKUP2+2*
DIRUT	ASK2+2!, ASK2+4, ASK2+7, ASK3+3, ASK4+3, LOOKUP2+2
DTOUT	ASK2+2!
DUOUT	ASK2+2!
GOT	LOOP+9, LOOP+10, QUIT+3!, PROC+1
GOTDATA	START+2, LOOP+15, QUIT+3!, BATCHPRT+1, PROC+1*
HDT	START+4*, QUIT+3!, HDR+4
ICN	LOOP+3, LOOP+11, LOOP+12, LOOP+13, QUIT+3!, LOOKUP1+1!, LOOKUP1+5!, LOOKUP2+1!, LOOKUP2+3, LOOKUP2+4!
IEN	LOOP+7*, LOOP+8, LOOP+9, LOOP+10, LOOP+11, LOOP+12, LOOP+13, LOOP+14, QUIT+3!, BATCHPRT+3 , BATCHPRT+4, BATCHPRT+6, PROC+2, PROC+3
IOF	CHK+10, QUIT+5, HDR+3
IOSL	BATCHPRT+2, PROC+5, BREAK+2
IOST	QUIT+1, QUIT+5, HDR+1, HDR+2, HDR+3
JJ	QUIT+2, QUIT+3!, HDR+1
LIM	QUIT+3!, BREAK+1*, BREAK+2
LINE	QUIT+3!, BREAK+2*
LN	START+2*, QUIT+3!, HDR+8
LOOKUP	ASK4+3*, ASK4+4, ASK4+5, QUIT+3!
NODE	QUIT+3!, BATCHPRT+6, BATCHPRT+7, BATCHPRT+8, PROC+3, PROC+4, PROC+5, BREAK+1, BREAK+2
NUM	QUIT+3!, PROC+3*
PG	START+2, QUIT+3!, HDR+2, HDR+3, HDR+4
>> POP	DEV+4
PRGBDT	START+3*, QUIT+3!, HDR+7
PRGEDT	START+3*, QUIT+4!, HDR+7
PROT	ASK1+4*, LOOP+6, LOOP+7, LOOP+8, QUIT+4!, HDR+6, BATCHPRT+3
QFLG	RGMTHLDB+7, START+2, LOOP+3, LOOP+5, LOOP+6, LOOP+7, LOOP+9, LOOP+10, QUIT+1, QUIT+4! , HDR+2*, BATCHPRT+2, PROC+3, PROC+5, BREAK+2
RGBDT	ASK2+6*, START+3, LOOP+4, QUIT+4!
RGDT	LOOP+4, LOOP+5, LOOP+6, LOOP+7, LOOP+8, QUIT+4!, BATCHPRT+3, BATCHPRT+5, PROC+2
RGEDT	ASK2+7*, START+3, LOOP+2, QUIT+4!
SITE	START+2*, QUIT+4!, HDR+4
SS	QUIT+2, QUIT+4!, HDR+1
STAT	LOOP+6*, LOOP+7, LOOP+8, QUIT+4!, BATCHPRT+3, BATCHPRT+5, PROC+2
STOPDT	LOOP+2*, LOOP+5, QUIT+4!
SUB1	LOOP+3*, LOOP+5, LOOP+6, LOOP+7, LOOP+8, QUIT+4!, BATCHPRT+3
SUB2	LOOP+3*, LOOP+5, LOOP+6, LOOP+7, LOOP+8, QUIT+4!, BATCHPRT+3
TXT	LOOP+10*, LOOP+11, LOOP+12, LOOP+13, LOOP+14, QUIT+4!
TYPE	ASK3+3*, LOOP+6, LOOP+7, LOOP+8, QUIT+4!, HDR+7, BATCHPRT+3
U	START+2*, LOOP+11, LOOP+12, LOOP+13, LOOP+14, HDR+5, LOOKUP1+5
Y	ASK1+4, ASK2+6, ASK2+7, ASK3+3, ASK4+3, QUIT+4!, HDR+2, LOOKUP1+3, LOOKUP1+4, LOOKUP2+3
>> ZTQUEUED	QUIT+5
>> ZTREQ	QUIT+5*
>> ZTSAVE("DFN"	DEV+3*
>> ZTSAVE("ICN"	DEV+3*
>> ZTSAVE("PROT"	DEV+2*
>> ZTSAVE("RGBDT"	DEV+2*
>> ZTSAVE("RGEDT"	DEV+2*
>> ZTSAVE("TYPE"	DEV+3*
ZTSK	QUIT+4!

Customize PDF page

Package: Clinical Information Resource Network