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 |  Marked Items |  All
Print Page as PDF
Routine: ACHSDST

Package: Contract Health Management Information System

Routine: ACHSDST


Information

ACHSDST ; IHS/ITSC/PMF - DOCUMENT STATUS REPORT ; [ 10/16/2001 8:16 AM ]

Source Information

Source file <ACHSDST.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  $$REPEAT^XLFSTR  
Contract Health Management Information System 3 ($$DATE,$$EBB,$$PB,ERPT,RTRN)^ACHS  (BRPT,READ)^ACHSFU  FC^ACHSUF  
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 ACHSDOCSTATUSREP  

Entry Points

Name Comments DBIA/ICR reference
A ; Main loop.
P2 ;
C ;
B ;
E ;
D ;
TITLE ;;DOCUMENT STATUS
K ;
DEV ;
Q ;
BDT ;
P1 ;
KILL ; Do ERPT, kill vars, quit.
EDT ;
PRINT ;EP - From TaskMan.
END ; Print totals, ask RTRN, write IOF.
P3 ; Ask RTRN if EOP, do header, go main loop.
TYPE ;
HDR ; Print report header.

External References

Name Field # of Occurrence
COMMA^%DTC E+10, P1+1, END+3, END+4, END+5
^%ZIS DEV+5
HOME^%ZIS DEV+6
^%ZISC DEV+9, K+2
^%ZTLOAD DEV+12
$$DATE^ACHS BDT+1, EDT+1
$$EBB^ACHS EDT+3
$$PB^ACHS DEV+1
ERPT^ACHS KILL+2
RTRN^ACHS P3+2, END+6
BRPT^ACHSFU PRINT+6
READ^ACHSFU TYPE+2
FC^ACHSUF PRINT+2
$$C^XBFUNC PRINT+5, HDR+2
VIEWR^XBLM DEV+3
EN^XBVK DEV+3
$$FMTE^XLFDT DEV+10, PRINT+5
$$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(ACHSBDT,4,7),$E(ACHSBDT,2,3)
  • Line Location: E+4
Function Call: WRITE
  • Prompt: ?64
  • Line Location: E+6
Function Call: WRITE
  • Prompt: $S(ACHSSTS="P":"PAID",1:"CANCEL")
  • Line Location: E+8
Function Call: WRITE
  • Prompt: ?80-$L(X),X
  • Line Location: E+11
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: !!
  • Line Location: P3+1
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79),!
  • 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: @IOF
  • Line Location: END+7
Function Call: WRITE
  • Prompt: @IOF,!!,ACHSUSR,?71,"Page",$J(ACHSPG,3),!,$$C^XBFUNC("*** CONTRACT HEALTH MANAGEMENT SYSTEM ***",80),!!,ACHSLOC,!?29,"DOCUMENT STATUS REPORT"
  • 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("=",79),!
  • 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+2, C+5, C+9, C+10, D+2, D+3, E+1
