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

Package: Contract Health Management Information System

Routine: ACHSTXP2


Information

ACHSTXP2 ; IHS/ITSC/FCJ - EXPORT PREV DATA (2/2) - RECORD 2(DHR), SET GLOBALS FOR OTHER RECORD TYPES ; [ 10/14/2004 12:53 PM ]

Source Information

Source file <ACHSTXP2.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Contract Health Management Information System 6 ($$PARM,RTRN)^ACHS  (FYCVT,LINES)^ACHSFU  (ERROR,KILLGLBS)^ACHSTX  ^ACHSTX3  (CANOBJ,KILL)^ACHSTX8  ^ACHSUF  
Kernel 1 ^%ZISC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHSTXP  

Entry Points

Name Comments DBIA/ICR reference
AFACERR ;
S8 ;
ERR ;
BC ;EP - Generate Export records 2B and 2C for CORE.
S3
S2 ;export Re-Generation.
S7 ;
S6 ;
S5 ;
S4 ;
S7A ;
SET(%) ;
CVTEND1 ;

External References

Name Field # of Occurrence
^%ZISC ERR+2, AFACERR+2
$$PARM^ACHS S2+2
RTRN^ACHS ERR+2
FYCVT^ACHSFU S8+7, BC+14
LINES^ACHSFU ACHSTXP2+5
ERROR^ACHSTX S8+12, S8+19
KILLGLBS^ACHSTX ACHSTXP2+10
^ACHSTX3 CVTEND1+4
CANOBJ^ACHSTX8 S8+13
KILL^ACHSTX8 ERR+2, AFACERR+2
^ACHSUF ACHSTXP2+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,ACHS("*"),!?30,"EXPORT CHS DATA",!,ACHS("*"),!
  • Line Location: ACHSTXP2+6
Function Call: WRITE
  • Prompt: !!,*7,*7,"A DHR RECORD WAS PRODUCED THAT WAS NOT 80 CHARACTERS IN LENGTH:",!!,^(ACHSRCT),!,*7,*7
  • Line Location: S8+19
Function Call: WRITE
  • Prompt: !!,"NUMBER OF RECORDS PROCESSED = ",!!
  • Line Location: S8+20
