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

Package: Contract Health Management Information System

Routine: ACHSDSF


Information

ACHSDSF ; IHS/ITSC/PMF - DOC STATUS REPORT BY FY (1/2) - FORMAT & DEVICE ; [ 10/16/2001 8:16 AM ]

Source Information

Source file <ACHSDSF.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  $$REPEAT^XLFSTR  
Contract Health Management Information System 4 ($$FYSEL,$$PB,ERPT,RTRN)^ACHS  (BRPT,READ)^ACHSFU  FC^ACHSUF  (,$$FY)^ACHSVAR  
IHS VA Utilities 3 $$C^XBFUNC  VIEWR^XBLM  EN^XBVK  
VA Fileman 1 COMMA^%DTC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHSDOCSTATUSREPF  

Entry Points

Name Comments DBIA/ICR reference
A ; Main loop. Check end date.
Q ;
C ;
B ; Get IEN.
END ; Print totals.
HDR ; Doc status rpt header.
P3 ; End of transaction.
K ;
P2 ;
DEV ;
FYSEL ; Select fiscal year for report.
P1 ; Open doc amt.
KILL ; Do ERPT, kill vars, quit.
PRINT ;EP - From TaskMan.
TYPE ; Select type of report.

External References

Name Field # of Occurrence
COMMA^%DTC C+26, P1+1, END+3, END+4, END+5
^%ZIS DEV+5
HOME^%ZIS DEV+6
^%ZISC DEV+9, K+3
^%ZTLOAD DEV+12
$$FYSEL^ACHS FYSEL+1
$$PB^ACHS DEV+1
ERPT^ACHS KILL+1
RTRN^ACHS P3+2, END+7
BRPT^ACHSFU PRINT+5
READ^ACHSFU TYPE+2
FC^ACHSUF PRINT+1
^ACHSVAR K+1
$$FY^ACHSVAR FYSEL+3
$$C^XBFUNC PRINT+4, HDR+2
VIEWR^XBLM DEV+3
EN^XBVK DEV+3, K+1
$$FMTE^XLFDT DEV+10, PRINT+4
$$REPEAT^XLFSTR END+1, HDR+4

Interaction Calls

Name Line Occurrences
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: TYPE+1
Function Call: WRITE
  • Prompt: !!,*7," Enter only a 1, 2, or 3"
  • Line Location: TYPE+6
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: Q+1
Function Call: WRITE
  • Prompt: *7,!,"Please queue to system printers."
  • Line Location: DEV+9
Function Call: WRITE
  • Prompt: $E(ACHSNAME,1,24),?25,$E(ACHSVNDR,1,26),?52,$E(ACHSDDT,4,7),$E(ACHSDDT,2,3)
  • Line Location: C+20
Function Call: WRITE
  • Prompt: ?64
  • Line Location: C+22
Function Call: WRITE
  • Prompt: $S(ACHSSTS="P":"PAID",1:"CANCEL")
  • Line Location: C+24
Function Call: WRITE
  • Prompt: ?80-$L(X),X
  • Line Location: C+27
Function Call: WRITE
  • Prompt: ?80-$L(X),X
  • Line Location: P1+1
Function Call: WRITE
  • Prompt: !,ACHSDOC,?25,ACHSEIN,?52,$S(ACHSTOS=1:"HOSPITAL",ACHSTOS=2:"DENTAL",ACHSTOS=3:"OUTPATIENT",1:"")
  • Line Location: P2+1
Function Call: WRITE
  • Prompt: ?64,"P-CAN"
  • Line Location: P2+2
Function Call: WRITE
  • Prompt: ?79-$L(X),X
  • Line Location: P2+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: P3+1
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",80),!
  • Line Location: END+1
Function Call: WRITE
  • Prompt: "TOTAL PAID DOCUMENTS:",$J(ACHSTOTP,11),?40,"TOTAL DOLLARS PAID: ",X,!
  • Line Location: END+3
Function Call: WRITE
  • Prompt: "TOTAL CANCELLED DOCUMENTS:",$J(ACHSCNX,6),?40,"TOTAL DOLLARS CANCELLED: ",X,!
  • Line Location: END+4
Function Call: WRITE
  • Prompt: "TOTAL OPEN DOCUMENTS:",$J(ACHSOPEN,11),?40,"TOTAL DOLLARS OPEN: ",X
  • Line Location: END+5
Function Call: WRITE
  • Prompt: !,"NOTE: Partial Cancels are not included in count, but ARE included in $."
  • Line Location: END+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+8
Function Call: WRITE
  • Prompt: @IOF,!,ACHSUSR,?71,"Page",$J(ACHSPG,3),!,$$C^XBFUNC("*** CONTRACT HEALTH MANAGEMENT SYSTEM ***",80),!,ACHSLOC,!,$$C^XBFUNC("DOCUMENT STATUS REPORT, FY "_ACHSFY,80)
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?77-$L(ZTSK),"(",ZTSK,")"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,ACHSTIME,!,ACHST1,!,ACHST2,!!,"Patient Name",?25,"Provider of Service",?52,"Issue /DOS",!,"Document number",?25,"EIN Number",?52,"Type",?64,"Status",?73,"Amount",!,$$REPEAT^XLFSTR("=",80),!
  • Line Location: HDR+4
