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

Package: Contract Health Management Information System

Routine: ACHSCPTC


Information

ACHSCPTC ; IHS/ITSC/PMF - PRINT CHS CPT CODES REPORT-SUMMARY ONLY ;JUL 10, 2008

Source Information

Source file <ACHSCPTC.m>

Call Graph

Call Graph Total: 8

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHSCPTB  

Entry Points

Name Comments DBIA/ICR reference
P1A ;
SUBTOTL ;
P1 ;
END ;Close device, kill variables, quit
HEADER ;Prints heading
TOTAL ;
HEADER1 ;
NODATA ;

External References

Name Field # of Occurrence
COMMA^%DTC P1A+23, P1A+26, SUBTOTL+3, SUBTOTL+6, TOTAL+3, TOTAL+6
^%ZISC END+2
$$LOC^ACHS HEADER+5
BRPT^ACHSFU ACHSCPTC+6
^DIR P1A+29, SUBTOTL+13, TOTAL+11, NODATA+5
$$CPT^ICPTCOD P1A+13, P1A+17
$$FMTE^XLFDT HEADER+9
$$HTE^XLFDT HEADER+3
$$REPEAT^XLFSTR SUBTOTL+1, TOTAL+1, HEADER+10, HEADER1+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?1,$J(ACHSCOD,6)_" - "_$J($E(ACHSCODP,1,30),30),?40,$J(ACHSDOCS,4)
  • Line Location: P1A+21
Function Call: WRITE
  • Prompt: ?51,X
  • Line Location: P1A+24
Function Call: WRITE
  • Prompt: ?66,X
  • Line Location: P1A+27
Function Call: WRITE
  • Prompt: !!
  • Line Location: P1A+29
Function Call: WRITE
  • Prompt: !!,$$REPEAT^XLFSTR("-",80),!,"SUBTOTAL",?10,ACHSCS,?40,$J(ACHSDST,4)
  • Line Location: SUBTOTL+1
Function Call: WRITE
  • Prompt: ?51,X
  • Line Location: SUBTOTL+4
Function Call: WRITE
  • Prompt: ?66,X
  • Line Location: SUBTOTL+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: SUBTOTL+8
Function Call: WRITE
  • Prompt: "PERCENTAGE OF CHGS ALLOWED TO CHGS BILLED",?64,$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),!!,"TOTAL",?10,ACHSCT,?40,$J(ACHSDOCT,4)
  • Line Location: TOTAL+1
Function Call: WRITE
  • Prompt: ?51,X
  • Line Location: TOTAL+4
Function Call: WRITE
  • Prompt: ?66,X,!
  • Line Location: TOTAL+7
Function Call: WRITE
  • Prompt: !
  • Line Location: TOTAL+8
Function Call: WRITE
  • Prompt: "PERCENTAGE OF CHGS ALLOWED TO CHGS BILLED"
  • Line Location: TOTAL+8
Function Call: WRITE
  • Prompt: "PERCENTAGE OF CHGS ALLOWED TO CHGS BILLED"
  • Line Location: TOTAL+8
Function Call: WRITE
  • Prompt: !!?3,"** HOSP - "_ACHS43T_" **",?32,"** DENT - "_ACHS57T_" **",?62,"** OUTP - "_ACHS64T_" **"
  • Line Location: TOTAL+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: TOTAL+11
Function Call: WRITE
  • Prompt: !!!,"NO DATA AVAILABLE FOR SPECIFIED CRITERIA",!!!!
  • Line Location: NODATA+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,?71,ACHSTIM,"*",!,"*User: ",ACHSUSR,?70,"Device:",IO,"*",!!
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: ?((80/2)-($L(X)/2)),X_ACHSPAGE
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !?((80/2)-($L(X)/2)),X,!,$$REPEAT^XLFSTR("*",80)
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !!?1,"CPTCODE",?40,"# DOCS #",?52,"$ CHG BLD $",?66,"$ CHG ALWD $",!,$$REPEAT^XLFSTR("~",80)
  • Line Location: HEADER1+1
