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

Package: Contract Health Management Information System

Routine: ACHSCPTF


Information

ACHSCPTF ; IHS/ITSC/TPF/PMF - PRINT CHS CPT CODE REPORT-BY VENDOR/SUMMARY ; JUL 10, 2008

Source Information

Source file <ACHSCPTF.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Contract Health Management Information System 3 $$LOC^ACHS  ^ACHSCPTD  BRPT^ACHSFU  
Kernel 3 ^%ZISC  ($$FMTE,$$HTE)^XLFDT  $$REPEAT^XLFSTR  
VA Fileman 2 COMMA^%DTC  ^DIR  
DRG Grouper 1 $$CPT^ICPTCOD  
IHS VA Utilities 1 $$C^XBFUNC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHSCPTE  

Entry Points

Name Comments DBIA/ICR reference
P2 ;
NODATA1 ;
SUBTOTL ; Print subtotals.
P1 ;
END ;Close device, kill variables, quit
TOTL ; Print totals.
HEADER ;Prints heading
HEADER1 ;Prints Vendor
PRINT ;Prints data totals
NODATA ;

External References

Name Field # of Occurrence
COMMA^%DTC PRINT+3, PRINT+6, SUBTOTL+3, SUBTOTL+6, TOTL+3, TOTL+6
^%ZISC END+2
$$LOC^ACHS HEADER+5
^ACHSCPTD NODATA1+8
BRPT^ACHSFU ACHSCPTF+4
^DIR PRINT+9, SUBTOTL+13, TOTL+11, NODATA+4, NODATA1+5
$$CPT^ICPTCOD P2+8, P2+10
$$C^XBFUNC NODATA+3
$$FMTE^XLFDT HEADER+12
$$HTE^XLFDT HEADER+3
$$REPEAT^XLFSTR SUBTOTL+1, TOTL+1, HEADER+14, HEADER1+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?1,$J(ACHSCOD,6)_"-"_ACHSCODP,?40,$J(ACHSDOCS,4)
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: ?50,X
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: ?65,X
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !!,$$REPEAT^XLFSTR("-",80),!?1,"SUBTOTAL",?10,ACHSCS,?40,$J(ACHSDOCT,4)
  • Line Location: SUBTOTL+1
Function Call: WRITE
  • Prompt: ?50,X
  • Line Location: SUBTOTL+4
Function Call: WRITE
  • Prompt: ?65,X
  • Line Location: SUBTOTL+7
Function Call: WRITE
  • Prompt: !!?1,"PERCENTAGE OF CHGS ALLOWED TO CHGS BILLED"
  • Line Location: SUBTOTL+8
Function Call: WRITE
  • Prompt: ?61,$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+13
Function Call: WRITE
  • Prompt: !!!!,$$REPEAT^XLFSTR("=",80),!!?1,"TOTAL",?10,ACHSCT,?40,$J(ACHSDGT,4)
  • Line Location: TOTL+1
Function Call: WRITE
  • Prompt: ?50,X
  • Line Location: TOTL+4
Function Call: WRITE
  • Prompt: ?65,X
  • Line Location: TOTL+7
Function Call: WRITE
  • Prompt: !!?1,"PERCENTAGE OF CHGS ALLOWED TO CHS BILLED"
  • Line Location: TOTL+8
Function Call: WRITE
  • Prompt: ?61,$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+11
Function Call: WRITE
  • Prompt: !!!,$$C^XBFUNC("NO DATA AVAILABLE FOR "_%_" FOR SPECIFIED DATE RANGE",80),!!!!
  • Line Location: NODATA+3
Function Call: WRITE
  • Prompt: !!!,"NO DATA AVAILABLE FOR SPECIFIED CRITERIA",!!!!
  • Line Location: NODATA1+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !,"*",ACHSDAT
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: ?((80/2)-($L(X)/2)),X
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: ?71,ACHSTIM,"*",!,"*User: ",ACHSUSR,?70,"Device:",IO,"*"
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: ?((80/2)-($L(X)/2)),X_ACHSPAGE
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: ?((80/2)-($L(X)/2)),X,!
  • Line Location: HEADER+13
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("*",80)
  • Line Location: HEADER+14
Function Call: WRITE
  • Prompt: !!?23,"Vendor: ",$S($D(^AUTTVNDR(ACHSVNDR,0)):$P($G(^AUTTVNDR(ACHSVNDR,0)),U),1:"NOT ON FILE"),!!?1,"CPTCODE",?40,"# DOCS #",?52,"$ CHG BLD $",?66,"$ CHG ALWD $",!,$$REPEAT^XLFSTR("~",80)
  • Line Location: HEADER1+1
