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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ACHSYAMT

Package: Contract Health Management Information System

Routine: ACHSYAMT


Information

ACHSYAMT ; IHS/ITSC/PMF - RECALC OBLIGATION AMOUNTS ; [ 10/16/2001 8:16 AM ]

Source Information

Source file <ACHSYAMT.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 4 ^%DT  H^%DTC  DT^DICRW  ^DIR  
Kernel 2 HOME^%ZIS  ^%ZTLOAD  
MailMan 1 ^XMD  

Entry Points

Name Comments DBIA/ICR reference
LOC ;
C ; Cancellation
Q2 ;EP - From DIR
END ;
RSLT(%)
P ; Payment
I ; Initial
DOC ;
WORK ;
ZA ; Adjustment
START ;EP - From Taskman
S ; Supplemental
INTRO ;
QUE ;
IP ;
TRANS ;

External References

Name Field # of Occurrence
^%DT QUE+2
H^%DTC QUE+5
HOME^%ZIS ACHSYAMT+12, QUE+8
^%ZTLOAD QUE+8
DT^DICRW ACHSYAMT+12
^DIR ACHSYAMT+16
^XMD START+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DUZ UNDEFINED OR 0."
  • Line Location: ACHSYAMT+11
Function Call: WRITE
  • Prompt: !,"QUEUE INFORMATION MISSING - NOT QUEUED",!!,"Okay.",!
  • Line Location: QUE+3
Function Call: WRITE
  • Prompt: !!,"QUEUED TO TASK ",ZTSK,!!,"A mail message with the results will be sent to your MailMan 'IN' basket.",!
  • Line Location: QUE+9
Function Call: WRITE
  • Prompt: !!,*7,"QUEUE UNSUCCESSFUL. RESTART UTILITY."
  • Line Location: QUE+10
Function Call: WRITE
  • Prompt: !!,"The results are in your MailMan 'IN' basket.",!
  • Line Location: START+8
Function Call: WRITE
  • Prompt: "."
  • Line Location: DOC+6
Function Call: WRITE
  • Prompt: !
  • Line Location: INTRO+1
Function Call: WRITE
  • Prompt: ?5,$P($T(INTRO+%),";;",2),!
  • Line Location: INTRO+1
Function Call: WRITE
  • Prompt: !
  • Line Location: Q2+1
Function Call: WRITE
  • Prompt: ?5,$P($T(Q2+%),";;",2),!
  • Line Location: Q2+1
Routine Call
  • %ZIS
  • Line Location:
    • ACHSYAMT+12
    • QUE+8
Routine Call
  • DIR
  • Line Location:
    • ACHSYAMT+16

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSF - [#9002080] LOC+1, DOC+1, DOC+3, TRANS+1, TRANS+2, TRANS+3, I+1*, S+1*, C+1*, P+1
, P+2*, P+3, P+4, P+5*, P+6, P+7*, ZA+1, ZA+2*, ZA+3*
^DIC(4 - [#4] LOC+3
^TMP("ACHSYAMT" QUE+9!, START+3!, START+6!, RSLT

Label References

Name Line Occurrences
@( TRANS+4
DOC DOC+4, TRANS+2
END LOC+2
INTRO ACHSYAMT+12
LOC DOC+2
Q2 ACHSYAMT+17, QUE+3
RSLT WORK+1, LOC+3, DOC+4, END+1, END+2
START ACHSYAMT+17
TRANS TRANS+5
WORK START+4

Naked Globals

Name Field # of Occurrence
^( RSLT*
^("IP" P+6
^("PA" P+5, P+6*, P+7
^("ZA" ZA+3
^(0 RSLT*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% TRANS+3*, TRANS+4, RSLT~, INTRO+1*, Q2+1*
>> %DT QUE+1*
>> %DT("A" QUE+1*
>> %DT("B" QUE+1*
>> %DT(0 QUE+1*
>> %H QUE+6
>> %T QUE+6
ACHSAMT END+3!, P+1*, P+2, ZA+1*, ZA+2
ACHSOBLG DOC+5*, END+3!, I+1*, S+1*, C+1*
C WORK+4*, DOC+5*, DOC+6, END+1, END+3!
D LOC+4*, DOC+1*, DOC+2, DOC+3, DOC+4, TRANS+1, TRANS+2, TRANS+3, END+3!, I+1
, S+1, C+1, P+1, P+2, P+3, P+4, P+5, P+6, P+7, ZA+1
, ZA+2, ZA+3
>> DIR("??" ACHSYAMT+15*
>> DIR("A" ACHSYAMT+14*
>> DIR("B" ACHSYAMT+13*
>> DIR(0 ACHSYAMT+13*
>> DIRUT ACHSYAMT+17
DUZ ACHSYAMT+11, START+5
>> L WORK+4*, LOC+1*, LOC+2, LOC+3, DOC+1, DOC+3, DOC+4, TRANS+1, TRANS+2, TRANS+3
, I+1, S+1, C+1, P+1, P+2, P+3, P+4, P+5, P+6, P+7
, ZA+1, ZA+2, ZA+3
T DOC+7*, TRANS+1*, TRANS+2, TRANS+3, END+3!, I+1, S+1, C+1, P+1, ZA+1
U LOC+3, TRANS+3, I+1, S+1, C+1, P+1, P+2, P+4, P+5, P+6
, P+7, ZA+1, ZA+2, ZA+3
>> X QUE+4*
XMDUZ START+2~, START+5*
XMSUB START+2~, START+5*
XMTEXT START+2~, START+5*
XMY START+2~
XMY( START+5*
XMY(1 START+5*
>> Y ACHSYAMT+17, QUE+3, QUE+4
>> ZTDESC QUE+7*
>> ZTDTH QUE+6*
>> ZTIO QUE+7*
>> ZTQUEUED START+7, DOC+6, RSLT
>> ZTREQ START+7*
>> ZTRTN QUE+7*
>> ZTSK QUE+9

Marked Items

Name Field # of Occurrence
$T( QUE+7, START+5
$T(INTRO+% INTRO+1
$T(Q2+% Q2+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All