Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ADGCRB4

Package: IHS Changes To ADT

Routine: ADGCRB4


Information

ADGCRB4 ; IHS/ADC/PDW/ENM - A SHEET line 7 ; [ 03/25/1999 11:48 AM ]

Source Information

Source file <ADGCRB4.m>

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To ADT 1 ADGCRB1  

Entry Points

Name Comments DBIA/ICR reference
A ; -- driver
COM2() ; -- comments line 2
RRN() ; -- railroad retirement # & prefix
DX() ; -- admitting diagnosis
INS() ; -- private insurance
M6() ; -- treating specialty ifn
DATE(X) ; -- converts fm date to number date (mm/dd/yy)
COM1() ; -- comments line 1
H7 ; -- sub heading 7
L7 ; -- data line 7
SRVDT() ; -- finds service date
MCR() ; -- medicare # & suffix
MCD() ; -- medicaid number & elig date

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,DGLIN1,!,"25 DX, Procedure & Comments",?41,"25a Medicaid #"
  • Line Location: H7+2
Function Call: WRITE
  • Prompt: !,DGLIN1,!,"25 Admitting Diagnosis",?41,"25a Medicaid #"
  • Line Location: H7+3
Function Call: WRITE
  • Prompt: ?56,$$MCD,!?3,$$DX,?45,"Medicare #",?55,$$MCR,!?3,$$COM1
  • Line Location: L7+2
Function Call: WRITE
  • Prompt: ?45,"Railroad #",?55,$$RRN,!?3,$$COM2
  • Line Location: L7+3
Function Call: WRITE
  • Prompt: ?42,"Other Insur #"
  • Line Location: L7+4
Function Call: WRITE
  • Prompt: ?55,$P(X,U,I)
  • Line Location: L7+6
Function Call: WRITE
  • Prompt: !?55,$P(X,U,I+1)
  • Condition for execution: $P(X,U,I+1)]""
  • Line Location: L7+6
Function Call: WRITE
  • Prompt: !
  • Line Location: L7+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ADGDS - [#9009012] COM1+1, DX+1, SRVDT+1
^AUPNMCD - [#9000004] MCD+3, MCD+4, MCD+5, MCD+6
^AUPNMCD("B" MCD+1, MCD+2
^AUPNMCR - [#9000003] MCR+1, MCR+2
^AUPNPRVT - [#9000006] INS+2, INS+4, INS+5
^AUPNRRE - [#9000005] RRN+1, RRN+2
^AUTNINS - [#9999999.18] INS+8
^AUTTMCS - [#9999999.32] MCR+3
^AUTTRRP - [#9999999.33] RRN+3
^DGPM - [#405] COM1+1, COM2+2, SRVDT+1
^DGPM("APHY" M6+1

Label References

Name Line Occurrences
$$COM1 L7+2
$$COM2 L7+3
$$DATE MCD+5
$$DX L7+2
$$INS L7+4
$$M6 COM1+1, COM2+2
$$MCD L7+2
$$MCR L7+2
$$RRN L7+3
$$SRVDT INS+3
H7 A+1
L7 A+1

Naked Globals

Name Field # of Occurrence
^(0 MCR+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DATE INS+1~, INS+3*, INS+6, INS+7
>> DFN MCD+1, MCD+2, MCR+1, MCR+2, RRN+1, RRN+2, INS+2, INS+4, INS+5, COM1+1
, DX+1, SRVDT+1
>> DGDS H7+1, COM1+1, COM2+1, DX+1, SRVDT+1
>> DGFN M6+1, SRVDT+1
>> DGLIN1 H7+2, H7+3
>> DGN COM2+1, DX+1
>> I L7+5*, L7+6
N INS+1~, INS+5*, INS+6, INS+7, INS+8
U L7+5, L7+6, MCD+5, MCD+6, MCR+2, MCR+4, RRN+2, RRN+4, INS+6, INS+7
, INS+8, COM2+1, DX+1
X L7+1~, L7+4*, L7+5, L7+6, MCD+1~, MCD+2*, MCD+3, MCD+4, MCD+5, MCD+6
, MCR+1~, MCR+2*, MCR+4, RRN+1~, RRN+2*, RRN+4, INS+1~, INS+4*, INS+5, DATE~
, DATE+1
X1 MCD+1~, MCD+4*
Y MCD+1~, MCD+4*, MCD+5*, MCD+6, MCR+1~, MCR+2*, MCR+3*, MCR+4, RRN+1~, RRN+2*
, RRN+3*, RRN+4, INS+1~, INS+4*, INS+8*, INS+9
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All