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

Package: General Medical Record - IO

Routine: GMRYED0


Information

GMRYED0 ;HIRMFO/YH-INTAKE, OUTPUT AND IV ENTRY POINTS ;5/2/96

Source Information

Source file <GMRYED0.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
General Medical Record - IO 2 (HOSP,MASPT)^GMRYRP5  $$SEARCH^GMRYUT12  
VA Fileman 1 YN^DICN  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
General Medical Record - IO 3 GMRY EDIT INTAKE  GMRY EDIT OUTPUT  GMRY IV CARE  

Entry Points

Name Comments DBIA/ICR reference
QUIT ;
EDIT
EN1 ;ENTER/EDIT IV AND IV MAINTENANCE
EN2 ;ENTER/EDIT OUTPUT
EN3 ;ENTER/EDIT INPUT
ASKOK ;LOOPING THROUGH PATIENT GLOBAL
ASL

External References

Name Field # of Occurrence
YN^DICN ASKOK+1, ASL
HOSP^GMRYRP5 EDIT+4
MASPT^GMRYRP5 EDIT
$$SEARCH^GMRYUT12 EDIT+7, EDIT+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,GMRWARD(1)_" NOT DEFINED IN HOSPITAL LOCATION FILE",!
  • Line Location: EDIT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+8
Function Call: WRITE
  • Prompt: !,GMRNAM,?$X+10,$S(GMRRM=" BLANK":" ",1:GMRRM)_"-"_$S(GMRNM="BLANK":" ",1:GMRNM_" ")
  • Line Location: ASKOK+1
Function Call: WRITE
  • Prompt: $C(7),!,?4,"ANSWER 'YES' or 'NO'"
  • Line Location: ASKOK+2
Function Call: WRITE
  • Prompt: !!,"Do you wish to stop looping through names?"
  • Line Location: ASL+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ASL+0
Function Call: WRITE
  • Prompt: $C(7),!,?4,"ANSWER 'YES' or 'NO'"
  • Line Location: ASL+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] EDIT+3
^SC - [#44] EDIT+5
^TMP("GMRPT" EDIT!, EDIT+1, EDIT+6, QUIT+1!

Label References

Name Line Occurrences
@( EDIT+7, EDIT+8
ASKOK EDIT+8, ASKOK+2
ASL ASL+1
EDIT EN1+1, EN2+1, EN3+1
QUIT EDIT, EDIT+1, EDIT+5

Naked Globals

Name Field # of Occurrence
^( EDIT+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASKOK+1*, ASKOK+2, ASL*, ASL+1
>> DA EDIT+7*, EDIT+8*
DFN EDIT+6*, EDIT+7, EDIT+8, QUIT+1!
GDR EDIT*, QUIT+1!
GMREDB EDIT+7, QUIT+1!
GMRHLOC EDIT+2*, EDIT+3*, EDIT+4*, EDIT+5, QUIT+1!
GMRI QUIT+1!
GMRLEN QUIT+1!
GMRNAM EDIT+6*, QUIT+1!, ASKOK+1
GMRNM EDIT+6*, QUIT+1!, ASKOK+1
GMROUT EDIT*, EDIT+6, EDIT+8*, QUIT+1!, ASKOK+1*, ASL*
GMROUT(1 EDIT+8*, ASL+2*
GMRRM EDIT+6*, QUIT+1!, ASKOK+1
GMRVHLOC EDIT+2, EDIT+4, QUIT+1!
GMRVIDT EDIT*, QUIT+1!
GMRVWLOC QUIT+1!
GMRWARD EDIT+3, QUIT+1!
GMRWARD(1 EDIT+5
GMRYOPT EN1+1*, EN2+1*, EN3+1*, EDIT+7, EDIT+8, QUIT+1!
GPORT QUIT+1!
GSITE EDIT*, QUIT+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All