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 |  Local Variables |  All
Print Page as PDF
Routine: ACHSMD2

Package: Contract Health Management Information System

Routine: ACHSMD2


Information

ACHSMD2 ; IHS/ITSC/PMF - PRINT DENIAL LISTING BY PROVIDER BY DATE OF SERVICE ; [ 10/16/2001 8:16 AM ]

Source Information

Source file <ACHSMD2.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
Contract Health Management Information System 8 ($$AOP,$$EBB,$$HRN,$$JDT,$$LOC,$$USR,HELP,RTRN)^ACHS  ARCHLIST^ACHSARCH  ($$HVP,NODIR)^ACHSMD0  ^ACHSMD2D  (10,CHK16)^ACHSPS16  OPENHFS^ACHSTCK1  TXLOGADD^ACHSTXUT  ^ACHSVAR  
IHS VA Utilities 3 $$DIR^XBDIR  $$C^XBFUNC  EN^XBVK  
Kernel 3 ^%ZIS  ^%ZISC  ($$FMTE,$$HTE)^XLFDT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Contract Health Management Information System 2 ACHS-HV-DENIAL-REPORT  ACHSDEN-REPORT-HIGH-VOL-PROV  

Entry Points

Name Comments DBIA/ICR reference
BEND ;
B10 ;
B11 ;
HDR2 ;
HDR1 ; Print header.
XXX ;
A0 ;
A3 ;
A5 ;
A7 ;
B0 ;
FTR1 ;
CANREQ ;
MDEL ;
FTR1A ;
A7C ;
A7B ;
A7A ;
B26 ;
B25 ;
B5 ;
EXIT ;
B1 ;
B2 ;
B3 ;
TXFILE ;
HELP(Z) ;EP - From DIR. Z = Number of dates to display.

External References

Name Field # of Occurrence
^%ZIS A7+5, A7B+2
^%ZISC BEND+11, BEND+14
$$AOP^ACHS A5+1, A5+2, A5+4
$$EBB^ACHS A3+9
$$HRN^ACHS B3+4
$$JDT^ACHS A3+10
$$LOC^ACHS HDR1+3
$$USR^ACHS ACHSMD2+4, ACHSMD2+6
HELP^ACHS ACHSMD2+5
RTRN^ACHS CANREQ+2, HELP+4
ARCHLIST^ACHSARCH A5+3
$$HVP^ACHSMD0 A0+8
NODIR^ACHSMD0 A5+1
^ACHSMD2D A0+1
10^ACHSPS16 BEND+9
CHK16^ACHSPS16 A7+11
OPENHFS^ACHSTCK1 A5+5
TXLOGADD^ACHSTXUT BEND+16
^ACHSVAR EXIT+2
$$DIR^XBDIR A3+3, A3+7, TXFILE+2, TXFILE+8, A7+14, BEND+20
$$C^XBFUNC HDR1+3, HDR1+5
EN^XBVK EXIT+2
$$FMTE^XLFDT HDR1+5, HELP+4
$$HTE^XLFDT A7+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Hello, ",$P($$USR^ACHS,",",2),"."
  • Line Location: ACHSMD2+4
Function Call: WRITE
  • Prompt: !!,"GOOD LUCK, ",$P($$USR^ACHS,",",2),"!"
  • Line Location: ACHSMD2+6
Function Call: WRITE
  • Prompt: !!,*7,?5,"No High Volume Providers have been Identified for this Facility"
  • Line Location: A0+5
Function Call: WRITE
  • Prompt: !!,*7,"No Vendors Selected"
  • Line Location: A0+10
Function Call: WRITE
  • Prompt: !!,*7,?5,"No Documents (Orders) Available to Print on this Date"
  • Line Location: A3+5
Function Call: WRITE
  • Prompt: !
  • Line Location: A7+2
Function Call: WRITE
  • Prompt: !!,*7,"Device Right Margin < 132 Char -- Select another Device"
  • Line Location: A7+9
Function Call: WRITE
  • Prompt: !!?10,"Your Request is now being Processed",!
  • Line Location: A7A+2
Function Call: WRITE
  • Prompt: !!,"Device Unavailable"
  • Line Location: A7B+3
Function Call: WRITE
  • Prompt: @ACHS("PRINT",16)
  • Line Location: A7C+1
Function Call: WRITE
  • Prompt: $J($$HRN^ACHS(DFN,ACHSFAC),6),?7,$E($P($G(^DPT(DFN,0)),U),1,29)
  • Line Location: B3+4
Function Call: WRITE
  • Prompt: ?38,$E(X,4,5),"-",$E(X,6,7),"-",$E(X,2,3),?49,$P($G(^DPT(DFN,0)),U,2),?53,$P(^AUTTTRI($P($G(^AUPNPAT(DFN,11),"UNDEFINED"),U,8),0),U,2)
  • Line Location: B3+6
