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

Package: General Medical Record - Vitals

Routine: GMRVEE0


Information

GMRVEE0 ;HIRMFO/RM,YH-ENTERED IN ERROR EDIT ;3/15/99 15:04

Source Information

Source file <GMRVEE0.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 4 ^%DT  C^%DTC  ^DIC  DT^DIQ  
General Medical Record - Vitals 3 ($$WRITECH,CHAR)^GMRVCHAR  (EN1,RESLS)^GMRVEE1  EN1^GMRVSAS0  
Registration 1 KVAR^VADPT  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
General Medical Record - Vitals 2 GMRV ERROR EDIT  GMRVED5  
Nursing Service 1 NURCVED0  

Entry Points

Name Comments DBIA/ICR reference
PRTCHS ; PRINT CHOICES FOR DATE/TIME DEFINED BY GMRX
STARTY ; SET GMRARTY ARRAY
PRTLN ; PRINT DATA FOR VITAL RECORD DEFINED BY GMRDA
WHTL ; ELIMINATE ALL NON GMRVITY CHILDREN FROM GMRARTY
DATACK ; CHECK TO SEE IF DATA FOR THIS PATIENT FOR THIS DATE. IF THERE IS
; SET UP AN ARRAY GMRARTY WITH GMRARTY=$S(0:ONE TYPE ONLY,1:MORE
; THAN ONE TYPE) AND GMRARTY(TYPE IEN)=120.5 ENTRY
CHSDT ; CHOOSE A DATE FOR ALL VITAL TYPES, OR DROP THRU FROM SINGLE VITAL TYPE
Q
EN1 ; ENTRY FROM OPTION GMRV ERROR EDIT
EN2 ; ENTRY TO VITALS ENTERED IN ERROR IF DFN IS KNOWN.
EN3 ;ENTRY TO ERROR EDIT PROVIDED DFN AND DATE/TIME ARE GIVEN
SDA
DATE
CHNUM
CNLP ;

External References

Name Field # of Occurrence
^%DT DATE
C^%DTC DATACK+3
^DIC EN1+1, EN3+2
DT^DIQ CHSDT+2
$$WRITECH^GMRVCHAR PRTLN+3
CHAR^GMRVCHAR PRTLN+3
EN1^GMRVEE1 EN3+1
RESLS^GMRVEE1 EN3+9
EN1^GMRVSAS0 PRTLN+2
KVAR^VADPT Q+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !,$C(7),"No data for this date"
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EN3+2
Function Call: WRITE
  • Prompt: !?3,$C(7),"There is no data for this patient for this date/time"
  • Line Location: EN3+7
Function Call: WRITE
  • Prompt: !,"CHOOSE FROM: ",!
  • Line Location: CHSDT+1
Function Call: WRITE
  • Prompt: !,?2,GMRNM_" "
  • Line Location: CHSDT+2
Function Call: READ
  • Timeout: DTIME
  • Variable: GFLAG
  • Line Location: CHSDT+3
Function Call: READ
  • Timeout: DTIME
  • Variable: GMRX
  • Line Location: CHNUM+0
Function Call: WRITE
  • Prompt: !,?5,$S(GMRVX="PN":"Pain",1:GMRVX),": ",GMRVX(0),$S('$D(GMRVX(1)):" ",'GMRVX(1):" ",1:"*")
  • Line Location: PRTLN+21
Function Call: WRITE
  • Prompt: !,?10,"via "
  • Condition for execution: GMRVX="PO2"
  • Line Location: PRTLN+22
Function Call: WRITE
  • Prompt: GMRZZ
  • Line Location: PRTLN+22
