Routine: GMRVDS1

Package	Total	Call Graph
General Medical Record - Vitals	4	(EN1,Q)^GMRVDS0 HDR^GMRVDS1 WARDSEL^GMRVED0 EN1^GMRVED2
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	NOW^%DTC $$GET1^DIQ
Registration	1	(DEM,INP,KVAR)^VADPT

Package

Total

Call Graph

General Medical Record - Vitals

(EN1,Q)^GMRVDS0 HDR^GMRVDS1 WARDSEL^GMRVED0 EN1^GMRVED2

Kernel

^%ZIS ^%ZISC ^%ZTLOAD

VA Fileman

NOW^%DTC $$GET1^DIQ

Registration

(DEM,INP,KVAR)^VADPT

Package	Total	Caller Graph
General Medical Record - Vitals	4	GMRV V/M BY LOCATION GMRVDS0 GMRVDS1 GMRVDS2
Nursing Service	1	NURCVPR0

Package

Total

Caller Graph

General Medical Record - Vitals

GMRV V/M BY LOCATION GMRVDS0 GMRVDS1 GMRVDS2

Nursing Service

NURCVPR0

Entry Points

Name	Comments	DBIA/ICR reference
Q1
Q2	;
AE
HDR	;
PRT	;
WRT
DEV
PRTSITE
EN1	; ENTRY FROM OPTION GMRV V/M BY LOCATION
EN2	;ENTRY TO REPORT FROM TASKMAN
EN3	; ENTRY TO PRINT VITALS FOR LOCATION GROUP ; INPUT : ^TMP($J,ROOM-BED,PATIENT NAME,DFN)="" ; ARRAY OF PATIENTS TO BE PRINTED WHERE ; ROOM-BED: PATIENT ROOM-BED ; PATIENT NAME: PATIENT NAME ; DFN: POINTER ^DPT ; GMRVWLO=NAME OF LOCATION GROUP
PAT	;ENTRY POINT FOR REPORT BY PATIENT
WRT2

