Routine: GMTSDVR

Package	Total	Call Graph
Health Summary	6	EN^GMTS1 (ACTPROF,PATCOPY)^GMTSDVR $$RXAP^GMTSPD2 PAGE^GMTSPL ($$PROK,GETRANGE)^GMTSU $$TYPE^GMTSULT
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$VERSION^XPDUTL
Order Entry Results Reporting	1	PATIENT^ORU1
Outpatient Pharmacy	1	DFN^PSOSD1

Package

Total

Call Graph

Health Summary

EN^GMTS1 (ACTPROF,PATCOPY)^GMTSDVR $$RXAP^GMTSPD2 PAGE^GMTSPL ($$PROK,GETRANGE)^GMTSU $$TYPE^GMTSULT

Kernel

^%ZIS ^%ZISC ^%ZTLOAD $$VERSION^XPDUTL

Order Entry Results Reporting

PATIENT^ORU1

Outpatient Pharmacy

DFN^PSOSD1

Package	Total	Caller Graph
Health Summary	5	GMTS GMTSADH GMTSADHC GMTSDVR GMTSOBS2
Radiology Nuclear Medicine	4	RAO7RO RAORD RAORD4 RAORDQ
Order Entry Results Reporting	3	ORPRS13 ORS HEALTH SUMMARY ORWRP1
Registration	3	DG1010P DG1010PA DGPAR
Automated Information Collection System	1	IBDFN5
Clinical Reminders	1	PXRMLPHS
IHS Patient Merge	1	BPMMRG
Nursing Service	1	NURCHSUM
Toolkit	1	XDRRMRG2

Package

Total

Caller Graph

Health Summary

GMTS GMTSADH GMTSADHC GMTSDVR GMTSOBS2

Radiology Nuclear Medicine

RAO7RO RAORD RAORD4 RAORDQ

Order Entry Results Reporting

ORPRS13 ORS HEALTH SUMMARY ORWRP1

Registration

DG1010P DG1010PA DGPAR

Automated Information Collection System

IBDFN5

PXRMLPHS

BPMMRG

NURCHSUM

XDRRMRG2

Entry Points