Routine Call
  • %ZIS
  • Line Location:
    • DEV+6
Routine Call
  • %ZIS
  • Line Location:
    • DEV+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSF - [#9002080] A+1, B+1, C+1, C+4, C+8, C+12, C+13, C+15, C+16, C+17
, C+18
^AUTTVNDR - [#9999999.11] C+5
^DPT - [#2] C+9

Label References

Name Line Occurrences
A B+2, C+1
B C+2, C+3, C+5, C+11, P3+3
DEV TYPE+5, DEV+9, DEV+13
END A+2
FYSEL TYPE+4
HDR PRINT+5, P3+2
K FYSEL+2, TYPE+4, DEV+2, DEV+3, DEV+6
KILL PRINT+2, P3+2
P1 C+23
P2 C+28
P3 P2+3, P2+4
PRINT DEV+7
Q TYPE+4
TYPE TYPE+7, Q+2

Naked Globals

Name Field # of Occurrence
^("PA" C+12
^("ZA" C+13
^(0 C+1, C+4, C+5, C+9, C+17, C+18
^(11 C+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % FYSEL+3*, DEV+1*, DEV+2, DEV+3, DEV+11*
>> %ZIS DEV+4*
>> ACHS C+15*, C+16, C+17, C+18
>> ACHS("$" C+4*, C+12*, C+13*, C+17*, C+25, P1+1, P2+3, P2+4, P2+5
>> ACHS("$PCAN" C+4*, C+18*, P2+2, P2+6
>> ACHSBDT FYSEL+3*, DEV+10, PRINT+4
ACHSBLNK C+4*, C+10, KILL+2!
>> ACHSBM P3+2
ACHSCNX PRINT+3*, P2+4*, END+4, END+6, KILL+2!
ACHSCNX("$" PRINT+3*, P2+4*, P2+6*, END+4
ACHSDDT C+4*, C+20, KILL+2!
ACHSDIEN A+3*, B+1*, B+2, C+1, C+4, C+8, C+12, C+13, C+15, C+16
, C+17, C+18, KILL+2!
ACHSDNU PRINT+6*, A+1*, A+2, B+1, KILL+2!
ACHSDOC C+6*, P2+1, KILL+2!
ACHSDOC1 C+4*, C+6, KILL+2!
ACHSDOC2 C+4*, C+6, KILL+2!
ACHSDOS C+16*, C+21, KILL+2!
>> ACHSEDT FYSEL+3*, FYSEL+4*, DEV+10, PRINT+4
ACHSEIN C+5*, P2+1, KILL+2!
>> ACHSERR PRINT+2
>> ACHSFC C+6
ACHSFY FYSEL+1*, FYSEL+3, PRINT+6, A+2, KILL+2!, HDR+2
>> ACHSIO ACHSDSF+3*
>> ACHSLOC HDR+2
ACHSNAME C+7!, C+9*, C+10*, C+11, C+20, KILL+2!
ACHSOPEN PRINT+3*, P2+5*, END+5, KILL+2!
ACHSOPEN("$" PRINT+3*, P2+5*, END+5
>> ACHSPG HDR+1*, HDR+2
>> ACHSRPT TYPE+5*, DEV+10, PRINT+4, C+2, C+3
ACHSSTS C+1*, C+2, C+3, C+23, C+24, P2+3, P2+4, KILL+2!
>> ACHST1 PRINT+4*, HDR+4
>> ACHST2 PRINT+4*, HDR+4
>> ACHSTIME HDR+4
ACHSTOS C+4*, P2+1, KILL+2!
ACHSTOTP PRINT+3*, P2+3*, END+3, KILL+2!
ACHSTOTP("$" PRINT+3*, P2+3*, END+3
ACHSTYPE KILL+2!
>> ACHSUSR HDR+2
ACHSVNDR C+5*, C+20, KILL+2!
ACHSVPTR C+4*, C+5, KILL+2!
DFN C+8*, C+9, KILL+2!
DT FYSEL+4
>> DTOUT FYSEL+2, TYPE+4, DEV+2, P3+2
>> DUOUT FYSEL+2, TYPE+4, DEV+2, P3+2
DUZ(2 A+1, B+1, C+1, C+4, C+8, C+12, C+13, C+15, C+16, C+17
, C+18
IO ACHSDSF+3
IO("Q" DEV+7, DEV+8!
IO("S" DEV+9
IOF END+8, HDR+2
IOM DEV+10
ION DEV+10
IOSL DEV+10
IOST DEV+9, DEV+10
>> POP DEV+6
U FYSEL+3, DEV+2, C+1, C+4, C+5, C+8, C+9, C+16, C+17, C+18
>> X C+25*, C+27, P1+1*, P2+2*, END+3*, END+4*, END+5*
X2 END+2*, KILL+2!
X3 PRINT+6*, END+2*, KILL+2!
>> Y TYPE+3*, TYPE+4, TYPE+5
>> ZTDESC DEV+10*
ZTIO DEV+10*, K+2!
>> ZTQUEUED HDR+3
>> ZTRTN DEV+10*
>> ZTSAVE( DEV+11*
ZTSK DEV+13, K+2!, PRINT+2!, HDR+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All