Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: APCDMSR1

Package: Patient Care Component

Routine: APCDMSR1


Information

APCDMSR1 ; IHS/CMI/LAB - Cumulative Vital Measurement Report 22-Jun-2007 15:09 PLS ;

Source Information

Source file <APCDMSR1.m>

Call Graph

Call Graph Total: 7

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  

Caller Graph

Caller Graph Total: 1

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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All