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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ACHSVUR2

Package: Contract Health Management Information System

Routine: ACHSVUR2


Information

ACHSVUR2 ; IHS/OIT/FCJ - VENDOR USAGE REPORT FOR One Vendor; [ 10/31/2003 12:12 PM ]

Source Information

Source file <ACHSVUR2.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  $$REPEAT^XLFSTR  
Contract Health Management Information System 4 ($$ASF,$$DATE,$$EBB,$$PARM,$$PB,ERPT,RTRN)^ACHS  (BRPT,SLV)^ACHSFU  FC^ACHSUF  ^ACHSVAR  
IHS VA Utilities 4 $$DIR^XBDIR  $$C^XBFUNC  VIEWR^XBLM  EN^XBVK  
VA Fileman 2 (COMMA,NOW)^%DTC  ^DIC  
IHS VA %Utilities 1 ^ZIBGSVEM  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHSVNDRUSAGE-SPECIFIC  

Entry Points

Name Comments DBIA/ICR reference
HDR ; Paginate.
TRTYPE ; Loop thru transaction type.
DEV ; Select device for report.
VEND ; Select one vendor.
KILL ; Kill vars, close device, quit.
FILE ;CREATE A FILE
PRINT ; Kill calc vars, print.
TRDT ; Loop thru transaction date x-ref.
A ;
C ;
B ;
E ;
D ;
F ;
DOCS ; Select type of docs to print.
K ; Kill vars, close device, quit.
BDT ; Enter beginning date.
ENDPRNT ;
TRANS ; Loop thru transactions, compile report data.
H2 ;EP - From HELP^ACHS() via ^DIR.
H1 ;EP - From HELP^ACHS() via ^DIR.
EDT ; Enter the ending date.
FILSAV ;SAVE FILE
CALC ;EP - TaskMan.

External References

Name Field # of Occurrence
COMMA^%DTC F+2, ENDPRNT+3, ENDPRNT+7, ENDPRNT+11
NOW^%DTC FILSAV+4
^%ZIS DEV+7
HOME^%ZIS DEV+9
^%ZISC K+2
^%ZTLOAD DEV+15
$$ASF^ACHS FILSAV+6
$$DATE^ACHS BDT+1, EDT+1
$$EBB^ACHS EDT+2
$$PARM^ACHS FILSAV+10
$$PB^ACHS DEV+2
ERPT^ACHS KILL+5
RTRN^ACHS D+10, ENDPRNT+14
BRPT^ACHSFU PRINT+6
SLV^ACHSFU DEV+7
FC^ACHSUF CALC+1
^ACHSVAR KILL+5
^DIC VEND+3
$$DIR^XBDIR DOCS+1, FILE+1
$$C^XBFUNC PRINT+3, PRINT+4, PRINT+5
VIEWR^XBLM DEV+4
EN^XBVK DEV+4, KILL+5
$$FMTE^XLFDT DEV+13, PRINT+4
$$REPEAT^XLFSTR F+3, ENDPRNT+1, ENDPRNT+8, HDR+5
^ZIBGSVEM FILSAV+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,*7,"No device specified."
  • Line Location: DEV+9
Function Call: WRITE
  • Prompt: *7,!,"Please queue to printers only."
  • Line Location: DEV+12
Function Call: WRITE
  • Prompt: !?3,ACHSDOC,?16,$E(ACHSNAME,1,25),?42,ACHSHRN,?53,ACHSTOS,?58,ACHSDOS
  • Line Location: D+1
Function Call: WRITE
  • Prompt: !,?3,ACHSCLRK,?16,$E(ACHSSSN,6,9),?52,ACHSSC
  • Line Location: D+2
Function Call: WRITE
  • Prompt: ?78-$L(X),X
  • Line Location: D+8
Function Call: WRITE
  • Prompt: "*"
  • Line Location: D+9
Function Call: WRITE
  • Prompt: !?10,$$REPEAT^XLFSTR("-",55),!?10,"TOTALS DOCUMENTS:",$J(ACHSVDOC,5),?42,"DOLLARS:",X,!,$$REPEAT^XLFSTR("-",79),!
  • Line Location: F+3
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",79),!
  • Line Location: ENDPRNT+1
Function Call: WRITE
  • Prompt: "TOTAL PAID",?21,"DOCUMENTS:",$J(ACHSPD,5),?42,"DOLLARS:",X,!
  • Line Location: ENDPRNT+4
Function Call: WRITE
  • Prompt: "TOTAL OUTSTANDING",?21,"DOCUMENTS:",$J(ACHSTOT-ACHSPD,5),?42,"DOLLARS:",X,!,$$REPEAT^XLFSTR("-",79),!
  • Line Location: ENDPRNT+8
