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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ADGCP

Package: IHS Changes To ADT

Routine: ADGCP


Information

ADGCP ; IHS/ADC/PDW/ENM - provider conversion ; [ 03/25/1999 11:48 AM ]

Source Information

Source file <ADGCP.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
A ; -- main
PT2 ; -- va patient admission multiple
PM1 ; -- patient movement, primary care
PM2 ; -- patient movement, attending
V1(I,J) ; -- visit ien (I=admission IEN,J=patient DFN)
I1(I) ; -- inverse date
SV ; -- scheduled visit
VIC(I,J) ; -- visit ien (I=admission IEN,J=patient DFN)
TS ; -- treating specialty
IDC(I) ; -- inverse date
HL ; -- hospital location
V ; -- populate 405 /visit ptr
IC ; -- incomplete chart
DSIC ; -- day surgery incomplete chart
DS ; -- day surgery
PT ; -- va patient

External References

Name Field # of Occurrence
^DIR A+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,"Do not run this post init until you VERIFY COMPLETION ",!,"of the DGPM5 PARTS 1 & 2 Conversions...",!!
  • Line Location: A+2
Function Call: WRITE
  • Prompt: *7,*7
  • Line Location: A+3
Function Call: WRITE
  • Prompt: *7,*7
  • Line Location: A+3
Function Call: WRITE
  • Prompt: !!!,"Converting provider pointers to file 200..."
  • Line Location: A+12
Function Call: WRITE
  • Prompt: !!,"converting incomplete chart providers ...."
  • Line Location: IC+1
Function Call: WRITE
  • Prompt: !!,"converting day surgery incomplete chart providers ...."
  • Line Location: DSIC+1
Function Call: WRITE
  • Prompt: !!,"converting day surgery providers ...."
  • Line Location: DS+1
Function Call: WRITE
  • Prompt: !!,"converting scheduled visit providers ...."
  • Line Location: SV+1
Function Call: WRITE
  • Prompt: !!,"converting patient movement admitting providers ...."
  • Line Location: PM1+1
Function Call: WRITE
  • Prompt: !!,"converting patient movement attending providers ...."
  • Line Location: PM2+1
Function Call: WRITE
  • Prompt: !!,"converting treating specialty providers ...."
  • Line Location: TS+1
Function Call: WRITE
  • Prompt: !!,"converting hospital location default providers ...."
  • Line Location: HL+1
Function Call: WRITE
  • Prompt: !!,"converting patient file providers ...."
  • Line Location: PT+1
Function Call: WRITE
  • Prompt: !!,"stuffing visit pointers in admission entries..."
  • Line Location: V+1
