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

Package: Contract Health Management Information System

Routine: ACHSXREF


Information

ACHSXREF ; IHS/ITSC/PMF - UNDOCUMENTED X-REF FIX FOR CHS FACILITY FILE [ 10/16/2001 8:16 AM ]

Source Information

Source file <ACHSXREF.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 1 $$OPEN^%ZISH  
Uncategorized 1 ^%ET  
VA Fileman 1 YX^%DTC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHSPOST  

Entry Points

Name Comments DBIA/ICR reference
PB ;
VB ;
EOBD ;
TRANSUM ;
DOCALL(FACILITY,DOCNUM) ;
AC ;
EOBR ;
COMPARE ;
EOBP ;
CLEANUP ;
ERROR ;
TB ;
DOCSUM ;
ES ;

External References

Name Field # of Occurrence
YX^%DTC ACHSXREF+5, ACHSXREF+27
^%ET ERROR+3
$$OPEN^%ZISH COMPARE+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"CHECKING EOBD X-REFS...."
  • Line Location: EOBD+4
Function Call: WRITE
  • Prompt: !,"CROSS REFERENCE BY FUNKY DATE, DOCUMENT IEN, TRANSACTION IEN"
  • Line Location: EOBD+5
Function Call: WRITE
  • Prompt: !,"KILLING ^ACHSF("_FACILITY_","_XREF_","_FUNKYDT_","_DOCNUM_")"
  • Line Location: EOBD+14
Function Call: WRITE
  • Prompt: !,"TOTAL MISSING: ",TOTALMIS
  • Line Location: EOBD+16
Function Call: WRITE
  • Prompt: !!,"CHECKING EOBP X-REFS...."
  • Line Location: EOBP+4
Function Call: WRITE
  • Prompt: !,"CROSS REFERENCE BY PATEINT DFN , DOCUMENT IEN, TRANSACTION IEN"
  • Line Location: EOBP+5
Function Call: WRITE
  • Prompt: !,"KILLING ^ACHSF("_FACILITY_","_XREF_","_PATNUM_","_DOCNUM_")"
  • Line Location: EOBP+14
Function Call: WRITE
  • Prompt: !,"TOTAL MISSING: ",TOTALMIS
  • Line Location: EOBP+16
Function Call: WRITE
  • Prompt: !!,"CHECKING EOBR X-REFS....."
  • Line Location: EOBR+2
Function Call: WRITE
  • Prompt: !,"CROSS REFERENCE BY DOCUMENT IEN, TRANSACTION IEN, FUNKYDATE"
  • Line Location: EOBR+3
Function Call: WRITE
  • Prompt: !,"KILLING ^ACHSF("_FACILITY_","_XREF_","_DOCNUM_")"
  • Line Location: EOBR+12
Function Call: WRITE
  • Prompt: !,"TOTAL MISSING: ",TOTALMIS
  • Line Location: EOBR+14
Function Call: WRITE
  • Prompt: !!,"CHECKING ES X-REFS...."
  • Line Location: ES+4
Function Call: WRITE
  • Prompt: !,"CROSS REFERENCE BY FUNKY DATE , DOCUMENT IEN"
  • Line Location: ES+5
Function Call: WRITE
  • Prompt: !,"KILLING ^ACHSF("_FACILITY_","_XREF_","_FUNKYDT_","_DOCNUM_")"
  • Line Location: ES+12
Function Call: WRITE
  • Prompt: !,"TOTAL MISSING: ",TOTALMIS
  • Line Location: ES+14
Function Call: WRITE
  • Prompt: !!,"CHECKING PB X-REFS....."
  • Line Location: PB+2
Function Call: WRITE
  • Prompt: !,"CROSS REFERENCE BY PATIENT DFN, DOCUMENT IEN, TRANSACTION IEN"
  • Line Location: PB+3
Function Call: WRITE
  • Prompt: !,"KILLING ^ACHSF("_FACILITY_","_XREF_","_DFN_","_DOCNUM_")"
  • Line Location: PB+14
Function Call: WRITE
  • Prompt: !,"TOTAL MISSING: ",TOTALMIS
  • Line Location: PB+16
Function Call: WRITE
  • Prompt: !!,"CHECKING TB X-REFS....."
  • Line Location: TB+2
Function Call: WRITE
  • Prompt: !,"CROSS REFERENCE BY DATE, TRANSACTION TYPE, DOCUMENT IEN, TRANSACTION IEN"
  • Line Location: TB+3
Function Call: WRITE
  • Prompt: !,"KILLING ^ACHSF("_FACILITY_","_XREF_","_DATE_","_TRANTYPE_","_DOCNUM_")"
  • Line Location: TB+16
Function Call: WRITE
  • Prompt: !,"TOTAL MISSING: ",TOTALMIS
  • Line Location: TB+18