, E+3
^AUTTVNDR - [#9999999.11] C+6
^DPT - [#2] C+10

Label References

Name Line Occurrences
A B+2, C+2, C+6
B B+2
BDT EDT+2, TYPE+4
C C+3, C+4, D+1, P3+3
DEV TYPE+5, DEV+9, DEV+13
EDT EDT+3
END A+2
HDR PRINT+7, P3+2
K BDT+2, EDT+2, TYPE+4, DEV+2, DEV+3, DEV+6
KILL PRINT+3, P3+2
P1 E+7
P2 E+12
P3 P2+2, P2+3
PRINT DEV+7
Q TYPE+4
TITLE BDT+1, EDT+1, DEV+10
TYPE TYPE+7, Q+2

Naked Globals

Name Field # of Occurrence
^( E+1
^("PA" D+2
^("ZA" D+3
^(0 C+2, C+5, C+6, C+10
^(11 C+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DEV+1*, DEV+2, DEV+3
>> %ZIS DEV+4*
ACHS DEV+11*, K+1!, C+9*, C+10, E+1*
ACHS("$" C+5*, D+2*, D+3*, E+1*, E+9, P1+1, P2+2, P2+3, P2+4
ACHSBDT BDT+1*, BDT+2, EDT+3, DEV+10, K+1!, PRINT+5, PRINT+8*, A+1*, A+2, B+1
, C+1, C+9, E+3, E+4
ACHSBLNK C+5*, C+11, KILL+3!
>> ACHSBM P3+2
ACHSCNX PRINT+4*, P2+3*, END+4, KILL+3!
ACHSCNX("$" PRINT+4*, P2+3*, END+4
ACHSDOC C+7*, P2+1, KILL+3!
ACHSDOC1 C+5*, C+7, KILL+3!
ACHSDOC2 C+5*, C+7, KILL+3!
ACHSDOS E+2*, E+3*, E+5, KILL+3!
ACHSEDT EDT+1*, EDT+2, EDT+3, DEV+10, K+1!, PRINT+5, A+2
ACHSEIN C+6*, P2+1, KILL+3!
>> ACHSERR PRINT+3
ACHSFC C+7, KILL+1!
ACHSIO TITLE+1*, K+1!
>> ACHSLOC HDR+2
ACHSNAME C+8!, C+10*, C+11*, D+1, E+4, KILL+3!
ACHSOPEN PRINT+4*, P2+4*, END+5, KILL+3!
ACHSOPEN("$" PRINT+4*, P2+4*, END+5
>> ACHSPG HDR+1*, HDR+2
ACHSQIO DEV+10*, K+1!
ACHSRPT TYPE+5*, DEV+10, K+1!, PRINT+5, C+3, C+4
ACHSSTS C+2*, C+3, C+4, E+1, E+7, E+8, P2+2, P2+3, KILL+3!
>> ACHST1 PRINT+5*, HDR+4
>> ACHST2 PRINT+5*, HDR+4
>> ACHSTIME HDR+4
ACHSTOS C+5*, P2+1, KILL+3!
ACHSTOTP PRINT+4*, P2+2*, END+3, KILL+3!
ACHSTOTP("$" PRINT+4*, P2+2*, END+3
ACHSTYPE A+3*, B+1*, B+2, C+1, C+9, KILL+3!
>> ACHSUSR HDR+2
ACHSVNDR C+6*, E+4, KILL+3!
ACHSVPTR C+5*, C+6, KILL+3!
DA B+3*, C+1*, C+2, C+5, C+9, C+10, D+2, D+3, E+1, E+3
, KILL+4!
DFN C+10*, KILL+4!
>> DTOUT BDT+2, EDT+2, TYPE+4, DEV+2, P3+2
>> DUOUT BDT+2, EDT+2, TYPE+4, DEV+2, P3+2
DUZ(2 A+1, B+1, C+1, C+2, C+5, C+9, C+10, D+2, D+3, E+1
, E+3
IO TITLE+1
IO("Q" DEV+7, DEV+8!
IO("S" DEV+9
IOF END+7, HDR+2
IOM DEV+10
ION DEV+10
IOSL DEV+10
IOST DEV+9, DEV+10
>> POP DEV+6
U DEV+2, C+2, C+5, C+6, C+10, E+1, E+3
>> X E+9*, E+11, P1+1*, END+3*, END+4*, END+5*
X2 TITLE+2!, END+2*, KILL+4!
X3 TITLE+2!, PRINT+8*, END+2*, KILL+4!
>> Y TYPE+3*, TYPE+4, TYPE+5
>> ZTDESC DEV+10*
ZTIO DEV+10*, K+1!
>> ZTQUEUED KILL+1, HDR+3
>> ZTRTN DEV+10*
>> ZTSAVE( DEV+11*
ZTSK DEV+13, K+1!, PRINT+3!, HDR+3

Marked Items

Name Field # of Occurrence
$T(TITLE BDT+1, EDT+1, DEV+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All