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

Package: Contract Health Management Information System

Routine: ACHSCPTH


Information

ACHSCPTH ; IHS/ITSC/PMF - PRINT CHS CPT CODE REPORT-BY VENDOR/DETAILED ; [ 10/16/2001 8:16 AM ]

Source Information

Source file <ACHSCPTH.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Contract Health Management Information System 2 (END,HEADER,HEADER1,NODATA,NODATA1)^ACHSCPTI  BRPT^ACHSFU  
VA Fileman 2 COMMA^%DTC  ^DIR  
Kernel 1 $$REPEAT^XLFSTR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHSCPTG  

Entry Points

Name Comments DBIA/ICR reference
P2 ;
P3 ;
SUBTOTL ;
P1 ;EP
END ;
P4 ;
VNDRTOT ;
GETADD ;Vendor address
TOTL ;
PRINT ;Prints data totals
GETSERV ;

External References

Name Field # of Occurrence
COMMA^%DTC PRINT+3, PRINT+6, SUBTOTL+3, SUBTOTL+6, VNDRTOT+3, VNDRTOT+6, TOTL+3, TOTL+6
END^ACHSCPTI END+9
HEADER^ACHSCPTI P2+4, PRINT+10
HEADER1^ACHSCPTI GETADD+4, PRINT+10
NODATA^ACHSCPTI P1+4
NODATA1^ACHSCPTI P1+3
BRPT^ACHSFU ACHSCPTH+3
^DIR PRINT+11, SUBTOTL+15, VNDRTOT+11, TOTL+10
$$REPEAT^XLFSTR SUBTOTL+1, VNDRTOT+1, TOTL+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,ACHSDOC,?12,ACHSSERV,?17,ACHSFROM_"-"_ACHSTO,?35,$J(ACHSWLU,2),?41,$J(ACHSMSG,2),?45,$J(ACHS2TH,2),?51,$J(ACHSSURF,2)
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: ?54,X
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: ?67,X
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !!,$$REPEAT^XLFSTR("-",80),!,"SUBTOTAL",?25,$J(ACHSDOCS,4)
  • Line Location: SUBTOTL+1
Function Call: WRITE
  • Prompt: ?54,X
  • Line Location: SUBTOTL+4
Function Call: WRITE
  • Prompt: ?67,X
  • Line Location: SUBTOTL+7
Function Call: WRITE
  • Prompt: !!,"PERCENTAGE OF CHGS ALLOWED TO CHGS BILLED"
  • Line Location: SUBTOTL+8
Function Call: WRITE
  • Prompt: ?66,$E(X,1,5)_"%"
  • Line Location: SUBTOTL+8
Function Call: WRITE
  • Prompt: !!?3,"** HOSP - "_ACHS43S_" **",?32,"** DENT - "_ACHS57S_" **",?62,"** OUTP - "_ACHS64S_" **"
  • Line Location: SUBTOTL+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: SUBTOTL+15
Function Call: WRITE
  • Prompt: !!,$$REPEAT^XLFSTR("=",80),!,"VENDOR TOTALS",?25,$J(ACHSVDCT,4)
  • Line Location: VNDRTOT+1
Function Call: WRITE
  • Prompt: ?56,X
  • Line Location: VNDRTOT+4
Function Call: WRITE
  • Prompt: ?68,X
  • Line Location: VNDRTOT+7
Function Call: WRITE
  • Prompt: !!,"PERCENTAGE OF CHGS ALLOWED TO CHGS BILLED"
  • Line Location: VNDRTOT+8
Function Call: WRITE
  • Prompt: ?66,$E(X,1,5)_"%"
  • Line Location: VNDRTOT+8
Function Call: WRITE
  • Prompt: !!?3,"** HOSP - "_ACHSV43_" **",?32,"** DENT - "_ACHSV57_" **",?62,"** OUTP - "_ACHSV64_" **"
  • Line Location: VNDRTOT+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: VNDRTOT+11
Function Call: WRITE
  • Prompt: !!!!,$$REPEAT^XLFSTR("=",80),!!,"TOTAL",?25,$J(ACHSDOCT,4)
  • Line Location: TOTL+1
