Routine: GMVDS1

Information

GMVDS1 ;HOIFO/YH,FT-CURRENT VITALS BY PATIENT OR LOCATION ;6/6/07

Source file <GMVDS1.m>

Package	Total	Call Graph
Kernel	4	^%ZISC ^%ZTLOAD $$NOW^XLFDT $$REPEAT^XLFSTR
VA Fileman	2	NOW^%DTC $$GET1^DIQ
General Medical Record - Vitals	1	(EN1,Q)^GMVDS0
Registration	1	(DEM,INP,KVAR)^VADPT

Package	Total	Caller Graph
General Medical Record - Vitals	3	GMVSC0 GMVSR0 GMVUTL7

Name	Comments	DBIA/ICR reference
Q1	; Kill variables and quit
Q2	; Kill variables
AE	;
HDR	; Report Header
PRT	; Body of report
EN2	; Start the report output
EN1(RESULT,GMVDATA)	; [RPC entry point] ; GMV LATEST VITALS FOR PATIENT & GMV LATEST VITALS BY LOCATION ; DFN - patient internal entry number ; GMVDEV - device name ; GMVIEN - device internal entry number ; GMVPDT - date/time to print the report ; GMVWARD - ward internal entry number ; GMVHLOC - hospital location internal entry number
WARD	; Build TMP global for patients on ward ; set ^TMP($J,roombed,patient name,DFN)="" ; GMVWARD(1) is the NAME of FILE 42 entry ; GMVRMBD(n) is an array of room numbers on the ward (e.g, GMVRMBD(200)) ; GMVEDB is a code for the type of sort ; A = all patients on a ward ; S = selected roombeds on a ward ; P = an individual patient

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"THERE IS NO DATA FOR THIS REPORT" Line Location: AE+9
Function Call: WRITE	Prompt: !,GMRPDT,?20,"VITALS REPORT FOR UNIT: "_GMVWARD(1) Line Location: HDR+3
Function Call: WRITE	Prompt: " - "_$$GET1^DIQ(4,+$$GET1^DIQ(44,+GMVHLOC,3,"I"),.01,"I") Condition for execution: GMVHLOC>0 Line Location: HDR+3
Function Call: WRITE	Prompt: !,GMRPDT,?28,"LATEST VITALS REPORT" Line Location: HDR+4
Function Call: WRITE	Prompt: ?72,"PAGE ",GMVPAGE Line Location: HDR+5
Function Call: WRITE	Prompt: !,GMVDASH,! Line Location: HDR+6

RPC Name	Call Tags
GMV LATEST VITALS BY LOCATION	EN1
GMV LATEST VITALS FOR PATIENT	EN1

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

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	AE+4
^DIC(42 - [#42]	EN2+3
^DPT("CN"	WARD+10
^TMP($J	EN2+4!, EN2+12, AE+9, AE+11, Q1+1!, WARD+8!, WARD+15

Name	Field # of Occurrence
%	AE+4, Q1+1!
%T	Q1+1!
DFN	EN1+9~, EN1+10, EN1+15, EN2+2, EN2+12, AE+11, Q1+1!, WARD+9, WARD+10, WARD+15
GBP	Q2+1!
GDATA	Q1+2!
GDT	Q1+1!
GLOC	AE+6*, Q1+2!
GMR	Q2+1!
GMRADM	Q1+1!
GMRDA	Q1+1!
GMRDAT	Q2+1!
GMRDATS	Q2+1!
GMRDT	Q1+1!, PRT+2!, Q2+1!
GMRI	Q2+1!
GMRJ	Q2+1!
GMRL	Q2+1!
GMRLIN	Q2+1!
GMRNM	Q1+1!
GMROUT	AE+1*, AE+11, Q1+1!, Q1+2!, PRT+1
GMRPDT	AE+4*, Q1+1!, HDR+3, HDR+4
GMRPR	Q1+1!
GMRRMBD	EN2+7, EN2+12, AE+10, AE+11*, Q1+1!, PRT+3
GMRSITE	Q1+1!
GMRSP	Q1+1!
GMRSTR	AE+5*, Q1+2!
GMRVDT	Q1+1!
GMRVOERR	Q1+2!
GMRVSTOP	Q1+2!
GMRVSTRT	Q1+2!
GMRVTDA	Q1+1!
GMRVX	Q1+1!, Q2+1!
GMRX	Q1+1!, Q2+1!
GMRY	Q2+1!
GMVDASH	AE+2*, Q1+1!, HDR+6
GMVDATA	EN1~, EN1+10
GMVDEV	EN1+9~, EN1+10*, EN1+11
GMVEDB	EN2+2*, EN2+5, Q1+1!, HDR+3, HDR+4, WARD+15
GMVHLOC	EN1+9~, EN1+10*, Q1+1!, HDR+3
GMVIEN	EN1+9~, EN1+10*
GMVNAME	EN2+8, EN2+12, AE+11, Q1+1!, PRT+3, WARD+13*, WARD+15
GMVPAGE	AE+1, Q1+1!, HDR+2, HDR+5
GMVPDT	EN1+9~, EN1+10*, EN1+12
>> GMVRMBD	WARD+12*, WARD+15
>> GMVROOM(	WARD+15
GMVWARD	EN1+9~, EN1+10, EN1+16, EN2+3, EN2+9, Q1+1!
GMVWARD(1	EN2+3, EN2+10, HDR+3, WARD+10
GQUAL	Q2+1!
GSITE	Q2+1!
GSTRIN	Q1+2!
IO	AE+7
IOF	HDR+1
IOSL	PRT+1
IOST	PRT+1
POP	Q1+1!
RESULT	EN1~, EN1+18*
U	EN1+10, EN2+3, PRT+3
VA	EN2+11!, WARD+14!
>> VADM(1	EN2+8, WARD+13
>> VADM(2	PRT+3
>> VAIN(4	EN2+9, EN2+10
>> VAIN(5	EN2+7, WARD+12
>> Y	AE+4*
ZTDESC	EN1+15, EN1+16, EN1+19!
ZTDTH	EN1+12*, EN1+19!
ZTIO	EN1+11*, EN1+19!
>> ZTQUEUED	EN2+1
>> ZTREQ	EN2+1*
ZTRTN	EN1+13*, EN1+19!
ZTSAVE	EN1+19!
ZTSAVE("DFN"	EN1+14*
ZTSAVE("GMVHLOC"	EN1+14*
ZTSAVE("GMVWARD"	EN1+14*
ZTSK	EN1+18, EN1+19!