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

Package: Contract Health Management Information System

Routine: ACHS3PP4


Information

ACHS3PP4 ; IHS/ITSC/PMF - COMPILE CHS THIRD PARTY PAYMENT [ 10/16/2001 8:16 AM ]

Source Information

Source file <ACHS3PP4.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Contract Health Management Information System 3 $$LOC^ACHS  ^ACHS3PP5  BRPT^ACHSFU  
Kernel 3 ^%ZISC  $$HTE^XLFDT  $$REPEAT^XLFSTR  
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 ACHS3PP3  

Entry Points

Name Comments DBIA/ICR reference
P2 ;
NODATA ;
END ;Close device, kill variables, quit
PATHEAD ;
TOTL ;
HEADER ;Prints Heading
GETIDT ;
HEADER1 ;

External References

Name Field # of Occurrence
COMMA^%DTC GETIDT+10, GETIDT+13, GETIDT+16, TOTL+3, TOTL+6, TOTL+9
^%ZISC END+2
$$LOC^ACHS HEADER+6
^ACHS3PP5 NODATA+6
BRPT^ACHSFU ACHS3PP4+5
$$DIR^XBDIR GETIDT+21, TOTL+15, NODATA+5
$$HTE^XLFDT HEADER+4
$$REPEAT^XLFSTR TOTL+1, HEADER+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?1,ACHSDOC,?15,ACHSSERV,?23,ACHSIDT,?40
  • Line Location: GETIDT+8
Function Call: WRITE
  • Prompt: $J(X,12),?55
  • Line Location: GETIDT+11
Function Call: WRITE
  • Prompt: $J(X,12),?68
  • Line Location: GETIDT+14
Function Call: WRITE
  • Prompt: $J(X,12)
  • Line Location: GETIDT+17
Function Call: WRITE
  • Prompt: !!,$$REPEAT^XLFSTR("-",80),!?1,"TOTAL",?4,$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: !!?1,"# DOCS #"
  • Line Location: HEADER1+1
Function Call: WRITE
  • Prompt: ?41,"$ OBLIGD $",?55,"$ IHS PMT $",?70,"$ 3P PMT $",!
  • Line Location: HEADER1+3
Function Call: WRITE
  • Prompt: !!?1,"Patient: ",$G(ACHSPAT)," Chart #: ",$G(ACHSHRN)
  • Line Location: PATHEAD+1
Function Call: WRITE
  • Prompt: !!!,"NO DATA FOR SPECIFIED FISCAL YEAR"
  • Line Location: NODATA+1
Function Call: WRITE
  • Prompt: " FOR "_$G(ACHSSERP)_" SERVICE(S)"
  • Line Location: NODATA+3
Function Call: WRITE
  • Prompt: !!!!
  • Line Location: NODATA+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] P2+7
^TMP("ACHS3PP" ACHS3PP4+6, ACHS3PP4+13, P2+3, P2+4, END+8!, NODATA+2!

Label References

Name Line Occurrences
END ACHS3PP4+14, TOTL+15, NODATA+5, NODATA+7
GETIDT P2+9
HEADER ACHS3PP4+6, P2+1, GETIDT+19, GETIDT+23
HEADER1 P2+8
NODATA ACHS3PP4+6
P2 ACHS3PP4+13
PATHEAD P2+7
TOTL ACHS3PP4+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACHS0ST ACHS3PP4+9*, GETIDT+32*, TOTL+13, END+4!
>> ACHS0T ACHS3PP4+9*
ACHS3PP ACHS3PP4+7*, GETIDT+4*, GETIDT+15, GETIDT+26, END+3!
ACHS3PPS ACHS3PP4+7*, GETIDT+26*, TOTL+8, TOTL+12, END+3!
ACHS3PPT ACHS3PP4+7*, END+3!
ACHS43ST ACHS3PP4+8*, GETIDT+28*, TOTL+13, END+6!
ACHS43T ACHS3PP4+9*, END+6!
ACHS57ST ACHS3PP4+8*, GETIDT+29*, TOTL+13, END+6!
ACHS57T ACHS3PP4+9*, END+6!
ACHS64ST ACHS3PP4+9*, GETIDT+30*, TOTL+13, END+7!
ACHS64T ACHS3PP4+9*, END+7!
>> ACHSBM GETIDT+19, GETIDT+20
ACHSDAT END+3!, HEADER+4*, HEADER+5
ACHSDOC P2+1*, P2+3*, P2+4, GETIDT+8, END+3!
ACHSDOCS ACHS3PP4+7*, GETIDT+5*, TOTL+1, END+3!
ACHSDOCT ACHS3PP4+8*, END+3!
>> ACHSFAC ACHS3PP4+6, ACHS3PP4+12*, ACHS3PP4+13*, P2+3, P2+4
ACHSFLG P2+8, GETIDT+5*, GETIDT+19*, GETIDT+23*, END+6!, HEADER+18*
>> ACHSFY HEADER+14
ACHSHRN P2+7*, END+4!, PATHEAD+1
ACHSIDT GETIDT+1*, GETIDT+8, END+4!
ACHSIHSP ACHS3PP4+8*, GETIDT+4*, GETIDT+12, GETIDT+26, END+4!
ACHSIHSS ACHS3PP4+8*, GETIDT+26*, TOTL+5, TOTL+11, END+4!
ACHSIHST ACHS3PP4+8*, END+4!
ACHSOBL ACHS3PP4+7*, GETIDT+4*, GETIDT+9, GETIDT+26, END+5!
ACHSOBLS ACHS3PP4+7*, GETIDT+26*, TOTL+2, TOTL+11, TOTL+12, END+5!
ACHSOBLT ACHS3PP4+7*, END+5!
ACHSOT END+6!
ACHSPAGE ACHS3PP4+6*, ACHS3PP4+8*, P2+1*, END+6!, HEADER+3*, HEADER+11
ACHSPAT P2+7*, END+5!, PATHEAD+1
ACHSQIO END+4!
>> ACHSRTYP GETIDT+7, HEADER1+2
ACHSSER GETIDT+27, TOTL+13, END+7!, HEADER+16
ACHSSERP END+5!, HEADER+16*, NODATA+3
ACHSSERV GETIDT+2*, GETIDT+8, END+5!
ACHSTIM END+5!, HEADER+4*, HEADER+8
ACHSUSR END+5!, HEADER+8
C ACHS3PP4+8*, GETIDT+5*, END+5!
D GETIDT+1*, END+5!
DIR TOTL+14!, END+6!
I END+6!
IO HEADER+1, HEADER+8
IO("S" GETIDT+20, TOTL+15, NODATA+4
IOF HEADER+2
IOST GETIDT+19, GETIDT+20, TOTL+15, NODATA+4
OK ACHS3PP4+10~*, ACHS3PP4+13, ACHS3PP4+14, P2+3, GETIDT+20, GETIDT+21*, GETIDT+22
P P2+7*, END+5!
S GETIDT+2*, GETIDT+3, GETIDT+28, GETIDT+29, GETIDT+30, END+5!
S( GETIDT+3*
U P2+7, GETIDT+1, GETIDT+2, GETIDT+4
X GETIDT+9*, GETIDT+11, GETIDT+12*, GETIDT+14, GETIDT+15*, GETIDT+17, 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 GETIDT+9*, GETIDT+12*, GETIDT+15*, TOTL+2*, TOTL+5*, TOTL+8*, END+6!
Y END+6!, HEADER+4*
Z P2+4*, P2+5, P2+7, GETIDT+1, GETIDT+2, GETIDT+4, TOTL+11*, END+5!
>> 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