Function Call: WRITE
  • Prompt: !!,"CHECKING VB X-REF....."
  • Line Location: VB+2
Function Call: WRITE
  • Prompt: !,"CROSS REFERENCE BY PROVIDER IEN, DOCUMENT IEN, TRANSACTION IEN"
  • Line Location: VB+3
Function Call: WRITE
  • Prompt: !,"KILLING ^ACHSF("_FACILITY_","_XREF_","_PROVNUM_","_DOCNUM_")"
  • Line Location: VB+14
Function Call: WRITE
  • Prompt: !,"TOTAL MISSING: ",TOTALMIS
  • Line Location: VB+16
Function Call: WRITE
  • Prompt: !!,"CHECKING AC X-REF...."
  • Line Location: AC+2
Function Call: WRITE
  • Prompt: !,"CROSS REFERENCE BY PROVIDER IEN, DOCUMENT IEN, TRANSACTION IEN"
  • Line Location: AC+3
Function Call: WRITE
  • Prompt: !,"KILLING ^ACHSF("_XREF_","_PATNUM_","_FACILITY_","_DOCNUM_")"
  • Line Location: AC+14
Function Call: WRITE
  • Prompt: !,"TOTAL MISSING: ",TOTALMIS
  • Line Location: AC+15
Function Call: WRITE
  • Prompt: !,"DATA WAS FOUND IN OTHER NODES FOR DOCUMENT "_DOCNUM_" IN FACILITY "_FACILITY_" . INVESTIGATION NEEDED!"
  • Line Location: DOCSUM+8
Function Call: WRITE
  • Prompt: !,"DATA FOUND IN OTHER NODES. INVESTIGATION NEEDED!"
  • Line Location: TRANSUM+9
Function Call: WRITE
  • Prompt: !!!,"CANNOT FIND FILE"
  • Line Location: COMPARE+9
Function Call: WRITE
  • Prompt: !!,"SEARCHING TARGET FILE...."
  • Line Location: COMPARE+13

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSF - [#9002080] EOBD+6, EOBD+8, EOBD+10, EOBD+12, EOBD+14!, EOBP+6, EOBP+8, EOBP+10, EOBP+12, EOBP+14!
, EOBR+6, EOBR+8, EOBR+10, EOBR+12!, ES+6, ES+8, ES+10, ES+12!, PB+6, PB+8
, PB+10, PB+12, PB+14!, TB+6, TB+8, TB+10, TB+12, TB+14, TB+16!, VB+6
, VB+8, VB+10, VB+12, VB+14!, DOCSUM+2, TRANSUM+2, DOCALL+3
^ACHSF("AC" AC+6, AC+8, AC+10, AC+12, AC+14!
^ACHSINST( ACHSXREF+8*, ACHSXREF+28*, COMPARE+10*, ERROR+2*
^ACHSXREF( ACHSXREF+10, DOCSUM+4*, TRANSUM+4*, COMPARE+15, COMPARE+17, COMPARE+26
^ACHSXREF("D" COMPARE+23*
^ACHSXREF("T" COMPARE+31*

Label References

Name Line Occurrences
AC ACHSXREF+20
CLEANUP ACHSXREF+25
DOCALL DOCSUM+7, TRANSUM+8
DOCSUM EOBD+13, EOBP+13, EOBR+11, ES+11, PB+13, TB+15, VB+13, AC+13
EOBD ACHSXREF+13
EOBP ACHSXREF+14
EOBR ACHSXREF+15
ES ACHSXREF+16
PB ACHSXREF+17
TB ACHSXREF+18
TRANSUM EOBD+13, EOBP+13, EOBR+11, PB+13, TB+15, VB+13, AC+13
VB ACHSXREF+19

Naked Globals

Name Field # of Occurrence
^( ACHSXREF+10!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %H ACHSXREF+5*, ACHSXREF+27*
>> ACHSVERS ACHSXREF+6*, ACHSXREF+8, ACHSXREF+28, COMPARE+10, ERROR+1*, ERROR+2
ACHSYAYA ACHSXREF+10*, ACHSXREF+11!, CLEANUP+1!
>> BARE DOCSUM+8, TRANSUM+9, DOCALL+1*, DOCALL+5*
DATE TB+7*, TB+8*, TB+10, TB+12, TB+14, TB+16, CLEANUP+1!
DFN PB+7*, PB+8*, PB+10, PB+12, PB+14, CLEANUP+1!
DOCCNT COMPARE+17*, COMPARE+18, CLEANUP+1!
DOCNUM EOBD+9*, EOBD+10*, EOBD+12, EOBD+14, EOBP+9*, EOBP+10*, EOBP+12, EOBP+14, EOBR+7*, EOBR+8*
, EOBR+10, EOBR+12, ES+9*, ES+10*, ES+12, PB+9*, PB+10*, PB+12, PB+14, TB+11*
, TB+12*, TB+14, TB+16, VB+9*, VB+10*, VB+12, VB+14, AC+9*, AC+10*, AC+12
, AC+14, DOCSUM+2, DOCSUM+4, DOCSUM+7, DOCSUM+8, TRANSUM+2, TRANSUM+4, TRANSUM+8, DOCALL~, DOCALL+3
, CLEANUP+1!
DOCUMENT COMPARE+16*, COMPARE+17*, COMPARE+20, COMPARE+23, COMPARE+26, COMPARE+28, COMPARE+31, CLEANUP+1!
FACCNT COMPARE+15*, CLEANUP+1!
FACILITY EOBD+3*, EOBD+6*, EOBD+8, EOBD+10, EOBD+12, EOBD+14, EOBP+3*, EOBP+6*, EOBP+8, EOBP+10
, EOBP+12, EOBP+14, EOBR+5*, EOBR+6*, EOBR+8, EOBR+10, EOBR+12, ES+3*, ES+6*, ES+8
, ES+10, ES+12, PB+5*, PB+6*, PB+8, PB+10, PB+12, PB+14, TB+5*, TB+6*
, TB+8, TB+10, TB+12, TB+14, TB+16, VB+5*, VB+6*, VB+8, VB+10, VB+12
, VB+14, AC+7*, AC+8*, AC+10, AC+12, AC+14, DOCSUM+2, DOCSUM+4, DOCSUM+7, DOCSUM+8
, TRANSUM+2, TRANSUM+4, TRANSUM+8, DOCALL~, DOCALL+3, COMPARE+14*, COMPARE+15*, COMPARE+17, COMPARE+20, COMPARE+23
, COMPARE+26, COMPARE+28, COMPARE+31, CLEANUP+1!
FILENAME COMPARE+12*, COMPARE+21, COMPARE+29, CLEANUP+1!
FUNKYDT EOBD+7*, EOBD+8*, EOBD+10, EOBD+12, EOBD+14, ES+7*, ES+8*, ES+10, ES+12, CLEANUP+1!
HOSTCMD COMPARE+21*, COMPARE+22, COMPARE+29*, COMPARE+30, CLEANUP+1!
>> KILLIT EOBD+14, EOBP+14, EOBR+12, ES+12, PB+14, TB+16, VB+14, AC+14, DOCSUM+1*, DOCSUM+12*
, TRANSUM+1*, TRANSUM+10*
NOTOPEN COMPARE+4*, COMPARE+10, CLEANUP+1!
>> NOW ACHSXREF+5*, ACHSXREF+8, ACHSXREF+27*, ACHSXREF+28, COMPARE+10
PATNUM EOBP+7*, EOBP+8*, EOBP+10, EOBP+12, EOBP+14, AC+5*, AC+6*, AC+8, AC+10, AC+12
, AC+14, CLEANUP+1!
PROVNUM VB+7*, VB+8*, VB+10, VB+12, VB+14, CLEANUP+1!
SUB DOCALL+2*, DOCALL+3, CLEANUP+1!
TARGET COMPARE+20*, COMPARE+21, COMPARE+28*, COMPARE+29, CLEANUP+1!
TOTALMIS EOBD+2*, EOBD+16, EOBP+2*, EOBP+16, EOBR+4*, EOBR+14, ES+2*, ES+14, PB+4*, PB+16
, TB+4*, TB+18, VB+4*, VB+16, AC+4*, AC+15, DOCSUM+3*, TRANSUM+3*, CLEANUP+1!
TRANCNT COMPARE+26*, CLEANUP+1!
TRANNUM EOBD+11*, EOBD+12*, EOBP+11*, EOBP+12*, EOBR+9*, EOBR+10*, PB+11*, PB+12*, PB+14, TB+13*
, TB+14*, VB+11*, VB+12*, AC+11*, AC+12*, TRANSUM+2, TRANSUM+4, COMPARE+25*, COMPARE+26*, COMPARE+28
, COMPARE+31, CLEANUP+1!
TRANTYPE TB+9*, TB+10*, TB+12, TB+14, TB+16, CLEANUP+1!
U ACHSXREF+3*
X COMPARE+22*, COMPARE+23, COMPARE+30*, COMPARE+31, CLEANUP+1!
XREF EOBD+1*, EOBD+14, EOBP+1*, EOBP+14, EOBR+1*, EOBR+12, ES+1*, ES+12, PB+1*, PB+14
, TB+1*, TB+16, VB+1*, VB+14, AC+1*, AC+14, DOCSUM+4, TRANSUM+4, CLEANUP+1!
>> Y ACHSXREF+5, ACHSXREF+27
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All