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

Entry Points

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

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
  • Variable: X
  • Timeout: DTIME
  • 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
  • Variable: X
  • Timeout: DTIME
  • 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
  • Variable: I
  • Timeout: DTIME
  • Line Location: SELSITE+4
Info |  Source |  Entry Points |  Interaction Calls