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

Package: Contract Health Management Information System

Routine: ACHSVDC


Information

ACHSVDC ; IHS/ITSC/PMF - DOCUMENTS BY PROVIDER/VENDOR ; [ 12/23/2004 11:17 AM ]

Source Information

Source file <ACHSVDC.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 ($$DATE,$$EBB,$$PB,ERPT,FMT,RTRN)^ACHS  (BRPT,READ)^ACHSFU  FC^ACHSUF  
VA Fileman 2 ^DIC  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHSVDOCS  

Entry Points

Name Comments DBIA/ICR reference
A ;
SORT ;SORT BY PATIENT OR PO
B ;
P6 ;
D ;
P5 ;
DOC2 ;ACHS*3.1*11 9.8.04 IHS/ITSC/FCJ END OF CHANGES
DOC ;
K ;
DOC1
DEV ;
BDT ;
RPT5 ;
KILL ;
EDT ;
B3 ;
PRINT ;EP - TaskMan.
END ;
HDR ;

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!!,"This vendor has no CHS documents on file.",!
  • Line Location: A+8
Function Call: WRITE
  • Prompt: ""
  • Condition for execution: $$DIR^XBDIR("E","Press <RETURN> To Continue....")
  • Line Location: A+8
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 types 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+11
Function Call: WRITE
  • Prompt: !!,"NO DOCUMENT ZERO NODE FOR X-REF VB FOR FACILITY: "_DUZ(2)_" DOCUMENT IEN: "_ACHSDOC
  • Line Location: DOC+6
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),!,ACHSUSR,?71,"Page",$J(ACHSPG,3),!,$$C^XBFUNC("PROVIDER-SPECIFIC CHS ACTIVITIES SUMMARY",80),!,ACHST1,!,ACHST2
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("*",79)
  • Line Location: HDR+4
Routine Call
  • %ZIS
  • Line Location:
    • DEV+8
Routine Call
  • DIC
  • Line Location:
    • A+4
Routine Call
  • DIR
  • Line Location:
    • SORT+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)
^ACHSF - [#9002080] A+8, DOC+1, DOC+5, DOC+12, 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+12, DOC2+9
^TMP($J DOC+13*, DOC+14*, DOC1+1, DOC1+2, DOC1+4, KILL+2!

Label References

Name Line Occurrences
A A+8
B B+10, D+10
B3 B+9
BDT EDT+3, B+7
D D+12
DEV SORT+1, DEV+11, DEV+15
DOC DOC+7, DOC+8, DOC+15, P6+5
DOC1 DOC+4
DOC2 DOC1+1, DOC1+4
EDT EDT+4
END DOC+3, DOC1+6
HDR PRINT+8, P6+2, P6+3
K A+5, BDT+2, EDT+2, B+6, D+9, SORT+4, DEV+4, DEV+5, DEV+8, DOC1+5
KILL K+2, PRINT+3, DOC+6, P6+2, P6+3, P6+4
P5 RPT5+2
P6 RPT5+7, P5+5
PRINT DEV+9
RPT5 DOC+9

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