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

Package: Local Area Programs

Routine: AZHDPATC


Information

AZHDPATC ;COMPARES IHS/VA PAT FILES, TO DEFINE UNEQUAL DFN'S [ 06/11/91 9:35 AM ]

Source Information

Source file <AZHDPATC.m>

Entry Points

Name Comments DBIA/ICR reference
PRT2 ;PRINT FOR ENTRIES IN 3RD PARTY FILES BUT NOT IN AUPNPAT
PRT1 ;PRINT FOR ENTRIES IN DPT NOT IN AUPNPAT
ST
PRT ;PRINT FOR ENTRIES IN AUPNPAT NOT IN DPT
EXIT
LOOP5 ;
LOOP3 ;
LOOP2 ;
LOOP1 ;
LOOP
LOOP4 ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"I WILL $O THRU THE PATIENT GLOBALS LOOKING FOR UNEQUAL DFN"
  • Line Location: ST+0
Function Call: WRITE
  • Prompt: !,"AS UNEQUAL DFN ARE FOUND THE DFN WILL BE DISPLAYED"
  • Line Location: ST+1
Function Call: WRITE
  • Prompt: !,"YOU SHOULD USE A SLAVE PRINTER FOR THIS RUN, AS THE SCREEN WILL SCROLL AND YOU WILL LOSE NEEDED INFORMATION",!
  • Line Location: ST+2
Function Call: WRITE
  • Prompt: !,"LOOPING THROUGH THE IHS PATIENT GLOBAL",!
  • Line Location: ST+4
Function Call: WRITE
  • Prompt: !,"LOOPING THROUGH THE VA PATIENT GLOBAL",!
  • Line Location: LOOP1+1
Function Call: WRITE
  • Prompt: !,"LOOPING THROUGH THE MEDICARE GLOBAL",!
  • Line Location: LOOP2+1
Function Call: WRITE
  • Prompt: !,"LOOPING THROUGH THE MEDICAID GLOBAL",!
  • Line Location: LOOP3+1
Function Call: WRITE
  • Prompt: !,"LOOPING THROUGH THE RAILROAD GLOBAL",!
  • Line Location: LOOP4+1
Function Call: WRITE
  • Prompt: !,"LOOPING THROUGH THE PRIVATE INSURANCE GLOBAL",!
  • Line Location: LOOP5+1
Function Call: WRITE
  • Prompt: !!,"ENTRY IN AUPNPAT NOT IN DPT, DFN=",DFN
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: !!,"ENTRY IN DPT NOT IN AUPNPAT, DFN=",DFN
  • Line Location: PRT1+1
Function Call: WRITE
  • Prompt: !!,"ENTRY IN 3RD PARTY FILE NOT IN AUPNPAT, DFN=",DFN
  • Line Location: PRT2+1
Function Call: WRITE
  • Prompt: !!,"**E N D O F R U N **"
  • Line Location: EXIT+0
Function Call: WRITE
  • Prompt: !,"NUMBER OF DFN NOT IN DPT=",CNT
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: !,"NUMBER OF DFN NOT IN AUPNPAT=",CNT1
  • Line Location: EXIT+2
Function Call: WRITE
  • Prompt: !,"NUMBER OF 3RD PARTY DFN's NOT IN AUPNPAT=",CNT2
  • Line Location: EXIT+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNMCD - [#9000004] LOOP3+2
^AUPNMCR - [#9000003] LOOP2+2
^AUPNPAT - [#9000001] LOOP, LOOP1+2, LOOP2+2, LOOP3+2, LOOP4+2, LOOP5+2
^AUPNPRVT - [#9000006] LOOP5+2
^AUPNRRE - [#9000005] LOOP4+2
^DPT - [#2] LOOP, LOOP1+2

Label References

Name Line Occurrences
EXIT LOOP5+2
LOOP1 LOOP
LOOP2 LOOP1+2
LOOP3 LOOP2+2
LOOP4 LOOP3+2
LOOP5 LOOP4+2
PRT LOOP
PRT1 LOOP1+2
PRT2 LOOP2+2, LOOP3+2, LOOP4+2, LOOP5+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AZHDNUM LOOP*, LOOP1+2*, LOOP2+2*, LOOP3+2*, LOOP4+2*, LOOP5+2*, EXIT+4!
CNT ST+3*, PRT+1*, EXIT+1, EXIT+4!
CNT1 ST+3*, PRT1+1*, EXIT+2, EXIT+4!
CNT2 ST+3*, PRT2+1*, EXIT+3, EXIT+4!
>> DA LOOP3+2*
>> DFN LOOP*, LOOP1+2*, LOOP2+2*, LOOP3+2*, LOOP4+2*, LOOP5+2*, PRT+1, PRT1+1, PRT2+1
U ST+3*, LOOP3+2
Info |  Source |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All