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

Package: Contract Health Management Information System

Routine: ACHSC6P


Information

ACHSC6P ; IHS/ITSC/PMF - PRINT EXPENDITURE LIST BY PATIENT/COMMUNITY ; [ 10/16/2001 8:16 AM ]

Source Information

Source file <ACHSC6P.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  $$FMTE^XLFDT  $$REPEAT^XLFSTR  
Contract Health Management Information System 3 ($$LOC,NOW,RTRN)^ACHS  (KILL,TOT,TOTAL)^ACHSC6P2  BM^ACHSFU  
IHS VA Utilities 1 $$C^XBFUNC  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Contract Health Management Information System 3 ACHSC6C  ACHSC6D  ACHSC6P1  

Entry Points

Name Comments DBIA/ICR reference
WRITE ;
RPT4 ;
HDR2 ;
HDR ;
CITYST ;EP.
COMP ;EP. Compressed print for printer.
A1 ;
A2 ;
Z ;

External References

Name Field # of Occurrence
^%ZIS ACHSC6P+5
^%ZISC A2+5
$$LOC^ACHS ACHSC6P+7
NOW^ACHS ACHSC6P+11
RTRN^ACHS WRITE+2, A2+1, A2+2
KILL^ACHSC6P2 A2+6
TOT^ACHSC6P2 A2+2
TOTAL^ACHSC6P2 A2+1
BM^ACHSFU ACHSC6P+14
$$C^XBFUNC HDR+4
$$FMTE^XLFDT ACHSC6P+10
$$REPEAT^XLFSTR HDR+3, HDR+4, HDR2+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$E(ACHSNAME_$J("",32),1,32),$J($FN(+ACHSN43,",",0),7),$J($FN(+ACHSESDA(43),",",0),8),$J($FN(ACHST43,",",2),12)
  • Line Location: WRITE+3
Function Call: WRITE
  • Prompt: $J($FN(+ACHSN64,",",0),7),$J($FN(+ACHSESDA(64),",",0),9),$J($FN(ACHST64,",",2),12),$J($FN(+ACHSN57,",",0),7)
  • Line Location: WRITE+4
Function Call: WRITE
  • Prompt: $J($FN(ACHST57,",",2),12),$J($FN(ACHSTT3P,",",2),12),$J($FN(ACHSTOA,",",2),14)
  • Line Location: WRITE+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: A2+4
Function Call: WRITE
  • Prompt: @IOF,!!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("*",132)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC(ACHSLOC,132),!,ACHSTIME,?132-$L(ACHSTY)/2,ACHSTY,?122,"Page:",$J(ACHSPG,4),!,$$C^XBFUNC(ACHSCITY,132),!,$$C^XBFUNC(ACHST1,132),!,$$REPEAT^XLFSTR("*",132)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!,$S(ACHSRPT1=1:"Inpatient",ACHSRPT1=3:"Outpatient",ACHSRPT1=2:"Dental",1:"All")
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: " Expenditures for ",ACHSLOC," for Paid",!,"Authorizations issued Between ",ACHST1
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!,$S(ACHSRPT=2:"Community",ACHSRPT=5:"Tribe",1:"Patient"),?36,"#",?43,"# 43",?52,"Total",?63,"#",?71,"# 64 ",?82,"Total",?91,"#",?98,"Total",?112,"Total",?125,"Total",!
  • Line Location: HDR2+1
Function Call: WRITE
  • Prompt: ?35,"43's",?43,"Days",?52,"43 Dol",?62,"64's",?72,"Wkl",?82,"64 Dol",?90,"57's",?99,"57 Dol",?110,"3rd Party",?126,"Dol",!,$$REPEAT^XLFSTR("=",132)
  • Line Location: HDR2+3
Function Call: WRITE
  • Prompt: @ACHS("PRINT",16)
  • Line Location: COMP+5