Function Call: WRITE
  • Prompt: $J(ACHSRCT,8)
  • Line Location: S8+21
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
Function Call: WRITE
  • Prompt: $J(ACHSRCT,8)
  • Line Location: SET+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHS(3 - [#9002063] S2+5, S2+7
^ACHSDATA( S8+17*, S8+19, SET+2*
^ACHSF - [#9002080] S2+2, S3, S4+1, S5+1, S5+2, S6+1, S6+4, S6+5, S6+6, S6+7
, S6+11, BC+10
^ACHSOCC - [#9002078.5] BC+6
^ACHSTXOB( S8+4*
^ACHSTXPD( S6+10*
^ACHSTXPG( S7+4*, S7A+2*
^ACHSTXPT( S8+5*
^ACHSTXVN( S6+12*, S8+11*
^AUTTLOC - [#9999999.06] S2+1, S2+2
^AUTTVNDR - [#9999999.11] S8+14, BC+20, BC+23, BC+34
^DIC(5 - [#5] BC+36

Label References

Name Line Occurrences
AFACERR S2+2, S2+3
BC S8+22
CVTEND1 S3+1
S3 S4+2
S4 S4+2, S5+2
S5 S5+2, S6+3
S6 S6+5, S6+6, S7A+3, S8+1, S8+3, S8+23
S7 S6+9
S7A S7+3
S8 S7+1, S7A+1
SET BC+16, BC+45

Naked Globals

Name Field # of Occurrence
^( S8+19
^(0 S6+5, S6+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% BC+15*, BC+16, BC+20*, BC+23*, BC+24*, BC+35*, BC+37*, BC+42*, BC+44*, BC+45
, SET~, SET+1*, SET+2
>> ACHS ACHSTXP2+17*, S2+5*, S2+7*
>> ACHS( S2+5*, S2+7*
>> ACHS("*" ACHSTXP2+6
>> ACHSABD BC+11*, BC+15
>> ACHSAED BC+12*, BC+15
>> ACHSAFAC S2+1*, S2+2*, S2+3
>> ACHSBDT ACHSTXP2+16*, S2+1, S2+9*, S3*, S3+1, S3+2, S4+1, S5+1, S6+1, S8+20
ACHSCAN S8+17, CVTEND1+3!, BC+3*, BC+4*, BC+15
ACHSCDE S8+10*, S8+12, S8+17, CVTEND1+3!
ACHSCHSS ACHSTXP2+7*, ACHSTXP2+9!
ACHSCTY S6+4*, S6+5*, S8+10, CVTEND1+3!
ACHSDCR ACHSTXP2+14*, CVTEND1+3!
ACHSDEST S6+4*, S6+10, S6+12, S7+1, S8+5, S8+11, CVTEND1+3!
>> ACHSDIEN BC+10
ACHSDOCN S8+10*, S8+17, CVTEND1+3!
ACHSDOCR S6+6*, S7A+2, S8+5, S8+6, S8+10, CVTEND1+3!, BC+6, BC+9
ACHSDR3 S6+7*, BC+10*, BC+11, BC+12, BC+13!
>> ACHSEDT ACHSTXP2+16*, S2+1, S3+1
ACHSEFDT S8+10*, S8+17, CVTEND1+3!
>> ACHSEXP ACHSTXP2+15*, S2+5, S2+7, S6+9, S7+3, S8+3
ACHSF638 ACHSTXP2+14*, S2+7, S6+9, S7A+1, S8+3, CVTEND1+3!
>> ACHSFC S8+8, S8+9, BC+15
>> ACHSFDT S2+1*, S3+2*, S8+20*
ACHSFED S8+14*, S8+17, CVTEND1+3!
ACHSIPA S6+5*, S8+17, CVTEND1+3!
>> ACHSLDAT S2+1*
ACHSOBJC S8+17, CVTEND1+3!, BC+6*, BC+7*, BC+15
ACHSPROV S6+11*, S6+12, S8+10*, S8+11, S8+14, CVTEND1+3!, BC+20, BC+23, BC+34
>> ACHSRCT S3+2, S8+15*, S8+17, S8+19, S8+20, S8+21, CVTEND1+1, CVTEND1+2, SET+2*, SET+3
>> ACHSROUT CVTEND1+1*, CVTEND1+2*
>> ACHSRR ACHSTXP2+14*
>> ACHSRTYP( ACHSTXP2+17*
>> ACHSRTYP(2 S8+16*
ACHSTOS S6+6*, S7+4, S7A+2, S8+17, CVTEND1+3!
ACHSTY S3+3*, S4+1*, S4+2, S5+1, S6+1, S6+4, S6+10, S7+1, S8+1, S8+10
, CVTEND1+3!
ACHSVAD2 BC+36*, BC+37!
ACHSVADR BC+34*, BC+35, BC+36, BC+37!
>> ACHSX S8+6*, BC+9*
ACHSXLOC S8+8*, S8+9*, S8+10, CVTEND1+3!
>> ACHSY S8+9, BC+15
DA S5+3*, S6+1*, S6+3, S6+5, S6+10, S7+4, S7A+2, S8+4, CVTEND1+3!
DT S8+10
DUZ(2 S2+1, S2+2, S2+5, S2+7, S3, S4+1, S5+1, S5+2, S6+1, S6+4
, S6+5, S6+6, S6+7, S6+11, BC+10
IOF ACHSTXP2+6
>> J ACHSTXP2+14*
>> P S4+3*, S5+1*, S5+2, S6+1, S6+4, S6+5, S6+6, S6+7, S6+10, S6+11
, S7+4, S7A+2, S8+4
U S2+1, S2+2, S5+2, S6+4, S6+5, S6+6, S6+11, S7A+2, S8+5, S8+6
, S8+10, S8+14, BC+6, BC+9, BC+11, BC+12, BC+20, BC+23, BC+35, BC+36
, BC+37
>> X S2+2*, S6+5*
X1 S8+6*, S8+10, S8+17, 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