Routine: GMVSC0

Information

GMVSC0 ;HOIFO/MD,YH,FT-CUMULATIVE VITALS/MEASUREMENTS FOR PATIENT OVER GIVEN DATE RANGE ;6/6/07

Source file <GMVSC0.m>

Package	Total	Call Graph
General Medical Record - Vitals	4	WARD^GMVDS1 (EN1,Q)^GMVSC1 HDR^GMVSC2 ($$DIVISION,$$HOSPLOC)^GMVUTL1
Kernel	3	^%ZISC ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT
VA Fileman	2	NOW^%DTC D^DIQ
Registration	1	(DEM,INP,KVAR)^VADPT

Package	Total	Caller Graph
General Medical Record - Vitals	2	GMVSC1 GMVSC2

Name	Comments	DBIA/ICR reference
Q	; kill variables and quit
START	; Start the report output
WRT	;
FOOTER	;REPORT FOOTER {called from GMVSC1, GMVSC2}
EN1(RESULT,GMVDATA)	; GMV CUMULATIVE REPORT [RPC entry point] ; Cumulative Vitals Report ; DFN - patient internal entry number (FILE 2) ; GMRVSDT - start date/time of report range ; GMRVFDT - end date/time of report range ; GMVDEV - device name ; GMVIEN - device internal entry name (FILE 3.5) ; GMVPDT - date/time to print the report ; GMVWARD - ward internal entry number (FILE 42) ; GMVHLOC - hospital location internal entry number (FILE 44) ; GMVRMLST - list of room numbers separated by commas (e.g., 200,210)

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"*** (E) - Error entry",!! Line Location: FOOTER+1
Function Call: WRITE	Prompt: ?17,$E($P(VADM(2),"^",2),8,11) 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: "_$$DIVISION^GMVUTL1(+GMRVHLOC),! Line Location: FOOTER+5

RPC Name	Call Tags
GMV CUMULATIVE REPORT	EN1

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	START+9
^GMRD(120.52 - [#120.52]	START+26
^TMP($J	START+17*, START+27, Q+2!

Name	Line Occurrences
WRT	START+27

Name	Field # of Occurrence
>> %	START+21
DFN	EN1+12~, EN1+13, START+8, START+17, START+27
>> GBED	WRT+5*
>> GMR1ST	WRT+1*
GMRBMI	Q+3!
>> GMRDSH	START+23*
GMREDB	Q+3!
GMRI	Q+3!
GMRINF	Q+3!
GMRLEN	Q+3!
GMRMSL	Q+3!
GMRNAM	START+27*, Q+3!
GMROUT	START+19*, START+27, Q+3!
>> GMRPDT	START+22*
GMRPG	START+19, START+27, Q+3!
GMRRMBD	START+12, START+17, START+25, START+27*, Q+3!
GMRRMST	Q+3!
GMRROOM	Q+3!
GMRSITE	WRT+2!
GMRVFDT	EN1+12~, EN1+13*, START+20, Q+3!
GMRVHLOC	Q+3!, FOOTER+4*, FOOTER+5
GMRVHT	Q+3!
GMRVSDT	EN1+12~, EN1+13*, START+20, Q+3!
GMRVWLOC	Q+3!
GMRWARD	Q+3!
GMVDATA	EN1~, EN1+13
GMVDEV	EN1+12~, EN1+13*, EN1+14
>> GMVEDB	START+8*, START+10
GMVHLOC	EN1+12~, EN1+13*
GMVIEN	EN1+12~, EN1+13*
GMVLOOP	START+4*, START+5, Q+3!
>> GMVNAME	START+13*, START+17
GMVPDT	EN1+12~, EN1+13*, EN1+15
GMVRANGE	START+20*, Q+4!
GMVRMLST	EN1+12~, EN1+13*, START+3, START+4, START+5, START+8, Q+4!
>> GMVROOM(	START+5*
GMVWARD	EN1+12~, EN1+13, START+9, START+14
GMVWARD(1	START+9, START+15
GPEDIS	START+26~*
GPRT	Q+3!
>> GWARD	WRT+4*
IO	START+24
RESULT	EN1~, EN1+21*
U	EN1+13, START+9
VA	START+16!
>> VADM(1	START+13, FOOTER+1
>> VADM(2	FOOTER+1
>> VADM(3	FOOTER+1
>> VADM(4	FOOTER+1
>> VADM(5	FOOTER+2
>> VAIN(4	START+14, START+15, FOOTER+3, FOOTER+4, WRT+4
>> VAIN(5	START+12, FOOTER+3, WRT+5
>> Y	START+21*, START+22
ZTDESC	EN1+18*, EN1+22!
ZTDTH	EN1+15*, EN1+22!
ZTIO	EN1+14*, EN1+22!
>> ZTQUEUED	START+1
>> ZTREQ	START+1*
ZTRTN	EN1+19*, EN1+22!
ZTSAVE	EN1+22!
ZTSAVE("DFN"	EN1+16*
ZTSAVE("GMRVFDT"	EN1+16*
ZTSAVE("GMRVSDT"	EN1+16*
ZTSAVE("GMVHLOC"	EN1+17*
ZTSAVE("GMVRMLST"	EN1+17*
ZTSAVE("GMVWARD"	EN1+17*
ZTSK	EN1+21, EN1+22!