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

Package: IHS Changes To ADT

Routine: ADGPCAC2


Information

ADGPCAC2 ; IHS/ADC/PDW/ENM - ADT/PCC DATE ENTRY-POV ; [ 03/25/1999 11:48 AM ]

Source Information

Source file <ADGPCAC2.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 3 DD^%DT  Y^DIQ  ^DIR  
DRG Grouper 1 $$ICDDX^ICDCODE  
IHS Changes To ADT 1 ^ADGPCAC3  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To ADT 1 ADGPCAC1  

Entry Points

Name Comments DBIA/ICR reference
A ; -- driver
PRI() ; -- primary/secondary
CDX() ; -- cause of dx
PLC() ; -- place of accident
Q ; -- cleanup
2 ; -- display purpose of visit info
L2 ; -- loop v pov
IDT() ; -- date of injury
POV() ; -- POV (Diagnosis)
MOD() ; -- modifier
ONDT() ; -- date of onset
NAR() ; -- provider narrative

External References

Name Field # of Occurrence
DD^%DT ONDT+1
^ADGPCAC3 A+2
Y^DIQ MOD+1, CDX+1, PRI+1, PLC+1
^DIR 2+12, Q+1
$$ICDDX^ICDCODE 2+7, POV+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF," (2) POV "
  • Line Location: L2+3
Function Call: WRITE
  • Prompt: !!?6,"POV (Diagnosis): ",$$POV
  • Line Location: 2+2
Function Call: WRITE
  • Prompt: !?12,"Narrative: ",$$NAR,!?13,"Modifier: ",$$MOD
  • Line Location: 2+3
Function Call: WRITE
  • Prompt: ?47,"Cause of DX: ",$$CDX,!?4,"Primary/Secondary: ",$$PRI
  • Line Location: 2+4
Function Call: WRITE
  • Prompt: !?6,"Cause of Injury: ",$P($$ICDDX^ICDCODE(X),U,4)
  • Line Location: 2+7
Function Call: WRITE
  • Prompt: !?4,"Place of Accident: ",$$PLC
  • Line Location: 2+8
Function Call: WRITE
  • Prompt: ?44,"Date of Injury: ",$$IDT
  • Line Location: 2+9
Function Call: WRITE
  • Prompt: !?4,"Date of Onset: ",$$ONDT
  • Line Location: 2+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: 2+12
Function Call: WRITE
  • Prompt: !
  • Line Location: Q+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: Q+1
Routine Call
  • DIR
  • Line Location:
    • 2+12
    • Q+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVPOV - [#9000010.07] 2+1
^AUPNVPOV("AD" L2+2, L2+4
^AUTNPOV - [#9999999.27] NAR+1
^DD(9000010.07 MOD+1, CDX+1, PRI+1, PLC+1

Label References

Name Line Occurrences
$$CDX 2+4
$$IDT 2+9
$$MOD 2+3
$$NAR 2+3
$$ONDT 2+10
$$PLC 2+8
$$POV 2+2
$$PRI 2+4
2 L2+4
L2 A+1
Q L2+5

Naked Globals

Name Field # of Occurrence
^(0 2+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C MOD+1~*, CDX+1~*, PRI+1~*, PLC+1~*
>> DGVI L2+2, L2+4
DIR 2+12!, Q+1!
DIR(0 2+12*, Q+1*
>> DIRUT A+1, L2+4, L2+5
IFN L2+1~, L2+4*, 2+1
IOF L2+3, 2+12, Q+1
IOSL 2+12
N L2+1~, 2+1*, 2+5, 2+10, POV+2, NAR+1, MOD+1, CDX+1, PRI+1, PLC+1
, IDT+1, ONDT+1
U 2+5, 2+7, 2+10, POV+2, NAR+1, MOD+1, CDX+1, PRI+1, PLC+1, IDT+1
, ONDT+1
X 2+5~*, 2+7, 2+10~, 2+12!, Q+1!, IDT+1~*
Y MOD+1~*, CDX+1~*, PRI+1~*, PLC+1~*, ONDT+1~*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All