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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ACHSACO2

Package: Contract Health Management Information System

Routine: ACHSACO2


Information

ACHSACO2 ; IHS/ITSC/TPF/PMF - AREA CONSOLIDATION (3/3) PLACE ENTRY INTO THE CHS AO PROCESSING LOG ;JUL 10, 2008

Source Information

Source file <ACHSACO2.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZISC  $$FMTE^XLFDT  $$REPEAT^XLFSTR  
Contract Health Management Information System 2 ($$LOC,$$ZEROTH,RTRN)^ACHS  $$REC^ACHSACO1  
IHS VA Utilities 1 $$C^XBFUNC  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Contract Health Management Information System 2 ACHSACO1  ACHSACOA  

Entry Points

Name Comments DBIA/ICR reference
END1 ;EP.
FACSUMND ;
END ;EP.
REPORT1A ;
REPORTNX ;
K ; Close device, kill vars, quit.
REPORT1B ;
REPORT1 ;
S16 ;
FACSUM ;
REPORTND ;
FACSUM2 ;
FACSUM1 ;
REPORT ;EP
DASHDATE(X) ; Return FM date in mm-dd-yy format
REPORTA ;ACHS*3.1*13 IHS/OIT/FCJ MODIFIED REPORT PAGE
TERR ;EP.

External References

Name Field # of Occurrence
^%ZISC K+1
$$LOC^ACHS REPORT+5
$$ZEROTH^ACHS END+28
RTRN^ACHS TERR+3, END1+4
$$REC^ACHSACO1 END+6, END+7
^DIC END+12, END+31
$$C^XBFUNC REPORT+5
$$FMTE^XLFDT REPORT+5
$$REPEAT^XLFSTR REPORT+5, REPORTA+1, REPORTA+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?10,"T Y P E O F D A T A",?45,"# TRANSFERRED",!!
  • Line Location: END+2
Function Call: WRITE
  • Prompt: ?7,"8.",?10,$$REC^ACHSACO1(8),?50,$J(ACHSTOTL(ACHSY),6),!
  • Line Location: END+6
Function Call: WRITE
  • Prompt: !?20,"TOTAL ALL TYPES",?50,$J(ACHSTOTL,6),!
  • Line Location: END+9
Function Call: WRITE
  • Prompt: *7,"Unable to log Facility name in '",$P($G(^ACHSAOLG(0)),U),"' file",!
  • Line Location: END+17
Function Call: WRITE
  • Prompt: *7,"Facility Lookup error in '",$P($G(^ACHSAOLG(0)),U),"' file",!
  • Line Location: END+23
Function Call: WRITE
  • Prompt: *7,"Unable to log Facility Export date in '",$P($G(^ACHSAOLG(0)),U),"' file",!
  • Line Location: END+35
Function Call: WRITE
  • Prompt: *7,!!,"An Error has been detected while transferring CHS data.",!!,"Please notify your supervisor.",!
  • Line Location: TERR+2
Function Call: WRITE
  • Prompt: !!,"No CHS Data Transferred"
  • Line Location: END1+3
Function Call: WRITE
  • Prompt: @IOF,!?22,"AREA OFFICE CHS CONSOLIDATION REPORT",!,$$C^XBFUNC("FOR "_$$LOC^ACHS,80),!,$$C^XBFUNC($$FMTE^XLFDT(DT),80),!,$$REPEAT^XLFSTR("-",79)
  • Line Location: REPORT+5
Function Call: WRITE
  • Prompt: !,"FACILITY FAC-CD |------R E C O R D T Y P E S------|",?53,"TOTAL",?63,"EXP-DATE",!,$$REPEAT^XLFSTR("-",79),!?15
  • Line Location: REPORTA+1
Function Call: WRITE
  • Prompt: $J(%,5)
  • Line Location: REPORTA+2
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79),!
  • Line Location: REPORTA+3
Function Call: WRITE
  • Prompt: $E($P($G(^DIC(4,ACHSI,0)),U),1,8),?9,$P($G(^AUTTLOC(ACHSI,0)),U,10)
  • Line Location: REPORT1+6
Function Call: WRITE
  • Prompt: ?15
  • Line Location: REPORT1A+3
Function Call: WRITE
  • Prompt: ?53,$J(ACHSZTOT,4),?63,$$DASHDATE($P(ACHSZFAC(ACHSI,ACHSII,0),U,2))
  • Line Location: REPORT1A+8
Function Call: WRITE
  • Prompt: !," BEG-REC DATE:",$$DASHDATE($P(ACHSZFAC(ACHSI,ACHSII,0),U,3))," END-REC DATE:",$$DASHDATE($P(ACHSZFAC(ACHSI,ACHSII,0),U,4)),!
  • Line Location: REPORT1A+9
Function Call: WRITE
  • Prompt: !?5,"TOTALS",?15
  • Line Location: REPORTND+1
Function Call: WRITE
  • Prompt: $S($D(ACHSZFAC("TOTAL",ACHSJ)):$J(ACHSZFAC("TOTAL",ACHSJ),5),1:$J("",5))
  • Line Location: REPORTND+3
