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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ACHSPCC7

Package: Contract Health Management Information System

Routine: ACHSPCC7


Information

ACHSPCC7 ; IHS/ITSC/PMF - CHS AREA SPLITOUT (2/5)(DHR FOR CORE) ; [ 12/06/2002 10:36 AM ]

Source Information

Source file <ACHSPCC7.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 3 HOME^%ZIS  ^%ZISC  $$REPEAT^XLFSTR  
VA Fileman 3 COMMA^%DTC  WAIT^DICD  $$GET1^DIQ  
Contract Health Management Information System 2 ($$AOP,$$LOC,RTRN)^ACHS  JOBABEND^ACHSPCC4  
IHS VA Utilities 1 $$VAL^XBDIQ1  

Entry Points

Name Comments DBIA/ICR reference
HDR1 ;
LEND ;
L2 ; Process DHRs from a Facility.
L1 ; Process a Facility.

External References

Name Field # of Occurrence
COMMA^%DTC LEND+9, LEND+15
HOME^%ZIS LEND+26
^%ZISC LEND+24
$$AOP^ACHS HDR1+4
$$LOC^ACHS HDR1+3
RTRN^ACHS LEND+3, LEND+11, LEND+21
JOBABEND^ACHSPCC4 L2+52
WAIT^DICD ACHSPCC7+7
$$GET1^DIQ LEND+24
$$VAL^XBDIQ1 L2+16
$$REPEAT^XLFSTR L2+36

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?10,"GENERATING DHR RECORDS FOR CORE",!!
  • Line Location: ACHSPCC7+6
Function Call: WRITE
  • Prompt: $J(ACHSCT2,8)
  • Line Location: L2+30
Function Call: WRITE
  • Prompt: *7,!!,"A DHR for CORE was produced that was not 580 characters."
  • Line Location: L2+52
Function Call: WRITE
  • Prompt: !!,"TOTAL DHR RECORDS GENERATED = ",ACHSCT2,!
  • Line Location: LEND+2
Function Call: WRITE
  • Prompt: ?10,$E($P(^DIC(4,$O(^AUTTLOC("C",ACHSFAC,0)),0),U),1,30),?46,$J(ACHSFCT(ACHSFAC),5),?55,X,!!
  • Line Location: LEND+10
Function Call: WRITE
  • Prompt: ?10,$E(Y,1,60)
  • Line Location: LEND+13
Function Call: WRITE
  • Prompt: !!?15,"TOTAL CHS TRANSACTIONS",?51-$L($J(ACHSCT2,0,0)),$J(ACHSCT2,0,0),?55,X,!!?10,"NUMBER OF OUTPUT DHR RECORDS = ",?46,$J((ACHSCT2+2)*2,5)
  • Line Location: LEND+16
Function Call: WRITE
  • Prompt: !!?10,"NUMBER OF JCL RECORDS = ",?46,$J(ACHSJCLC,5),!!?10,$E(Y,1,41)
  • Line Location: LEND+18
Function Call: WRITE
  • Prompt: !?15,"TOTAL RECORDS TO TRANSMIT = ",?46,$J(ACHSTXCT,5),!!
  • Line Location: LEND+20
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LEND+22
Function Call: WRITE
  • Prompt: @IOF,!?5,X,!?5,"*",?10,"C H S DATA SPLIT-OUT (EXPORT) FOR: ",$E($$LOC^ACHS,1,25),?74,"*",!?5,"*",?5,$E(DT,4,5),"-",$E(DT,6,7),"-",$E(DT,2,3),?22,"TRANSACTION TOTALS BY FACILITY",?74,"*",!
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: ?5,"*",Y,"*",!?5,"*",?10,"NAME OF FACILITY",?44,"NUMB TRNS",?60,"DOLLAR AMT",?74,"*",!?5,X,!!
  • Line Location: HDR1+5
