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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: GMRYED2

Package: General Medical Record - IO

Routine: GMRYED2


Information

GMRYED2 ;HIRMFO/YH-PATIENT SEARCH/START IV ;1/17/97

Source Information

Source file <GMRYED2.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
General Medical Record - IO 10 SITEIV^GMRYED3  (LOCK,WRTSOL)^GMRYED5  (FINDPORT,SITECATH)^GMRYSTCA  (LISTIV,WAIT)^GMRYUT0  $$ADM^GMRYUT12  SEL^GMRYUT13  DT^GMRYUT3  EN4^GMRYUT5  
^GMRYUT6  (,SOLTYPE)^GMRYUT7  
VA Fileman 3 (FILE,YN)^DICN  ^DIE  ^DIK  
Registration 1 (IN5,KVAR)^VADPT  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
General Medical Record - IO 4 GMRYED1  GMRYED3  GMRYED6  GMRYUT10  

Entry Points

Name Comments DBIA/ICR reference
LISTSOL
NXTPRT
SELECTP ;
NEWIV
EDIT ;
MOREBTL ;
STARTIV ; TO START A NEW IV LINE OR TO MODIFY THE DATA FOR A SELECTED IV LINE
Q ;EXIT OF EDIT
QUES
DELIV
ADM ;OBTAIN THE WARD LOC. AT THE TIME WHEN THE PATIENT WAS DISCHARGED
ADDIV ;
RESTART
REASK

External References

Name Field # of Occurrence
FILE^DICN ADDIV+3, QUES+2, RESTART+2
YN^DICN QUES
^DIE REASK+7
^DIK DELIV+1
SITEIV^GMRYED3 MOREBTL+2
LOCK^GMRYED5 REASK+1
WRTSOL^GMRYED5 LISTSOL
FINDPORT^GMRYSTCA SELECTP+1
SITECATH^GMRYSTCA NEWIV+3
LISTIV^GMRYUT0 STARTIV+1
WAIT^GMRYUT0 ADDIV+3, QUES+2, REASK+6, RESTART+2
$$ADM^GMRYUT12 NEWIV+1
SEL^GMRYUT13 STARTIV+1
DT^GMRYUT3 NEWIV
EN4^GMRYUT5 RESTART, RESTART+2
^GMRYUT6 ADDIV+1, QUES+1
^GMRYUT7 QUES+1
SOLTYPE^GMRYUT7 NXTPRT
IN5^VADPT ADM+1
KVAR^VADPT Q+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Current IV(s):",!
  • Line Location: STARTIV+1
Function Call: WRITE
  • Prompt: !,"Start new IV ",!
  • Line Location: NEWIV+0
Function Call: WRITE
  • Prompt: !,"Do you want to add another solution to "_$S(GLINE(1)="BLANK":"this line",1:GLINE(1)_" port")
  • Line Location: QUES+0
Function Call: READ
  • Timeout: DTIME
  • Variable: GX(2)
  • Line Location: REASK+0
Function Call: WRITE
  • Prompt: !!,"IV started on: "_$P(Y,":",1,2)_" has been deleted!!!"
  • Line Location: DELIV+1
Routine Call
  • DIE
  • Line Location:
    • REASK+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DELIV+1
