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

Package: General Medical Record - IO

Routine: GMRYUT7


Information

GMRYUT7 ;HIRMFO/YH-IV SOLUTION SELECT TO START ;10/16/96

Source Information

Source file <GMRYUT7.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
General Medical Record - IO 1 OTHRSOL^GMRYUT10  
Kernel 1 $$UP^XLFSTR  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
General Medical Record - IO 6 GMRYED2  GMRYED3  GMRYED6  GMRYUT3  GMRYUT5  GMRYUT6  

Entry Points

Name Comments DBIA/ICR reference
DRAIN ;SELECT SUBTYPE OF OUTPUT DRAINAGE
SOLTYPE ;SELECT SOLUTION TYPE
NURSOL ;SELECT IV SOLUTION FROM NUR SOLUTION FILE 126.9 TO HUNG
SELSITE ;
SITEDC ;SCREEN THE SELECTED IV SITE WAS D/C'D
SEL
SEL0

External References

Name Field # of Occurrence
OTHRSOL^GMRYUT10 SEL+3
$$UP^XLFSTR SEL+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Select one of the IV types listed below",!,?5,"A - admixture",!,?5,"B - blood/blood product",!,?5,"H - hyperal",!,?5,"I - intralipid",!,?5,"P - piggyback",!,?5,"L - locks/ports",!,?5,"Please enter a character: "
  • Line Location: SOLTYPE+2
Function Call: WRITE
  • Prompt: " "_$S(GMRVTYP="A":"admixture",GMRVTYP="B":"blood/blood product",GMRVTYP="H":"hyperal",GMRVTYP="I":"intralipid",GMRVTYP="P":"piggyback",GMRVTYP="L":"locks/ports",1:"")
  • Line Location: SOLTYPE+5
Function Call: WRITE
  • Prompt: !,"Select type of IV solution you want to hang by entering",!,"the first character of the solution category",!
  • Line Location: SOLTYPE+7
Function Call: WRITE
  • Prompt: !,"No solutions found in the NURS SOLUTION FILE 126.9",!
  • Line Location: SEL0+0
Function Call: WRITE
  • Prompt: !!,"Select a(n) "_$S(GMRVTYP="A":"admixture",GMRVTYP="B":"blood/blood product",GMRVTYP="H":"hyperal",GMRVTYP="I":"intralipid",GMRVTYP="P":"piggyback",1:"")_" from the following Nursing Solution file listing ",!
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !,GTXT(I)
  • Line Location: SEL+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: SEL+1
Function Call: WRITE
  • Prompt: !,"Enter the number or the first couple of letters of",!,"the solution you want to start",!
  • Line Location: SEL+2
Function Call: WRITE
  • Prompt: !,"No solution selected",!
  • Line Location: SEL+5
Function Call: WRITE
  • Prompt: !,"No OUTPUT SUBTYPE set!!!",!
  • Line Location: DRAIN+2
Function Call: WRITE
  • Prompt: !,GTXT(I)
  • Line Location: DRAIN+5
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: DRAIN+6
Function Call: WRITE
  • Prompt: !,$P(GMRY(+X),"^")
  • Line Location: DRAIN+7
Function Call: WRITE
  • Prompt: !,"Subtype for "_GLABEL_" is optional. However if you to wish",!,"to identify the subtype of "_GLABEL_", then enter the number of your selection",!
  • Line Location: DRAIN+8
Function Call: WRITE
  • Prompt: !,I_". "_GMRZ(I)
  • Line Location: SELSITE+3
Function Call: READ
  • Timeout: DTIME
  • Variable: I
  • Line Location: SELSITE+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(126 - [#126] SITEDC+1
^GMRD(126.6 - [#126.6] DRAIN+1
^GMRD(126.9 - [#126.9] NURSOL+1

Label References

Name Line Occurrences
DRAIN DRAIN+8
SEL SEL+2
SEL0 SEL+5, SEL+7
SELSITE SELSITE+6
SOLTYPE SOLTYPE+7

Naked Globals

Name Field # of Occurrence
^(0 NURSOL+1, DRAIN+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA(1 SITEDC+1
>> DA(2 SITEDC+1
DTIME SOLTYPE+2, SEL+1, DRAIN+6, SELSITE+4
GDA SITEDC+1~*
>> GLABEL DRAIN+6, DRAIN+8
GMRB NURSOL+1!, NURSOL+2*, SEL+1!, SEL+3!, SEL+4!
GMRB( NURSOL+1*, NURSOL+2
GMRB(" OTHER" , NURSOL+2*
GMRN SEL0+1*, SEL0+2, SEL, SEL+1!, SEL+3!, DRAIN+3*, DRAIN+4, DRAIN+5, DRAIN+6!
>> GMROUT SOLTYPE+3*, SEL0*, SEL+1*, SEL+4, SITEDC+1, DRAIN+6*, SELSITE+4*
>> GMROUT(1 DRAIN+6*
>> GMRVTYP SOLTYPE+1*, SOLTYPE+4*, SOLTYPE+5, NURSOL+1, NURSOL+2, SEL
GMRW SEL+4!*, SEL+5, SEL+6
GMRW( SEL+4*, SEL+6
GMRX NURSOL+1*, SEL+4!*, DRAIN+1*, DRAIN+2!, DRAIN+6!, SELSITE+1
GMRY NURSOL+1!*, NURSOL+2*, SEL0, SEL0+1, SEL0+2, SEL+2, SEL+6!*, DRAIN+1!*, DRAIN+2!, DRAIN+3
, DRAIN+4, DRAIN+6!
GMRY( NURSOL+2*, SEL0+1, SEL0+2, SEL+3, SEL+4, SEL+6*, DRAIN+1*, DRAIN+3, DRAIN+4, DRAIN+7
, SELSITE+1
GMRZ DRAIN+1*, DRAIN+7*, SELSITE+1~*, SELSITE+2
GMRZ( SELSITE+1*, SELSITE+3, SELSITE+5
GMRZ(1 SELSITE+2
>> GSTDC SITEDC+1*
>> GTP DRAIN+1
GTXT SEL+1!, SEL+3!, SEL+4!, DRAIN+1!, DRAIN+6!
GTXT( SEL0+1*, SEL0+2*, SEL, DRAIN+3*, DRAIN+4*, DRAIN+5
I SEL0+1*, SEL0+2*, SEL*, SEL+6*, DRAIN+3*, DRAIN+4*, DRAIN+5*, SELSITE+1~*, SELSITE+3*, SELSITE+4*
, SELSITE+5
>> X SOLTYPE+2*, SOLTYPE+3, SOLTYPE+4, SEL0+1*, SEL+1*, SEL+2, SEL+3, SEL+4*, DRAIN+3*, DRAIN+6*
, DRAIN+7, SELSITE+2*, SELSITE+5*
>> Y(0 SEL+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All