Routine Call
  • %ZIS
  • Line Location:
    • LEND+26

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSCORE( L1+1, L2+1, L2+3, L2+4, L2+5, L2+26!, L2+28!, L2+53*
^ACHSCORE("COUNT" ACHSPCC7+9
^AUTTLOC("C" LEND+10
^DIC(4 - [#4] LEND+10

Label References

Name Line Occurrences
HDR1 LEND+3, LEND+11
L1 L2+2
L2 L2+7, L2+8, L2+56
LEND L1+2

Naked Globals

Name Field # of Occurrence
^( L2+53*
^("COUNT" ACHSPCC7+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % L2+50*
ACHS2 L2+3*, L2+7, L2+8, L2+20, L2+32, L2+33, L2+34, L2+35, L2+39, L2+40
, L2+41, L2+54, L2+55!
ACHS2B L2+4*, L2+9, L2+14*, L2+15*, L2+16*, L2+22*, L2+24*, L2+31, L2+38, L2+42
, L2+43, L2+55!
ACHS2C L2+5*, L2+27*, L2+45, L2+46, L2+47, L2+55!
>> ACHSCFY L2+20
ACHSCORE L2+55!
ACHSCORE( L2+50
ACHSCORE(1 L2+31*
ACHSCORE(10 L2+34*, L2+36
ACHSCORE(11 L2+43*
ACHSCORE(12 L2+35*, L2+36*
ACHSCORE(13 L2+44*
ACHSCORE(19 L2+45*
ACHSCORE(2 L2+32*
ACHSCORE(20 L2+46*
ACHSCORE(21 L2+47*
ACHSCORE(3 L2+33*, L2+36
ACHSCORE(4 L2+37*
ACHSCORE(46 L2+48*, L2+51
ACHSCORE(5 L2+38*
ACHSCORE(6 L2+39*
ACHSCORE(7 L2+40*
ACHSCORE(8 L2+41*
ACHSCORE(9 L2+42*
>> ACHSCT1 ACHSPCC7+9*, ACHSPCC7+10*, L2+30
>> ACHSCT2 ACHSPCC7+3*, L2+29*, L2+30, LEND+2, LEND+4*, LEND+16, LEND+19
ACHSDES1 LEND+5!
>> ACHSEFDT L2+37
>> ACHSFAC ACHSPCC7+3*, L1+1*, L1+2, L1+3, L2+1, L2+3, L2+4, L2+5, L2+26, L2+28
, L2+53, L2+54, LEND+6*, LEND+7*, LEND+8, LEND+10
ACHSFCT ACHSPCC7+4!
ACHSFCT( L1+3*, L2+54*, LEND+10
ACHSFTOT ACHSPCC7+4!, LEND+27!
ACHSFTOT( L1+3*, L2+54*, LEND+7, LEND+8
>> ACHSFY L2+21
>> ACHSHASH ACHSPCC7+3*, L2+54*, LEND+4*, LEND+14
>> ACHSJCLC LEND+17*, LEND+18, LEND+19
>> ACHSPTRD LEND+25*
>> ACHSRR ACHSPCC7+3*, L2+1*, L2+2, L2+3, L2+4, L2+5, L2+26, L2+28, L2+53
>> ACHSTXCT LEND+19*, LEND+20
ACHSZDOC LEND+5!
AFSJFLG ACHSPCC7+4!
DT HDR1+3
DUZ(2 L2+16, LEND+24
IO LEND+25, HDR1+1
IO(0 ACHSPCC7+5, L2+30, LEND+1
IOF LEND+22, HDR1+3
IOSL LEND+11
IOST ACHSPCC7+8
U LEND+10
X ACHSPCC7+9*, ACHSPCC7+10, L2+19~, L2+20*, L2+21*, L2+22, L2+36*, L2+49*, L2+50*, L2+51*
, L2+52, L2+53, LEND+8*, LEND+10, LEND+14*, LEND+16, HDR1+2*, HDR1+3, HDR1+5
X2 L2+19~, L2+21*, LEND+8*, LEND+14*
>> X3 LEND+8*, LEND+14*
>> Y LEND+13, LEND+18, HDR1+2*, HDR1+4, HDR1+5
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All