Name	Field # of Occurrence
NOW^%DTC	AE
^%ZIS	DEV
^%ZISC	DEV, Q1+2
^%ZTLOAD	DEV+1
$$GET1^DIQ	HDR+3
EN1^GMRVDS0	PRT+4
Q^GMRVDS0	Q1+2
HDR^GMRVDS1	WRT2
WARDSEL^GMRVED0	EN1+1
EN1^GMRVED2	EN2+5
DEM^VADPT	EN2+3, PRT+2
INP^VADPT	EN2+3
KVAR^VADPT	EN2+3, Q1+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?3,$C(7),"PRINTED REPORTS MUST QUEUED" Line Location: DEV+0
Function Call: WRITE	Prompt: !,"THERE IS NO DATA FOR THIS REPORT" Line Location: AE+1
Function Call: READ	Prompt: "Press return to continue " Formatting: ! Timeout: DTIME Variable: X Line Location: Q1+0
Function Call: WRITE	Prompt: @IOF Line Location: Q1+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: HDR+1
Function Call: WRITE	Prompt: !,GMRPDT,?20,"VITALS REPORT FOR UNIT: "_GMRWARD(1) Line Location: HDR+3
Function Call: WRITE	Prompt: " - "_$$GET1^DIQ(4,+$$GET1^DIQ(44,+GMRVHLOC,3,"I"),.01,"I") Condition for execution: GMRVHLOC>0 Line Location: HDR+3
Function Call: WRITE	Prompt: !,GMRPDT,?28,"LATEST VITALS REPORT" Line Location: HDR+4
Function Call: WRITE	Prompt: ?72,"PAGE ",GMRPG,!,GMRDSH,! Line Location: HDR+5
Function Call: WRITE	Prompt: !,?GMRSP,$P(GMRL,"^",2) Line Location: WRT+1
Function Call: WRITE	Prompt: " ("_$S($D(^GMRD(120.52,GSITE,0)):$P(^(0),"^"),1:"")_$S(GSITE>0&(GQUAL>0):"/",1:"")_$S($D(^GMRD(120.53,GQUAL,0)):$P(^(0),"^"),1:"")_")" Line Location: PRTSITE+0
Routine Call	%ZIS Line Location: DEV

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ
^SC - [#44]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	AE
^GMRD(120.52 - [#120.52]	PRTSITE
^GMRD(120.53 - [#120.53]	PRTSITE
^TMP($J	EN2+1!, EN2+4*, AE+1, AE+2, Q1+1!

Name	Line Occurrences
AE	EN3+8
DEV	DEV
HDR	AE+1, PRT+1
PRT	AE+2
PRTSITE	WRT+1
Q1	EN1+1, DEV, AE+1
Q2	PRT+4
WRT2	WRT

Name	Field # of Occurrence
^(0	PRTSITE

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	AE
%T	Q1+1!
>> %ZIS	DEV*
DFN	EN2+4, AE+2*, Q1+1!
DTIME	Q1, HDR+1
GBP	Q2+1!
GDATA	Q1+2!
GDT	Q1+1!
GLOC	AE*, Q1+2!, WRT
GMR	Q2+1!
GMR1ST	AE, Q1+1!, HDR+1, HDR+2
GMRADM	Q1+1!
GMRDA	Q1+1!
GMRDAT	Q2+1!
GMRDATS	Q2+1!
GMRDSH	AE*, Q1+1!, HDR+5
GMRDT	Q1+1!, PRT+2!, Q2+1!
GMREDB	EN1+1, EN2+2, Q1+1!, HDR+3, HDR+4, EN3+7
GMRI	Q2+1!
GMRJ	Q2+1!
GMRL	WRT+1, Q2+1!
GMRLIN	Q2+1!
GMRNAM	EN2+3, EN2+4, AE+2, Q1+1!, PRT+3, WRT2
GMRNAME	Q1+1!
GMRNM	Q1+1!
GMROUT	EN1+1, EN2+1, AE+2, Q1, Q1+1!, Q1+2!, HDR+1, PRT+1, EN3+8
GMRPDT	AE*, Q1+1!, HDR+3, HDR+4
GMRPG	AE, Q1+1!, HDR+2, HDR+5, PRT+1
GMRPR	Q1+1!
GMRRMBD	EN2+3, EN2+4, AE+2, Q1+1!, PRT+3, WRT2
GMRSITE	Q1+1!
GMRSP	Q1+1!, WRT+1
GMRSTR	AE*, Q1+2!
GMRVDT	Q1+1!
GMRVHLOC	Q1+1!, HDR+3
GMRVOERR	Q1+2!
GMRVSTOP	Q1+2!
GMRVSTRT	Q1+2!
GMRVTDA	Q1+1!
GMRVWLO	EN3+7, EN3+8, EN3+9!
GMRVX	Q1+1!, Q2+1!
GMRWARD	EN2+3*, Q1+1!
GMRWARD(1	EN2+3, HDR+3, EN3+8
GMRX	Q1+1!, Q2+1!
GMRY	Q2+1!
GQUAL	WRT+1, PRTSITE, Q2+1!
GSITE	WRT+1, PRTSITE, Q2+1!
GSTRIN	Q1+2!
IO	AE+1
IO("Q"	DEV, DEV+1!
IO("S"	DEV
IOF	Q1, Q1+1, HDR+2
ION	DEV+1
IOSL	PRT+1, WRT
IOST	DEV, Q1, Q1+1, HDR+1, HDR+2, PRT+1
POP	DEV, Q1+1!
U	HDR+1, PRT+3, WRT2
VA	EN2+3!, Q1+1!
>> VADM(1	EN2+3
>> VADM(2	PRT+3, WRT2
>> VAIN(4	EN2+3
>> VAIN(5	EN2+3
>> X	Q1, HDR+1
>> Y	AE*
>> ZTDESC	DEV+1*
ZTIO	DEV+1*!
>> ZTQUEUED	Q1+1
>> ZTREQ	Q1+1*
>> ZTRTN	DEV+1*
>> ZTSAVE("DFN"	DEV+1*
>> ZTSAVE("GMREDB"	DEV+1*
>> ZTSAVE("GMROUT"	DEV+1*
>> ZTSAVE("GMRVHLOC"	DEV+1*
>> ZTSAVE("GMRWARD("	DEV+1*
ZTSK	DEV+1!

Customize PDF page

Package: General Medical Record - Vitals

Routine: GMRVDS1

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: