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

Package: Contract Health Management Information System

Routine: ACHSVDF


Information

ACHSVDF ; DSD/GTH - DOCUMENTS BY PROVIDER/VENDOR BY FY ; [ 05/16/2002 10:01 AM ]

Source Information

Source file <ACHSVDF.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  $$REPEAT^XLFSTR  
IHS VA Utilities 4 $$DIR^XBDIR  $$C^XBFUNC  VIEWR^XBLM  EN^XBVK  
Contract Health Management Information System 3 ($$PB,ERPT,FMT,RTRN)^ACHS  (BRPT,READ,SB1)^ACHSFU  FC^ACHSUF  
VA Fileman 2 ^DIC  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHSVNDRUSAGEFY  

Entry Points

Name Comments DBIA/ICR reference
A ;
SORT ;SORT BY PATIENT OR PO
B ;
P6 ;
D ;
P5 ;
DOC2 ;
DOC ;
DOC1 ;
EXIT ;
DEV ;
RPT5 ;
KILL ;
SELFY ; ----- Display FYs, ask FY.
B3 ;
PRINT ;EP - TaskMan.
END ;
HDR ;

External References

Name Field # of Occurrence
^%ZIS DEV+5
HOME^%ZIS DEV+6
^%ZISC DEV+9, EXIT+3
^%ZTLOAD DEV+12
$$PB^ACHS DEV+1
ERPT^ACHS KILL+3
FMT^ACHS RPT5+5, P5+4, END+2, END+3, END+4
RTRN^ACHS P6+2, END+5
BRPT^ACHSFU PRINT+8
READ^ACHSFU B+5, D+8
SB1^ACHSFU SELFY+2
FC^ACHSUF PRINT+2
^DIC A+5
^DIR SORT+3
$$DIR^XBDIR A+9, SELFY+4
$$C^XBFUNC PRINT+5, PRINT+6, PRINT+7, HDR+3
VIEWR^XBLM DEV+3
EN^XBVK DEV+3
$$FMTE^XLFDT DOC2+6
$$REPEAT^XLFSTR P6+1, HDR+2, HDR+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: A+1
Function Call: WRITE
  • Prompt: *7,!!,"This vendor has no CHS documents on file.",!
  • Line Location: A+9
Function Call: WRITE
  • Prompt: ""
  • Condition for execution: $$DIR^XBDIR("E","Press <RETURN> To Continue....")
  • Line Location: A+9
Function Call: WRITE
  • Prompt: !,"FY DOES NOT EXIST."
  • Line Location: SELFY+6
Function Call: WRITE
  • Prompt: !!,"TYPE of service:"
  • Line Location: B+1
Function Call: WRITE
  • Prompt: ?20,$P(ACHS(ACHS),":")," ",$P(ACHS(ACHS),":",2),!
  • Line Location: B+3
Function Call: WRITE
  • Prompt: !,"Select TYPE of service (1 - ",ACHS-1," 'A' = 'ALL') ALL // "
  • Line Location: B+4
Function Call: WRITE
  • Prompt: !!,"Enter an 'A' to view documents for all type of service,",!,"otherwise, enter a number from 1 to ",ACHS-1,".",!
  • Line Location: B+10
Function Call: WRITE
  • Prompt: !!,"Type of Report:"
  • Line Location: D+1
Function Call: WRITE
  • Prompt: !!,"1 list only PAID documents"
  • Line Location: D+2
Function Call: WRITE
  • Prompt: !,"2 list only OPEN documents"
  • Line Location: D+3
Function Call: WRITE
  • Prompt: !,"3 list only CANCELLED documents"
  • Line Location: D+4
Function Call: WRITE
  • Prompt: !,"4 list ALL documents"
  • Line Location: D+5
Function Call: WRITE
  • Prompt: !,"5 print TOTALS ONLY (no specific documents)",!!
  • Line Location: D+6
Function Call: WRITE
  • Prompt: "list ALL documents// "
  • Line Location: D+7
Function Call: WRITE
  • Prompt: !!,*7,"Enter only '1' through '5'."
  • Line Location: D+12
Function Call: WRITE
  • Prompt: *7,!,"Please queue to system printers."
  • Line Location: DEV+9
Function Call: WRITE
  • Prompt: !!,"NO DOCUMENT ZERO NODE FOR X-REF VB FOR FACILITY: "_DUZ(2)_" DOCUMENT IEN: "_ACHSDOC
  • Line Location: DOC+5
Function Call: WRITE
  • Prompt: !,"DOC. #: ",$P(ACHSDOC0,U,14),"-",ACHSFC,"-",$P(ACHSDOC0,U)," ("
  • Line Location: DOC2+2
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(Y),")",?45,"SERVICE: ",$P($P(ACHSTOS,";",$P(ACHSDOC0,U,4)),":",2)
  • Line Location: DOC2+6
Function Call: WRITE
  • Prompt: !?2
  • Line Location: DOC2+7
Function Call: WRITE
  • Prompt: $P(^DPT(DFN,0),U)
  • Line Location: DOC2+9
Function Call: WRITE
  • Prompt: $S($P(ACHSDOC0,U,3)=1:"* BLANKET",$P(ACHSDOC0,U,3)=2:"* SPECIAL TRANS",1:"")
  • Line Location: DOC2+10
Function Call: WRITE
  • Prompt: "(PAID: "
  • Line Location: RPT5+5
Function Call: WRITE
  • Prompt: ")"
  • Line Location: RPT5+5
Function Call: WRITE
  • Prompt: "(",$P($P(ACHSSTS,";",$P(ACHSDOC0,U,12)+1),":",2),": "
  • Line Location: P5+1
Function Call: WRITE
  • Prompt: ")"
  • Line Location: P5+4
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79)
  • Line Location: P6+1
Function Call: WRITE
  • Prompt: !,"Total documents: ",ACHSPD+ACHSCNX+ACHSOPEN,!!
  • Line Location: END+1
Function Call: WRITE
  • Prompt: "TOTAL PAID DOCUMENTS:",$J(ACHSPD,12),?40,"TOTAL DOLLARS PAID: "
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !
  • Line Location: END+2
Function Call: WRITE
  • Prompt: "TOTAL CANCELLED DOCUMENTS:",$J(ACHSCNX,7),?40,"TOTAL DOLLARS CANCELLED:"
  • Line Location: END+3
Function Call: WRITE
  • Prompt: !
  • Line Location: END+3
Function Call: WRITE
  • Prompt: "TOTAL OPEN DOCUMENTS:",$J(ACHSOPEN,12),?40,"TOTAL DOLLARS OPEN: "
  • Line Location: END+4
Function Call: WRITE
  • Prompt: !
  • Line Location: END+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+6
Function Call: WRITE
  • Prompt: @IOF,!,$$REPEAT^XLFSTR("*",79)
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,ACHSUSR,?71,"Page",$J(ACHSPG,3),!,$$C^XBFUNC("PROVIDER-SPECIFIC CHS ACTIVITIES SUMMARY",80),!,ACHST1,!,ACHST2
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("*",79)
  • Line Location: HDR+5
Routine Call
  • %ZIS
  • Line Location:
    • DEV+6
Routine Call
  • DIC
  • Line Location:
    • A+5
Routine Call
  • DIR
  • Line Location:
    • SORT+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+5

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)
^ACHSF - [#9002080] A+9, DOC+1, DOC+4, DOC+11, DOC2+1, DOC2+4, DOC2+8, RPT5+2, RPT5+4, P5+2
, P5+3
^AUTTVNDR - [#9999999.11] PRINT+1, PRINT+6
^DD(9002080.01 B+2, PRINT+9
^DPT - [#2] DOC+11, DOC2+9
^TMP("ACHSVDF" DOC+12*, DOC+13*, DOC1+2, DOC1+3, DOC1+5, EXIT+1!

Label References

Name Line Occurrences
A A+9
B B+10, D+9
B3 B+9
D D+12
DEV SORT+1, DEV+9, DEV+13
DOC DOC+6, DOC+7, DOC+8, DOC+14, P6+3
DOC1 DOC+3
DOC2 DOC1+2, DOC1+5
END DOC+2, DOC1+7
EXIT A+6, B+7, D+10, SORT+4, DEV+2, DEV+3, DEV+6, DEV+14, DOC1+6
HDR PRINT+8, P6+2
KILL PRINT+3, DOC+5
P5 RPT5+2
P6 RPT5+7, P5+5
PRINT DEV+7
RPT5 DOC+9
SELFY SELFY+6, B+6

Naked Globals

Name Field # of Occurrence
^( P5+3
^("ZA" P5+2
^(3 DOC2+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % SELFY+3*, DEV+1*, DEV+2, DEV+3
>> %ZIS DEV+4*
A KILL+1!, EXIT+1!
A(1 P5+3*
ACHS B+3*, B+4, B+10, DEV+11*, P5+3*, EXIT+1!
ACHS( B+3*
ACHS("$" RPT5+4*, RPT5+5, RPT5+6, P5+2*, P5+3*, P5+4, P5+5, P5+6
ACHS("A" B+2*, B+3
ACHSBDT EXIT+1!
>> ACHSBM P6+2
ACHSCNX PRINT+4*, P5+5*, END+1, END+3, KILL+1!
ACHSCNX("$" PRINT+4*, P5+5*, END+3
ACHSDOC PRINT+4*, DOC+1*, DOC+2, DOC+3, DOC+4, DOC+5, DOC+11, DOC+12, DOC+13, DOC1+1*
, DOC1+2*, DOC1+4*, DOC1+5*, DOC2+1, DOC2+4, DOC2+8, RPT5+2, RPT5+4, P5+2, P5+3
, KILL+1!
ACHSDOC0 DOC+4*, DOC+5, DOC+6, DOC+7, DOC+8, DOC+10, DOC2+1*, DOC2+2, DOC2+5, DOC2+6
, DOC2+10, P5+1, P5+2, P5+3, P5+5, P5+6, KILL+1!
ACHSEDT EXIT+1!
>> ACHSERR PRINT+3
>> ACHSFC DOC2+2
>> ACHSFYWK( SELFY+3, SELFY+6
ACHSIO A+8*, EXIT+1!
ACHSMAX SELFY+3*, SELFY+4, EXIT+2!
ACHSMIN SELFY+3*, SELFY+4, EXIT+2!
ACHSOPEN PRINT+4*, P5+6*, END+1, END+4, KILL+1!
ACHSOPEN("$" PRINT+4*, P5+6*, END+4
ACHSPAT DOC1+1*, DOC1+3*, DOC1+5, KILL+2!
ACHSPD PRINT+4*, RPT5+6*, END+1, END+2, KILL+1!
ACHSPD("$" PRINT+4*, RPT5+6*, END+2
>> ACHSPG HDR+1*, HDR+3
ACHSQUIT B+7, D+10, DOC1+2, DOC1+3, DOC1+5, DOC1+6, P6+2, KILL+2!
ACHSRPT D+13*, SORT+1, PRINT+5, PRINT+9, DOC+2, DOC+8, DOC+9, RPT5+1, RPT5+5, P5+1
, P5+4, P6+1, P6+2, P6+3, EXIT+1!
ACHSSFY SELFY+4*, SELFY+6, DEV+10, PRINT+7, DOC+6, EXIT+1!
ACHSSRT SORT+5*, DOC1+2, DOC1+3, KILL+2!
ACHSSTS PRINT+9*, P5+1, KILL+1!
>> ACHST1 PRINT+6*, HDR+3
>> ACHST2 PRINT+7*, HDR+3
>> ACHST3 PRINT+5*, HDR+4
ACHSTOS PRINT+9*, DOC2+6, KILL+1!
ACHSTYP DOC+10*, DOC+11, EXIT+2!
ACHSTYPE B3+1!, B3+2*, B3+3*, DOC+7, KILL+1!, EXIT+1!
>> ACHSUSR HDR+3
ACHSVDOR A+8*, A+9, DEV+10, PRINT+1, PRINT+6, DOC+1, KILL+1!, EXIT+1!
>> C DOC+8*
DFN DOC2+8*, DOC2+9, EXIT+2!
DIC A+2*, A+5!
DIC("A" A+4*
DIC(0 A+3*
DIR SORT+3!
DIR("A" SORT+2*
DIR("B" SORT+2*
DIR(0 SORT+2*
DTOUT SELFY+5, SORT+4, DEV+2, EXIT+1!
DUOUT SELFY+5, B+6, D+9, SORT+4, DEV+2, EXIT+1!
DUZ(2 A+9, SELFY+3, SELFY+6, DOC+1, DOC+4, DOC+5, DOC+11, DOC2+1, DOC2+4, DOC2+8
, RPT5+2, RPT5+4, P5+2, P5+3
IO A+8
IO("Q" DEV+7, DEV+8!
IO("S" DEV+9
IOF END+6, HDR+2
IOST DEV+9, P6+2
>> POP DEV+6
U B+2, DEV+2, PRINT+6, PRINT+9, DOC+6, DOC+7, DOC+8, DOC+10, DOC+11, DOC2+2
, DOC2+4, DOC2+5, DOC2+6, DOC2+8, DOC2+9, DOC2+10, P5+1, P5+2, P5+3, P5+5
, P5+6
>> X DOC+11*, DOC+12, DOC+13, RPT5+5*, P5+4*, END+2*, END+3*, END+4*
>> X2 RPT5+5*, P5+4*, END+2*, END+3*
>> X3 END+2*, END+3*, END+4*
Y A+6, A+8, B+8*, B+9, B+10, B3+2, B3+3, D+11*, D+12, D+13
, SORT+5, DOC2+3!, DOC2+4*, DOC2+5*, DOC2+6
>> ZTDESC DEV+10*
>> ZTRTN DEV+10*
>> ZTSAVE( DEV+11*
ZTSK DEV+13, EXIT+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