Routine Call
  • DIR
  • Line Location:
    • P1A+29
    • SUBTOTL+13
    • TOTAL+11
    • NODATA+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTADA - [#9999999.31] P1A+13, P1A+17
^AUTTREVN - [#9999999.72] P1A+13, P1A+17
^TMP("ACHSCPT" P1+1, P1+4, P1A+1, P1A+3, P1A+4, P1A+5, P1A+31, END+5!, NODATA+6!
^TMP("ACHSINDX" P1A+10

Label References

Name Line Occurrences
END P1A+29, SUBTOTL+13, TOTAL+11
HEADER P1+5, P1A+28, P1A+29, NODATA+3
HEADER1 P1A+28, P1A+29
NODATA P1+4
P1 SUBTOTL+15, NODATA+8
P1A P1A+34
SUBTOTL P1A+2
TOTAL P1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACHS43 P1A+32*, P1A+33, END+3!
ACHS43S ACHSCPTC+8*, P1A+33*, SUBTOTL+9, SUBTOTL+11, SUBTOTL+14*, END+3!
ACHS43T ACHSCPTC+8*, SUBTOTL+11*, TOTAL+9, END+3!
ACHS57 P1A+32*, P1A+33, END+3!
ACHS57S ACHSCPTC+8*, P1A+33*, SUBTOTL+9, SUBTOTL+11, SUBTOTL+14*, END+3!
ACHS57T ACHSCPTC+8*, SUBTOTL+11*, TOTAL+9, END+4!
ACHS64 P1A+32*, P1A+33, END+4!
ACHS64S ACHSCPTC+8*, P1A+33*, SUBTOTL+9, SUBTOTL+11, SUBTOTL+14*, END+5!
ACHS64T ACHSCPTC+8*, SUBTOTL+11*, TOTAL+9, END+5!
ACHSBEG END+5!, HEADER+9
ACHSCHA P1A+5*, P1A+25, P1A+30, END+6!
ACHSCHAS ACHSCPTC+8*, P1A+30*, SUBTOTL+5, SUBTOTL+8, SUBTOTL+10, SUBTOTL+14*, END+6!
ACHSCHAT ACHSCPTC+8*, SUBTOTL+10*, TOTAL+5, TOTAL+8, END+6!
ACHSCHB P1A+4*, P1A+22, P1A+30, END+6!
ACHSCHBS ACHSCPTC+8*, P1A+30*, SUBTOTL+2, SUBTOTL+8, SUBTOTL+10, SUBTOTL+14*, END+6!
ACHSCHBT ACHSCPTC+8*, SUBTOTL+10*, TOTAL+2, TOTAL+8, END+6!
ACHSCOD P1A+17*, P1A+21, END+6!
ACHSCODE P1+3*, P1A+1*, P1A+2, P1A+3, P1A+4, P1A+5, P1A+10, P1A+13, P1A+17, P1A+31
, END+7!
ACHSCODP P1A+13*, P1A+21, END+7!
ACHSCS ACHSCPTC+8*, P1A+30*, SUBTOTL+1, SUBTOTL+10, SUBTOTL+14*, END+7!
ACHSCT ACHSCPTC+8*, SUBTOTL+10*, TOTAL+1, END+7!
ACHSDAT END+4!, HEADER+3*, HEADER+4
>> ACHSDCPT P1A+10*, P1A+13, P1A+17
ACHSDOC ACHSCPTC+7*, END+3!, END+4!
ACHSDOCS ACHSCPTC+8*, P1A+3*, P1A+21, P1A+30, END+3!
ACHSDOCT ACHSCPTC+8*, SUBTOTL+10*, TOTAL+1, END+4!
ACHSDST ACHSCPTC+7*, P1A+30*, SUBTOTL+1, SUBTOTL+10, SUBTOTL+14*, END+5!
ACHSEND END+7!, HEADER+9
ACHSPAGE ACHSCPTC+8*, SUBTOTL+14*, END+3!, NODATA+7*, HEADER+2*, HEADER+8
ACHSQIO END+7!
ACHSTIM END+4!, HEADER+3*, HEADER+6
ACHSUSR END+5!, HEADER+6
ACHSVNDR ACHSCPTC+9*, P1+1*, P1+2, P1+4, P1A+1, P1A+3, P1A+4, P1A+5, P1A+31, END+4!
, NODATA+6
C P1+4*, END+3!
DIR P1A+29!, SUBTOTL+12!, TOTAL+10!, END+7!, NODATA+1!, NODATA+6!
DIR(0 P1A+29*, SUBTOTL+13*, TOTAL+11*, NODATA+2*
I END+4!
IO HEADER+6
IO("S" P1A+29, SUBTOTL+13, TOTAL+11, NODATA+5
IOF HEADER+1
IOST P1A+28, P1A+29, SUBTOTL+13, TOTAL+11, NODATA+5
U P1A+3, P1A+4, P1A+5, P1A+13, P1A+17, P1A+32
X P1A+22*, P1A+24, P1A+25*, P1A+27, SUBTOTL+2*, SUBTOTL+4, SUBTOTL+5*, SUBTOTL+7, SUBTOTL+8*, TOTAL+2*
, TOTAL+4, TOTAL+5*, TOTAL+7, END+4!, HEADER+5*, HEADER+6, HEADER+7*, HEADER+8, HEADER+9*, HEADER+10
X2 P1A+22*, P1A+25*, SUBTOTL+2*, SUBTOTL+5*, TOTAL+2*, TOTAL+5*, END+5!
Y P1A+29, SUBTOTL+13, TOTAL+11, END+5!, NODATA+5, HEADER+3*
Z P1A+31*, P1A+32, TOTAL+8*, END+7!
>> ZTQUEUED END+1
>> ZTREQ END+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All