Routine Call
  • DIR
  • Line Location:
    • PRINT+9
    • SUBTOTL+13
    • TOTL+11
    • NODATA+4
    • NODATA1+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTVNDR - [#9999999.11] NODATA+2, HEADER1+1
^ICPT - [#81] P2+8, P2+10
^TMP("ACHSCPT" P1+1, P1+4, P2+1, P2+3, P2+4, P2+5, PRINT+10, END+8!, NODATA+5!, NODATA1+6!

Label References

Name Line Occurrences
END PRINT+9, SUBTOTL+13, TOTL+11, NODATA1+5, NODATA1+7
HEADER P1+6, PRINT+8, PRINT+9, NODATA+1, NODATA1+2
HEADER1 P1+6, PRINT+8, PRINT+9
NODATA P1+4
NODATA1 P1+3
P1 SUBTOTL+15, NODATA+6
P2 PRINT+14
SUBTOTL P2+2
TOTL P1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % NODATA+2*, NODATA+3
ACHS43 PRINT+11*, END+4!
ACHS43S ACHSCPTF+5*, PRINT+11*, SUBTOTL+9, SUBTOTL+11, SUBTOTL+14*, END+4!
ACHS43T ACHSCPTF+5*, SUBTOTL+11*, TOTL+9, END+4!
ACHS57 PRINT+11*, END+4!
ACHS57S ACHSCPTF+5*, PRINT+11*, SUBTOTL+9, SUBTOTL+11, SUBTOTL+14*, END+4!
ACHS57T ACHSCPTF+5*, SUBTOTL+11*, TOTL+9, END+4!
ACHS64 PRINT+11*, END+4!
ACHS64S ACHSCPTF+5*, PRINT+11*, SUBTOTL+9, SUBTOTL+11, SUBTOTL+14*, END+4!
ACHS64T ACHSCPTF+5*, SUBTOTL+11*, TOTL+9, END+4!
ACHSBEG END+5!, HEADER+12
ACHSCHA P2+5*, PRINT+5, PRINT+12, PRINT+13*, END+3!
ACHSCHAS ACHSCPTF+5*, PRINT+12*, SUBTOTL+5, SUBTOTL+8, SUBTOTL+10, SUBTOTL+14*, END+7!
ACHSCHAT ACHSCPTF+5*, SUBTOTL+10*, TOTL+5, TOTL+8, END+7!
ACHSCHB P2+4*, PRINT+2, PRINT+12, PRINT+13*, END+3!
ACHSCHBS ACHSCPTF+5*, PRINT+12*, SUBTOTL+2, SUBTOTL+8, SUBTOTL+10, SUBTOTL+14*, END+3!
ACHSCHBT ACHSCPTF+5*, SUBTOTL+10*, TOTL+2, TOTL+8, END+7!
ACHSCOD P2+10*, PRINT+1, END+5!
ACHSCODE P1+5*, P2+1*, P2+2, P2+3, P2+4, P2+5, P2+8, P2+10, PRINT+10, END+6!
ACHSCODP P2+8*, PRINT+1, END+5!
ACHSCS ACHSCPTF+5*, PRINT+12*, SUBTOTL+1, SUBTOTL+11, SUBTOTL+14*, END+5!
ACHSCT ACHSCPTF+5*, SUBTOTL+11*, TOTL+1, END+5!
ACHSDAT END+6!, HEADER+3*, HEADER+4
ACHSDGT ACHSCPTF+5*, SUBTOTL+10*, TOTL+1, END+6!
ACHSDOC ACHSCPTF+5*, END+6!
ACHSDOCS P2+3*, PRINT+1, PRINT+12, PRINT+13*, END+3!
ACHSDOCT ACHSCPTF+5*, PRINT+12*, SUBTOTL+1, SUBTOTL+10, SUBTOTL+14*, END+6!
ACHSEND END+5!, HEADER+12
ACHSPAGE ACHSCPTF+5*, SUBTOTL+14*, END+3!, NODATA+5*, HEADER+2*, HEADER+10
ACHSQIO END+7!
ACHSTIM END+6!, HEADER+3*, HEADER+7
ACHSUSR END+7!, HEADER+7
ACHSVNDR ACHSCPTF+6*, P1+1*, P1+2, P1+3, P1+4, P2+1, P2+3, P2+4, P2+5, PRINT+10
, END+7!, NODATA+2, NODATA+5, HEADER1+1
C ACHSCPTF+5*, PRINT+13*, SUBTOTL+14*, END+3!
DIR PRINT+9!, SUBTOTL+12!, TOTL+10!, END+8!, NODATA+4!, NODATA1+1!, NODATA1+6!
DIR(0 PRINT+9*, SUBTOTL+13*, TOTL+11*, NODATA+4*, NODATA1+3*
I END+7!
IO HEADER+7
IO("S" PRINT+9, SUBTOTL+13, TOTL+11, NODATA+4, NODATA1+5
IO(0 NODATA+4
IOF HEADER+1
IOST PRINT+8, PRINT+9, SUBTOTL+13, TOTL+11, NODATA+4, NODATA1+5
U P2+3, P2+4, P2+5, P2+8, P2+10, PRINT+11, NODATA+2, HEADER1+1
>> X PRINT+2*, PRINT+4, PRINT+5*, PRINT+7, SUBTOTL+2*, SUBTOTL+4, SUBTOTL+5*, SUBTOTL+7, SUBTOTL+8*, TOTL+2*
, TOTL+4, TOTL+5*, TOTL+7, TOTL+8*, HEADER+5*, HEADER+6, HEADER+9*, HEADER+10, HEADER+12*, HEADER+13
X2 PRINT+2*, PRINT+5*, SUBTOTL+2*, SUBTOTL+5*, TOTL+2*, TOTL+5*, END+8!
>> Y PRINT+9, SUBTOTL+13, TOTL+11, NODATA+4, NODATA1+5, HEADER+3*
Z PRINT+10*, PRINT+11, END+5!
>> ZTQUEUED END+1, NODATA+4, NODATA1+8
>> ZTREQ END+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All