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

Package: General Medical Record - IO

Routine: GMRYINTK


Information

GMRYINTK ;HIRMFO/YH-PATIENT INTAKE ;11/6/96

Source Information

Source file <GMRYINTK.m>

Entry Points

Name Comments DBIA/ICR reference
INTAKE ;EDIT OR DELETE INPUT RECORD
KILLRC
ITEM

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Are you sure you want to delete this record"
  • Line Location: INTAKE+1
Function Call: WRITE
  • Prompt: !!,"Enter N(o) if you do not want to delete this record or '^' to quit.",!
  • Condition for execution: %=0
  • Line Location: INTAKE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: INTAKE+2
Function Call: WRITE
  • Prompt: !,"Enter "_GLABEL_" dated "_Y
  • Line Location: INTAKE+2
Function Call: WRITE
  • Prompt: !,"Enter "_GLABEL_" dated "_Y
  • Line Location: INTAKE+2
Function Call: WRITE
  • Prompt: !!,?5,"Total "_GLABEL_" intake for this time: ",$P(^GMR(126,DA(1),GNANS,DA,0),"^",5)_" mls"
  • Line Location: INTAKE+10
Function Call: WRITE
  • Prompt: !!,GLABEL_" Entered on "_$P(Y,":",1,2)," has been deleted!!!",!
  • Line Location: KILLRC+0
Function Call: WRITE
  • Prompt: ?5,$P(^(0),"^"),?20,$P(^(0),"^",2),?25,"mls",!
  • Condition for execution: $D(^GMRD(126.8,+GTM,0))
  • Line Location: ITEM+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ITEM+0
Function Call: READ
  • Variable: GTM(2)
  • Timeout: DTIME
  • Line Location: ITEM+1
Info |  Source |  Entry Points |  Interaction Calls