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

Package: IHS Changes To ADT

Routine: ADGCRB1


Information

ADGCRB1 ; IHS/ADC/PDW/ENM - A SHEET lines 1&2 ; [ 03/25/1999 11:48 AM ]

Source Information

Source file <ADGCRB1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS Changes To ADT 4 ^ADGCRB2  ^ADGCRB3  ^ADGCRB4  $$HRCN^ADGF  
VA Fileman 1 EN^DIQ1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To ADT 1 ADGCRB0  

Entry Points

Name Comments DBIA/ICR reference
A ; -- driver
FACC() ; -- facility code
SSN() ; -- social security number
N1() ; -- number of admissions
CDE() ; -- admission code
H2 ; -- sub heading 2
REL() ; -- religion
AGE() ; -- age
H1 ; -- sub heading 1
L2 ; -- data line 2
INI ; -- initialize variables
TIM() ; -- admit time
L1 ; -- data line 1
CLS() ; -- classification/beneficiary & classif code
FACN() ; -- facility
HDH ; -- print heading

External References

Name Field # of Occurrence
^ADGCRB2 A+1
^ADGCRB3 A+1
^ADGCRB4 A+1
$$HRCN^ADGF L1+1
EN^DIQ1 AGE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $S(DGDS:"DAY SURGERY WORKSHEET",1:"CLINICAL RECORD BRIEF")
  • Line Location: HDH+1
Function Call: WRITE
  • Prompt: " **Confidential Patient Data Covered by Privacy Act** "
  • Line Location: HDH+2
Function Call: WRITE
  • Prompt: !,DGLIN
  • Line Location: HDH+3
Function Call: WRITE
  • Prompt: !,"1 IHS Unit No.",?16,"2 Soc Sec No",?30,"10 Classif."
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: ?44,"11 Facility",?60,"12 Facility Code",!
  • Line Location: H1+2
Function Call: WRITE
  • Prompt: ?3,$$HRCN^ADGF,?17,$$SSN,?33,$$CLS,?47,$$FACN,?63,$$FACC
  • Line Location: L1+1
Function Call: WRITE
  • Prompt: !,DGLIN1,!,"3 Last Name, First, Middle",?29,"13 Age"
  • Line Location: H2+1
Function Call: WRITE
  • Prompt: ?37,"14 Religion",?53,"15 Hr Arrvd",?66,"16 Visit Type",!
  • Line Location: H2+2
Function Call: WRITE
  • Prompt: ?37,"14 Religion",?53,"15 Hr Admit",?66,"16 Admit Code",!
  • Line Location: H2+3
Function Call: WRITE
  • Prompt: ?2,$P(DGN0,U),?32,$$AGE,?40,$$REL,?58,$$TIM,?69,$$CDE
  • Line Location: L2+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ADGDS - [#9009012] INI+2
^AUPNPAT - [#9000001] INI+3
^AUTTBEN - [#9999999.25] CLS+1
^AUTTLOC - [#9999999.06] FACN+1, FACC+1, FACC+2
^DGPM - [#405] INI+2
^DGPM("APTT1" N1+1
^DIC(13 - [#13] REL+1
^DPT - [#2] INI+3
^UTILITY("DIQ1" AGE+1!, AGE+2!

Label References

Name Line Occurrences
$$AGE L2+1
$$CDE L2+1
$$CLS L1+1
$$FACC L1+1
$$FACN L1+1
$$N1 HDH+3
$$REL L2+1
$$SSN L1+1
$$TIM L2+1
H1 A+1
H2 A+1
HDH A+1
INI A+1
L1 A+1
L2 A+1

Naked Globals

Name Field # of Occurrence
^(0 CLS+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA AGE+1*, AGE+2!
>> DFN INI+2, INI+3, AGE+1, N1+1
>> DGDS INI+2, HDH+1, HDH+3, H2+2, CDE+1
>> DGFN INI+2
>> DGLIN INI+1*, HDH+3
>> DGLIN1 INI+1*, H2+1
>> DGN INI+2*, TIM+1, CDE+1
>> DGN0 INI+3*, L2+1, SSN+1, SSN+2, REL+1
>> DGN11 INI+3*, CLS+1
DIC AGE+1*, AGE+2!
DR AGE+1*, AGE+2!
DUZ(2 FACN+1, FACC+1, FACC+2
U L2+1, SSN+1, SSN+2, CLS+1, FACN+1, FACC+2, REL+1, CDE+1
X FACC+1~, FACC+2*, AGE+1~, AGE+2*, N1+1~*, N1+2
Y N1+1~*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All