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

Package: General Medical Record - IO

Routine: GMRYUT8


Information

GMRYUT8 ;HIRMFO/YH - IV/LOCK/PORT ENTER/EDIT ;2/12/91

Source Information

Source file <GMRYUT8.m>

Entry Points

Name Comments DBIA/ICR reference
IV ;EDIT OR DELETE IV RECORD
REASK
REDIT
KILLRC
IVINTK ;CALCULATE IV INTAKE FOR EACH IV INTAKE RECORD
SETGIN
LOCK ;CONVERT TO LOCK/PORT
MOREDRN ;ENTER MORE THAN ONE DRAINAGE DATA
DC ;DC IV FROM IV INTAKE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Are you sure you want to delete"
  • Line Location: REASK+0
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: REASK+0
Function Call: WRITE
  • Prompt: !!,"Intake for this period: "_$S($P(^GMR(126,DFN,"IV",DA,"IN",GREC(1),0),"^",2)="*":"unknown",1:$P(GIN(+GX),"^",2)_" mls ")
  • Line Location: REDIT+7
Function Call: WRITE
  • Prompt: !!,"ERROR ENTRY!!!"
  • Line Location: REDIT+8
Function Call: WRITE
  • Prompt: !!,GLABEL_" Entered on "_$P(Y,":",1,2)_" has been deleted!!!",!
  • Line Location: KILLRC+0
Function Call: WRITE
  • Prompt: " started on "_$P(Y,":",1,2),!
  • Line Location: DC+2
Info |  Source |  Entry Points |  Interaction Calls