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

Package: Contract Health Management Information System

Routine: ACHSDNI


Information

ACHSDNI ; IHS/ITSC/PMF - DENIAL LIST BY ISSUE DATE ; [ 10/31/2003 11:43 AM ]

Source Information

Source file <ACHSDNI.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Contract Health Management Information System 3 (ERPT,FMT,FUDT,RTRN)^ACHS  DOLLARS^ACHSDNU1  (BRPT,READ)^ACHSFU  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 2 ^%DT  COMMA^%DTC  
IHS VA Utilities 1 $$C^XBFUNC  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Contract Health Management Information System 2 ACHS DEN REP1  ACHSDENREP1  

Entry Points

Name Comments DBIA/ICR reference
B
END
HDR ; Print header.
K
DEV
START ; EP - TaskMan.
A3
A2
L2
L3
L1
LOOP ;

External References

Name Field # of Occurrence
^%DT A2+1, A3
COMMA^%DTC END
^%ZIS DEV
HOME^%ZIS DEV
^%ZISC DEV+1
^%ZTLOAD DEV+3
ERPT^ACHS K+1
FMT^ACHS L3+4
FUDT^ACHS A2+1, A3
RTRN^ACHS L3+5, END
DOLLARS^ACHSDNU1 LOOP+8
BRPT^ACHSFU START+3
READ^ACHSFU A2, A3
$$C^XBFUNC START+2, HDR+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Enter the BEGINNING DATE for this report: ALL DENIALS// "
  • Line Location: A2+0
Function Call: WRITE
  • Prompt: !!,"Enter the ENDING DATE for this report: "
  • Line Location: A3+0
Function Call: WRITE
  • Prompt: !!,*7,"The END is before the BEGINNING."
  • Line Location: A3+1
Function Call: WRITE
  • Prompt: *7,!,"Please queue to system printers."
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: Y,?14,$P(ACHS(0),U),?27,ACHSNAME,?65
  • Line Location: L3+2
Function Call: WRITE
  • Prompt: !
  • Line Location: L3+2
Function Call: WRITE
  • Prompt: Y,?14,$P(ACHS(0),U),?27,ACHSNAME,?52,ACHSDOS,?65
  • Line Location: L3+4
Function Call: WRITE
  • Prompt: !
  • Line Location: L3+4
Function Call: WRITE
  • Prompt: !,ACHS("="),!,"TOTALS FOR THIS REPORT: ",ACHSTOT," DENIAL",$S(ACHSTOT=1:"",1:"S"),?61,X
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF,!!,$$C^XBFUNC("*** CONTRACT HEALTH CARE SYSTEM REPORT ***",80),!!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: ACHSLOC,!?25,"DENIAL DOCUMENTS BY ISSUE DATE",?71,"Page",$J(ACHSPG,3),!,ACHSTIME,!!,ACHST1,!!,"ISSUE DATE",?14,"DENIAL #",?27,"PATIENT",?50,"DATE OF SERVICE",?70,"DOLLARS",!,ACHS("="),!
  • Line Location: HDR+6
Routine Call
  • %ZIS
  • Line Location:
    • DEV
Routine Call
  • %ZIS
  • Line Location:
    • DEV

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UCI" DEV+2
^ACHSDEN - [#9002071] LOOP+2, LOOP+3, LOOP+4, LOOP+6, LOOP+8, LOOP+10
^DD("DD" START+1, LOOP+11, L3+4
^DPT - [#2] LOOP+7

Label References

Name Line Occurrences
A2 A2+1, A3, A3+1
A3 A3
B A2
DEV DEV+1, DEV+3
HDR START+4, L3+5
K A2, A3, DEV, DEV+5
START DEV+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT A2+1*, A3*
>> %ZIS DEV*
>> ACHS DEV+2*
>> ACHS("$" LOOP+8*, L3+4, L3+6
>> ACHS("=" END, HDR+6
>> ACHS("BDT" START+1*, START+2
>> ACHS("EDT" START+1*, START+2
>> ACHS(0 LOOP+4*, LOOP+5, LOOP+6, LOOP+7, L3+4
>> ACHSBDT A2*, A2+1*, A3+1, DEV+2, START+1, START+2
>> ACHSBM L3+5
>> ACHSDOS LOOP+10*, LOOP+11*, L3+4
>> ACHSEDT A2*, A3*, A3+1, DEV+2, START+1, LOOP+2
>> ACHSIO B*
ACHSISU START+1*, LOOP+2*, LOOP+3, L3+4, K!
>> ACHSLOC HDR+6
ACHSNAME LOOP+6*, LOOP+7*, L3+4, K!
>> ACHSPG HDR+1*, HDR+6
>> ACHST1 START+2*, HDR+6
>> ACHSTIME HDR+6
ACHSTOT START+1*, L3+6*, END, K!
ACHSTOT("$" START+1*, L3+6*, END
DA LOOP+3*, LOOP+4, LOOP+6, LOOP+8, LOOP+10, K!
DT A2+1, A3
DTOUT A2, A3, LOOP+1!, LOOP+2, LOOP+3, L3+5
DUOUT A2, A3, LOOP+1!, LOOP+2, LOOP+3, L3+5
DUZ(2 LOOP+2, LOOP+3, LOOP+4, LOOP+6, LOOP+8, LOOP+10
IO B
IO("Q" DEV+1!
IO("S" DEV+1
IOF END, HDR+5
IOST DEV+1
>> POP DEV
U LOOP+6, LOOP+7, LOOP+10, L3+4
>> X A2+1*, A3*, L3+4*, END*
X2 ACHSDNI+3!, L3+4*, END*
X3 ACHSDNI+3!, L3+4*, END*
>> Y A2*, A2+1, A3*, DEV+2, START+1*, LOOP+11*, L3+4*
>> ZTDESC DEV+2*
>> ZTRTN DEV+2*
>> ZTSAVE( DEV+2*
ZTSK DEV+3, DEV+4!
>> ZTUCI DEV+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All