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

Package: Contract Health Management Information System

Routine: ACHSPAI


Information

ACHSPAI ; IHS/ITSC/PMF - DOCUMENT PAYMENT - INTEREST & PENALTY ; [ 10/16/2001 8:16 AM ]

Source Information

Source file <ACHSPAI.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Contract Health Management Information System 4 ($$DIET,RTRN)^ACHS  ^ACHSEOBG  SEL^ACHSPAM  (,$$SELTRANS)^ACHSUD  
IHS VA Utilities 2 $$VAL^XBDIQ1  $$DIR^XBDIR  
Kernel 1 $$REPEAT^XLFSTR  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Contract Health Management Information System 4 ACHS CALC INTEREST  ACHS EDIT INTEREST  ACHS INTEREST DISPLAY  ACHSEOB3  

Entry Points

Name Comments DBIA/ICR reference
DISP ;EP - Display Interest info from selected doc.
PROMPT ; Prompt user for input to Interest fields from EOBR.
EDIT ;EP - From Option. Edit Interest and Penalty Data.
AUTO ;EP - For auto EOBR processing of Interest data.
PROCESS ;TRY TO ENTER THE DATA
INT ;EP - Calculate Interest amount.
END ; Kill vars, quit.

External References

Name Field # of Occurrence
$$DIET^ACHS PROCESS+1
RTRN^ACHS EDIT+11, DISP+7, INT+12
^ACHSEOBG PROCESS+3, AUTO+6, AUTO+12
SEL^ACHSPAM EDIT+3
^ACHSUD DISP+1
$$SELTRANS^ACHSUD PROMPT+4, DISP+3
$$VAL^XBDIQ1 PROMPT+7, DISP+6
$$DIR^XBDIR PROMPT+7, INT+3, INT+5, INT+7
$$REPEAT^XLFSTR DISP+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,$P(^DD(9002080.02,ACHS,0),U),$E($$REPEAT^XLFSTR(".",35),1,35-$L($P(^(0),U)))," ",$$VAL^XBDIQ1(9002080.02,.DA,ACHS)
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !,"You need to enter Pay amount, Interest rate, and # days late."
  • Line Location: INT+2
Function Call: WRITE
  • Prompt: !,"The calculated Interest Amount is $",$FN(ACHSP*ACHSI*.01*ACHSD/360,",",2)
  • Line Location: INT+9
Function Call: WRITE
  • Prompt: !," ( amt * rate * days / 360 )"
  • Line Location: INT+10
Function Call: WRITE
  • Prompt: !," ( ",ACHSP," * ( ",ACHSI," * .01 ) * ",ACHSD," / 360 )"
  • Line Location: INT+11

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHS(2 - [#9002062] AUTO+4
^ACHS(3 - [#9002063] AUTO+10
^DD(9002080.02 DISP+6

Label References

Name Line Occurrences
END EDIT+4, EDIT+7, EDIT+13
PROCESS EDIT+9, AUTO+35
PROMPT EDIT+6

Naked Globals

Name Field # of Occurrence
^(0 DISP+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % AUTO+4*, AUTO+5, AUTO+10*, AUTO+11, AUTO+16*, AUTO+24*, AUTO+28*, AUTO+32*
>> ACHS PROMPT+7*, DISP+6*, AUTO+1*
>> ACHS( PROMPT+7*, AUTO+1*
>> ACHS(22 PROCESS+1, AUTO+4, AUTO+5*, AUTO+6, AUTO+7*
>> ACHS(23 PROCESS+1, AUTO+10, AUTO+11*, AUTO+12, AUTO+13*
>> ACHS(24 PROCESS+1, AUTO+16*, AUTO+17*
>> ACHS(25 PROCESS+1, AUTO+20*, AUTO+21*
>> ACHS(26 PROCESS+1, AUTO+24*, AUTO+25*
>> ACHS(27 PROCESS+1, AUTO+28*, AUTO+29*
>> ACHS(28 PROCESS+1, AUTO+32*, AUTO+33*
ACHSD INT+1~, INT+7*, INT+9, INT+11
>> ACHSDIEN EDIT+4, PROMPT+3, PROMPT+4, PROMPT+6, DISP+2, DISP+3, DISP+5
>> ACHSEDAT PROCESS+3*, AUTO+6*, AUTO+12*
>> ACHSEOBR("I" AUTO+1
>> ACHSERRE PROCESS+3*, AUTO+6*, AUTO+12*
ACHSI INT+1~, INT+5*, INT+9, INT+11
>> ACHSISAO PROCESS+3
ACHSP INT+1~, INT+3*, INT+9, INT+11
>> ACHSTIEN PROMPT+4*, PROMPT+6, DISP+3*, DISP+5
D0 END+1!, PROMPT+2*
D1 END+1!, PROMPT+3*
>> DA PROMPT+6*, PROMPT+7, DISP+5*, DISP+6
>> DA(1 PROMPT+6*, DISP+5*
>> DA(2 PROMPT+6*, DISP+5*
DIC PROMPT+1~
DIE PROMPT+1~
DR END+1!
>> DTOUT EDIT+4, EDIT+7, PROMPT+5, PROMPT+7, DISP+2, DISP+4, INT+4, INT+6, INT+8
>> DUOUT EDIT+4, EDIT+7, PROMPT+5, PROMPT+7, DISP+2, DISP+4, INT+4, INT+6, INT+8
DUZ(2 PROMPT+2, PROMPT+6, DISP+5, AUTO+10
U PROCESS+1, DISP+6
>> X PROMPT+7
>> ZTQUEUED PROCESS+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All