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

Package: General Medical Record - Vitals

Routine: GMRVED2


Information

GMRVED2 ;HIOFO/RM,YH,FT-VITAL SIGNS EDIT SHORT FORM ;11/15/04 10:30

Source Information

Source file <GMRVED2.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; SORT PATIENTS ON WARD
WSA1 ; SET ^TMP($J, FOR SORT
EN2 ; BEGIN EDITING WARD VITALS
V1 ;
V2 ;
EN4 ; ENTRY FROM GMRVED0 TO ADD THE PATIENT DATA TO THE 120.5 FILE
ADDNODE ; add data to the 120.5 file
XREF(DA) ; Set cross-references for FILE 120.5 entry
; Execute SET logic only. Set's all cross-references for this entry.
; DA is the record number
XREF1(DA) ; Set cross-references for FILE 120.5 entry
; Execute SET logic only. Set's all cross-references for this entry.
; DA is the record number
SETPRMT ; SET VITAL TYPE PATTERN MATCH
CHKDT(GMVDT,GMVSAV) ;Check if there is an entry for that date & time
ADDQUAL(GMRVDATA) ; Add qualifiers to FILE 120.5 entry
; ADD QUALIFIER TO 120.505 SUBFILE
; Input:
; GMRVDATA=120.5 IEN^QUALIFIER (120.52) IEN
B2 ; Lock the entry

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Begin entering patient vitals."
  • Line Location: EN2+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: EN2+4
Function Call: WRITE
  • Prompt: !,"Enter return to continue"
  • Line Location: EN2+4
Function Call: WRITE
  • Prompt: !!,$S(GMRNAM'=" BLANK":GMRNAM,1:DFN),?$X+10,$S(GMRRMBD'=" BLANK":GMRRMBD,1:"")," OK? YES// "
  • Line Location: V1+1
Function Call: WRITE
  • Prompt: !,"ANSWER YES OR NO"
  • Line Location: V1+5
Function Call: WRITE
  • Prompt: !!,"Do you wish to stop looping through names? YES//"
  • Line Location: V2+1
Function Call: WRITE
  • Prompt: !,"ANSWER YES OR NO"
  • Line Location: V2+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(120.5 - [#120.5] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call