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

Package: General Medical Record - IO

Routine: GMRYINTK


Information

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

Source Information

Source file <GMRYINTK.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 YN^DICN  ^DIE  ^DIK  
General Medical Record - IO 2 WAIT^GMRYUT0  EN3^GMRYUT2  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
General Medical Record - IO 1 GMRYUT3  

Entry Points

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

External References

Name Field # of Occurrence
YN^DICN INTAKE+1
^DIE INTAKE+6
^DIK KILLRC
WAIT^GMRYUT0 INTAKE+5
EN3^GMRYUT2 INTAKE+7

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
Routine Call
  • DIE
  • Line Location:
    • INTAKE+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" INTAKE+2, KILLRC
^GMR(126 - [#126] INTAKE+6, INTAKE+7, INTAKE+9, INTAKE+10
^GMRD(126.8 - [#126.8] ITEM

Label References

Name Line Occurrences
INTAKE INTAKE+1
ITEM INTAKE+2
KILLRC INTAKE+1, INTAKE+9

Naked Globals

Name Field # of Occurrence
^(0 ITEM

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% INTAKE+1*!
>> DA INTAKE+6, INTAKE+7, INTAKE+8*, INTAKE+9, INTAKE+10
>> DA(1 INTAKE+5, INTAKE+6, INTAKE+7*, INTAKE+8*, INTAKE+9, INTAKE+10, KILLRC
>> DA(2 INTAKE+7*, INTAKE+8
>> DFN INTAKE+6
DIE INTAKE+5*!, INTAKE+6!
DIK KILLRC*!
DR INTAKE+3*, INTAKE+4*, INTAKE+5!, INTAKE+6!
DR(2 INTAKE+3*
DTIME ITEM+1
>> GEDIT INTAKE+5*
>> GLABEL INTAKE+2, INTAKE+10, KILLRC
>> GMRDEL INTAKE+1
>> GMROUT INTAKE+1*, INTAKE+5, INTAKE+6*, ITEM, ITEM+1*, ITEM+2*
>> GMRYITM INTAKE+2, INTAKE+3
>> GMRYTYP INTAKE+5*
>> GNANS INTAKE+6, INTAKE+9, INTAKE+10, KILLRC
>> GNI INTAKE+2, INTAKE+3
GTM ITEM*, ITEM+2!
GTM(1 ITEM*
GTM(2 ITEM+1*
>> GTP INTAKE+5, ITEM
>> GX INTAKE+1, INTAKE+2, KILLRC
>> GX(1 INTAKE+1*
>> Y INTAKE+2*, KILLRC*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All