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

Package: IHS Changes To ADT

Routine: ADGCRB6


Information

ADGCRB6 ; IHS/ADC/PDW/ENM - A SHEET lines 12-14 ; [ 10/16/2000 1:58 PM ]

Source Information

Source file <ADGCRB6.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
DRG Grouper 1 $$ICDDX^ICDCODE  
IHS VA Utilities 1 ($$VAL,ENP)^XBDIQ1  
VA Fileman 1 Y^DIQ  

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
PLC() ; -- place of injury
PRV() ; -- provider name & code
ADMCLK() ; -- admitting clerk
L14 ; -- data line 14
CODEROLD() ; -- coding clerk
H12 ; -- sub heading 12
H13 ; -- underlying cause of death
H14 ; -- sub heading 14
L12 ; -- data line 12 (injury data)
ICD() ; -- cause of injury
IDT() ; -- injury date
CODER() ;-- coding clerk searhc/maw 4/17/98

External References

Name Field # of Occurrence
Y^DIQ PLC+2
$$ICDDX^ICDCODE H13+5, ICD+2
$$VAL^XBDIQ1 CODEROLD+8
ENP^XBDIQ1 PRV+7, CODEROLD+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,DGLIN1,!,"40 Injury Date 41 Alleged Injury Cause"
  • Line Location: H12+1
Function Call: WRITE
  • Prompt: ?41,"42 Cause",?61,"43 Place of Injury 44 Code",!
  • Line Location: H12+4
Function Call: WRITE
  • Prompt: ?3,$$IDT,?17,$P($$ICD,U,2),?44,$P($$ICD,U),?54,$$PLC
  • Line Location: L12+4
Function Call: WRITE
  • Prompt: ?75,$P(DGPOVN0,U,11)
  • Line Location: L12+5
Function Call: WRITE
  • Prompt: !,DGLIN1,!,"47 Underlying Cause of Death & Code",!
  • Line Location: H13+3
Function Call: WRITE
  • Prompt: ?49,$E($P($$ICDDX^ICDCODE(X),U,4),1,16),?67,$P($$ICDDX^ICDCODE(X),U,2)
  • Line Location: H13+5
Function Call: WRITE
  • Prompt: !,DGLIN1,!,"49 Date Printed",?17,"50 Attending Physician"
  • Line Location: H14+1
Function Call: WRITE
  • Prompt: ?42,"50a Phys Code",?62,"51 Printed By",!
  • Line Location: H14+2
Function Call: WRITE
  • Prompt: ?42,"50a Phys Code",?58,"51 Admit Clerk/Coder",!
  • Line Location: H14+3
Function Call: WRITE
  • Prompt: ?4,$E(DT,4,5)_"/"_$E(DT,6,7)_"/"_$E(DT,2,3)
  • Line Location: L14+2
Function Call: WRITE
  • Prompt: ?21,$P($$PRV,U),?47,$P($$PRV,U,2),?66,$P(^VA(200,DUZ,0),U,2),!
  • Line Location: L14+4
Function Call: WRITE
  • Prompt: ?21,$P($$PRV,U),?47,$P($$PRV,U,2),?66,$$ADMCLK,$$CODER,!
  • Line Location: L14+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCDFORM - [#9001001.5] CODER+4, CODER+5
^APCDFORM("AB" CODER+2, CODER+3
^AUPNPAT - [#9000001] H13+1
^AUPNVPRV - [#9000010.06] PRV+3, CODEROLD+3
^AUPNVPRV("AD" PRV+2, CODEROLD+2
^DD("DD" IDT+1
^DD(9000010.06 PRV+5, CODEROLD+4
^DD(9000010.07 PLC+2
^DGPM - [#405] ADMCLK+2
^DIC(16 - [#16] PRV+6, CODEROLD+5
^VA(200 - [#200] L14+4, ADMCLK+3, CODER+6

Label References

Name Line Occurrences
$$ADMCLK L14+5
$$CODER L14+5
$$ICD L12+4
$$IDT L12+4
$$PLC L12+4
$$PRV L14+4, L14+5
H12 A+2
H13 A+2
H14 A+1, A+2
L12 A+2
L14 A+1, A+2

Naked Globals

Name Field # of Occurrence
^(0 PRV+3, CODEROLD+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS CODEROLD+1~, CODEROLD+2, CODEROLD+9*, CODEROLD+10
C PLC+1~, PLC+2*
DA PRV+1~, PRV+3*, PRV+4, PRV+5, PRV+6, CODEROLD+1~, CODEROLD+3*, CODEROLD+4, CODEROLD+5
>> DFN H13+1
DGAR PRV+1~, PRV+7!, CODEROLD+1~, CODEROLD+6!
DGAR( PRV+8, CODEROLD+7, CODEROLD+8
DGAR(1 CODEROLD+9
DGCD CODER+1~, CODER+4*, CODER+5*, CODER+6*, CODER+7*, CODER+8
>> DGDS A+1, H14+2, L14+3
>> DGFN ADMCLK+2
>> DGLIN1 H12+1, H13+3, H14+1
DGN11 H13+1~*, H13+2
>> DGPOVDA L12+1
>> DGPOVN0 L12+5, IDT+1, ICD+2, PLC+1
>> DGVSDA PRV+2, CODEROLD+2, CODER+2, CODER+3
DGX CODEROLD+1~, CODEROLD+2*, CODEROLD+3, CODER+1~, CODER+2*, CODER+3, CODER+4, CODER+5
DGXIEN CODER+1~, CODER+3*, CODER+4, CODER+5
DT L14+2
DUZ L14+4
PROV PRV+1~, PRV+5*, PRV+6*, PRV+7, CODEROLD+1~, CODEROLD+4*, CODEROLD+5*, CODEROLD+6
U L12+4, L12+5, H13+2, H13+5, L14+4, L14+5, IDT+1, ICD+2, PLC+1, PRV+3
, PRV+5, PRV+8, ADMCLK+2, ADMCLK+3, CODEROLD+3, CODEROLD+4, CODER+5, CODER+6
X H13+2~*, H13+5, PRV+1~, PRV+2*, PRV+3, ADMCLK+1~, ADMCLK+2*, ADMCLK+3
Y IDT+1~*, PLC+1~*, PLC+2, PRV+1~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All