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

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 3 (FILE,YN)^DICN  ^DIE  ^DIK  
General Medical Record - IO 1 WAIT^GMRYUT0  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
General Medical Record - IO 5 GMRYED4  GMRYED6  GMRYRP2  GMRYUT0  GMRYUT3  

Entry Points

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

External References

Name Field # of Occurrence
FILE^DICN LOCK+1, MOREDRN+1
YN^DICN REASK, REDIT+10
^DIE REDIT+5, LOCK+3, DC+3
^DIK KILLRC
WAIT^GMRYUT0 REDIT+3, LOCK+1, LOCK+3, MOREDRN+1, DC+3

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
Routine Call
  • DIE
  • Line Location:
    • REDIT+5
    • LOCK+3
    • DC+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" REDIT, KILLRC, DC+2
^GMR(126 - [#126] IV+1, REDIT+5, REDIT+7, REDIT+8*, REDIT+11*, KILLRC*, IVINTK+1, IVINTK+2, SETGIN, LOCK+1
, LOCK+3, MOREDRN+1, DC+1, DC+3

Label References

Name Line Occurrences
IVINTK REDIT+7
KILLRC REASK, REDIT+5, REDIT+10
REASK REASK
REDIT REDIT+8, REDIT+11
SETGIN IVINTK+2

Naked Globals

Name Field # of Occurrence
^(0 IVINTK+1, SETGIN

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% REASK*!, REDIT+10*, REDIT+11
>> DA REDIT+5*, REDIT+6*, REDIT+7, REDIT+8*, REDIT+10*, REDIT+11*, IVINTK+1, IVINTK+2, SETGIN, LOCK+1*
, MOREDRN+1*, DC+1
>> DA(1 IV+1, REDIT+2, REDIT+5*, REDIT+6*, REDIT+7, REDIT+8*, REDIT+10*, REDIT+11*, KILLRC, IVINTK+1
, IVINTK+2, SETGIN, LOCK+1*, LOCK+2, MOREDRN+1*, DC+3
>> DA(2 IV+1, REDIT+2, REDIT+5, REDIT+6, REDIT+8*, REDIT+10*!, REDIT+11*, KILLRC
DD LOCK+1!, MOREDRN+1!
>> DFN REDIT+5, REDIT+7, REDIT+8, REDIT+11, KILLRC, LOCK+1, LOCK+3, MOREDRN+1, DC+1, DC+3
DIC LOCK+1*!, MOREDRN+1*!
DIC(0 LOCK+1*, MOREDRN+1*
DIE REDIT+2*, REDIT+3!, REDIT+5!, LOCK+2*, LOCK+3!, DC+3*, DC+4!
DIK KILLRC*!
DLAYGO LOCK+1*!, MOREDRN+1*!
DR REDIT+3*!, REDIT+5!, LOCK+2*, LOCK+3!, DC+3*, DC+4!
GDA IVINTK+2*, IVINTK+3!, SETGIN, SETGIN+1
>> GDATA DC+1*
>> GDCDT DC+3*
>> GDCREAS IV+1*
GDT IVINTK+2*, IVINTK+3!, SETGIN+1, DC+1*, DC+2
>> GHLOC LOCK+1*
GIN REDIT+5!, REDIT+6!, IVINTK+1!
GIN( REDIT+7, REDIT+8, SETGIN+1*
GINTAKE IVINTK+3!, SETGIN+1*
>> GLABEL REDIT+1, KILLRC
>> GLEFT SETGIN*, SETGIN+1
>> GMRDA REDIT+5*
>> GMRDEL REASK
>> GMRHLOC LOCK+1
>> GMROUT REASK*, REDIT+3, REDIT+5*, REDIT+10*, IVINTK+1*, LOCK+1, LOCK+3, MOREDRN+1*, DC+3
>> GMRVTYP REDIT+1, REDIT+3, REDIT+6
>> GNANS MOREDRN+1
>> GREC(1 REASK*, REDIT+5*, REDIT+7, REDIT+8, REDIT+10, REDIT+11, KILLRC*
>> GSOL IVINTK+1*, SETGIN+1
>> GSTAR IVINTK+2*, SETGIN+1*
>> GTOTAL IVINTK+1*, SETGIN+1*
>> GTOTAL(1 IVINTK+1*
>> GTYPE DC+1*
>> GX IV+1, REDIT, REDIT+7, REDIT+8, LOCK+1, MOREDRN+1, DC+3
>> GX(1 IV+1*, KILLRC
>> GX(2 IV+1*
GXX SETGIN*, SETGIN+1!
>> X LOCK+1*, MOREDRN+1*
>> Y REDIT*, REDIT+1, KILLRC*, LOCK+1, MOREDRN+1, DC+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All