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

Package: Contract Health Management Information System

Routine: ACHSDSTL


Information

ACHSDSTL ;IHS/OIT/FCJ - DOCUMENT STATUS REPORT BY FY; [ 02/09/2001 10:54 AM ]

Source Information

Source file <ACHSDSTL.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Contract Health Management Information System 3 ($$DATE,$$EBB,BM,ERPT,NOW,RTRN)^ACHS  (LINES,READ)^ACHSFU  ^ACHSVAR  
Kernel 3 ^%ZIS  ^%ZTLOAD  $$FMTE^XLFDT  
IHS VA Utilities 1 $$C^XBFUNC  
VA Fileman 1 COMMA^%DTC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHSDOCSTATUSSPLOC  

Entry Points

Name Comments DBIA/ICR reference
P2 ;
STAT ;
ENDQ ;
FY ;
HEAD ;HEADING FOR TOTAL ONLY REPORT
TOT ;
P1 ;
TOTONLY ;ENTRY POINT TO ONLY CALCULATE TOTALS FOR TOTAL ONLY PRINT
PRINT ;
END ;
TOTAL ;
E1 ;
A ; Main loop.
C ;
B ;
E ;
D ;
BDT ; Enter beginning date.
TOTTYP ;PRINT DOCUMENT TOTALS BY TYPE
DEVICE ;
ENDMOPT ;PRINT OUT EACH MONTH TOTALS
MONEY ;
ST ;
EDT ; Enter the ending date.
TOTDOC ;
TYPE ;

External References

Name Field # of Occurrence
COMMA^%DTC MONEY+1
^%ZIS DEVICE+1, DEVICE+6
^%ZTLOAD DEVICE+4
$$DATE^ACHS BDT+1, EDT+1
$$EBB^ACHS EDT+2
BM^ACHS ST+5
ERPT^ACHS END+1
NOW^ACHS ST+5
RTRN^ACHS PRINT+2, TOTDOC+6
LINES^ACHSFU ACHSDSTL+8, ST+1
READ^ACHSFU TOT+2, FY+1
^ACHSVAR ACHSDSTL+8, ST+1
$$C^XBFUNC ACHSDSTL+5, ACHSDSTL+6, ST+3, ST+4
$$FMTE^XLFDT PRINT+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$C^XBFUNC("*** DOCUMENT STATUS REPORT FOR SPECIAL LOCAL PO'S ***",80)
  • Line Location: ACHSDSTL+5
Function Call: WRITE
  • Prompt: !!,$$C^XBFUNC("for "_$P(^DIC(4,DUZ(2),0),"^"),80)
  • Line Location: ACHSDSTL+6
Function Call: WRITE
  • Prompt: !!,"TYPE OF DATA ON REPORT: ",!!," 1. TOTALS ONLY",!," 2. DETAILED DOCUMENTS & TOTALS",!!," ENTER 1 or 2: 1//"
  • Line Location: TOT+2
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: TOT+4
Function Call: WRITE
  • Prompt: !!,"Enter Fiscal Year (e.g. 2016): "
  • Line Location: FY+1
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: FY+3
Function Call: WRITE
  • Prompt: !!,*7,"NO DATA ON FILE FOR FY!!"
  • Line Location: FY+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
Function Call: WRITE
  • Prompt: !,$E(ACHSNAME,1,24),?25,$E(A("VENDOR"),1,26),?52,$$FMTE^XLFDT(ACHSBDT,"2D"),?63,ACHSSTA
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: $S(ACHSSTS="P":"PAID",1:"CANCEL")
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: ?79-$L(X),X
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: ?79-$L(X),X
  • Line Location: P1+1
Function Call: WRITE
  • Prompt: !,A("DOC"),?25,EIN
  • Line Location: P2+1
Function Call: WRITE
  • Prompt: ?52,$S(+TOS=1:"HOSPITAL",+TOS=2:"DENTAL",+TOS=3:"OUTPATIENT",1:"")
  • Line Location: P2+1
Function Call: WRITE
  • Prompt: !!,?10,"Month Issued",?30,"# of Documents",?65,"Total Amount",!,ACHS("-")
  • Line Location: TOTAL+3
Function Call: WRITE
  • Prompt: !!,ACHS("-"),!
  • Line Location: TOTAL+5
Function Call: WRITE
  • Prompt: ?79-$L(X),X,!
  • Line Location: TOTTYP+2
Function Call: WRITE
  • Prompt: ?79-$L(X),X,!
  • Line Location: TOTTYP+4
