Routine: GMRVSC0

Package	Total	Call Graph
General Medical Record - Vitals	3	FOOTER^GMRVSC0 (PRT,SETAR,SETAR1)^GMRVSC1 HDR^GMRVSC2
VA Fileman	3	^%DT NOW^%DTC ($$GET1,D)^DIQ
Kernel	1	^%ZISC
Registration	1	(DEM,INP,KVAR)^VADPT

Package	Total	Caller Graph
General Medical Record - Vitals	4	GMRV CUMULATIVE V/M GMRVSC0 GMRVSC1 GMRVSC2
Barcode Medication Administration	1	PSBOVT
Nursing Service	1	NURCVPR0
Order Entry Results Reporting	1	ORPRS14

Entry Points

Name	Comments	DBIA/ICR reference
DATE	;W !,"CALLED BY IA 1444 - NURSING, BCMA"
EN3(DFN,GMRVSDT,GMRVFDT)	; APPLICATION PROGRAM INTERFACE FOR PATIENT CUMULATIVE VITALS REPORT ; INPUT VARIABLES: DFN=PATIENT NUMBER ; GMRVSDT=START DATE ; GMRVFDT=FINISH DATE OF REPORT
EN5	;CALLED BY [NURCPP-VIT-CUM] - IA 1444, NURSING, BCMA
Q3
FOOTER	;REPORT FOOTER SUBROUTINE

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?3,"PRINTED REPORTS MUST BE QUEUED!!",$C(7) Line Location: GMRVSC0+16
Function Call: WRITE	Prompt: !,?3,$C(7),"THE START DATE MUST BE BEFORE THE END DATE OF THIS REPORT" Line Location: DATE+6
Function Call: WRITE	Prompt: !!,"*** (E) - Error entry",!! Line Location: FOOTER+1
Function Call: WRITE	Prompt: ?17,$P($P(VADM(2),"^",2),"-",3) Condition for execution: VADM(1)'="" ?$X-3,$E(VADM(1),1,15) W:VADM(2)'="" Line Location: FOOTER+1
Function Call: WRITE	Prompt: ?43,$P(VADM(4),"^")_" YRS" Condition for execution: VADM(3)'="" ?30,$P(VADM(3),"^",2) W:VADM(4)'="" Line Location: FOOTER+1
Function Call: WRITE	Prompt: ?65,"VAF 10-7987j" Line Location: FOOTER+3
Function Call: WRITE	Prompt: !,"Unit: "_$S($P(VAIN(4),"^",2)'="":$P(VAIN(4),"^",2),1:" "),?32,"Room: "_$S($P(VAIN(5),"^")'="":$P(VAIN(5),"^"),1:" "),! Line Location: FOOTER+3
Function Call: WRITE	Prompt: "Division: "_$S(GMRVHLOC>0:$$GET1^DIQ(4,+$$GET1^DIQ(44,+GMRVHLOC,3,"I"),.01,"I"),1:""),! Line Location: FOOTER+5
Function Call: WRITE	Prompt: !!,"No cumulative vitals data for "_$S($D(OPSPNM):ORSPNM,1:"this patient"),! Line Location: EN5+7
Function Call: WRITE	Prompt: ! Line Location: Q3+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: Q3+1
Function Call: WRITE	Prompt: ! Line Location: Q3+1

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

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	FOOTER+4
^GMRD(120.51 - [#120.51]	EN5+5
^GMRD(120.52 - [#120.52]	EN5+3
^TMP($J	EN5+4!, EN5+7, EN5+9, Q3+2!

Name	Line Occurrences
DATE	DATE+6
Q3	EN5+7

Name	Field # of Occurrence
>> %	DATE+4, EN5+2
%DT	DATE+1!, DATE+3!
%DT("A"	DATE+1, DATE+3
%DT("B"	DATE+1, DATE+3
DFN	EN3~
DT	DATE+4
DTIME	Q3+1
GBED	EN5+1*, Q3+2!
GMR1ST	EN5+2*, Q3+2!
GMRDAT	Q3+2!
>> GMRDATE	EN5+8, EN5+9
>> GMRDATE(0	EN5+2*
GMRDSH	EN5+2*, Q3+2!
GMRLN	Q3+2!
>> GMROUT	DATE+1, DATE+3, EN5+1, EN5+7, EN5+9, Q3+1*
GMRPDT	EN5+2*, Q3+2!
GMRPG	EN5+1*, Q3+3!
GMRQUAL	Q3+2!
GMRSITE	Q3+2!
GMRSP	Q3+2!
GMRVDA	Q3+2!
GMRVDATE	Q3+2!
>> GMRVDT(	EN5+9
GMRVFDT	DATE+7*, EN3~, Q3+3!
>> GMRVHLOC	FOOTER+4*, FOOTER+5
GMRVITY	EN5+5*, Q3+2!
GMRVOR	EN3+5*, Q3+1, Q3+2!
GMRVSDT	DATE+2*, DATE+6, EN3~, Q3+3!
GMRVTY	EN5+4*, EN5+5, Q3+2!
GMRVX	Q3+2!
GMRX	DATE+1, Q3+2!
GMRY	Q3+2!
GPEDIS	EN5+3~*
GWARD	EN5+1*, Q3+2!
GX	Q3+2!
IO	EN5+6
IOSL	Q3
IOST	Q3+1
>> OPSPNM	EN5+7
>> ORSPNM	EN5+7, Q3+3
VA	Q3+2!
>> VADM(1	FOOTER+1
>> VADM(2	FOOTER+1
>> VADM(3	FOOTER+1
>> VADM(4	FOOTER+1
>> VADM(5	FOOTER+2
>> VAIN(4	FOOTER+3, FOOTER+4, EN5+1
>> VAIN(5	FOOTER+3, EN5+1
>> X	DATE+3, Q3, Q3+1
>> Y	DATE+1, DATE+2, DATE+4, DATE+5, DATE+6, DATE+7, EN5+2*
>> ZTQUEUED	Q3+3
>> ZTREQ	Q3+3*