Function Call: WRITE
  • Prompt: ?53,$J(ACHSZFAC("TOTAL"),5),!?5
  • Line Location: REPORTND+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REPORTNX+1
Function Call: WRITE
  • Prompt: $J("",5)
  • Line Location: REPORT1B+3
Function Call: WRITE
  • Prompt: $J($G(ACHSZFAC(ACHSI,ACHSII,ACHSJ)),5)
  • Line Location: REPORT1B+4
Routine Call
  • DIC
  • Line Location:
    • END+12
    • END+31

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ACHSAOLG - [#9002077] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSAOLG - [#9002077] END+28*, END+40*, END+41*, END+42*, END+43*, END+44*
^ACHSAOLG(0 END+17, END+23, END+35
^ACHSAOVU(0 S16+3*, S16+4*
^ACHSBCBS( END+52*
^ACHSPG2(0 S16+7*
^ACHSPIG(0 S16+6*
^ACHSUFMS("COUNT" S16+9*
^ACHSUFMS(0 S16+8*
^ACHSZOCT("AOPD" S16+2*
^ACHSZOCT("BCBS" S16+1*
^ACHSZOCT("PIG" S16+5*
^AUTTLOC - [#9999999.06] REPORT1+6
^DIC(4 - [#4] REPORT1+6

Label References

Name Line Occurrences
$$DASHDATE REPORT1A+8, REPORT1A+9
FACSUM1 FACSUM2+2
FACSUM2 FACSUM2+4
FACSUMND FACSUM1+2
K TERR+4, END1+5
REPORT1 REPORT1A+2
REPORT1A REPORT1A+11
REPORT1B REPORT1A+4
REPORTND REPORT1+2
S16 END+47, END+48

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % REPORTA+2*
>> ACHSCTFI END+50*, END+51*, END+52, S16+1
>> ACHSCTP2 S16+7
>> ACHSCTPD S16+2
>> ACHSCTPG S16+5, S16+6
>> ACHSCTUA S16+8
>> ACHSCTUF S16+9
>> ACHSCTV S16+3
>> ACHSCTVS S16+4
>> ACHSDRUN END+28, END+30, END+52
>> ACHSFCPT END+21, END+28, END+40, END+41, END+42, END+43, END+44
>> ACHSFN END+44
>> ACHSFREC END+40, END+52
>> ACHSI REPORTA+4*, REPORT1+1*, REPORT1+2, REPORT1+6, REPORT1A+1, REPORT1A+7, REPORT1A+8, REPORT1A+9, REPORT1B+3, REPORT1B+4
, REPORT1B+5
>> ACHSII REPORTA+4*, REPORT1+3*, REPORT1A+1*, REPORT1A+2, REPORT1A+7, REPORT1A+8, REPORT1A+9, REPORT1B+3, REPORT1B+4, REPORT1B+5
>> ACHSIO REPORT+1
>> ACHSJ REPORT1A+7*, REPORTND+3*, REPORT1B+2*, REPORT1B+3, REPORT1B+4, REPORT1B+5
>> ACHSK FACSUM+1*, FACSUM1+1*, FACSUM1+2, FACSUM2+1, FACSUM2+3
>> ACHSKK FACSUM+1*, FACSUM2+1*, FACSUM2+2, FACSUM2+3
>> ACHSLREC END+41, END+52
>> ACHSNRCD END+42
>> ACHSOK END+3*, END+18*, END+24*, END+36*, END1+1*
>> ACHSPPC REPORTNX+1
>> ACHSPPO REPORT+2
>> ACHSTOTL END+3*, END+5*, END+9
>> ACHSTOTL( END+5, END+6, END+7
>> ACHSTOTL(5 END+47, END+48
>> ACHSXD2 END+10, END+52
>> ACHSY END+4*, END+5, END+6, END+7
>> ACHSZFAC( REPORT1+1, REPORT1A+1, REPORT1A+7, REPORT1A+8, REPORT1A+9, FACSUM1+1, FACSUM2+1, FACSUM2+3, REPORT1B+3, REPORT1B+4
, REPORT1B+5
>> ACHSZFAC("TOTAL" REPORT+3!, REPORT+4*, REPORT1A+10*, REPORTND+3, REPORTND+4, FACSUM+1*, FACSUM2+3*, REPORT1B+5*
>> ACHSZTOT REPORT1A+5*, REPORT1A+7*, REPORT1A+8, REPORT1A+10
>> DA END+30*
>> DA(1 END+27*, END+29
>> DIC END+10*, END+29*
>> DIC(0 END+11*
>> DINUM END+10*, END+30*
DLAYGO END+11*, END+13!
DT END+43, REPORT+5
IO(0 END+1, END+16, END+22, END+34, TERR+1, END1+2
IOF REPORT+5, REPORTNX+1
U END+10, END+17, END+23, END+35, END+39, END+40, END+41, END+42, END+43, END+44
, END+52, S16+3, S16+4, REPORT1+6, REPORT1A+8, REPORT1A+9, FACSUM2+3
X END+10*, END+30*, DASHDATE~, DASHDATE+1
>> Y END+15, END+21, END+27, END+33, END+39
>> Z END+39*, END+40, END+41, END+42, END+43, END+44
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All