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

Package: Contract Health Management Information System

Routine: ACHS3PPT


Information

ACHS3PPT ; IHS/OIT/FCJ - PRINT THIRD PARTY PAYMENT REPORT ALL PATIENTS BY INS ;

Source Information

Source file <ACHS3PPT.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZISC  $$HTE^XLFDT  $$REPEAT^XLFSTR  
Contract Health Management Information System 2 $$LOC^ACHS  ^ACHS3PPQ  
IHS VA Utilities 1 $$DIR^XBDIR  
VA Fileman 1 COMMA^%DTC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHS3PPP  

Entry Points

Name Comments DBIA/ICR reference
P2 ;
HEADER ;Prints Heading
P1 ;
END ;Close device, kill variables, quit
TOT2 ;
DETAIL ;
TOTL ;
PRT ;Prints Data
HEADER1 ;
NODATA ;

External References

Name Field # of Occurrence
COMMA^%DTC PRT+5, PRT+8, PRT+11, TOT2+5, TOT2+8, TOT2+11, TOTL+3, TOTL+6, TOTL+9
^%ZISC END+2
$$LOC^ACHS HEADER+6
^ACHS3PPQ NODATA+4
$$DIR^XBDIR PRT+14, TOT2+14, TOTL+15, NODATA+4
$$HTE^XLFDT HEADER+4
$$REPEAT^XLFSTR TOT2+1, TOTL+1, HEADER+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?1,ACHSDOC,?15,ACHSSERV,?23,ACHSIDT,?40
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: $J(X,12),?55
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: $J(X,12),?68
  • Line Location: PRT+9
Function Call: WRITE
  • Prompt: $J(X,12)
  • Line Location: PRT+12
Function Call: WRITE
  • Prompt: !?1,"TOTAL",?10,$J(ACHSDOCT,4)
  • Line Location: TOT2+3
Function Call: WRITE
  • Prompt: ?40,$J(X,12)
  • Line Location: TOT2+6
Function Call: WRITE
  • Prompt: ?55,$J(X,12)
  • Line Location: TOT2+9
Function Call: WRITE
  • Prompt: ?68,$J(X,12)
  • Line Location: TOT2+12
Function Call: WRITE
  • Prompt: !!,$$REPEAT^XLFSTR("-",80),!?1,"TOTAL",?10,$J(ACHSDOCS,4)
  • Line Location: TOTL+1
Function Call: WRITE
  • Prompt: ?40,$J(X,12)
  • Line Location: TOTL+4
Function Call: WRITE
  • Prompt: ?55,$J(X,12)
  • Line Location: TOTL+7
Function Call: WRITE
  • Prompt: ?68,$J(X,12)
  • Line Location: TOTL+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: TOTL+11
Function Call: WRITE
  • Prompt: "PERCENTAGE OF PAYMENT TO OBLIGATED",?61,$E(Z,1,5)_"%"
  • Line Location: TOTL+11
Function Call: WRITE
  • Prompt: ?74,$E(X,1,5)_"%"
  • Line Location: TOTL+12
Function Call: WRITE
  • Prompt: !?5,"*HOSP - ",ACHS43ST,"*",?25,"*DENT - ",ACHS57ST,"*",?45,"*OUTP - ",ACHS64ST,"*",?65,"*UNKN - ",ACHS0ST,"*"
  • Line Location: TOTL+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,"*",ACHSDAT
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: ?((80/2)-($L(X)/2)),X
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: ?71,ACHSTIM,"*",!,"*User: ",ACHSUSR,?70,"Device:",IO,"*"
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: ?((80/2)-($L(X)/2)),X_ACHSPAGE
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: ?((80/2)-($L(X)/2)),X_ACHSFY
  • Line Location: HEADER+14
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+15
Function Call: WRITE
  • Prompt: ?33,"SERVICE: "_ACHSSERP
  • Line Location: HEADER+16
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+16
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("*",80)
  • Line Location: HEADER+17
Function Call: WRITE
  • Prompt: !!
  • Line Location: HEADER1+1
