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

Package: Contract Health Management Information System

Routine: ACHSDSTR


Information

ACHSDSTR ;IHS/OIT/FCJ-DOCUMENT STATUS REPORT BY FY; [ 09/06/2000 2:56 PM ]

Source Information

Source file <ACHSDSTR.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Contract Health Management Information System 4 BM^ACHS  ^ACHSDSTR1  (LINES,READ)^ACHSFU  ^ACHSVAR  
IHS VA Utilities 2 $$DIR^XBDIR  $$C^XBFUNC  
Kernel 2 ^%ZIS  ^%ZTLOAD  
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Contract Health Management Information System 2 ACHSDOCSTATUSREPFY-FILE  ACHSDOCSTATUSREPFYTOT  

Entry Points

Name Comments DBIA/ICR reference
A ;
ENDQ ;
C ;
B ;
D ;
QUES ;
A3 ;
A2 ;
FILE ;CREATE A FILE
DEVICE ;

External References

Name Field # of Occurrence
^%DT A2+1, A3+1
^%ZIS DEVICE+1, DEVICE+6
^%ZTLOAD DEVICE+4
BM^ACHS A+4
^ACHSDSTR1 DEVICE+5, DEVICE+6
LINES^ACHSFU A+4
READ^ACHSFU A2+1, A3+1, B+1, C+1, D+1
^ACHSVAR A+4
$$DIR^XBDIR FILE+2
$$C^XBFUNC A+1, A+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$C^XBFUNC("*** DOCUMENT STATUS REPORT ***",80)
  • Line Location: A+1
Function Call: WRITE
  • Prompt: !!,$$C^XBFUNC("for "_$P(^DIC(4,DUZ(2),0),"^"),80)
  • Line Location: A+2
Function Call: WRITE
  • Prompt: !!,"Enter the BEGINNING ISSUE DATE for this report: "
  • Line Location: A2+1
Function Call: WRITE
  • Prompt: !!,*7,"Do not use future dates."
  • Line Location: A2+1
Function Call: WRITE
  • Prompt: !!,"Enter the ENDING ISSUE DATE for this report: "
  • Line Location: A3+1
Function Call: WRITE
  • Prompt: !!,*7,"Do not use future dates."
  • Line Location: A3+1
Function Call: WRITE
  • Prompt: !!,*7,"INVALID ENTRY - The END is before the BEGINNING."
  • Line Location: A3+2
Function Call: WRITE
  • Prompt: !!,"Which type of report?",!!," 1. OPEN DOCUMENTS only",!," 2. CLOSED DOCUMENTS only",!," 3. COMBINED list",!!," ENTER OPTION (1-3) 3//"
  • Line Location: B+1
Function Call: WRITE
  • Prompt: !!,*7," Enter only a 1, 2, or 3"
  • Line Location: B+3
Function Call: WRITE
  • Prompt: !!,"Choice 1 - only open documents will be listed.",!,"Choice 2 - only documents which have been paid or cancelled will be listed.",!,"Choice 3 - open and closed documents will be listed together."
  • Line Location: QUES+1
Function Call: WRITE
  • Prompt: !!,"TYPE OF DATA ON REPORT: ",!!," 1. TOTALS ONLY",!," 2. DETAILED DOCUMENTS & TOTALS",!!," ENTER 1 or 2: 1//"
  • Line Location: C+1
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: C+3
Function Call: WRITE
  • Prompt: !!,"Enter Fiscal Year (e.g. 2016): "
  • Line Location: D+1
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: D+3
Function Call: WRITE
  • Prompt: !!,*7,"NO DATA ON FILE FOR FY!!"
  • Line Location: D+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVICE+1
Function Call: WRITE
  • Prompt: !,*7,"No device specified."
  • Line Location: DEVICE+1
Function Call: WRITE
  • Prompt: *7,!,"Please queue to printers only."
  • Line Location: DEVICE+2
Function Call: WRITE
  • Prompt: !,*7,"Device ",IO," busy."
  • Line Location: DEVICE+7
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+1
    • DEVICE+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHS(9 - [#9002069] D+4
^DIC(4 - [#4] A+2

Label References

Name Line Occurrences
A B+2
A2 A2+1, A3+1, A3+2
A3 A3+1
B A3+2, B+3, QUES+1, C+2
C B+2, C+3, D+2
D D+3, D+4, FILE+3
DEVICE FILE+1, DEVICE+2, DEVICE+7
ENDQ B+2, C+2, D+2, FILE+3, DEVICE+4
QUES B+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % FILE+2*, FILE+4
>> %DT A2+1*, A3+1*
%ZIS DEVICE+1*!
%ZIS("B" DEVICE+1!
>> ACHSFIL FILE+1*, FILE+4*
ACHSIO A+3*, ENDQ+1!
>> ACHSRTYP FILE+1
BDATE A2+1*, A3+2, DEVICE+3, ENDQ+1!
DFOUT A2+1, A3+1, B+2, C+2, D+2, ENDQ+1!
DLOUT A2+1, A3+1, B+1, C+1, D+2, ENDQ+1!
DQOUT A2+1, A3+1, B+2, ENDQ+1!
DT A2+1, A3+1
DTOUT A2+1, A3+1, B+2, C+2, D+2, FILE+3, ENDQ+1!
DUOUT A2+1, A3+1, B+2, C+2, D+2, FILE+3, ENDQ+1!
DUZ(2 A+2, D+4
EDATE A3+1*, A3+2, DEVICE+3, ENDQ+1!
>> G DEVICE+3*
IO A+3, DEVICE+1, DEVICE+5, DEVICE+6, DEVICE+7
IO("Q" DEVICE+2!, DEVICE+3!
IOP DEVICE+1!*, DEVICE+6*
IOST DEVICE+2
>> POP DEVICE+6
>> TOTFY D+5*
>> TOTFYN D+5*
>> TOTONLY C+2*, C+3
>> TYPE B+2*, DEVICE+3
X A2+1*, A3+1*, ENDQ+1!
Y A2+1*, A3+1*, B+1*, B+2, C+1*, C+2, D+3, D+4, D+5, ENDQ+1!
>> ZTDESC DEVICE+3*
>> ZTRTN DEVICE+3*
>> ZTSAVE( DEVICE+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All