Function Call: WRITE
  • Prompt: ?79-$L(X),X,!
  • Line Location: TOTTYP+6
Function Call: WRITE
  • Prompt: !,ACHS("-"),!
  • Line Location: TOTDOC+1
Function Call: WRITE
  • Prompt: "TOTAL DOCUMENTS: ",?32-$L(TOTDOC),TOTDOC,?40,"TOTAL DOLLARS: "
  • Line Location: TOTDOC+4
Function Call: WRITE
  • Prompt: ?79-$L(X),X
  • Line Location: TOTDOC+4
Function Call: WRITE
  • Prompt: !
  • Line Location: TOTDOC+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TOTDOC+6
Function Call: WRITE
  • Prompt: @IOF,!!?20,"*** CONTRACT HEALTH CARE SYSTEM ***",!!,ACHSTIME,?80-$L(ACHSLOC)\2,ACHSLOC,?73,"page ",ACHSPG,!?29,"DOCUMENT STATUS REPORT"
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: ?77-$L(ZTSK),"(",ZTSK,")"
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !!,ACHST1,!,ACHST2
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,ACHS("-"),!
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !?13,Y
  • Line Location: ENDMOPT+1
Function Call: WRITE
  • Prompt: ?35,TOPEN(YRMO,"DOC")
  • Line Location: ENDMOPT+2
