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: GMRVSC0

Package: General Medical Record - Vitals

Routine: GMRVSC0


Information

GMRVSC0 ;HIOFO/MD,YH,FT-CUMULATIVE VITALS/MEASUREMENTS FOR PATIENT OVER GIVEN DATE RANGE ;9/27/07

Source Information

Source file <GMRVSC0.m>

Entry Points

Name Comments DBIA/ICR reference
DATE ;W !,"CALLED BY IA 1444 - NURSING, BCMA"
FOOTER ;REPORT FOOTER SUBROUTINE
EN3(DFN,GMRVSDT,GMRVFDT) ; APPLICATION PROGRAM INTERFACE FOR PATIENT CUMULATIVE VITALS REPORT
; INPUT VARIABLES: DFN=PATIENT NUMBER
; GMRVSDT=START DATE
; GMRVFDT=FINISH DATE OF REPORT
EN5 ;CALLED BY [NURCPP-VIT-CUM] - IA 1444, NURSING, BCMA
Q3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?3,"PRINTED REPORTS MUST BE QUEUED!!",$C(7)
  • Line Location: GMRVSC0+16
Function Call: WRITE
  • Prompt: !,?3,$C(7),"THE START DATE MUST BE BEFORE THE END DATE OF THIS REPORT"
  • Line Location: DATE+6
Function Call: WRITE
  • Prompt: !!,"*** (E) - Error entry",!!
  • Line Location: FOOTER+1
Function Call: WRITE
  • Prompt: ?17,$P($P(VADM(2),"^",2),"-",3)
  • Condition for execution: VADM(1)'="" ?$X-3,$E(VADM(1),1,15) W:VADM(2)'=""
  • Line Location: FOOTER+1
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+1
Function Call: WRITE
  • Prompt: ?65,"VAF 10-7987j"
  • Line Location: FOOTER+3
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+3
Function Call: WRITE
  • Prompt: "Division: "_$S(GMRVHLOC>0:$$GET1^DIQ(4,+$$GET1^DIQ(44,+GMRVHLOC,3,"I"),.01,"I"),1:""),!
  • Line Location: FOOTER+5
Function Call: WRITE
  • Prompt: !!,"No cumulative vitals data for "_$S($D(OPSPNM):ORSPNM,1:"this patient"),!
  • Line Location: EN5+7
Function Call: WRITE
  • Prompt: !
  • Line Location: Q3+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: Q3+1
Function Call: WRITE
  • Prompt: !
  • Line Location: Q3+1

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