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

Package: General Medical Record - IO

Routine: GMRYMNT


Information

GMRYMNT ;HIRMFO/YH-SITE CARE/MAINTENANCE/FLUSH ;8/13/96

Source Information

Source file <GMRYMNT.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ;IV SITE MAINTENANCE FOR OPEN SITE AND SITE CHECK FOR ALL IV SITES
DT
Q1
SEL1 ;SELECT IV SITE FOR SITE CHECK OR MAINTENANCE
NXT
SELSITE ;SELECT ALL CURRENT AND DISCONTINUED SITES WITHIN THE LAST 24 HR
WRITE ;
WRITE1 ;
SCREEN ;SCREEN IV SITES DISCONTINUED WITHIN THE LAST 24 HRS
SET ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The date/time can not come before the time IV started"_$S(GOPT="MAINTN":" for the site.",1:"."),!
  • Line Location: DT+1
Function Call: WRITE
  • Prompt: !!,"There are no IV sites with IV(s) running.",!
  • Line Location: SEL1+1
Function Call: WRITE
  • Prompt: !,GSITE_":",!
  • Line Location: SEL1+2
Function Call: WRITE
  • Prompt: !,I_". "
  • Line Location: SEL1+3
Function Call: WRITE
  • Prompt:
  • Condition for execution: GDA'="BLANK" !,?3,GDA S GDA(1)=0 F S GDA(1)=$O(GST(GSITE,GDA,GDA(1))) Q:GDA(1)'>0
  • Line Location: SEL1+3
Function Call: WRITE
  • Prompt: !!,"Select an IV site to add additional solutions: "
  • Line Location: SEL1+5
Function Call: WRITE
  • Prompt: !!,"Select an IV site to discontinue: "
  • Line Location: SEL1+6
Function Call: WRITE
  • Prompt: !!,"Select IV site for care/maintenance/flush: "
  • Line Location: SEL1+7
Function Call: WRITE
  • Prompt: !!,"Select IV site to flush: "
  • Line Location: SEL1+8
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SEL1+9
Function Call: WRITE
  • Prompt: !,?4,^UTILITY($J,"W",0,I,0)
  • Line Location: WRITE+5
Function Call: WRITE
  • Prompt: GSITE_$S(GCT(GSITE)=0:" - IV discontinued on "_GMRXY(GSITE),1:" - "_GSITE(GSITE))
  • Line Location: WRITE1+1
Info |  Source |  Entry Points |  Interaction Calls