Routine Call
  • %ZIS
  • Line Location:
    • ACHSC6P+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(2 - [#3.2] COMP+3, COMP+4
^%ZOSF("RM" COMP+1
^AUTTLOC - [#9999999.06] CITYST+2
^DIC(4 - [#4] CITYST+3
^DIC(5 - [#5] CITYST+2, CITYST+3
^DPT - [#2] A1+35
^TMP("ACHSC6" ACHSC6P+4*, ACHSC6P+6!, A1+1, A1+6, A1+7, A1+15, A1+16, A1+24, A1+25

Label References

Name Line Occurrences
A1 RPT4+11
A2 A1+2, WRITE+2
CITYST ACHSC6P+9
COMP ACHSC6P+13
HDR Z+2, WRITE+2, A2+1
HDR2 Z+3, WRITE+2
RPT4 WRITE+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACHS("PRINT" A2+3, COMP+2!, COMP+3*, COMP+4*, COMP+5
>> ACHSBDT ACHSC6P+10
>> ACHSBM WRITE+2
>> ACHSCITY HDR+4, CITYST+1*, CITYST+2*, CITYST+3*
>> ACHSCOMN A1+4*, A1+9*, A1+18*, A1+27*, WRITE+6
>> ACHSDOB A1+35*, WRITE+6
>> ACHSEDT ACHSC6P+10
>> ACHSESDA("T43" Z+4*, RPT4+3*
>> ACHSESDA("T64" Z+4*, RPT4+4*
>> ACHSESDA(43 A1+4*, A1+11*, WRITE+3, RPT4+3
>> ACHSESDA(64 A1+4*, A1+20*, WRITE+4, RPT4+4
>> ACHSGTOT("$" Z+5*, RPT4+9*
>> ACHSIO COMP+1
>> ACHSLOC ACHSC6P+7*, HDR+4, HDR+5
>> ACHSN43 A1+4*, A1+10*, WRITE+3, RPT4+1
>> ACHSN57 A1+5*, A1+28*, WRITE+4, RPT4+8
>> ACHSN64 A1+4*, A1+19*, WRITE+4, RPT4+2
>> ACHSNAME Z+6*, A1+1*, A1+2, A1+6, A1+7, A1+15, A1+16, A1+24, A1+25, WRITE+3
>> ACHSPG Z+1*, HDR+1*, HDR+4
>> ACHSPTCT Z+4*, A1+3*
>> ACHSQIO ACHSC6P+5
>> ACHSQUIT WRITE+2
>> ACHSRPT ACHSC6P+8, Z+3, A1+35, WRITE+1, WRITE+6, A2+1, HDR+3, HDR+4, HDR2+1, HDR2+2
>> ACHSRPT1 HDR+5
>> ACHST1 ACHSC6P+10*, HDR+4, HDR+5
>> ACHST3P("$" Z+5*, RPT4+10*
>> ACHST43 A1+5*, A1+12*, A1+33, WRITE+3, RPT4+5
>> ACHST43("$" Z+5*, RPT4+5*
>> ACHST433 A1+5*, A1+13*, A1+32
>> ACHST57 A1+5*, A1+29*, A1+33, WRITE+5, RPT4+7
>> ACHST57("$" Z+5*, RPT4+7*
>> ACHST573 A1+5*, A1+30*, A1+32
>> ACHST64 A1+5*, A1+21*, A1+33, WRITE+4, RPT4+6
>> ACHST64("$" Z+5*, RPT4+6*
>> ACHST643 A1+5*, A1+22*, A1+32
>> ACHSTIME ACHSC6P+11, HDR+4
>> ACHSTN43 Z+4*, RPT4+1*
>> ACHSTN57 Z+4*, RPT4+8*
>> ACHSTN64 Z+4*, RPT4+2*
>> ACHSTOA Z+4*, A1+33*, WRITE+5, RPT4+9
>> ACHSTT3P A1+32*, A1+33, WRITE+5, RPT4+10
>> ACHSTY ACHSC6P+8*, HDR+4
>> DFN A1+4*, A1+8*, A1+17*, A1+26*, A1+35
DUZ(2 CITYST+2, CITYST+3
IO ACHSC6P+12, COMP+1, COMP+5
IOF A2+4, HDR+2
>> IOP ACHSC6P+5*, COMP+5*
IOST(0 COMP+3, COMP+4
>> POP ACHSC6P+5
U ACHSC6P+4, A1+8, A1+9, A1+10, A1+11, A1+12, A1+13, A1+17, A1+18, A1+19
, A1+20, A1+21, A1+22, A1+26, A1+27, A1+28, A1+29, A1+30, A1+35, COMP+4
, CITYST+2, CITYST+3
>> X A1+7*, A1+8, A1+9, A1+10, A1+11, A1+12, A1+13, A1+16*, A1+17, A1+18
, A1+19, A1+20, A1+21, A1+22, A1+25*, A1+26, A1+27, A1+28, A1+29, A1+30
, COMP+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All