^GMR(126 - [#126] ADDIV+2, ADDIV+3, MOREBTL+1, QUES+2, REASK+8*, REASK+9, RESTART, RESTART+1*, RESTART+2, DELIV
^GMRD(126.9 - [#126.9] LISTSOL

Label References

Name Line Occurrences
DELIV REASK, REASK+1, REASK+9
EDIT ADDIV+4, QUES+2
MOREBTL QUES+2
NEWIV STARTIV+1
NXTPRT SELECTP+2
QUES QUES
REASK REASK
SELECTP QUES+1

Naked Globals

Name Field # of Occurrence
^( RESTART
^(0 ADDIV+2*, REASK+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % QUES*, QUES+1
DA Q+1!, ADDIV+2, ADDIV+3*, QUES+2*, REASK+7, REASK+8, REASK+9, RESTART*, RESTART+2*, DELIV
DA(1 ADDIV+3*, QUES+2*, REASK+4, REASK+8, REASK+9, RESTART, RESTART+1, RESTART+2, DELIV, DELIV+1
DD ADDIV+3!, QUES+2!, RESTART+2!
>> DFN NEWIV+1, ADDIV+3, MOREBTL+1, QUES+2, REASK+9, RESTART+2
DIC ADDIV+3*!, QUES+2*!, RESTART+2*!
DIC(0 ADDIV+3*, QUES+2*, RESTART+2*
DIE REASK+4*, REASK+6!, REASK+9!
DIK DELIV+1*!
DLAYGO ADDIV+3*!, QUES+2*!
DR REASK+5*, REASK+6!, REASK+9!
DTIME REASK
>> GADD REASK+9*
>> GCATH NEWIV*, NEWIV+3
>> GCATH(1 NEWIV+3*, REASK+7, SELECTP+1*
>> GCATH(2 SELECTP+1
>> GCT( MOREBTL+1*
GDA Q+1!
GDEL Q+1!, ADDIV+4*, DELIV+1*
>> GDR NEWIV*, ADDIV+4, MOREBTL+2*, REASK+5, REASK+8, REASK+9, RESTART
GDT Q+1!
>> GFLAG STARTIV+1*
>> GHLOC ADDIV+2*
GHOLD SELECTP+1!*
GHOLD(1 SELECTP+1*
GHOLD(2 SELECTP+1*
GHOLD(3 SELECTP+1*
>> GLABEL STARTIV+1*
>> GLINE MOREBTL+1, REASK+7*
>> GLINE(1 MOREBTL+1, QUES, REASK+3*, REASK+7*
GMRAGE Q+1!
GMRBED Q+1!, ADM+1*
GMRBTH Q+1!
>> GMRDATA STARTIV+1
>> GMRDC STARTIV+1*
>> GMRDEL STARTIV+1*, REASK
GMRDIAG Q+1!
>> GMRHLOC ADDIV+2
>> GMRLINE MOREBTL+1*
GMRNAM Q+1!
>> GMROUT NEWIV, NEWIV+1, NEWIV+3, NXTPRT, ADDIV+1, ADDIV+3, ADDIV+4, QUES+1, QUES+2, REASK+1
, REASK+6, RESTART+2, SELECTP+1
>> GMROUT(1 NEWIV+1*
>> GMRPORT SELECTP+1
GMRSEX Q+1!
GMRVADM Q+1!
GMRVOPT Q+1!
GMRVSEL Q+1!
>> GMRVTYP STARTIV+1*, NXTPRT*, ADDIV+1, ADDIV+3*, ADDIV+4*, QUES+1, QUES+2*, REASK+1, SELECTP+2*
GMRWARD Q+1!, ADM+1*
GMRWARD(1 ADM+1*
>> GMRZ ADDIV+1, REASK+1*, REASK+3
>> GMRZ(1 REASK+3
>> GMRZ(2 REASK+3
>> GMRZ(3 REASK+3
>> GN STARTIV+1
>> GPORT QUES+1
>> GSAVE ADDIV+3*, ADDIV+4*, QUES+2*
>> GSDC RESTART*
>> GSITE NEWIV+3*, MOREBTL+1, REASK+8, DELIV*
GSOL LISTSOL*, LISTSOL+1!
GSOL(1 LISTSOL*
>> GST( MOREBTL+1*
>> GX STARTIV+1*, NEWIV, NEWIV+1, ADDIV+3, QUES+2, REASK, REASK+8, DELIV+1
>> GX(1 REASK*
>> GX(2 REASK*
SSN Q+1!
>> VAIN(4 ADM+1
>> VAIN(5 ADM+1
>> VAIP("D" ADM+1*
VAROOT Q+1!
>> X ADDIV+3*, QUES+2*, RESTART*
>> Y ADDIV+3, QUES+2, RESTART+2, DELIV+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All