Function Call: WRITE
  • Prompt: ?7,$E(ACHSNAME,1,50)
  • Line Location: B5+2
Function Call: WRITE
  • Prompt: ?58,$S(X=1:"1A",X=2:"1B",X=3:"1C",X=4:"1D",1:"??")
  • Line Location: B10+2
Function Call: WRITE
  • Prompt: ?63,$P($G(^ACHSDEN(ACHSZRR,100)),U,10)
  • Line Location: XXX+1
Function Call: WRITE
  • Prompt: ?66,$E(Y,1,25),?93,$J($P(ACHSX,U),14)
  • Line Location: B11+2
Function Call: WRITE
  • Prompt: ?109,$J(X,10,2)
  • Line Location: B11+5
Function Call: WRITE
  • Prompt: ?121,$E(X,1,7)
  • Line Location: B11+11
Function Call: WRITE
  • Prompt: ?129,$E(X,1,2)
  • Line Location: B11+13
Function Call: WRITE
  • Prompt: !
  • Line Location: B25+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: BEND+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: BEND+8
Function Call: WRITE
  • Prompt: *7,!,"Entry NOT Successfully Posted to Data Tranmission Log - Notify Supervisor",!
  • Line Location: BEND+19
Function Call: WRITE
  • Prompt: !!?20,"Request Cancelled"
  • Line Location: CANREQ+1
Function Call: WRITE
  • Prompt: @IOF,$$C^XBFUNC("HIGH VOLUME PROVIDER DENIAL LISTING FOR: "_$$LOC^ACHS,132)
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: !?2,ACHSRDT,?132-$L(X)/2,X,?122,"Page ",ACHSPGNO,!,$$C^XBFUNC("DATE OF SERVICE: "_$$FMTE^XLFDT(ACHSRDAT),132),!!
  • Line Location: HDR1+5
Function Call: WRITE
  • Prompt: "IHS #",?16,"PATIENT NAME",?40,"DOB",?48,"SEX",?53,"TRB",?58,"MP",?62,"TS",?66,"REASON FOR DENIAL",?93,"DENIAL NUMB",?109,"EST. COST",?121,"ACCT NO",?129,"FC",!
  • Line Location: HDR2+2
Function Call: WRITE
  • Prompt: "------",?7,"----------------------------",?38,"--------",?48,"---",?53,"---",?58,"--",?62,"--",?66,"-------------------------",?93,"--------------",?109,"----------",?121,"-------",?129,"--",!
  • Line Location: HDR2+3
Function Call: WRITE
  • Prompt: !?40,"NO ITEMS (THIS PAGE): ",$J(ACHSPNOT,3),?69,"SUB-TOTAL (THIS PAGE) ",?104,$J(ACHSPTOT,15,2)
  • Line Location: FTR1+1
Function Call: WRITE
  • Prompt: !?7,"TOTAL PAGES IN REPORT: ",$J(ACHSPGNO,3),?40,"NUMBER OF ITEMS (ALL PAGES): ",$J(ACHSGNOT,5),?77,"GRAND TOTAL (ALL PAGES) ",?104,$J(ACHSGTOT,15,2)
  • Line Location: FTR1+2
Function Call: WRITE
  • Prompt: !!," Date: _____________",?25,"Authorized Facility Signature:",?60,"______________________________",!!
  • Line Location: FTR1A+1
Function Call: WRITE
  • Prompt: !!,"Recent MDEL dates:"
  • Line Location: HELP+3
