Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; ENTRY FROM OPTION GMRV V/M BY LOCATION
PAT ;ENTRY POINT FOR REPORT BY PATIENT
DEV
EN2 ;ENTRY TO REPORT FROM TASKMAN
AE
Q1
HDR ;
PRT ;
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
WRT
WRT2
PRTSITE
Q2 ;

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
  • Formatting: !
  • Prompt: "Press return to continue "
  • Variable: X
  • Timeout: DTIME
  • Line Location: Q1+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: Q1+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • 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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
^SC - [#44] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call