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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ACHSUSC

Package: Contract Health Management Information System

Routine: ACHSUSC


Information

ACHSUSC ; IHS/ITSC/PMF - DISPLAY DOCUMENT CANCEL/SUPPLEMENTAL INFO ; [ 10/31/2003 12:13 PM ]

Source Information

Source file <ACHSUSC.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Contract Health Management Information System 4 ($$DOC,$$PARM)^ACHS  ^ACHSAV  INIT^ACHSRP2  ^ACHSUD  
IHS VA Utilities 2 $$DIR^XBDIR  $$EXTSET^XBFUNC  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
Contract Health Management Information System 9 ACHSAC  ACHSAD  ACHSAJ  ACHSAS  ACHSBUG3  ACHSCHK  ACHSCHK1  ACHSPA  
ACHSPAM  

Entry Points

Name Comments DBIA/ICR reference
B4 ;
END ;
B5 ;
ENDA ;
BC ;
FMT(X) ;
A1 ;
A0 ;
B1 ;WRITE TOTALS FOUND ABOVE
B2 ;
B3 ;
BC5 ;
BC6 ;
A0A ;EP.
C1 ;
B2A ;

External References

Name Field # of Occurrence
$$DOC^ACHS B5+1, B5+3, B5+5, B5+6, B5+11, BC6+2
$$PARM^ACHS B5+3, B5+5
^ACHSAV A0+6
INIT^ACHSRP2 A0+5
^ACHSUD A0+1
$$DIR^XBDIR C1+3
$$EXTSET^XBFUNC BC6+2
$$FMTE^XLFDT B5+2, B5+5, BC6+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7," The Register Has Been CLOSED."
  • Line Location: ACHSUSC+4
Function Call: WRITE
  • Prompt: !?4,"Initial Obligation",?30,$J(ACHSPAYA,8,2)
  • Line Location: B1+1
Function Call: WRITE
  • Prompt: !?4,"Amount Canceled:",?30,$J("-"_B,8,2),?40,"(",C," Item",$S(C=1:"",1:"s"),")"
  • Line Location: B1+3
Function Call: WRITE
  • Prompt: !?4,"Amount Of Supplements",?30,$J("+"_A,8,2),?40,"(",A("DT")," )"
  • Line Location: B1+4
Function Call: WRITE
  • Prompt: !?30,"--------",!,"CURRENT OBLIGATION BALANCE",?30,$J(ACHSBAL,8,2)
  • Line Location: B2+2
Function Call: WRITE
  • Prompt: ?46,"(IHS)",?52,"(3rd PARTY)"
  • Line Location: B2+8
Function Call: WRITE
  • Prompt: !?5,$S(ACHSIPN<2:" ",1:""),ACHSIPN
  • Line Location: B2+18
Function Call: WRITE
  • Prompt: " Interim Payment",$S(ACHSIPN<2:"",1:"s")
  • Line Location: B2+18
Function Call: WRITE
  • Prompt: " Interim Payment",$S(ACHSIPN<2:"",1:"s")
  • Line Location: B2+18
Function Call: WRITE
  • Prompt: !?5,$S(ACHSIPN<2:" ",1:""),ACHSIPN," Interim Payment",$S(ACHSIPN<2:"",1:"s")," for a Total of:",$$FMT(ACHSIPP),$$FMT(ACHSIPP3),", as of ",ACHSIPDT
  • Line Location: B2+21
Function Call: WRITE
  • Prompt: !?17,"Amount of Adjustments:",$$FMT(ACHSZA),$$FMT(ACHSZA1)," (",ACHSZC," Item",$S(ACHSZC=1:"",1:"s"),")"
  • Line Location: B4+3
Function Call: WRITE
  • Prompt: !?9,"FINAL PAYMENT ON ",$$FMTE^XLFDT(Y),":",$$FMT(ACHS(1)),$$FMT(ACHS(2))
  • Line Location: B5+2
Function Call: WRITE
  • Prompt: !?31,"CHECK #:",$J($$DOC^ACHS(2,2),12)
  • Line Location: B5+3
Function Call: WRITE
  • Prompt: !?9,"DATE CHECK WAS ISSUED: ",$$FMTE^XLFDT(Y)
  • Line Location: B5+5
Function Call: WRITE
  • Prompt: !?24,"TOTAL PAYMENTS:",$$FMT(ACHSDOCT),$$FMT(ACHS(2)+ACHSZA1+ACHSIPP3)
  • Line Location: B5+8
