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

Package: Contract Health Management Information System

Routine: ACHSDNS1


Information

ACHSDNS1 ; IHS/ITSC/PMF - DENIAL STATISTICS REPORT (2/2) ; [ 10/31/2003 11:46 AM ]

Source Information

Source file <ACHSDNS1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Contract Health Management Information System 3 (ERPT,RTRN)^ACHS  HDR^ACHSDNS  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 ACHSDNS  

Entry Points

Name Comments DBIA/ICR reference
A ; Main loop.
END ; Kill vars, do ERPT, quit.
K ;
GRNDTOT ;
TOTALS ;
A1 ;PRINT DATE OF SERVICE OR DATE OF ISSUE REPORT
PRT ;PRINT TOTALS
A3 ;PRINT COMMUNITY REPORT
A4 ;PRINT OTHER RESOURCE REPORT....
A6
NEED ;
N1 ;
PRTOT ;PRINT TOTALS FOR COMMUNITY AND PAYOR REPORT
NEEDTOT ;

External References

Name Field # of Occurrence
COMMA^%DTC TOTALS+8, NEEDTOT+2, A1+6, PRTOT+6, GRNDTOT+1, PRT+5
ERPT^ACHS K+3
RTRN^ACHS A6+2, TOTALS+3, NEED+2, END+1, GRNDTOT+5, PRT+7
HDR^ACHSDNS ACHSDNS1+10, A6+2, TOTALS+5, NEED+4, A3+6, A4+3, PRT+7
BRPT^ACHSFU ACHSDNS1+5
$$C^XBFUNC ACHSDNS1+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $P(^ACHSDENS(ACHSRES,0),U),!
  • Line Location: A+5
Function Call: WRITE
  • Prompt: !,ACHS("-"),!
  • Line Location: A6+1
Function Call: WRITE
  • Prompt: !,"(No denials for standard reasons are on file for this time period.)"
  • Line Location: TOTALS+2
Function Call: WRITE
  • Prompt: !,"TOTALS.........",!!
  • Line Location: TOTALS+6
Function Call: WRITE
  • Prompt: !,ACHS("="),!,"GRAND TOTALS:",?42,$J(ACHS(1),6),?59,X,!,ACHS("="),!
  • Line Location: TOTALS+8
Function Call: WRITE
  • Prompt: !,"UNMET NEED: SURGICAL"
  • Line Location: NEED+4
Function Call: WRITE
  • Prompt: " (NONE)"
  • Line Location: NEED+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: NEED+6
Function Call: WRITE
  • Prompt: !,ACHS("-"),!!,"UNMET NEED: NON-SURGICAL"
  • Line Location: N1+1
Function Call: WRITE
  • Prompt: " (NONE)"
  • Line Location: N1+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: N1+3
Function Call: WRITE
  • Prompt: !,ACHS("="),!
  • Line Location: NEEDTOT+1
Function Call: WRITE
  • Prompt: "GRAND TOTALS:",?42,$J(ACHS(3),6),?59,X,!,ACHS("="),!
  • Line Location: NEEDTOT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: ?41-$L(ACHS(ACHSTYPE)),ACHS(ACHSTYPE),":",?42,$J(ACHS(1),6),$J(ACHS(1)/$S(ACHSTOT1:ACHSTOT1,1:1)*100,6,1),"%"
  • Line Location: A1+4
Function Call: WRITE
  • Prompt: ?59,X,$J(ACHS(2)/$S(ACHSTOT2:ACHSTOT2,1:1)*100,6,1),"%",!
  • Line Location: A1+6
Function Call: WRITE
  • Prompt: !,"TOTAL "
  • Line Location: PRTOT+1
Function Call: WRITE
  • Prompt: ?41-$L(ACHS(ACHSTYPE)),ACHS(ACHSTYPE),":",?42,$J(ACHS(1),6),$J(ACHS(1)/$S(ACHSTOT1:ACHSTOT1,1:1)*100,6,1),"%"
  • Line Location: PRTOT+5
Function Call: WRITE
  • Prompt: ?59,X,$J(ACHS(2)/$S(ACHSTOT2:ACHSTOT2,1:1)*100,6,1),"%",!
  • Line Location: PRTOT+7
Function Call: WRITE
  • Prompt: ACHS("="),!,"GRAND TOTALS:"
  • Line Location: GRNDTOT+2
Function Call: WRITE
  • Prompt: ?42,$J(ACHSTOT1,6)
  • Line Location: GRNDTOT+3
Function Call: WRITE
  • Prompt: ?59,X,!,ACHS("="),!
  • Line Location: GRNDTOT+4
