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

Package: Contract Health Management Information System

Routine: ACHSDNU2


Information

ACHSDNU2 ; IHS/ITSC/PMF - DENIAL UNMET NEED LIST (3/3) ; [ 10/16/2001 8:16 AM ]

Source Information

Source file <ACHSDNU2.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Contract Health Management Information System 2 (ERPT,RTRN)^ACHS  BRPT^ACHSFU  
IHS VA Utilities 1 $$C^XBFUNC  
VA Fileman 1 COMMA^%DTC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHSDNU1  

Entry Points

Name Comments DBIA/ICR reference
A ;
END1 ; Print totals.
C ;
B
E ;
D ;
K
END2 ; Ask RTRN, write IOF, kill vars, do ERPT, quit.
CTOTAL ;
HDR ; Print header.

External References

Name Field # of Occurrence
COMMA^%DTC CTOTAL+1, END1+2
ERPT^ACHS K+1
RTRN^ACHS B, E+2, END2+1
BRPT^ACHSFU ACHSDNU2+16
$$C^XBFUNC ACHSDNU2+15, HDR+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,ACHS("UN",ACHSNEED),!
  • Line Location: B+1
Function Call: WRITE
  • Prompt: "-"
  • Line Location: B+1
Function Call: WRITE
  • Prompt: !
  • Line Location: B+2
Function Call: WRITE
  • Prompt: " ",Y,?16,ACHSDNUM,?29,ACHSNAME,?70,$J(ACHS("T$"),6,2),!
  • Line Location: E+2
Function Call: WRITE
  • Prompt: !,ACHS("="),!!,"TOTALS FOR ",ACHSTYPE,": ",ACHSTOT1," DENIAL",$S(ACHSTOT1>1:"S",1:""),?65,X
  • Line Location: CTOTAL+1
Function Call: WRITE
  • Prompt: "Facility UN-MET NEED list for ",ACHSLOC,!!!,"(No un-met needs were recorded during this time period.)"
  • Line Location: END1+1
Function Call: WRITE
  • Prompt: !,ACHS("="),!!!,"TOTAL DENIALS ON THIS REPORT: ",ACHSTOT," DENIAL",$S(ACHSTOT>1:"S",1:""),?65,X
  • Line Location: END1+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END2+1
Function Call: WRITE
  • Prompt: @IOF,!!,$$C^XBFUNC("*** CONTRACT HEALTH CARE SYSTEM REPORT ***",80),!!,ACHSLOC,!,$$C^XBFUNC("DENIAL SYSTEM - UNMET NEEDS LIST",80),!,ACHSTIME
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,ACHST1,!!?80-$L(ACHST2)\2,ACHST2,!!,"TYPE OF UNMET NEED",!?2,"ISSUE DATE",?16,"DENIAL #",?29,"PATIENT",?70,"DOLLARS",!,ACHS("="),!
  • Line Location: HDR+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSDEN - [#9002071] E+1
^ACHSMPRI - [#9002073.1] ACHSDNU2+9, ACHSDNU2+10
^DD("DD" ACHSDNU2+15, E+2
^DD(9002071.01 ACHSDNU2+4, ACHSDNU2+5
^TMP("ACHSDNU" ACHSDNU2+2*, ACHSDNU2+3!
^TMP("ACHSUN" A+2, B, C+1, D+1, E+1

Label References

Name Line Occurrences
A B
B C+1
C D+1
CTOTAL A+2
D E+1
E E+4
END1 A+2
END2 END1+1
HDR A+2, B, E+2
K ACHSDNU2+4, B, E+2

Naked Globals

Name Field # of Occurrence
^( E+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACHS ACHSDNU2+5*, B+1*
>> ACHS("=" CTOTAL+1, END1+2, HDR+3
>> ACHS("BDT" ACHSDNU2+15*
>> ACHS("CATG" ACHSDNU2+11*, A+2
>> ACHS("EDT" ACHSDNU2+15*
>> ACHS("T$" E+1*, E+2, E+3
>> ACHS("UN" ACHSDNU2+5*, B+1
>> ACHS(1 ACHSDNU2+5*
>> ACHS(2 ACHSDNU2+5*
>> ACHSBDT ACHSDNU2+15
>> ACHSBM B, E+2
ACHSCAT ACHSDNU2+14*, A+2*, B, C+1, D+1, E+1, K!
ACHSDNUM E+1*, E+2, K!
ACHSDOL ACHSDNU2+14*, E+3*, END1+2, K!
>> ACHSEDT ACHSDNU2+15
ACHSISDT B+1*, C+1*, D+1, E+1, E+2, K!
>> ACHSLOC END1+1, HDR+2
ACHSNAME C+1*, D+1*, E+1, E+2, K!
ACHSNEED A+2*, B*, B+1, C+1, D+1, E+1, K!
>> ACHSPG END1+1, HDR+1*
>> ACHST1 ACHSDNU2+15*, HDR+3
>> ACHST2 HDR+1*, HDR+3
>> ACHSTIME HDR+2
ACHSTOT ACHSDNU2+14*, E+3*, END1+2, K!
ACHSTOT1 A+2*, E+3*, CTOTAL+1, K!
ACHSTOT1("$" A+2*, E+3*, CTOTAL+1
ACHSTYPE A+2*, CTOTAL+1, K!, HDR+1
DA D+1*, E+1*, K!
>> DTOUT B, E+2
>> DUOUT B, E+2
DUZ(2 E+1
IOF END2+1, HDR+2
>> MEDPRI ACHSDNU2+9*, ACHSDNU2+10, ACHSDNU2+11
>> MEDPRI0 ACHSDNU2+10*, ACHSDNU2+11
U ACHSDNU2+2, ACHSDNU2+5, ACHSDNU2+11, E+1
>> X CTOTAL+1*, END1+2*
X2 CTOTAL+1*, END1+2*, K!
>> Y ACHSDNU2+15*, E+2*
ZTSK K!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All