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

Package: IHS Changes To ADT

Routine: ADGCRB3


Information

ADGCRB3 ; IHS/ADC/PDW/ENM - A SHEET lines 5&6 ; [ 03/25/1999 11:48 AM ]

Source Information

Source file <ADGCRB3.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Registration 1 ^DGPMLOS  
VA Fileman 1 EN^DIQ1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To ADT 1 ADGCRB1  

Entry Points

Name Comments DBIA/ICR reference
A ; -- main
STC() ; -- state emergency contact
L61 ; -- date line 6b
H6 ; -- sub heading 6a
STM() ; -- state mailing
H5 ; -- sub heading 5
L6 ; -- data line 6a
R21() ; -- relationship, nok
L5 ; -- data line 5
INI ; -- mailing address, next of kin, emergency contact
LOS() ; -- length of stay
H61 ; -- sub heading 6b
R33() ; -- relationship, person to notify
STN() ; -- state nok

External References

Name Field # of Occurrence
^DGPMLOS LOS+6
EN^DIQ1 LOS+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,DGLIN1,!,"9 Present Address",?62,"22 Length of Stay",!
  • Line Location: H5+1
Function Call: WRITE
  • Prompt: ?6,"UNKNOWN"
  • Line Location: L5+1
Function Call: WRITE
  • Prompt: ?2,$P(DGN11,U)," ",$P(DGN11,U,4),$$STM," ",$P(DGN11,U,6),?67,$$LOS
  • Line Location: L5+2
Function Call: WRITE
  • Prompt: !,DGLIN1,!,"23 Next of Kin",?25,"Telephone"
  • Line Location: H6+1
Function Call: WRITE
  • Prompt: ?45,"Address",?60,"Relationship",!
  • Line Location: H6+2
Function Call: WRITE
  • Prompt: ?6,"UNKNOWN"
  • Line Location: L6+1
Function Call: WRITE
  • Prompt: $E($P(DGN21,U),1,23),?22,$P(DGN21,U,9)," ",$P(DGN21,U,3)," ",$P(DGN21,U,6)
  • Line Location: L6+2
Function Call: WRITE
  • Prompt: $$STN," ",$P(DGN21,U,8)," ",$$R21
  • Line Location: L6+3
Function Call: WRITE
  • Prompt: !,"24 Person to Notify",!
  • Line Location: H61+1
Function Call: WRITE
  • Prompt: ?6,"UNKNOWN"
  • Line Location: L61+1
Function Call: WRITE
  • Prompt: $E($P(DGN33,U),1,23),?22,$P(DGN33,U,9)," ",$P(DGN33,U,3)," ",$P(DGN33,U,6)
  • Line Location: L61+2
Function Call: WRITE
  • Prompt: $$STC," ",$P(DGN33,U,8)," ",$$R33
  • Line Location: L61+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] R21+1, R33+1
^AUTTRLSH - [#9999999.36] R21+1, R33+1
^DGPM - [#405] LOS+5
^DIC(5 - [#5] STM+1, STN+1, STC+1
^DPT - [#2] INI+1
^UTILITY("DIQ1" LOS+2!, LOS+4!

Label References

Name Line Occurrences
$$LOS L5+2
$$R21 L6+3
$$R33 L61+3
$$STC L61+3
$$STM L5+2
$$STN L6+3
H5 A+1
H6 A+1
H61 A+1
INI A+1
L5 A+1
L6 A+1
L61 A+1

Naked Globals

Name Field # of Occurrence
^( INI+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA LOS+3*
>> DA( LOS+2*
>> DFN INI+1, R21+1, R33+1, LOS+3
>> DGDS LOS+1, LOS+2, LOS+4
>> DGFN LOS+5, LOS+6
>> DGLIN1 H5+1, H6+1
>> DGN11 INI+1*, L5+1, L5+2, STM+1
>> DGN21 INI+1*, L6+1, L6+2, L6+3, STN+1
>> DGN33 INI+1*, L61+1, L61+2, L61+3, STC+1
DGPMIFN LOS+6~*
>> DIC LOS+3*
>> DR LOS+3*
>> DR( LOS+2*
U L5+2, L6+2, L6+3, L61+2, L61+3, STM+1, STN+1, STC+1, R21+1, R33+1
, LOS+5, LOS+6
X LOS+1~, LOS+4*, LOS+6~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All