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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: GMRVDS1

Package: General Medical Record - Vitals

Routine: GMRVDS1


Information

GMRVDS1 ;HIRMFO/YH-CURRENT VITAL SIGNS BY LOCATION ;2/3/99

Source Information

Source file <GMRVDS1.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
General Medical Record - Vitals 4 (EN1,Q)^GMRVDS0  HDR^GMRVDS1  WARDSEL^GMRVED0  EN1^GMRVED2  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 2 NOW^%DTC  $$GET1^DIQ  
Registration 1 (DEM,INP,KVAR)^VADPT  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
General Medical Record - Vitals 4 GMRV V/M BY LOCATION  GMRVDS0  GMRVDS1  GMRVDS2  
Nursing Service 1 NURCVPR0  

Entry Points

Name Comments DBIA/ICR reference
Q1
Q2 ;
AE
HDR ;
PRT ;
WRT
DEV
PRTSITE
EN1 ; ENTRY FROM OPTION GMRV V/M BY LOCATION
EN2 ;ENTRY TO REPORT FROM TASKMAN
EN3 ; ENTRY TO PRINT VITALS FOR LOCATION GROUP
; INPUT : ^TMP($J,ROOM-BED,PATIENT NAME,DFN)=""
; ARRAY OF PATIENTS TO BE PRINTED WHERE
; ROOM-BED: PATIENT ROOM-BED
; PATIENT NAME: PATIENT NAME
; DFN: POINTER ^DPT
; GMRVWLO=NAME OF LOCATION GROUP
PAT ;ENTRY POINT FOR REPORT BY PATIENT
WRT2

External References

Name Field # of Occurrence
NOW^%DTC AE
^%ZIS DEV
^%ZISC DEV, Q1+2
^%ZTLOAD DEV+1
$$GET1^DIQ HDR+3
EN1^GMRVDS0 PRT+4
Q^GMRVDS0 Q1+2
HDR^GMRVDS1 WRT2
WARDSEL^GMRVED0 EN1+1
EN1^GMRVED2 EN2+5
DEM^VADPT EN2+3, PRT+2
INP^VADPT EN2+3
KVAR^VADPT EN2+3, Q1+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?3,$C(7),"PRINTED REPORTS MUST QUEUED"
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !,"THERE IS NO DATA FOR THIS REPORT"
  • Line Location: AE+1
Function Call: READ
  • Prompt: "Press return to continue "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: Q1+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: Q1+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,GMRPDT,?20,"VITALS REPORT FOR UNIT: "_GMRWARD(1)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: " - "_$$GET1^DIQ(4,+$$GET1^DIQ(44,+GMRVHLOC,3,"I"),.01,"I")
  • Condition for execution: GMRVHLOC>0
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,GMRPDT,?28,"LATEST VITALS REPORT"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?72,"PAGE ",GMRPG,!,GMRDSH,!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,?GMRSP,$P(GMRL,"^",2)
  • Line Location: WRT+1
Function Call: WRITE
  • Prompt: " ("_$S($D(^GMRD(120.52,GSITE,0)):$P(^(0),"^"),1:"")_$S(GSITE>0&(GQUAL>0):"/",1:"")_$S($D(^GMRD(120.53,GQUAL,0)):$P(^(0),"^"),1:"")_")"
  • Line Location: PRTSITE+0
Routine Call
  • %ZIS
  • Line Location:
    • DEV

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" AE
^GMRD(120.52 - [#120.52] PRTSITE
^GMRD(120.53 - [#120.53] PRTSITE
^TMP($J EN2+1!, EN2+4*, AE+1, AE+2, Q1+1!

Label References

Name Line Occurrences
AE EN3+8
DEV DEV
HDR AE+1, PRT+1
PRT AE+2
PRTSITE WRT+1
Q1 EN1+1, DEV, AE+1
Q2 PRT+4
WRT2 WRT

Naked Globals

Name Field # of Occurrence
^(0 PRTSITE

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % AE
%T Q1+1!
>> %ZIS DEV*
DFN EN2+4, AE+2*, Q1+1!
DTIME Q1, HDR+1
GBP Q2+1!
GDATA Q1+2!
GDT Q1+1!
GLOC AE*, Q1+2!, WRT
GMR Q2+1!
GMR1ST AE*, Q1+1!, HDR+1, HDR+2*
GMRADM Q1+1!
GMRDA Q1+1!
GMRDAT Q2+1!
GMRDATS Q2+1!
GMRDSH AE*, Q1+1!, HDR+5
GMRDT Q1+1!, PRT+2!, Q2+1!
GMREDB EN1+1*, EN2+2, Q1+1!, HDR+3, HDR+4, EN3+7*
GMRI Q2+1!
GMRJ Q2+1!
GMRL WRT+1, Q2+1!
GMRLIN Q2+1!
GMRNAM EN2+3*, EN2+4, AE+2*, Q1+1!, PRT+3, WRT2
GMRNAME Q1+1!
GMRNM Q1+1!
GMROUT EN1+1*, EN2+1*, AE+2, Q1, Q1+1!, Q1+2!, HDR+1*, PRT+1, EN3+8*
GMRPDT AE*, Q1+1!, HDR+3, HDR+4
GMRPG AE*, Q1+1!, HDR+2*, HDR+5, PRT+1
GMRPR Q1+1!
GMRRMBD EN2+3*, EN2+4, AE+2*, Q1+1!, PRT+3, WRT2
GMRSITE Q1+1!
GMRSP Q1+1!, WRT+1
GMRSTR AE*, Q1+2!
GMRVDT Q1+1!
GMRVHLOC Q1+1!, HDR+3
GMRVOERR Q1+2!
GMRVSTOP Q1+2!
GMRVSTRT Q1+2!
GMRVTDA Q1+1!
GMRVWLO EN3+7, EN3+8, EN3+9!
GMRVX Q1+1!, Q2+1!
GMRWARD EN2+3*, Q1+1!
GMRWARD(1 EN2+3*, HDR+3, EN3+8*
GMRX Q1+1!, Q2+1!
GMRY Q2+1!
GQUAL WRT+1, PRTSITE, Q2+1!
GSITE WRT+1, PRTSITE, Q2+1!
GSTRIN Q1+2!
IO AE+1
IO("Q" DEV, DEV+1!
IO("S" DEV
IOF Q1, Q1+1, HDR+2
ION DEV+1
IOSL PRT+1, WRT
IOST DEV, Q1, Q1+1, HDR+1, HDR+2, PRT+1
POP DEV, Q1+1!
U HDR+1, PRT+3, WRT2
VA EN2+3!, Q1+1!
>> VADM(1 EN2+3
>> VADM(2 PRT+3, WRT2
>> VAIN(4 EN2+3
>> VAIN(5 EN2+3
>> X Q1*, HDR+1*
>> Y AE*
>> ZTDESC DEV+1*
ZTIO DEV+1*!
>> ZTQUEUED Q1+1
>> ZTREQ Q1+1*
>> ZTRTN DEV+1*
>> ZTSAVE("DFN" DEV+1*
>> ZTSAVE("GMREDB" DEV+1*
>> ZTSAVE("GMROUT" DEV+1*
>> ZTSAVE("GMRVHLOC" DEV+1*
>> ZTSAVE("GMRWARD(" DEV+1*
ZTSK DEV+1!
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 |  Naked Globals |  Local Variables |  All