Function Call: WRITE
  • Prompt: "PAYOR"
  • Condition for execution: ACHSRTYP["T"
  • Line Location: HEADER1+1
Function Call: WRITE
  • Prompt: ?41,"$ OBLIGD $",?55,"$ IHS PMT $",?70,"$ 3P PMT $"
  • Line Location: HEADER1+3
Function Call: WRITE
  • Prompt: !!!,"NO DATA FOR SPECIFIED FISCAL YEAR"
  • Line Location: NODATA+1
Function Call: WRITE
  • Prompt: " FOR "_ACHSSERP_" SERVICE(S)"
  • Line Location: NODATA+3
Function Call: WRITE
  • Prompt: !!!!
  • Line Location: NODATA+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTNINS - [#9999999.18] P2+4
^TMP("ACHS3PP" P1+1, P1+7, P1+9, P1+10, P1+12, P1+13, P2+2, P2+5, P2+6, P2+7
, P2+8, END+9!, NODATA+2!

Label References

Name Line Occurrences
DETAIL P1+14, P2+9
END PRT+14, TOT2+14, TOTL+15, NODATA+4, NODATA+5
HEADER P1+2, PRT+13, PRT+14, TOT2+14, TOT2+15
P2 P1+6
PRT P1+14, P2+9
TOT2 P1+16, P2+11
TOTL P1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACHS0ST DETAIL+11*, TOTL+13, END+4!
ACHS3PP DETAIL+3*, DETAIL+5, DETAIL+6, PRT+10, END+3!
ACHS3PPS DETAIL+5*, TOTL+8, TOTL+12, END+3!
ACHS3PPT P1+5*, DETAIL+6*, TOT2+10, END+3!
ACHS43ST DETAIL+8*, TOTL+13, END+6!
ACHS43T END+6!
ACHS57ST DETAIL+9*, TOTL+13, END+6!
ACHS57T END+6!
ACHS64ST DETAIL+10*, TOTL+13, END+7!
ACHS64T END+7!
>> ACHSBM ACHS3PPT+5*, PRT+13, PRT+14, TOT2+14
ACHSDAT END+3!, HEADER+4*, HEADER+5
ACHSDOC P1+4*, P1+7*, P1+9, P1+10, P1+12, P1+13, P2+3*, P2+5*, P2+6, P2+7
, P2+8, PRT+3, END+3!
ACHSDOCS DETAIL+4*, TOTL+1, END+3!
ACHSDOCT P1+5*, P2+3*, DETAIL+4*, TOT2+3, END+3!
>> ACHSFAC P1+1*, P1+7, P1+9, P1+10, P1+12, P1+13, P2+2, P2+5, P2+6, P2+7
, P2+8
ACHSFLG P1+4*, DETAIL+4*, PRT+13*, PRT+14*, END+6!, HEADER+18*
ACHSFLG1 P1+2*, P1+4*, P1+16*, P2+3*, P2+11*, PRT+1*, PRT+13*, PRT+14*, TOT2+15*, END+6!
, HEADER1+4*
>> ACHSFY HEADER+14
ACHSHRN END+4!
ACHSI P2+1*, P2+2*, P2+4, P2+5, P2+7, P2+8, END+8!
ACHSIDT DETAIL+1*, PRT+3, END+4!
ACHSIHSP DETAIL+3*, DETAIL+5, DETAIL+6, PRT+7, END+4!
ACHSIHSS DETAIL+5*, TOTL+5, TOTL+11, END+4!
ACHSIHST P1+5*, P2+3*, DETAIL+6*, TOT2+7, END+4!
ACHSINS P1+2*, P1+11*, P2+4*, PRT+1, TOT2+2, END+8!, HEADER1+4
>> ACHSINSP P1+5*, P1+12*, P2+3*, P2+7*, DETAIL+6, PRT+10
ACHSINSS P1+5*, DETAIL+5*, END+8!
ACHSINST P1+8*, P1+12*, P2+1*, P2+8*, DETAIL+5, END+8!
>> ACHSINSX P1+5*, P2+3*, DETAIL+6*, TOT2+10
ACHSOBL DETAIL+3*, DETAIL+5, DETAIL+6, PRT+4, END+5!
ACHSOBLS DETAIL+5*, TOTL+2, TOTL+11, TOTL+12, END+5!
ACHSOBLT P1+5*, P2+3*, DETAIL+6*, TOT2+4, END+5!
ACHSOT END+6!
ACHSPAGE P1+2*, END+6!, HEADER+3*, HEADER+11
ACHSPAT END+5!
ACHSQIO END+4!
ACHSRTYP P1+14, P2+9, TOT2+1, TOT2+2, TOT2+15, END+8!, HEADER1+1, HEADER1+2
ACHSSER DETAIL+7, TOTL+13, END+7!, HEADER+16
ACHSSERP END+5!, HEADER+16*, NODATA+3
ACHSSERV DETAIL+2*, PRT+3, END+5!
ACHSTIM END+5!, HEADER+4*, HEADER+8
ACHSUSR END+5!, HEADER+8
ACHSX P1+3*, P1+6, P1+7, P1+10, P1+11, P1+12, P1+13, P2+2, P2+5, P2+7
, P2+8, PRT+10, TOT2+10, END+8!
C DETAIL+4*, END+5!
D DETAIL+1*, END+5!
DIR TOT2+13!, TOTL+14!, END+6!
>> DUOUT P1+1, P1+3, P1+7, P1+15, P2+2, P2+5, P2+10
I END+6!
IO HEADER+1, HEADER+8
IO("S" PRT+14, TOT2+14, TOTL+15, NODATA+4
IOF HEADER+2
IOST PRT+13, PRT+14, TOT2+14, TOTL+15, NODATA+4
P END+5!
S DETAIL+2*, DETAIL+8, DETAIL+9, DETAIL+10, DETAIL+11, END+5!
U P1+13, P2+4, P2+8, DETAIL+1, DETAIL+2, DETAIL+3
X PRT+4*, PRT+6, PRT+7*, PRT+9, PRT+10*, PRT+12, TOT2+4*, TOT2+6, TOT2+7*, TOT2+9
, TOT2+10*, TOT2+12, TOTL+2*, TOTL+4, TOTL+5*, TOTL+7, TOTL+8*, TOTL+10, TOTL+12*, END+6!
, HEADER+6*, HEADER+7, HEADER+10*, HEADER+11, HEADER+13*, HEADER+14
X2 PRT+4*, PRT+7*, PRT+10*, TOT2+4*, TOT2+7*, TOT2+10*, TOTL+2*, TOTL+5*, TOTL+8*, END+6!
Y END+6!, HEADER+4*
Z P1+9*, P2+6*, DETAIL+1, DETAIL+2, DETAIL+3, TOTL+11*, END+5!
>> Z1 P1+10*
>> 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