Function Call: WRITE
  • Prompt: ?54,X
  • Line Location: TOTL+4
Function Call: WRITE
  • Prompt: ?67,X
  • Line Location: TOTL+7
Function Call: WRITE
  • Prompt: !!,"PERCENTAGE OF CHGS ALLOWED TO CHGS BILLED"
  • Line Location: TOTL+8
Function Call: WRITE
  • Prompt: ?66,$E(X,1,5)_"%"
  • Line Location: TOTL+8
Function Call: WRITE
  • Prompt: !!?3,"** HOSP - "_ACHS43T_" **",?32,"** DENT - "_ACHS57T_" **",?62,"** OUTP - "_ACHS64T_" **"
  • Line Location: TOTL+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: TOTL+10
Routine Call
  • DIR
  • Line Location:
    • PRINT+11
    • SUBTOTL+15
    • VNDRTOT+11
    • TOTL+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTVNDR - [#9999999.11] GETADD+2
^DIC(5 - [#5] GETADD+3
^TMP("ACHSCPT" P1+1, P1+4, P2+1, P3+1, P4+1, GETADD+1, GETADD+5, END+6!

Label References

Name Line Occurrences
END PRINT+11, SUBTOTL+15, VNDRTOT+11, TOTL+10
P1 VNDRTOT+13
P2 SUBTOTL+17
P3 P4+2
P4 PRINT+12
SUBTOTL P3+2
TOTL P1+2
VNDRTOT P2+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACHS2TH GETSERV+8*, PRINT+1, END+2!
>> ACHS43 ACHSCPTH+5*
ACHS43S ACHSCPTH+7*, GETSERV+2*, SUBTOTL+9, SUBTOTL+11, SUBTOTL+13, SUBTOTL+16*, END+2!
ACHS43T ACHSCPTH+4*, SUBTOTL+11*, TOTL+9, END+2!
>> ACHS57 ACHSCPTH+5*
ACHS57S ACHSCPTH+7*, GETSERV+3*, SUBTOTL+9, SUBTOTL+11, SUBTOTL+13, SUBTOTL+16*, END+2!
ACHS57T ACHSCPTH+4*, SUBTOTL+11*, TOTL+9, END+2!
>> ACHS64 ACHSCPTH+5*
ACHS64S ACHSCPTH+7*, GETSERV+4*, SUBTOTL+9, SUBTOTL+11, SUBTOTL+13, SUBTOTL+16*, END+2!
ACHS64T ACHSCPTH+4*, SUBTOTL+11*, TOTL+9, END+2!
ACHSCHA GETSERV+7*, PRINT+5, PRINT+8, END+3!
ACHSCHAS ACHSCPTH+4*, PRINT+8*, SUBTOTL+5, SUBTOTL+8, SUBTOTL+10, SUBTOTL+12, SUBTOTL+16*, END+3!
ACHSCHAT ACHSCPTH+4*, SUBTOTL+10*, TOTL+5, TOTL+8, END+5!
ACHSCHB GETSERV+7*, PRINT+2, PRINT+8, END+3!
ACHSCHBS ACHSCPTH+4*, PRINT+8*, SUBTOTL+2, SUBTOTL+8, SUBTOTL+10, SUBTOTL+12, SUBTOTL+16*, END+1!, END+3!
ACHSCHBT ACHSCPTH+4*, SUBTOTL+10*, TOTL+2, TOTL+8, END+1!
ACHSCODE P1+5*, P2+1*, P2+2, P3+1, P4+1, GETADD+1, GETADD+5, END+4!
ACHSDEN P3+3*, P4+1*, P4+2, GETADD+1, GETADD+5, END+4!
ACHSDOC ACHSCPTH+6*, P2+3*, P3+1*, P3+2, P4+1, GETADD+1, GETADD+5, PRINT+1, END+4!
ACHSDOCA ACHSCPTH+8*, END+4!
ACHSDOCS ACHSCPTH+4*, PRINT+9*, SUBTOTL+1, SUBTOTL+10, SUBTOTL+12, SUBTOTL+16*, END+1!
ACHSDOCT ACHSCPTH+4*, SUBTOTL+10*, TOTL+1, END+1!
ACHSFLG ACHSCPTH+6*, GETADD+4, PRINT+9*, PRINT+10*, PRINT+11*, SUBTOTL+16*, END+6!
ACHSFROM GETSERV+5*, PRINT+1, END+6!
ACHSIOQ END+5!
ACHSMSG GETSERV+8*, PRINT+1, END+7!
ACHSPAGE ACHSCPTH+6*, P1+3*, P1+4*, VNDRTOT+12*, END+1!
ACHSSER GETSERV+1*, GETSERV+2, GETSERV+3, GETSERV+4, END+7!
ACHSSERV GETSERV+1*, PRINT+1, END+7!
ACHSSURF GETSERV+8*, PRINT+1, END+7!
ACHSTO GETSERV+6*, PRINT+1, END+7!
ACHSV43 ACHSCPTH+5*, SUBTOTL+13*, VNDRTOT+9, VNDRTOT+12*, END+7!
ACHSV57 ACHSCPTH+5*, SUBTOTL+13*, VNDRTOT+9, VNDRTOT+12*, END+7!
ACHSV64 ACHSCPTH+5*, SUBTOTL+13*, VNDRTOT+9, VNDRTOT+12*, END+3!
ACHSVA END+3!
ACHSVADD GETADD+3*, END+5!
ACHSVCAT ACHSCPTH+6*, SUBTOTL+12*, VNDRTOT+5, VNDRTOT+8, VNDRTOT+12*, END+8!
ACHSVCBT ACHSCPTH+6*, SUBTOTL+12*, VNDRTOT+2, VNDRTOT+8, VNDRTOT+12*, END+8!
ACHSVCIT GETADD+3*, END+5!
ACHSVDCT ACHSCPTH+6*, SUBTOTL+12*, VNDRTOT+1, VNDRTOT+12*, END+8!
ACHSVEN GETADD+1*, GETADD+2, END+5!
ACHSVNDR ACHSCPTH+8*, P1+1*, P1+2, P1+3, P1+4, P2+1, P3+1, P4+1, GETADD+1, GETADD+5
, END+5!
ACHSVST GETADD+3*, END+6!
ACHSWLU GETSERV+7*, PRINT+1, END+8!
ACHSZIP GETADD+3*, END+6!
C ACHSCPTH+4*, SUBTOTL+16*, END+1!
DIR PRINT+11!, SUBTOTL+14!, VNDRTOT+10!, TOTL+10!, END+8!
DIR(0 PRINT+11*, SUBTOTL+15*, VNDRTOT+11*, TOTL+10*
I END+6!
IO("S" PRINT+11, SUBTOTL+15, VNDRTOT+11, TOTL+10
IOST PRINT+10, PRINT+11, SUBTOTL+15, VNDRTOT+11, TOTL+10
U GETADD+1, GETADD+3, GETSERV+1, GETSERV+5, GETSERV+6, GETSERV+7, GETSERV+8
X GETADD+5*, GETSERV+1, GETSERV+5, GETSERV+6, GETSERV+7, GETSERV+8, PRINT+2*, PRINT+4, PRINT+5*, PRINT+7
, SUBTOTL+2*, SUBTOTL+4, SUBTOTL+5*, SUBTOTL+7, SUBTOTL+8*, VNDRTOT+2*, VNDRTOT+4, VNDRTOT+5*, VNDRTOT+7, VNDRTOT+8*
, TOTL+2*, TOTL+4, TOTL+5*, TOTL+7, TOTL+8*, END+6!
X2 PRINT+2*, PRINT+5*, SUBTOTL+2*, SUBTOTL+5*, VNDRTOT+2*, VNDRTOT+5*, TOTL+2*, TOTL+5*, END+6!
Y PRINT+11, SUBTOTL+15, VNDRTOT+11, TOTL+10, END+6!
Z GETADD+2*, GETADD+3, END+6!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All