Name	Comments	DBIA/ICR reference
PQ	; Queued subroutine for HS by patient
ENXQ	; External call for tasked HS print ; ; Input: GMTSTYP=Record # of HS type in file 142 ; DFN=Record # of patient in file 2 ; GMTSPX1=Optional internal FM ending date ; GMTSPX2=Optional internal FM beginning date ; ; NOTE: Optional date range variables are both ; required if a date range is desired. ; ; To call from TaskMan: ; S ZTRTN="ENXQ^GMTSDVR" ; S ZTSAVE("GMTSTYP")="" ; S ZTSAVE("DFN")="" ; D ^%ZTLOAD	ICR #242 Status: Active Usage: Private ICR #349 Status: Active Usage: Private ICR #938 Status: Active Usage: Controlled Subscription
LOADSEG	; Load Enabled Components into GMTSEG Array
ENX(DFN,GMTSTYP,GMTSPX2,GMTSPX1)	; External call to print a Health Summary ; ; Input: GMTSTYP=Record # of HS type in file 142 ; DFN=Record # of patient in file 2 ; GMTSPX1=Optional internal FM ending date ; GMTSPX2=Optional internal FM beginning date ; ; NOTE: Optional date range variables are both ; required if a date range is desired. ;	ICR #349 Status: Active Usage: Private ICR #744 Status: Active Usage: Controlled Subscription ICR #938 Status: Active Usage: Controlled Subscription
HSOUT	; Output summary, with device control ; Call with: ZTRTN
SELFILE	; Get Selection item information for GMTSEG(
NOQUE	; Do Not Queue Output
SELTYP	; Select Health Summary Type(s)	ICR #938 Status: Active Usage: Controlled Subscription
PTPC	; Combined Patient/Patient Copy
QUE	; Queue output
RESUB(GMP)	; Resubscript GMP Array ; Subscripts in GMP array are converted to numeric
MAIN	; Control branching	ICR #938 Status: Active Usage: Controlled Subscription
ACTPROF(GMDFN)	; Print Action Profile for Patient
PATCOPY(GMP,GMPAT)	; Copies patients from GMP to GMPAT array

External References

Name	Field # of Occurrence
^%ZIS	HSOUT+4, QUE+6
^%ZISC	NOQUE+1, QUE+5
^%ZTLOAD	QUE+4
EN^GMTS1	PQ+12
ACTPROF^GMTSDVR	PQ+14
PATCOPY^GMTSDVR	PTPC+3
$$RXAP^GMTSPD2	MAIN+16
PAGE^GMTSPL	ACTPROF+9
$$PROK^GMTSU	PTPC+1
GETRANGE^GMTSU	MAIN+13
$$TYPE^GMTSULT	SELTYP+5
PATIENT^ORU1	PTPC+2, PTPC+3, ENX+17
DFN^PSOSD1	ACTPROF+6
$$VERSION^XPDUTL	PTPC+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Another patient(s) can be selected." Line Location: MAIN+10
Function Call: WRITE	Prompt: !?3,"Invalid HEALTH SUMMARY TYPE." Line Location: ENX+14
Function Call: WRITE	Prompt: !?3,"Invalid PATIENT ID." Line Location: ENX+17
Function Call: WRITE	Prompt: !,"The Summary Type "_$P(Y,U,2)_" includes no components...Please choose another",! Line Location: SELTYP+6
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled!") Line Location: QUE+4
Routine Call	%ZIS Line Location: HSOUT+4 QUE+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	ACTPROF+5
^DISV(	SELTYP+4
^DPT - [#2]	PATCOPY+7, ENX+11, ENX+15, ENX+20
^GMT(142 - [#142]	ENX+11, ENX+12, ENX+19, SELTYP+4, SELTYP+6, PQ+6, LOADSEG+2, SELFILE+1
^GMT(142.99 - [#142.99]	ACTPROF+4
^XMB(1 - [#4.3]	ACTPROF+5
^XUSEC("GMTS VIEW ONLY"	HSOUT+2
^XUTL("OR"	MAIN+9!, MAIN+19!

Name	Line Occurrences
@(	HSOUT+2, NOQUE+1
ENX	ENXQ+15
HSOUT	MAIN+18
LOADSEG	PQ+8
PQ	ENX+21
PTPC	MAIN+9
QUE	HSOUT+5
RESUB	MAIN+15
SELFILE	LOADSEG+3
SELTYP	MAIN+4, ENX+14

Name	Field # of Occurrence
^(	LOADSEG+2, SELFILE+2
^("ORLP"	MAIN+9!, MAIN+19!
^("ORV"	MAIN+9!, MAIN+19!
^("ORW"	MAIN+9!, MAIN+19!
^("^GMT(142,"	SELTYP+4
^(0	SELTYP+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	QUE+1~, QUE+2*
%ZIS	HSOUT+3~, HSOUT+4*
C	MAIN+1~
CNT	RESUB+2~, RESUB+3, RESUB+7, RESUB+8
DFN	ENXQ+15, ENX~, ENX+11, ENX+15, ENX+17, ENX+20, PQ+1~, PQ+10, PQ+14, ACTPROF+1~ , ACTPROF+3, ACTPROF+7
DI	ENX+10~
DIC	SELTYP+1~, SELTYP+2*
DIC("A"	SELTYP+2*
DIC("B"	SELTYP+4*
DIC("S"	SELTYP+3*
DIC(0	SELTYP+2*
DIROUT	MAIN+2!, MAIN+3, MAIN+4, MAIN+6, MAIN+9, MAIN+11, MAIN+14, MAIN+16, PQ+4, PQ+9 , PQ+13
>> DTOUT	MAIN+16
DUOUT	MAIN+2!, MAIN+3, MAIN+4, MAIN+6, MAIN+9, MAIN+11, MAIN+14, MAIN+16
DUZ	SELTYP+4, HSOUT+2
DX	ENX+10~
DY	ENX+10~
GMDFN	PATCOPY+1~, PATCOPY+5, PATCOPY+7, RESUB+2~, RESUB+5, RESUB+6*, RESUB+8, RESUB+9, ACTPROF~, ACTPROF+3 , ACTPROF+7
GMDUOUT	PQ+11~, PQ+13
GMP	MAIN+5~, MAIN+7!, MAIN+9!, PTPC+2, PTPC+3, PATCOPY~, RESUB~
GMP(	PATCOPY+4, PATCOPY+5, RESUB+4, RESUB+6, RESUB+8*, RESUB+9!
GMPAT	MAIN+5~, MAIN+6, MAIN+7!, MAIN+11, MAIN+15, PTPC+3, PATCOPY~, ENX+10~, ENX+17, ENX+20*
GMPAT(	PATCOPY+7*, PQ+9, PQ+10
GMPAT(0	ENX+20*
GMPAT(1	MAIN+8, ENX+17, ENX+20
GMPSAP	MAIN+1~, MAIN+16*, ACTPROF+2
GMQUIT	ENX+10~, ENX+11, ENX+13, ENX+16, ENX+18
>> GMRANGE	MAIN+13
GMTI	PQ+1~, PQ+4, PQ+6, PQ+7, LOADSEG+1~, LOADSEG+2, LOADSEG+3*, LOADSEG+4, SELFILE+4
GMTJ	PQ+2~, PQ+9, PQ+10, LOADSEG+1~, LOADSEG+2, SELFILE+1
GMTK	SELFILE+1~*, SELFILE+2, SELFILE+4
GMTS	PQ+1~
GMTS1	PQ+1~
GMTS2	PQ+1~
GMTSAGE	PQ+1~
GMTSDOB	PQ+1~
GMTSDTM	PQ+1~
GMTSE	SELFILE+2~*, SELFILE+4
GMTSEG	PQ+5~
GMTSEG(	LOADSEG+3, SELFILE+4
GMTSEGC	PQ+5~, LOADSEG+4*
GMTSEGI	PQ+5~
GMTSEGI(	LOADSEG+3*
GMTSF	SELFILE+2~, SELFILE+3*, SELFILE+4
GMTSLO	PQ+1~
GMTSLPG	PQ+1~
GMTSPHDR	PQ+3~
GMTSPNM	PQ+1~
GMTSPRO	PTPC+1~*, PTPC+2, PTPC+3
GMTSPX1	MAIN+12~, MAIN+13, ENXQ+15, ENX~
GMTSPX2	MAIN+12~, MAIN+13, ENXQ+15, ENX~
GMTSR	SELFILE+2~*, SELFILE+3, SELFILE+4
GMTSRB	PQ+2~
GMTSSN	PQ+2~
GMTSTITL	PQ+2~, PQ+6, PQ+7
GMTSTOF	PQ+2~
GMTSTYP	ENXQ+15, ENX~, ENX+11, ENX+12, ENX+14, ENX+19, PQ+2~, PQ+6, LOADSEG+2, SELFILE+1
GMTSVER	PTPC+1~*, PTPC+2, PTPC+3
GMTSWARD	PQ+2~
GMTYP	MAIN+1~, MAIN+3, MAIN+4, ENX+10~, ENX+19, SELTYP+4, SELTYP+5!
GMTYP(	PQ+4, PQ+6, PQ+7
GMTYP(0	ENX+19, SELTYP+7
GMTYP(1	ENX+14, ENX+19, SELTYP+7
GMX	LOADSEG+1~, LOADSEG+2*, LOADSEG+3
I	MAIN+1~, PQ+2~
IFN	PATCOPY+1~, PATCOPY+2, PATCOPY+4, PATCOPY+5
IO("Q"	HSOUT+5, QUE+2!
ION	QUE+3
IOP	HSOUT+3~, QUE+6*
IX0	PQ+2~
J	PQ+2~
M4	PQ+2~
NAME	RESUB+2~, RESUB+3, RESUB+4, RESUB+6, RESUB+8, RESUB+9
>> ORVP	MAIN+6, MAIN+8
P17	PQ+2~
>> POP	HSOUT+4
PSOINST	ACTPROF+1~, ACTPROF+5*
PSONOPG	ACTPROF+1~, ACTPROF+3*
PSOPAR	ACTPROF+1~, ACTPROF+4*
PSTYPE	ACTPROF+1~, ACTPROF+3*
SEX	PQ+2~
TRFAC	PQ+3~
U	PATCOPY+7, ENX+19, ENX+20, SELTYP+4, SELTYP+6, SELTYP+7, PQ+7, LOADSEG+3, SELFILE+2, SELFILE+3 , ACTPROF+4, ACTPROF+5
VADM	MAIN+1~, ENX+10~
VAERR	PQ+3~
VAIN	ENX+10~, PQ+3~
VAROOT	MAIN+1~, ENX+10~
X	SELTYP+1~
Y	SELTYP+1~, SELTYP+5*, SELTYP+6, SELTYP+7
ZTDESC	QUE+1~, QUE+3*, QUE+5!
ZTDTH	QUE+1~, QUE+5!
ZTIO	QUE+1~, QUE+3*, QUE+5!
>> ZTQUEUED	ENX+13, ENX+16
ZTRTN	MAIN+1~, MAIN+17*, HSOUT+2, NOQUE+1, QUE+2, QUE+5!
ZTSAVE	QUE+1~, QUE+2!, QUE+5!
ZTSAVE(	QUE+2*
ZTSK	QUE+1~, QUE+4, QUE+5!

Customize PDF page

Package: Health Summary

Routine: GMTSDVR

Information

Source Information

Call Graph

Call Graph Total: 12