Function Call: WRITE
  • Prompt: "GRAND TOTALS",?21,"DOCUMENTS:",$J(ACHSTOT,5),?42,"DOLLARS:",X
  • Line Location: ENDPRNT+12
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ENDPRNT+15
Function Call: WRITE
  • Prompt: @IOF,!!?19,"*** CONTRACT HEALTH MANAGEMENT SYSTEM ***",!,ACHSUSR,?71,"Page",$J(ACHSPG,3),!,ACHSLOC,!,ACHST1,!,ACHSV,!,ACHSTIME,!,ACHST2
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!?3,"DOCUMENT # PATIENT NAME",?43,"HRN",?52,"TYPE DOS",?70,"DOLLARS"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?3,"STAFF",?17,"LAST 4SSN",?53,"OC",?69,"(* = PAID)"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",79),!
  • Line Location: HDR+5
Routine Call
  • %ZIS
  • Line Location:
    • DEV+9
Routine Call
  • DIC
  • Line Location:
    • VEND+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUTTVNDR - [#9999999.11] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHS(3 - [#9002063] TRANS+23
^ACHSF - [#9002080] TRDT+1, TRTYPE+1, TRANS+3, TRANS+4, TRANS+5, TRANS+13, TRANS+14, TRANS+15, TRANS+22, TRANS+24
, C+2, C+5, D+4
^AUPNPAT - [#9000001] TRANS+20
^AUTTSITE(1 FILSAV+11
^AUTTVNDR - [#9999999.11] VEND+7, TRANS+17, B+2
^DD(9002080.01 C+3
^DPT - [#2] TRANS+18, TRANS+20, TRANS+29
^TMP("ACHSVUR2" ACHSVUR2+7!, KILL+4!, TRANS+29*, A+1, B+1, C+1
^TMP($J ACHSVUR2+7!, KILL+3!, CALC+4!, E+2*, ENDPRNT+5*, ENDPRNT+9*, ENDPRNT+13*, HDR+7*, HDR+8*, HDR+9*
, HDR+10*, HDR+11*, HDR+12*, HDR+13*
^VA(200 - [#200] TRANS+25

Label References

Name Line Occurrences
A B+2
B B+2, F+4
BDT EDT+2
C C+2, E+3
CALC DEV+10
DEV DEV+12, DEV+16
DOCS DOCS+3, VEND+5
EDT EDT+2, DOCS+2
ENDPRNT A+2
F C+1
FILSAV KILL+1
HDR PRINT+8, D+10
K BDT+2, EDT+2, DOCS+2, DOCS+3, FILE+2, DEV+3, DEV+9, CALC+2
KILL DEV+4, DEV+10, D+10
PRINT TRDT+2
TRANS TRANS+7, TRANS+17, TRANS+18, TRANS+30
TRDT TRTYPE+2, TRANS+4
TRTYPE TRTYPE+2
VEND FILE+2

Naked Globals

Name Field # of Occurrence
^( C+1
^(0 TRANS+5, TRANS+17, C+2
^(3 C+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % FILE+1*, FILE+3, DEV+2*, DEV+3, DEV+4, DEV+14*, FILSAV+4
>> %I(3 FILSAV+4
%ZIS DEV+5!, DEV+6*, DEV+8!
>> ACHS("$" TRANS+13*, TRANS+14*, TRANS+15*, TRANS+29, C+1*, D+6, D+9, E+1
ACHSAMT K+1!, C+4*, D+8*, D+9*, E+2
ACHSBDT BDT+1*, BDT+2, EDT+2, DEV+13, K+1!, CALC+3, PRINT+4
ACHSBLNK TRANS+1*, TRANS+5*, TRANS+17, TRANS+18, TRANS+29, PRINT+1!, D+4*
>> ACHSBM D+10
>> ACHSCLRK TRANS+1*, TRANS+24*, TRANS+25*, TRANS+29, C+1*, D+2, E+2
ACHSDOB K+1!
>> ACHSDOC TRANS+1*, TRANS+28*, TRANS+29, B+4*, C+1*, D+1, E+2
ACHSDOCN TRANS+1*, TRANS+5*, TRANS+28, PRINT+1!
>> ACHSDOS C+4*, C+5*, D+1, E+2
ACHSEDT EDT+1*, EDT+2, DEV+13, K+1!, TRDT+2, PRINT+4
>> ACHSERR CALC+2
>> ACHSFC TRANS+28
>> ACHSFIL FILE+3*, KILL+1, E+2, ENDPRNT+5, ENDPRNT+9, ENDPRNT+13, HDR+6
ACHSFY TRANS+1*, TRANS+5*, TRANS+28, PRINT+1!
ACHSHDR PRINT+9!, B+3*
ACHSHRN K+1!, TRANS+20*, TRANS+29, C+1*, D+1, E+2
ACHSIO ACHSVUR2+6*, K+1!
>> ACHSLOC HDR+2, HDR+8
>> ACHSNAME C+1*, D+1, E+2
>> ACHSPD PRINT+3*, D+9*, ENDPRNT+4, ENDPRNT+5, ENDPRNT+8, ENDPRNT+9
>> ACHSPD("$" PRINT+3*, D+9*, ENDPRNT+2, ENDPRNT+6
>> ACHSPG HDR+1*, HDR+2
>> ACHSPPC KILL+2
>> ACHSPPO PRINT+7
ACHSQIO DEV+13*, K+1!
ACHSRPT DOCS+1*, DEV+13, K+1!, TRANS+17, PRINT+3
>> ACHSSC TRANS+1*, TRANS+23*, TRANS+29, C+1*, D+2, E+2
>> ACHSSCPT TRANS+1*, TRANS+22*, TRANS+23
>> ACHSSSN TRANS+20*, TRANS+29, C+1*, D+2, E+2
ACHSSTAR D+7!
ACHSSTS TRANS+1*, TRANS+5*, TRANS+17, PRINT+1!
>> ACHST1 PRINT+3*, HDR+2
>> ACHST2 PRINT+4*, HDR+2, HDR+12
>> ACHSTIME HDR+2, HDR+11
>> ACHSTOS C+2*, C+3*, D+1, E+2
>> ACHSTOT PRINT+3*, E+1*, ENDPRNT+8, ENDPRNT+9, ENDPRNT+12, ENDPRNT+13
>> ACHSTOT("$" PRINT+3*, E+1*, ENDPRNT+6, ENDPRNT+10
ACHSTRDT CALC+3*, TRDT+1*, TRDT+2, TRTYPE+1, TRANS+3, PRINT+1!
ACHSTYPE TRDT+3*, TRTYPE+1*, TRTYPE+2, TRANS+3, PRINT+1!
>> ACHSUSR HDR+2
>> ACHSV PRINT+5*, HDR+2, HDR+10
>> ACHSVDOC B+4*, E+1*, E+2, F+3
>> ACHSVDOC("$" B+4*, E+1*, F+1
ACHSVIEN VEND+6*, VEND+7, K+1!, TRANS+7
ACHSVNAM VEND+7*, K+1!, PRINT+5, FILSAV+7
>> ACHSVNDR TRANS+17*, TRANS+29, PRINT+3*, A+1*, A+2, B+1, C+1, D+10
>> ACHSVPTR TRANS+1*, TRANS+5*, TRANS+7, TRANS+17, TRANS+29, A+3*, B+1*, B+2, C+1
DA KILL+3!, TRTYPE+3*, TRANS+3*, TRANS+4, TRANS+5, TRANS+13, TRANS+14, TRANS+15, TRANS+22, TRANS+24
, TRANS+29, C+1*, C+2, C+5, D+4
DFN KILL+3!, TRANS+1*, TRANS+5*, TRANS+17, TRANS+18, TRANS+20, TRANS+29, C+2*
DIC VEND+1*, VEND+4!
DIC("A" VEND+1*
DIC(0 VEND+1*, VEND+2
DLAYGO VEND+2*, VEND+4!
DT FILSAV+3
DTOUT BDT+2, EDT+2, DOCS+2, DOCS+3, FILE+2, DEV+3, K+1!, D+10
DUOUT BDT+2, EDT+2, DOCS+2, DOCS+3, FILE+2, DEV+3, K+1!, D+10
DUZ(2 TRDT+1, TRTYPE+1, TRANS+3, TRANS+4, TRANS+5, TRANS+13, TRANS+14, TRANS+15, TRANS+20, TRANS+22
, TRANS+23, TRANS+24, C+2, C+5, D+4, FILSAV+6
IO ACHSVUR2+6
IO("Q" DEV+10, DEV+11!
IO("S" DEV+7, KILL+2, PRINT+7, ENDPRNT+14
IOF ENDPRNT+15, HDR+2
IOM DEV+13
ION DEV+13
IOP DEV+5!
IOSL DEV+13
IOST DEV+12, DEV+13
>> POP DEV+9
U VEND+7, DEV+3, TRANS+5, TRANS+15, TRANS+17, TRANS+22, TRANS+24, TRANS+29, C+1, C+2
, C+3, C+5, D+4, FILSAV+11
>> X D+6*, D+7*, D+8, F+1*, F+3, ENDPRNT+2*, ENDPRNT+4, ENDPRNT+5, ENDPRNT+6*, ENDPRNT+8
, ENDPRNT+9, ENDPRNT+10*, ENDPRNT+12, ENDPRNT+13, FILSAV+3*, FILSAV+4*, FILSAV+5*, FILSAV+7
>> X1 FILSAV+6*, FILSAV+7
>> X2 F+1*, ENDPRNT+2*
>> X3 PRINT+4*, F+1*, ENDPRNT+2*
XBE FILSAV+2~, FILSAV+6*
XBF FILSAV+2~, FILSAV+13*
XBFLT FILSAV+2~, FILSAV+8*
XBFN FILSAV+2~, FILSAV+7*
XBGL FILSAV+2~, FILSAV+13*
XBIO FILSAV+2~, FILSAV+13*
XBJ FILSAV+2~
XBMED FILSAV+2~, FILSAV+8*
XBQ FILSAV+2~, FILSAV+9*
XBS1 FILSAV+2~, FILSAV+12*
XBUF FILSAV+2~, FILSAV+10*, FILSAV+11*
>> Y VEND+5, VEND+6, C+4*, C+5*
>> ZTDESC DEV+13*
>> ZTIO DEV+13*
>> ZTQUEUED KILL+5
>> ZTRTN DEV+13*
>> ZTSAVE( DEV+14*
ZTSK DEV+16, KILL+3!, K+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All