Routine: APCDMSR1

Package	Total	Call Graph
Kernel	3	^%ZISC ($$FMTE,$$NOW)^XLFDT ($$TRIM,$$UP)^XLFSTR
VA Fileman	2	$$FIND1^DIC $$GET1^DIQ
Patient Care Component	1	$$BMI^APCHS2A3
Registration	1	(DEM,INP,KVAR)^VADPT

Package	Total	Caller Graph
Barcode Medication Administration	1	PSBOVT

Entry Points

Name	Comments	DBIA/ICR reference
Q3
SETND	;
HDR	;
FOOTER	;REPORT FOOTER SUBROUTINE
CRPT(DFN,SDT,EDT)	; PEP - API FOR PATIENT CUMULATIVE VITALS REPORT ; INPUT VARIABLES: DFN=PATIENT NUMBER ; SDT=START DATE ; EDT=FINISH DATE OF REPORT
SETUT
SETLN	;
PRT	;PRINT V/M BY DATE/TIME
GETBMI(DFN,WT,DATE)	;EP
SETAR	;
VITDATE(IEN)	;
BLNK	;

External References

Name	Field # of Occurrence
^%ZISC	Q3+7
$$BMI^APCHS2A3	GETBMI+2
$$FIND1^DIC	CRPT+15
$$GET1^DIQ	FOOTER+9
DEM^VADPT	CRPT+7
INP^VADPT	CRPT+7
KVAR^VADPT	Q3+5
$$FMTE^XLFDT	CRPT+9, HDR+8, PRT+3, PRT+6
$$NOW^XLFDT	CRPT+9
$$TRIM^XLFSTR	SETLN+32
$$UP^XLFSTR	SETLN+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: Q3+0
Function Call: WRITE	Prompt: ! Line Location: Q3+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: Q3+4
Function Call: READ	Timeout: DTIME Variable: X Line Location: HDR+3
Function Call: WRITE	Prompt: !,PDT,?25,"Cumulative Vitals/Measurements Report",?70,"Page ",PAGE,!!,$E(DASH,1,78) Line Location: HDR+6
Function Call: WRITE	Prompt: !!,"*** (E) - Error entry",!! Line Location: FOOTER+1
Function Call: WRITE	Prompt: ?17,$G(VA("PID")) Line Location: FOOTER+3
Function Call: WRITE	Prompt: !,"Unit: "_$S($P(VAIN(4),U,2)'="":$P(VAIN(4),U,2),1:" "),?32,"Room: "_$S($P(VAIN(5),U)'="":$P(VAIN(5),U),1:" "),! Line Location: FOOTER+7
Function Call: WRITE	Prompt: "Division: "_$S(HOSPLOC>0:$$GET1^DIQ(4,+$$GET1^DIQ(44,+HOSPLOC,3,"I"),.01,"I"),1:""),! Line Location: FOOTER+9
Function Call: WRITE	Prompt: !,$P($P($$FMTE^XLFDT(VITDATE),"@",2),":",1,2) Line Location: PRT+6
Function Call: WRITE	Prompt: ! Line Location: SETLN+2
Function Call: WRITE	Prompt: "(E)" Condition for execution: VVER Line Location: SETLN+2
Function Call: WRITE	Prompt: ?4,$S(VTYPE="TMP":"TMP: ",VTYPE="PU":"PU: ",VTYPE="RS":"RS: ",VTYPE="BP":"B/P: ",VTYPE="WT":"Wt: ",VTYPE="HT":"Ht: ",VTYPE="AG":"Abdominal Girth: ",VTYPE="WC":"Waist Circumference: ",1:" ") Line Location: SETLN+4
Function Call: WRITE	Prompt: ?4,"Pain: " Line Location: SETLN+5
Function Call: WRITE	Prompt: ?9,VVX(0) Line Location: SETLN+9
Function Call: WRITE	Prompt: ?9,VVX(0)_" - No pain" Line Location: SETLN+11
Function Call: WRITE	Prompt: ?9,VVX(0)_" - Unable to respond" Line Location: SETLN+12
Function Call: WRITE	Prompt: ?9,VVX(0)_" - Worst imaginable pain" Line Location: SETLN+13
Function Call: WRITE	Prompt: ?9,VVX(0) Line Location: SETLN+14
Function Call: WRITE	Prompt: " in ("_$J(VAL/.3937,0,2)_" cm)" Line Location: SETLN+16
Function Call: WRITE	Prompt: " in ("_$J(VAL/.3937,0,2)_" cm)" Line Location: SETLN+17
Function Call: WRITE	Prompt: ?9,X Line Location: SETLN+19
Function Call: WRITE	Prompt: ?9,VAL_" F " Line Location: SETLN+22
Function Call: WRITE	Prompt: "("_VAL_" C)"_$S('$D(VVX(1)):" ",'VVX(1):"",1:"*") Line Location: SETLN+22
Function Call: WRITE	Prompt: ?9,X Line Location: SETLN+24
Function Call: WRITE	Prompt: ?9,X Line Location: SETLN+28
Function Call: WRITE	Prompt: ?9,VAL_" lb " Line Location: SETLN+30
Function Call: WRITE	Prompt: "("_VAL_" kg)" Line Location: SETLN+30
Routine Call	DIC Line Location: CRPT+15

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVMSR - [#9000010.01]	SETUT+1, SETLN+7
^AUPNVMSR("AA"	SETAR+1, SETND+1
^DIC(42 - [#42]	FOOTER+8
^TMP($J	CRPT+13!, CRPT+20, CRPT+24, Q3+6!, SETUT+6*, PRT+7, PRT+10, SETLN+1

Label References

Name	Line Occurrences
$$GETBMI	SETLN+32
BLNK	SETLN+15, SETLN+22, SETLN+26, SETLN+30
FOOTER	Q3+2, HDR+1
HDR	CRPT+18, PRT+1, PRT+5, SETLN+2
PRT	CRPT+24
Q3	CRPT+20
SETAR	CRPT+16
SETLN	PRT+10
SETND	SETAR+3
SETUT	SETND+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCDLN	PRT+8!
DASH	CRPT+4~, CRPT+11*, HDR+6
DATE	GETBMI~, GETBMI+2
DFN	CRPT~, SETAR+1, SETND+1, SETLN+32, GETBMI~, GETBMI+2
DTIME	Q3+4, HDR+3
EDT	CRPT~, SETUT+5
EVDATE	SETUT~, SETUT+1, SETUT+2, SETUT+3, SETUT+4, SETUT+5, SETUT+6, SETUT+7
GBED	CRPT+4~, CRPT+7*
GERROR	PRT+8!
GFLAG	CRPT+5~, HDR+4, HDR+5*
GMRS	CRPT+5~
>> GMRVHT	SETLN+26*
GPRT	CRPT+5~
GPRT(	PRT+9, SETLN+3, SETLN+6
GWARD	CRPT+5~, CRPT+7*
HOSPLOC	CRPT+4~, FOOTER+8*, FOOTER+9
>> I	BLNK+1*, BLNK+2
IEN	VITDATE~
IO	CRPT+18
IOF	HDR+4
IOSL	Q3, PRT+1, PRT+5, SETLN+2
IOST	Q3+3, HDR+2, HDR+4
>> OPSPNM	CRPT+21
>> ORSPNM	CRPT+21, CRPT+22, Q3+7
>> OUT	CRPT+7, CRPT+22, CRPT+23, Q3+1, Q3+3, Q3+4, HDR+2, HDR+3, PRT+1, PRT+5 , PRT+10, SETLN+2
PAGE	CRPT+4~, CRPT+7, HDR+5, HDR+6
PDT	CRPT+4~, CRPT+9, CRPT+10, HDR+6
>> RES	VITDATE+1
SDT	CRPT~, SETUT+5
U	FOOTER+4, FOOTER+5, FOOTER+6, FOOTER+7, FOOTER+8, SETUT+1, SETLN+8, SETLN+15, SETLN+18, SETLN+23 , SETLN+27, SETLN+31, SETLN+32
VA	CRPT+5~
VA("PID"	FOOTER+3
>> VADM(1	FOOTER+2
>> VADM(3	FOOTER+4
>> VADM(4	FOOTER+5
>> VADM(5	FOOTER+6
>> VAIN(4	CRPT+7, FOOTER+7, FOOTER+8
>> VAIN(5	CRPT+7, FOOTER+7
VAL	CRPT+5~, BLNK+1, BLNK+2, SETLN+15, SETLN+16, SETLN+17, SETLN+22, SETLN+26, SETLN+30*
VBMI	CRPT+5~, SETLN+31, SETLN+32, SETLN+33
VBMI(1	SETLN+31*
VBMI(2	SETLN+31*
VDA	CRPT+5~, SETND+1, SETUT+1, SETUT+6, PRT+10, SETLN+1, SETLN+7
>> VDAT	SETLN+7*, SETLN+8, SETLN+15, SETLN+18, SETLN+23, SETLN+27, SETLN+31, SETLN+32
VDT	CRPT+5~, SETAR+1*, SETAR+2, SETND+1
VDT(	CRPT+23, SETUT+7*
VIT1ST	CRPT+4~, CRPT+8, HDR+1, HDR+2, HDR+7, HDR+9
VITDATE	CRPT+4~, CRPT+23, CRPT+24, HDR+7, HDR+8, SETAR+2, SETUT+2, PRT+2, PRT+3, PRT+4 , PRT+6, PRT+7, PRT+10, SETLN+1, SETLN+32
VITDATE(0	CRPT+8, HDR+7, PRT+2, PRT+4
VITOR	CRPT+4~, CRPT+6*, Q3+3
VPO	SETLN+1~
VTYPE	CRPT+4~, CRPT+14, CRPT+15, SETUT+6, PRT+9, PRT+10, SETLN+1, SETLN+3, SETLN+4, SETLN+5 , SETLN+6, SETLN+8, SETLN+10, SETLN+15, SETLN+16, SETLN+17, SETLN+18, SETLN+20, SETLN+23, SETLN+27 , SETLN+31
VTYPEI	CRPT+4~, CRPT+15*, CRPT+16, SETAR+1, SETND+1
>> VVER	SETLN+1*, SETLN+2, SETLN+26, SETLN+31
>> VVX	SETLN+8, SETLN+20
>> VVX(0	SETLN+8, SETLN+9, SETLN+11, SETLN+12, SETLN+13, SETLN+14, SETLN+20
>> VVX(1	SETLN+15, SETLN+22
WT	GETBMI~, GETBMI+2
X	Q3, Q3+4, HDR+3, SETLN+18, SETLN+19, SETLN+20, SETLN+21, SETLN+22, SETLN+23, SETLN+24 , SETLN+25, SETLN+26, SETLN+27, SETLN+28, SETLN+29, SETLN+30, GETBMI+1~
Y	SETLN+21, SETLN+22, SETLN+25, SETLN+26, SETLN+29, SETLN+30, GETBMI+1~
>> ZTQUEUED	Q3+7
>> ZTREQ	Q3+7*

Customize PDF page

Package: Patient Care Component

Routine: APCDMSR1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: