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

Package: Contract Health Management Information System

Routine: ACHSTXA1


Information

ACHSTXA1 ; IHS/ITSC/PMF - EXPORT DATA - RECORD 2(DHR), SPECIFIC RE-EXPORTS ; [ 11/26/2003 8:04 AM ]

Source Information

Source file <ACHSTXA1.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Contract Health Management Information System 7 ($$LOC,$$PARM)^ACHS  (FYCVT,LINES)^ACHSFU  (ERROR,KILLGLBS)^ACHSTX  BC^ACHSTX2  ^ACHSTX3  (CANOBJ,KILL)^ACHSTX8  ^ACHSUF  
Kernel 2 ^%ZISC  $$REPEAT^XLFSTR  
IHS VA Utilities 1 $$C^XBFUNC  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Contract Health Management Information System 2 ACHSTXAR  ACHSYCS  

Entry Points

Name Comments DBIA/ICR reference
S8 ;
ERR ;
S3 ;
S2 ;
S7 ;
AFACERR ;
S5 ;
S4 ;
S7A ;
CVTEND1 ;

External References

Name Field # of Occurrence
^%ZISC ERR+2, AFACERR+2
$$LOC^ACHS ACHSTXA1+16
$$PARM^ACHS ACHSTXA1+14, S2+4, S2+6, S2+7, S5+15, S7+3, S8+4
FYCVT^ACHSFU S8+10
LINES^ACHSFU ACHSTXA1+8
ERROR^ACHSTX S8+19, S8+24
KILLGLBS^ACHSTX ACHSTXA1+13
BC^ACHSTX2 S8+27
^ACHSTX3 CVTEND1+4
CANOBJ^ACHSTX8 S8+20
KILL^ACHSTX8 ERR+2, AFACERR+2
^ACHSUF ACHSTXA1+11
$$C^XBFUNC ACHSTXA1+9
$$REPEAT^XLFSTR ACHSTXA1+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,$$REPEAT^XLFSTR("*",80),!,$$C^XBFUNC("RE-EXPORT SELECTED CHS DATA"),!,$$REPEAT^XLFSTR("*"),!
  • Line Location: ACHSTXA1+9
Function Call: WRITE
  • Prompt: !?10,"FACILITY NAME: ",$$LOC^ACHS
  • Line Location: ACHSTXA1+16
Function Call: WRITE
  • Prompt: !!,*7,*7,"A DHR RECORD WAS PRODUCED THAT WAS NOT 80 CHARACTERS IN LENGTH:",!!,^(ACHSRCT),!,*7,*7
  • Line Location: S8+24
Function Call: WRITE
  • Prompt: !!,"NUMBER OF RECORDS PROCESSED = ",!!
  • Line Location: S8+25
Function Call: WRITE
  • Prompt: $J(ACHSRCT,8)
  • Line Location: S8+26
Function Call: WRITE
  • Prompt: !!,*7,*7,"DCR REGISTER ERROR YOU MUST CLOSE YOUR REGISTERS FIRST"
  • Line Location: ERR+1
Function Call: WRITE
  • Prompt: !!,*7,*7,"AUTHORIZING FACILITY CODE ERROR - JOB CANCELLED"
  • Line Location: AFACERR+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHS(3 - [#9002063] S2+6, S2+7
^ACHSDATA( S8+23*, S8+24
^ACHSF - [#9002080] S4+3, S5+3
^ACHSTXOB( S8+5*
^ACHSTXPD( S5+16*
^ACHSTXPG( S7+4*, S7A+2*
^ACHSTXPT( S8+7*
^ACHSTXVN( S5+18*, S8+17*
^AUTTLOC - [#9999999.06] S2+3, S2+4
^AUTTVNDR - [#9999999.11] S8+21
^TMP("ACHSTXAR" S3+1, S4+1, S5+1

Label References

Name Line Occurrences
AFACERR S2+4, S2+5
CVTEND1 S3+2
ERR S2+1
S3 S4+2
S4 S4+3, S4+4, S5+2
S5 S5+3, S5+5, S8+1, S8+4, S8+28
S7 S5+15
S7A S7+3
S8 S7A+1

Naked Globals

Name Field # of Occurrence
^( S8+24
^(0 S4+3, S5+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACHS ACHSTXA1+15*, S2+6*, S2+7*
>> ACHS( S2+6*, S2+7*
>> ACHSAFAC S2+3*, S2+4*, S2+5
>> ACHSBDT ACHSTXA1+14*, ACHSTXA1+17*, S2+2, S3+1*, S3+2, S3+3, S4+1, S5+1, S8+25
ACHSCAN S8+23, CVTEND1+3!
ACHSCDE S8+13*, S8+19, S8+23, CVTEND1+3!
ACHSCHSS ACHSTXA1+10*, ACHSTXA1+12!
ACHSCTY S5+11*, S5+14*, S8+13, CVTEND1+3!
ACHSDCR ACHSTXA1+14*, CVTEND1+3!
ACHSDEST S5+11*, S5+16, S5+18, S8+7, S8+17, CVTEND1+3!
>> ACHSDIEN S3+4*, S4+1*, S4+2, S4+3, S5+1, S5+3, S5+16, S7+4, S7A+2, S8+5
ACHSDOCN S8+16*, S8+23, CVTEND1+3!
ACHSDOCR S4+3*, S4+4, S4+5, S5+11, S5+17, S7A+2, S8+7, S8+9, S8+16, CVTEND1+3!
>> ACHSEDT ACHSTXA1+14*, ACHSTXA1+17*, S2+1, S3+2
ACHSEFDT S8+13*, S8+23, CVTEND1+3!
ACHSF638 ACHSTXA1+14*, S2+7, S5+15, S7A+1, S8+4, CVTEND1+3!
>> ACHSFC S8+11, S8+12
>> ACHSFDT S2+2*, S8+25*
ACHSFED S8+21*, S8+23, CVTEND1+3!
ACHSIPA S5+13*, S8+23, CVTEND1+3!
>> ACHSLDAT S3+3*
>> ACHSOBJC S8+23
ACHSPROV S5+17*, S5+18, S8+17, S8+21, CVTEND1+3!
>> ACHSRCT S8+22*, S8+23, S8+24, S8+25, S8+26, CVTEND1+1, CVTEND1+2
>> ACHSROUT CVTEND1+1*, CVTEND1+2*
>> ACHSRR ACHSTXA1+14*
>> ACHSRTYP( ACHSTXA1+15*
>> ACHSRTYP(2 S8+22*
ACHSSCC CVTEND1+3!
>> ACHSTIEN S4+6*, S5+1*, S5+2, S5+3, S5+16, S7+4, S7A+2, S8+5
>> ACHSTOS S4+5*, S7+4, S7A+2, S8+23
ACHSTRNR S5+3*, S5+4, S5+13, S5+14, CVTEND1+3!
ACHSTY S5+4*, S5+5, S5+11, S5+16, S8+1, S8+13, CVTEND1+3!
>> ACHSX S8+9*
ACHSXLOC S8+11*, S8+12*, S8+16, CVTEND1+3!
>> ACHSY S8+12
DT S8+13
DUZ(2 S2+3, S2+6, S2+7, S4+3, S5+3
IOF ACHSTXA1+9
>> J ACHSTXA1+14*
U S2+3, S2+4, S4+4, S4+5, S5+4, S5+11, S5+13, S5+14, S5+17, S7A+2
, S8+7, S8+9, S8+16, S8+21
>> X S2+4*, S5+13*
X1 S8+9*, S8+23, CVTEND1+3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All