Routine Call
  • %ZIS
  • Line Location:
    • A7+5
    • A7B+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSDEN - [#9002071] A0+1, B1+4, B1+7, B5+1, B10+1, XXX+1, B11+1, B11+3, B11+6, B11+8
^ACHSDEN("ES" A3+5, B0+1, B1+1, HELP+4
^ACHSDENS - [#9002073] B11+1
^ACHSF - [#9002080] A0+5
^AFSTXLOG( TXFILE+6
^AUPNPAT - [#9000001] B3+6
^AUTTTRI - [#9999999.03] B3+6
^AUTTVNDR - [#9999999.11] HDR1+4
^DIC(5 - [#5] B5+1
^DPT - [#2] B3+4, B3+5, B3+6

Label References

Name Line Occurrences
A0 ACHSMD2+3, A7+12, A7+14
A3 A3+5, A3+9, TXFILE+3
A5 TXFILE+6
A7 TXFILE+4, A7+9
A7A A7+13
B0 B1+2
B1 B1+5, B1+6, B1+8, B26+2, B26+3
B10 B3+7
B2 B26+5
B25 B11+6, B11+9
B26 B25+2
B3 B1+9
B5 B3+3
BEND B0+2
CANREQ A0+5, A0+9, A0+10, A3+4, A3+8, A5+1, A7+7, A7+14, A7B+3
EXIT BEND+12, BEND+17, BEND+21
FTR1 B26+1, BEND+2, BEND+3, BEND+6, BEND+8
FTR1A B26+1, BEND+6, BEND+8
HDR1 A7C+4, A7C+5, B26+1
HDR2 A7C+4, A7C+5, B26+1
HELP A3+1
TXFILE TXFILE+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS A7+3!, A7+4*, A7+6!
%ZIS("A" A7+4*
>> ACHS B11+7*, B11+8*, B11+9
>> ACHS("PRINT" A7+13, A7C+1, BEND+9
>> ACHSEDAT A3+7*, A3+9, B0+2
>> ACHSEXFS BEND+15*
>> ACHSF B11+8*
>> ACHSFAC B3+2*, B3+4
>> ACHSGNOT A0+2*, B25+3*, FTR1+2
>> ACHSGTOT A0+2*, B11+4*, FTR1+2
>> ACHSHFS1 A5+6*, A7C+5, B2+1, B26+4, BEND+3, BEND+8, BEND+13
>> ACHSHVAB A0+11*, TXFILE+5, A5+2, A5+4, BEND+15
>> ACHSIODV A7C+2*, A7C+5*, B2+1*, B3+1, B26+2*, B26+4*, HDR1+2, HDR2+1
>> ACHSJDAT A3+10*, TXFILE+5, A5+4, BEND+15
>> ACHSLC A0+2*, B25+3*, B26+1
>> ACHSNAME B5+1*, B5+2
>> ACHSPASS A7C+2*, A7C+5*, B2+1*, B11+4, B25+2, B26+2, HDR1+1
>> ACHSPGNO A0+2*, HDR1+1*, HDR1+5, FTR1+2
>> ACHSPNOT A0+2*, B25+3*, HDR1+1*, FTR1+1
>> ACHSPTOT A0+2*, B11+4*, HDR1+1*, FTR1+1
>> ACHSPTR A7+10*, A7C+1, A7C+2, A7C+5, B26+2, BEND+1, BEND+5, BEND+9, BEND+10
>> ACHSPTRN A7+8*, A7B+1
ACHSQUIT HELP+4, HELP+5!
>> ACHSRDAT A3+3*, A3+5, A3+9, A3+10, A7C+6, HDR1+5
>> ACHSRDT A7+10*, HDR1+5
>> ACHSTFLG A0+2*, BEND+4*, FTR1+1, FTR1+2
>> ACHSTXF TXFILE+1*, TXFILE+5*, A7C+5, B26+3, BEND+3, BEND+8, BEND+12
>> ACHSVPTR A0+11*, B1+6, HDR1+4
>> ACHSX B1+7*, B1+8, B3+2, B11+2
>> ACHSY B5+1*, BEND+17
>> ACHSZDEV A5+6
>> ACHSZDIR A5+2*
>> ACHSZFN A5+2*, A5+4*
>> ACHSZIN A5+4*
>> ACHSZOPT A5+2*
>> ACHSZR A7C+6*, B0+1*, B0+2, B1+1
>> ACHSZRR B0+3*, B1+1*, B1+2, B1+4, B1+7, B5+1, B10+1, XXX+1, B11+1, B11+3
, B11+6, B11+8
DFN B3+2*, B3+3, B3+4, B3+5, B3+6, EXIT+1!
DIC EXIT+1!
DIR EXIT+1!
DT ACHSMD2+3
>> DTOUT A0+9, A3+4, A3+8, TXFILE+3, TXFILE+9
>> DUOUT A0+9, A3+4, A3+8, TXFILE+3, TXFILE+9, A7+12
DUZ(2 A0+1, A0+5, TXFILE+6
IO A7+10, BEND+10*, BEND+13*
IO(0 TXFILE+7, A7+1, A7A+1, A7B+3, BEND+18
IOF HDR1+3
IOM A7+9
ION A7+8
>> IOP A7B+1*
>> POP A7+7, A7B+3
U A0+11, B1+4, B3+2, B3+4, B3+5, B3+6, B5+1, B10+1, XXX+1, B11+1
, B11+2, B11+3, HDR1+4
X TXFILE+5*, TXFILE+6, B1+3*, B1+4*, B1+5, B1+6, B3+5*, B3+6, B5+1*, B10+1*
, B10+2, B11+1*, B11+3*, B11+4, B11+5, B11+7*, B11+8*, B11+10*, B11+11, B11+12*
, B11+13, HDR1+4*, HDR1+5, HELP+1~, HELP+2*, HELP+4*
Y A0+8*, A0+10, A0+11, TXFILE+2*, TXFILE+4, TXFILE+8*, TXFILE+9, B5+1*, B11+1*, B11+2
, B11+7*, B11+8*, B11+10, B11+12, HELP+1~, HELP+2*, HELP+4*
Z HELP~, HELP+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All