Function Call: WRITE
  • Prompt: !,$P(^ACHSDENS(ACHSRES,0),U),!
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: ?41-$L(ACHS(ACHSTYPE)),ACHS(ACHSTYPE),":",?42,$J(ACHS(1),6),$J(ACHS(1)/$S(ACHSTOT1:ACHSTOT1,1:1)*100,6,1),"%"
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: ?59,X,$J(ACHS(2)/$S(ACHSTOT2:ACHSTOT2,1:1)*100,6,1),"%",!
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: !,ACHS("-"),!
  • Line Location: PRT+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSDENS - [#9002073] A+3, A+5, PRT+2
^DD("DD" ACHSDNS1+8
^DD(9002071.01 ACHSDNS1+10, ACHSDNS1+11
^TMP($J ACHSDNS1+6!, A+2, A+4, TOTALS+6, TOTALS+8, NEED+5, NEED+6, N1+2, N1+3, A1+2
, A3+2, A3+5, A3+8, A3+9, A3+11, A3+15, A3+16, A4+2, A4+5, A4+7
, A4+9, A4+13, A4+14, PRTOT+2, PRTOT+3, PRT+1

Label References

Name Line Occurrences
@( A+1, A6, TOTALS+7, NEED+7, N1+4
A A+3, A6+3
A1 A1+7
END ACHSDNS1+10
GRNDTOT A3+19, A4+18
K A+1, A6+2, TOTALS+4, NEED+3
N1 NEED+5
NEED TOTALS+2
NEEDTOT N1+2
PRT A3+12, A4+10
PRTOT A3+18, A4+16
TOTALS A+3

Naked Globals

Name Field # of Occurrence
^( A1+2, A3+11, A3+16, A4+9, A4+14
^("TOTAL" A+4, TOTALS+6, TOTALS+8, NEED+6, N1+3, PRTOT+2, PRT+1
^(0 ACHSDNS1+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A K+2!
>> ACHS ACHSDNS1+11*
>> ACHS( ACHSDNS1+11*, A1+3*, A1+4, A3+10*, A3+17*, A4+8*, A4+15*, PRTOT+5, PRT+3
>> ACHS("-" A6+1, N1+1, PRT+6
>> ACHS("=" TOTALS+8, NEEDTOT+1, NEEDTOT+2, GRNDTOT+2, GRNDTOT+4
>> ACHS("BDT" ACHSDNS1+8*, ACHSDNS1+9
>> ACHS("EDT" ACHSDNS1+9*
>> ACHS(1 TOTALS+8*, A1+2*, A1+4, A3+11*, A3+16*, A4+9*, A4+14*, PRTOT+5, PRT+3
>> ACHS(2 TOTALS+8*, A1+2*, A1+6, A3+11*, A3+16*, A4+9*, A4+14*, PRTOT+6, PRTOT+7, PRT+5
>> ACHS(3 ACHSDNS1+7*, NEED+6*, N1+3*, NEEDTOT+2
>> ACHS(4 ACHSDNS1+7*, NEED+6*, N1+3*, NEEDTOT+2
>> ACHS(5 ACHSDNS1+7*, A+5*, TOTALS+2
>> ACHSBDT ACHSDNS1+8
>> ACHSBM A+1*, A6+2, PRT+7
ACHSCOM K+1!, A3+1*, A3+2*, A3+3, A3+5, A3+8, A3+9, A3+11, A3+15, A3+16
>> ACHSEDT ACHSDNS1+8
ACHSINS K+1!, A4+1*, A4+2*, A4+5, A4+7, A4+9, A4+13, A4+14
ACHSISDT K+2!
ACHSPART ACHSDNS1+7*, TOTALS+1*, NEED+1*, K+2!
ACHSQUIT K+1!, A3+1*, A3+2, A3+5, A3+8, A3+13, A4+1*, A4+2, A4+5, A4+13
, A4+17
ACHSRES ACHSDNS1+7*, A+2*, A+3, A+4, A+5, TOTALS+6*, NEED+4*, NEED+5, N1+1*, N1+2
, K+2!, A1+2, A3+7*, A3+8*, A3+9, A3+11, A4+4*, A4+5*, A4+7, A4+9
, PRT+1, PRT+2
ACHSRPT ACHSDNS1+10, ACHSDNS1+12, A+1, K+1!, PRTOT+3
ACHSST K+1!, A3+4*, A3+5*, A3+8, A3+9, A3+11, A3+15, A3+16
ACHSSUB ACHSDNS1+12*, A+1, A6, TOTALS+7, NEED+7, N1+4, K+1!
>> ACHST1 ACHSDNS1+9*
ACHSTOT1 A+4*, TOTALS+6*, NEED+6*, N1+3*, K+2!, A1+4, PRTOT+2*, PRTOT+3*, PRTOT+5, GRNDTOT+3
, PRT+1*, PRT+3
ACHSTOT2 A+4*, TOTALS+6*, NEED+6*, N1+3*, K+2!, A1+5*, A1+6, PRTOT+2*, PRTOT+7, GRNDTOT+1
, PRT+1*, PRT+4*, PRT+5
ACHSTYPE A+4*, TOTALS+6*, NEED+4*, N1+1*, K+2!, A1+2*, A1+3, A1+4, A3+9*, A3+10
, A3+11, A3+14*, A3+15*, A3+16, A3+17, A4+6*, A4+7*, A4+8, A4+9, A4+12*
, A4+13*, A4+14, A4+15, PRTOT+5, PRT+3
DA K+2!
>> DTOUT A6+2, TOTALS+4, NEED+3, GRNDTOT+5, PRT+7
>> DUOUT A6+2, TOTALS+4, NEED+3, GRNDTOT+5, PRT+7
>> I ACHSDNS1+11*
IOF END+1
U ACHSDNS1+11, A+4, A+5, TOTALS+6, TOTALS+8, NEED+6, N1+3, A1+2, A3+11, A3+16
, A4+9, A4+14, PRTOT+2, PRTOT+3, PRT+1, PRT+2
>> X TOTALS+8*, NEEDTOT+2*, A1+6*, PRTOT+6*, PRTOT+7, GRNDTOT+1*, GRNDTOT+4, PRT+5*
>> X2 TOTALS+8*, NEEDTOT+2*, A1+6*, PRTOT+6*, GRNDTOT+1*, PRT+5*
>> Y ACHSDNS1+8*, ACHSDNS1+9
ZTSK K+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All