Routine Call
  • DIC
  • Line Location:
    • EN1+1
    • EN3+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(120.5 - [#120.5] PRTLN+1, PRTLN+3, DATACK+4, CNLP+1, STARTY+1
^GMRD(120.51 - [#120.51] PRTLN+2
^TMP($J EN2+1!, Q!, CHSDT+1!, CHSDT+2*, CHNUM+2, SDA

Label References

Name Line Occurrences
CHNUM CHNUM+2
CHSDT EN3+1, CHNUM+2
CNLP DATACK+4
DATACK DATE+1
DATE DATE+1
EN1 Q+3
PRTCHS CHSDT+2
PRTLN PRTCHS+1
Q EN1+1, DATE, EN3+1, EN3+3, EN3+7
STARTY CNLP+1
WHTL EN3+6

Naked Globals

Name Field # of Occurrence
^(0 PRTLN+1, PRTLN+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE*!
%DT("A" DATE*
%DT(0 DATE*
%T Q+1!
%Y Q+1!
D0 Q+1!
DA Q!
DFN EN1+1*, EN2+1, Q!, DATACK+4, CNLP+1, STARTY+1
DI Q+1!
DIC EN1+1*!, EN3+2*!, Q!
DIC("A" EN3+2*
DIC("S" EN3+2*
DIC(0 EN1+1*, EN3+2*
DIE Q!
DQ Q+1!
DR Q!
DTIME CHSDT+3, CHNUM
>> DTOUT EN3+3
>> DUOUT EN3+3
GDATE Q!
GDFN Q!
GDT Q+2!
GFLAG Q+1!, CHSDT+2*, CHSDT+3*
GMRAINP Q!
GMRARTY EN3+2, EN3+5, EN3+7, Q!, DATACK+3!, DATACK+5, STARTY+1*
GMRARTY( EN3+8, WHTL+1!, WHTL+2, SDA!, PRTCHS+1, STARTY+1*
GMRARTY("" EN3+8
GMRARTY("D" EN3+1, EN3+8, WHTL+2!, CHSDT+2, SDA!, STARTY+1*
GMRARTY(0 EN3+5
GMRCHC Q!
GMRCNT Q!, CHSDT+1*, CHSDT+2*, CHSDT+3*
GMRDA Q!, PRTCHS+1*, PRTLN+1, PRTLN+3, STARTY+1*
GMRDAT Q!, PRTLN+1*, PRTLN+2, PRTLN+14
GMRDATA Q+1!
GMRDATE Q!
GMRDFN Q!
GMREDB Q!
GMRENTY Q+1!
GMRFDT Q!
GMRI Q!
GMRINF Q+1!
GMRNM Q!, CHSDT+1*, CHSDT+2*, CHNUM+2
GMROK Q+2!
GMROUT EN1+1*, EN2+1*, DATE*, DATE+1*, EN3+1, EN3+3*, Q+2!, CHSDT+2, CHSDT+3*, CHNUM*
, CHNUM+1*, DATACK+5*
GMRQUAL Q+1!
GMRSDT Q!
GMRSITE Q!
GMRSTR Q!
GMRTY Q!
GMRVARY Q+1!, PRTLN+3!*
GMRVCH Q!
GMRVDATE DATE+1*, Q!, DATACK+3, CNLP+1
GMRVDT EN3+8*, Q!, SDA*, CNLP+1*, STARTY+1
GMRVDT(0 DATACK+3*, CNLP+1
GMRVHLOC Q!
GMRVIDT Q!
GMRVIT Q!
GMRVITY EN3+4*, EN3+5*, EN3+6, EN3+8*, Q!, WHTL+1, WHTL+2, DATACK+4*, CNLP+1, STARTY+1
GMRVPO PRTLN+14~*, PRTLN+15
GMRVX Q!, PRTLN+2!*, PRTLN+3, PRTLN+4, PRTLN+5, PRTLN+6, PRTLN+7, PRTLN+11, PRTLN+12, PRTLN+13
, PRTLN+17, PRTLN+21, PRTLN+22
GMRVX(0 PRTLN+2*, PRTLN+4*, PRTLN+5*, PRTLN+6*, PRTLN+8*, PRTLN+9*, PRTLN+10*, PRTLN+11*, PRTLN+12*, PRTLN+13
, PRTLN+15*, PRTLN+18, PRTLN+19, PRTLN+21
GMRVX(1 PRTLN+18*, PRTLN+19*, PRTLN+21
GMRX EN3+1*, Q!, WHTL+1*, WHTL+2*, CHSDT+2*, CHNUM*, CHNUM+1, CHNUM+2, SDA*, PRTCHS+1
GMRY Q!, SDA*, PRTCHS+1*, PRTLN+2, PRTLN+3
GMRZ Q!
GMRZZ Q+1!, PRTLN+3*, PRTLN+18, PRTLN+19, PRTLN+22
GMRZZ(1 PRTLN+3*
GSAVE Q!
POP Q!
VAERR Q+1!
VAIP Q+1!
>> X DATACK+3
>> X1 DATACK+3*
>> X2 DATACK+3*
>> Y EN1+1, DATE, DATE+1, EN3+4, CHSDT+2*
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