Routine: BEHOVMC

Information

BEHOVMC ;IHS/MSC/MGH - CUMULATIVE VITALS/MEASUREMENTS FOR PATIENT OVER GIVEN DATE RANGE ;07-Jun-2010 09:17;MGH

Source file <BEHOVMC.m>

Package	Total	Call Graph
IHS Electronic Health Record	2	FOOTER^BEHOVMC (HDR,SETLN)^BEHOVMC2
VA Fileman	2	NOW^%DTC ($$GET1,D)^DIQ
Kernel	1	^%ZISC
Registration	1	(DEM,INP,KVAR)^VADPT
Toolkit	1	GETLST^XPAR
VueCentric Framework	1	$$ENT^CIAVMRPC

Package	Total	Caller Graph
IHS Electronic Health Record	2	BEHOVMC BEHOVMRP

Name	Comments	DBIA/ICR reference
Q3
SETUT
FOOTER	;REPORT FOOTER SUBROUTINE
SETND	;
DEV	;S %ZIS="Q",%ZIS("B")="" D ^%ZIS K %ZIS G:POP Q3 I $E(IOST)="P",'$D(IO("Q")),'$D(IO("S")) D ^%ZISC W !,?3,"PRINTED REPORTS MUST BE QUEUED!!",$C(7) G DEV
PRT	;PRINT V/M BY DATE/TIME
WRT	;
EN5
SETVAR	;Get the vital data
EN3(DFN,BEHVSDT,BEHVFDT)	; APPLICATION PROGRAM INTERFACE FOR PATIENT CUMULATIVE VITALS REPORT ; INPUT VARIABLES: DFN=PATIENT NUMBER ; BEHVSDT=START DATE ; BEHVFDT=FINISH DATE OF REPORT

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?3,"PRINTED REPORTS MUST BE QUEUED!!",$C(7) Line Location: DEV+0
Function Call: WRITE	Prompt: !! Line Location: FOOTER+2
Function Call: WRITE	Prompt: ?17,$P(VADM(2),"^",2) Condition for execution: VADM(1)'="" ?$X-3,$E(VADM(1),1,15) W:VADM(2)'="" Line Location: FOOTER+2
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+2
Function Call: WRITE	Prompt: ?65,"VAF 10-7987j" Line Location: FOOTER+4
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+4
Function Call: WRITE	Prompt: "Division: "_$S(BEHVHLOC>0:$$GET1^DIQ(4,+$$GET1^DIQ(44,+BEHVHLOC,3,"I"),.01,"I"),1:""),! Line Location: FOOTER+6
Function Call: WRITE	Prompt: !!,"No cumulative vitals data for "_$S($D(OPSPNM):ORSPNM,1:"this patient"),! Line Location: EN5+17
Function Call: WRITE	Prompt: ! Line Location: Q3+0
Function Call: WRITE	Prompt: ! Line Location: Q3+1
Function Call: WRITE	Prompt: !,$E(BEHDATE,4,5)_"/"_$E(BEHDATE,6,7)_"/"_$E(BEHDATE,2,3) Line Location: PRT+2
Function Call: WRITE	Prompt: !,?2,$P($P(Y,"@",2),":",1,2) Line Location: PRT+3

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

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVMSR - [#9000010.01]	SETUT+2, SETUT+4
^AUPNVMSR("AE"	SETVAR+1, SETND+1
^BEHOVM(90460.01 - [#90460.01]	EN5+14
^DD("DD"	PRT+2
^DIC(42 - [#42]	FOOTER+5
^GMRD(120.52 - [#120.52]	EN5+2
^TMP("BEHV"	EN5+3!, EN5+17, EN5+18, Q3+2!, SETUT+4*, PRT+4, PRT+5, PRT+6, PRT+7

Name	Field # of Occurrence
%	EN5+1, Q3+2!
AGE	Q3+3!
BEH1ST	EN5+1*, Q3+2!
BEHDAT	Q3+2!
BEHDATE	EN5+18, Q3+2!, SETVAR+1, SETUT+3, PRT+2, PRT+4, PRT+5, PRT+6, PRT+7
BEHDATE(0	EN5+1, PRT+2
BEHDSH	EN5+1*, Q3+2!
BEHDT	Q3+3!, SETVAR+1*, SETND+1
BEHLN	PRT+5!
>> BEHOUT	EN5, EN5+17, EN5+18, Q3+1, PRT+1, PRT+3, PRT+7
BEHPDT	EN5+1*, Q3+3!
BEHPG	EN5*, Q3+3!
BEHQUAL	Q3+2!
BEHSITE	Q3+2!
BEHVDA	Q3+3!, SETND+1, SETUT+2, SETUT+4, PRT+7
BEHVDATE	Q3+2!
BEHVDT	Q3+3!
BEHVDT(	EN5+18, SETUT+5*
BEHVFDT	EN3~, Q3+4!, SETVAR+1
BEHVHLOC	FOOTER+5*, FOOTER+6, Q3+3!
BEHVITY	EN5+14*, Q3+2!, SETUT+4
BEHVOR	EN3+4*, Q3+2!
BEHVSDT	EN3~, Q3+4!, SETVAR+1
BEHVTY	Q3+2!, PRT+5*, PRT+6, PRT+7
BEHVTYP	EN5+12*, EN5+13, EN5+14, Q3+3!, SETVAR+1, SETND+1
BEHVX	Q3+2!
DATA	EN5+6~, EN5+8
DATA(	EN5+10, EN5+12
DFN	EN3~, SETVAR+1, SETND+1
ENT	EN5+6~, EN5+7*, EN5+8
GBED	WRT+1, EN5, Q3+2!
GERROR	PRT+5!
GMR1ST	WRT+1*, Q3+3!
GMRLN	Q3+2!
GMRPDT	Q3+2!
GMRPG	Q3+4!
GMRSITE	WRT+1!
GMRSP	Q3+2!
GMRVDA	Q3+2!
GMRX	Q3+2!
GMRY	Q3+2!
GPEDIS	EN5+2~*
GPRT	Q3+3!
GPRT(	PRT+6*
GWARD	WRT+1, EN5, Q3+2!
GX	Q3+2!
I	EN5+10*, EN5+12, Q3+3!
IO	EN5+16
IOSL	Q3, PRT+1, PRT+3
>> OPSPNM	EN5+17
>> ORSPNM	EN5+17, Q3+4
PRM	EN5+5*, EN5+7, EN5+8, Q3+3!
STIM	SETUT~, SETUT+2, SETUT+3, SETUT+4, SETUT+5
U	EN5+14, SETUT+2
VA	Q3+2!
>> VADM(1	FOOTER+2
>> VADM(2	FOOTER+2
>> VADM(3	FOOTER+2
>> VADM(4	FOOTER+2
>> VADM(5	FOOTER+3
>> VAIN(4	FOOTER+4, FOOTER+5, WRT+1, EN5
>> VAIN(5	FOOTER+4, WRT+1, EN5
X	Q3*, Q3+3!
Y	EN5+1, Q3+3!, PRT+2, PRT+3
>> ZTQUEUED	Q3+4
>> ZTREQ	Q3+4*