Function Call: WRITE
  • Prompt: *7,!!,"DOCUMENT CANCELLED ON ",$$FMTE^XLFDT($P(^ACHSF(DUZ(2),"D",ACHSDIEN,"T",R,0),U)),", Reason: ",$$EXTSET^XBFUNC(9002080.01,63,$$DOC^ACHS(2,8))
  • Line Location: BC6+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHS(9 - [#9002069] ACHSUSC+4
^ACHSF - [#9002080] A0A+4, A1+3, A1+4, B2+1, B2+11, B2+12, B2+13, B2+14, B2+18, B2+21
, B3+1, B3+2, B4+2, B5+7, B5+10, BC5+1, BC6+2

Label References

Name Line Occurrences
$$FMT B2+18, B2+21, B4+3, B5+2, B5+8
A0 ENDA+3
B2A B2+18
B3 B3+3
B4 B3+1
B5 B4+2
BC B2A+1
BC5 BC5+2
BC6 BC5+1
C1 B5+10, B5+11
END ACHSUSC+4, A0+2, B4+1, B5+12, C1+4
ENDA B5+12, BC6+1, BC6+3, C1+4

Naked Globals

Name Field # of Occurrence
^( B3+1, BC5+1
^("ZA" B5+7
^(0 ACHSUSC+4, BC5+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A A0A+1*, A1+8*, B1+4
>> A("DT" A0A+1*, A1+8*, B1+4
>> ACHS(1 B5+1*, B5+2
>> ACHS(2 B5+1*, B5+2, B5+8
>> ACHSADJ B5+12
>> ACHSBAL B2+1*, B2+2
>> ACHSCFY ACHSUSC+4
>> ACHSDIEN A0+2, A0A+4, A1+3, A1+4, B2+1, B2+11, B2+12, B2+13, B2+14, B2+18
, B2+21, B3+1, B3+2, B4+2, B5+7, B5+10, BC5+1, BC6+2
>> ACHSDOC0 B2A+1
>> ACHSDOCT B5+6*, B5+7*, B5+8
>> ACHSDVEW ENDA+2
>> ACHSFYWK( ACHSUSC+4
ACHSIPD ENDA+1!
ACHSIPDT B2+14*, B2+15*, B2+21, B4+1!
ACHSIPN B2+13*, B2+18, B2+21, B4+1!, ENDA+1!
ACHSIPP B2+12*, B2+18, B2+21, B4+1!, ENDA+1!
>> ACHSIPP3 A0A+1*, A1+17*, B2+18, B2+21, B5+8
>> ACHSNOTF A1+1
>> ACHSPAYA A0A+4*, B1+1
ACHSSIG A0+4!
>> ACHSTIEN A0+3*
>> ACHSTR0 A1+1*, A1+4*, A1+5, A1+8, A1+11, A1+15, A1+17
>> ACHSTRAN A1+2*, A1+3*, A1+4
>> ACHSTTYP A1+1*, A1+5*, A1+8, A1+11, A1+15, A1+17
>> ACHSVIEW ACHSUSC+4, C1+1
ACHSZA A0A+1*, A1+15*, B4+3, END+1!
>> ACHSZA1 A0A+1*, A1+15*, B4+3, B5+8
ACHSZC A0A+1*, A1+15*, B4+3, B5+11, END+1!
>> B A0A+1*, A1+11*, B1+3
>> C A0A+1*, A1+11*, B1+3
DT ACHSUSC+4
>> DTOUT A0+2, C1+4
>> DUOUT A0+2, C1+4
DUZ(2 ACHSUSC+4, A0A+4, A1+3, A1+4, B2+1, B2+11, B2+12, B2+13, B2+14, B2+18
, B2+21, B3+1, B3+2, B4+2, B5+7, B5+10, BC5+1, BC6+2
>> R B2A+4*, B3+1*, B3+2, BC+1*, BC5+1*, BC6+2
>> S A0A+1*, A1+8*
U ACHSUSC+4, A0A+4, A1+5, A1+8, A1+11, A1+15, A1+17, B2+1, B2+12, B2+13
, B2+14, B2A+1, B3+2, B5+7, BC5+1, BC6+2
X B2A+4*, B3+2*, B3+3, B4+1, BC+1*, BC5+1*, BC5+2, BC6+1, FMT~, FMT+1
X2 B5+9!
X3 B5+9!
>> Y B5+1*, B5+2, B5+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All