Function Call: WRITE
  • Prompt: ?79-$L(X),X
  • Line Location: ENDMOPT+3
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+1
    • DEVICE+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHS(9 - [#9002069] FY+4
^ACHSF - [#9002080] A+1, B+1, C+1, C+2, C+3, C+4, STAT+1, STAT+8, STAT+9, D+1
, E1+1
^AUTTAREA - [#9999999.21] STAT+7
^AUTTLOC - [#9999999.06] STAT+7
^AUTTVNDR - [#9999999.11] STAT+6
^DD("DD" ST+2, ENDMOPT+1
^DIC(4 - [#4] ACHSDSTL+6, ST+2

Label References

Name Line Occurrences
A B+2, STAT+6
B B+3, C+2
BDT EDT+2
C C+2, C+3, C+4, D+1, TOTONLY+8
DEVICE DEVICE+2, DEVICE+7
E1 E1+1
EDT EDT+2, TOT+3
END PRINT+2
ENDMOPT TOTAL+4
ENDQ BDT+2, TOT+3, FY+2, DEVICE+4
FY FY+3, FY+4
HEAD ST+5, PRINT+2
MONEY PRINT+5, P1+1, TOTTYP+2, TOTTYP+4, TOTTYP+6, TOTDOC+4, ENDMOPT+3
P1 PRINT+4
P2 PRINT+5
PRINT E+1, E1+1
ST DEVICE+5, DEVICE+6
TOT TOT+4, FY+2
TOTAL A+2
TOTONLY STAT+5

Naked Globals

Name Field # of Occurrence
^( E1+1
^("PA" D+1
^("ZA" D+1
^(0 STAT+6, STAT+7
^(11 STAT+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEVICE+1*!
%ZIS("B" DEVICE+1!
A STAT+7*, STAT+8*, STAT+9, END+2!
A("$" STAT+3*, D+1*, E+1*, E1+1*, PRINT+5, P1+1, TOTONLY+1, TOTONLY+2, TOTONLY+3, TOTONLY+6
A("DOC" STAT+7*, P2+1
A("DOC1" STAT+3*, STAT+7
A("DOC2" STAT+3*, STAT+7
A("FC" STAT+7*
A("PFX" STAT+7*
A("VENDOR" STAT+6*, PRINT+3
A("VPTR" STAT+3*, STAT+6
A(1 E+1*, E1+1*
ACHS END+2!
ACHS("-" TOTAL+3, TOTAL+5, TOTDOC+1, HEAD+6
ACHS("LINE" HEAD+1*
ACHSBDT BDT+1*, BDT+2, EDT+2, DEVICE+3, ST+2, ST+5*, A+1*, A+2, B+1, C+1
, STAT+8, PRINT+3, TOTONLY+4, END+2!, ENDQ+1!
>> ACHSBM PRINT+2
>> ACHSDIEN B+4*, C+1*, C+2, C+3, C+4, STAT+1, STAT+8, STAT+9, D+1, E1+1
>> ACHSDOC1 STAT+1*, STAT+2, STAT+3, STAT+10
ACHSEDT EDT+1*, EDT+2, DEVICE+3, ST+2, A+2, END+2!, ENDQ+1!
ACHSIO ACHSDSTL+7*, ENDQ+1!
ACHSLOC ST+2*, END+2!, HEAD+1
ACHSNAME STAT+10*, D+1, PRINT+3, END+2!
>> ACHSPG ST+2*, HEAD+1*
ACHSQUIT PRINT+2, END+2!
ACHSSSN END+2!
ACHSSTA PRINT+1*, PRINT+3, END+3!
>> ACHSSTS STAT+2*, E+1, PRINT+1, PRINT+4, TOTONLY+1, TOTONLY+2, TOTONLY+3
>> ACHST1 ST+4*, HEAD+3
>> ACHST2 ST+4*, HEAD+3
>> ACHSTIME HEAD+1
ACHSTYPE A+3*, B+1*, B+2, B+3, C+1, STAT+8, END+2!
AG END+2!
AGT END+2!
BDT ST+2*, ST+4!
BLANKET STAT+3*, END+3!
CNX ST+2*, TOTONLY+2*, TOTTYP+3, TOTTYP+4, TOTDOC+3, END+2!
CNX("$" ST+2*, TOTONLY+2*, TOTTYP+4, TOTDOC+3
DFOUT TOT+3, FY+2, ENDQ+1!
DLOUT TOT+2, FY+2, ENDQ+1!
DQOUT ENDQ+1!
DTOUT BDT+2, TOT+3, FY+2, ENDQ+1!
DUOUT BDT+2, EDT+2, TOT+3, FY+2, ENDQ+1!
DUZ(2 ACHSDSTL+6, FY+4, ST+2, A+1, B+1, C+1, C+2, C+3, C+4, STAT+1
, STAT+7, STAT+8, STAT+9, D+1, E1+1
EDT ST+2*, ST+4!
EIN STAT+6*, P2+1, END+2!
>> G DEVICE+3*
IO ACHSDSTL+7, DEVICE+1, DEVICE+5, DEVICE+6, DEVICE+7, ST+5
IO("Q" DEVICE+2!, DEVICE+3!
IOF TOTDOC+6, HEAD+1
IOP DEVICE+1!*, DEVICE+6*
IOST DEVICE+2
>> ISSUE("YM" TOTONLY+4*, TOTONLY+5, TOTONLY+6, TOTONLY+7
K END+3!
OPEN ST+2*, TOTONLY+3*, TOTTYP+5, TOTTYP+6, TOTDOC+3, END+2!
OPEN("$" ST+2*, TOTONLY+3*, TOTTYP+6, TOTDOC+3
>> POP DEVICE+6
TOPEN END+3!
TOPEN( TOTONLY+5*, TOTONLY+6*, TOTONLY+7*, TOTAL+4, ENDMOPT+2, ENDMOPT+3
TOS STAT+3*, P2+1, END+3!
TOT END+3!
TOT("$" TOTDOC+2*, TOTDOC+3*, TOTDOC+4
TOTDOC TOTDOC+2*, TOTDOC+3*, TOTDOC+4, END+3!
TOTFY FY+5*, ST+3, END+3!
TOTFYN FY+5*, C+4, END+3!
TOTONLY TOT+1*, TOT+3*, TOT+4, STAT+5, END+3!, HEAD+4
TOTP ST+2*, TOTONLY+1*, TOTTYP+1, TOTTYP+2, TOTDOC+3, END+3!
TOTP("$" ST+2*, TOTONLY+1*, TOTTYP+2, TOTDOC+3
TYPE TYPE+1*, TOTTYP+1, TOTTYP+3, TOTTYP+5, END+3!
U ST+2, C+4, STAT+2, STAT+3, STAT+6, STAT+7, STAT+10, E1+1
X ST+3*, ST+4*, PRINT+5*, P1+1*, TOTTYP+2*, TOTTYP+4*, TOTTYP+6*, TOTDOC+4*, END+3!, ENDQ+1!
, ENDMOPT+3*, MONEY+1*, MONEY+2*
X2 END+3!, MONEY+1*
Y TOT+2*, TOT+3, FY+3, FY+4, FY+5, ST+2*, END+3!, ENDQ+1!, ENDMOPT+1*
YRMO TOTAL+2*, TOTAL+4*, END+3!, ENDMOPT+1, ENDMOPT+2, ENDMOPT+3
Z END+3!, MONEY+1*, MONEY+2*
>> ZTDESC DEVICE+3*
>> ZTRTN DEVICE+3*
>> ZTSAVE( DEVICE+3*
ZTSK PRINT+2, END+2!, HEAD+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All