Routine Call
  • DIR
  • Line Location:
    • A+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ADGAUTH - [#9009013.1] SV+3, SV+4, SV+5, SV+7*
^ADGDS - [#9009012] DS+3, DS+4, DS+5, DS+7*
^ADGDSI - [#9009012.5] DSIC+4, DSIC+5, DSIC+6, DSIC+7, DSIC+9*, DSIC+10!, DSIC+11*
^ADGDSI("AC" DSIC+3!, DSIC+12*
^ADGIC - [#9009013] IC+4, IC+5, IC+6, IC+7, IC+9*, IC+10!, IC+11*
^ADGIC("AC" IC+3!, IC+12*
^AUPNVSIT - [#9000010] VIC+3, V1+3
^AUPNVSIT("AA" VIC+2, V1+2
^DG5(1 IC+2, IC+13*, IC+14*, DSIC+2, DSIC+13*, DSIC+14*, DS+2, DS+8*, DS+9*, SV+2
, SV+8*, SV+9*, PM1+2, PM1+7*, PM1+8*, PM2+2, PM2+7*, PM2+8*, TS+2, TS+8*
, TS+9*, HL+2, HL+7*, HL+8*, PT+2, PT+10*, PT+11*
^DGPM - [#405] PM1+3, PM1+4, PM1+6*, PM2+3, PM2+4, PM2+6*, V+6*, V+7*, IDC+1, I1+1
^DGPM("AMV1" V+3, V+4, V+5
^DIC(16 - [#16] IC+8, DSIC+8, DS+6, SV+6, PM1+5, PM2+5, TS+6, HL+5, PT+5, PT2+5
^DIC(45.7 - [#45.7] TS+3, TS+4, TS+5, TS+7*
^DPT - [#2] PT+3, PT+4, PT+6*, PT2+2, PT2+3, PT2+4, PT2+6*
^DPT("APR" PT+7!, PT+8*
^SC - [#44] HL+3, HL+4, HL+6*

Label References

Name Line Occurrences
$$I1 V1+2
$$IDC VIC+2
$$V1 V+7
$$VIC V+6
DS A+13
DSIC A+13
HL A+13
IC A+13
PM1 A+13
PM2 A+13
PT A+13
PT2 PT+9
SV A+13
TS A+13
V A+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A PT2+1~, PT2+2*, PT2+3, PT2+4, PT2+6
C IC+2~*, IC+4, DSIC+2~*, DSIC+4, DS+2~*, DS+3, SV+2~*, SV+3, PM1+2~*, PM1+3
, PM2+2~*, PM2+3, TS+2~*, TS+3, HL+2~*, HL+3, PT+2~*, PT+3
DATE V+2~, V+3*, V+4, V+5
DFN V+2~, V+4*, V+5, V+6, V+7
>> DIR("A" A+4*
>> DIR(0 A+4*
>> DIRUT A+6
I VIC~, VIC+2, IDC~, IDC+1, V1~, V1+2, I1~, I1+1
IFN V+2~, V+5*, V+6, V+7
J VIC~, VIC+2, V1~, V1+2
P IC+2~, IC+7*, IC+8, IC+10, DSIC+2~, DSIC+7*, DSIC+8, DSIC+10, DS+2~, DS+5*
, DS+6, SV+2~, SV+5*, SV+6, PM1+2~, PM1+4*, PM1+5, PM2+2~, PM2+4*, PM2+5
, TS+2~, TS+5*, TS+6, HL+2~, HL+4*, HL+5, PT+2~, PT+4*, PT+5, PT+7
, PT2+1~, PT2+4*, PT2+5
T PT2+1~, PT2+3*, PT2+4, PT2+6
U IC+2, IC+9, IC+13, IC+14, DSIC+2, DSIC+9, DSIC+13, DSIC+14, DS+2, DS+5
, DS+7, DS+8, DS+9, SV+2, SV+5, SV+7, SV+8, SV+9, PM1+2, PM1+4
, PM1+6, PM1+7, PM1+8, PM2+2, PM2+4, PM2+6, PM2+7, PM2+8, TS+2, TS+7
, TS+8, TS+9, HL+2, HL+4, HL+6, HL+7, HL+8, PT+2, PT+6, PT+10
, PT+11, PT2+4, PT2+6, V+6, V+7, VIC+3, V1+3
V IC+2~, IC+8*, IC+9, IC+11, IC+12, DSIC+2~, DSIC+8*, DSIC+9, DSIC+11, DSIC+12
, DS+2~, DS+6*, DS+7, SV+2~, SV+6*, SV+7, PM1+2~, PM1+5*, PM1+6, PM2+2~
, PM2+5*, PM2+6, TS+2~, TS+6*, TS+7, HL+2~, HL+5*, HL+6, PT+2~, PT+5*
, PT+6, PT+8, PT2+1~, PT2+5*, PT2+6
X IC+2~, IC+4*, IC+5, IC+6, IC+7, IC+9, IC+10, IC+11, IC+12, IC+13
, DSIC+2~, DSIC+4*, DSIC+5, DSIC+6, DSIC+7, DSIC+9, DSIC+10, DSIC+11, DSIC+12, DSIC+13
, DS+2~, DS+3*, DS+4, DS+5, DS+7, DS+8, SV+2~, SV+3*, SV+4, SV+5
, SV+7, SV+8, PM1+2~, PM1+3*, PM1+4, PM1+6, PM1+7, PM2+2~, PM2+3*, PM2+4
, PM2+6, PM2+7, TS+2~, TS+3*, TS+4, TS+5, TS+7, TS+8, HL+2~, HL+3*
, HL+4, HL+6, HL+7, PT+2~, PT+3*, PT+4, PT+6, PT+7, PT+8, PT+10
, PT2+2, PT2+3, PT2+4, PT2+6, VIC+1~*, VIC+2*, VIC+3, V1+1~*, V1+2*, V1+3
Y A+7, A+8, IC+2~, IC+5*, IC+6, IC+7, IC+9, IC+10, IC+11, IC+12
, DSIC+2~, DSIC+5*, DSIC+6, DSIC+7, DSIC+9, DSIC+10, DSIC+11, DSIC+12, DS+2~, DS+4*
, DS+5, DS+7, SV+2~, SV+4*, SV+5, SV+7, TS+2~, TS+4*, TS+5, TS+7
, VIC+1~*, VIC+2, VIC+3*, VIC+4, V1+1~*, V1+2, V1+3*, V1+4
>> YN A+7*
Z IC+2~, IC+6*, IC+7, IC+9, IC+10, IC+11, IC+12, DSIC+2~, DSIC+6*, DSIC+7
, DSIC+9, DSIC+10, DSIC+11, DSIC+12
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All