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

Package: Contract Health Management Information System

Routine: ACHSDNL4


Information

ACHSDNL4 ; IHS/ITSC/PMF - DENIAL LTR/FS (FS1) (5/6) ;7/27/10 16:17

Source Information

Source file <ACHSDNL4.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Contract Health Management Information System 3 ($$C,$$DN,CPI)^ACHS  SETCHT^ACHSDNL2  (,END)^ACHSDNL5  
DRG Grouper 2 $$ICDDX^ICDEX  $$CPT^ICPTCOD  
Kernel 2 $$FMTE^XLFDT  $$REPEAT^XLFSTR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHSDNL1  

Entry Points

Name Comments DBIA/ICR reference
COMMENT ;
RLINE ;
DATE ;
END ;
R1 ;
PRIOR ; --- Medical Priority
START ;
NOT ;
APPEAL ;
TYPE ;
DLINE ;

External References

Name Field # of Occurrence
$$C^ACHS START+3, PRIOR+5
$$DN^ACHS START+3, START+5, START+6, NOT+6, DATE+2, APPEAL+1, TYPE+1, PRIOR+1, PRIOR+2, PRIOR+3
, PRIOR+6, RLINE+2, RLINE+12
CPI^ACHS START+1
SETCHT^ACHSDNL2 START+16
^ACHSDNL5 DLINE+2
END^ACHSDNL5 END+1
$$ICDDX^ICDEX RLINE+12
$$CPT^ICPTCOD RLINE+17
$$FMTE^XLFDT DATE+2, PRIOR+2
$$REPEAT^XLFSTR START+3, PRIOR+5, RLINE+3, DLINE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$C^ACHS("CHS DENIAL",80),!,$$C^ACHS("DENIAL FACT SHEET",80),!,$$REPEAT^XLFSTR("=",79),!,$$C^ACHS("Document number: "_$$DN^ACHS(0,1),80),!,$$REPEAT^XLFSTR("-",79),!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !
  • Line Location: START+14
Function Call: WRITE
  • Prompt: ?4,ACHDNAME
  • Line Location: START+15
Function Call: WRITE
  • Prompt: ?35,ACHDCH,!
  • Line Location: START+17
Function Call: WRITE
  • Prompt: ?4,$P(A,U),!?4,$P(A,U,4)
  • Line Location: START+21
Function Call: WRITE
  • Prompt: " ",$P($G(^DIC(5,ACHDST,0)),U,2)
  • Line Location: START+23
Function Call: WRITE
  • Prompt: " ",$P(A,U,6),!!
  • Line Location: START+24
Function Call: WRITE
  • Prompt: "(No patient on file)"
  • Line Location: NOT+2
Function Call: WRITE
  • Prompt: "(No patient on file)"
  • Line Location: NOT+3
Function Call: WRITE
  • Prompt: ?4,$P(Y,",",2,99)
  • Line Location: NOT+7
Function Call: WRITE
  • Prompt: $P(Y,","),?35,"CHART #: ",$S($P(X,U,6)]"":$P(X,U,6),1:"(No Chart At This Facility)"),!?4,$P(X,U,2),!?4,$P(X,U,3)
  • Line Location: NOT+9
Function Call: WRITE
  • Prompt: " ",$P($G(^DIC(5,ACHDST,0)),U,2)
  • Line Location: NOT+11
Function Call: WRITE
  • Prompt: " ",$P(X,U,5),!!
  • Line Location: NOT+12
Function Call: WRITE
  • Prompt: !,"DATE OF SERVICES: ",$$FMTE^XLFDT($$DN^ACHS(0,4)),".",!," REQUEST MADE TO: ",$P($G(^DIC(4,DUZ(2),0)),U),!,"DATE REQUEST REC: ",$$FMTE^XLFDT($$DN^ACHS(0,5))
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: !," APPEAL STATUS: ",$P($G(^ACHSDENA($$DN^ACHS(400,3),0)),U)
  • Line Location: APPEAL+1
Function Call: WRITE
  • Prompt: "<unknown>"
  • Line Location: TYPE+3
Function Call: WRITE
  • Prompt: $P($P(Y,";",%),":",2)
  • Line Location: TYPE+4
Function Call: WRITE
  • Prompt: !," PRIORITY: ",$P($G(^ACHSMPRI($$DN^ACHS(400,2),0)),U)
  • Line Location: PRIOR+1
Function Call: WRITE
  • Prompt: !," DATE OF ISSUE: ",$$FMTE^XLFDT($$DN^ACHS(0,2)),!," ISSUED BY: "
  • Line Location: PRIOR+2
Function Call: WRITE
  • Prompt: $P($G(^VA(200,X,0)),U)
  • Line Location: PRIOR+4
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79),!,$$C^ACHS("DENIAL REASON(S)",80)
  • Line Location: PRIOR+5
Function Call: WRITE
  • Prompt: !!,"PRIMARY DENIAL REASON: ",$P($G(^ACHSDENS(X,0),"UNDEFINED"),U)
  • Line Location: PRIOR+7
Function Call: WRITE
  • Prompt: !,$S(ACHSUMET=1:"(No reasons on file)",1:"UN-MET NEED")
  • Line Location: PRIOR+9
Function Call: WRITE
  • Prompt: !,?23,$P($G(^ACHSDENS(RSNPTR,0)),U)
  • Line Location: R1+6
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79),!," TYPE CODE",?20,"DIAGNOSIS"
  • Line Location: RLINE+3
Function Call: WRITE
  • Prompt: "(No diagnosis on file)"
  • Line Location: RLINE+5
Function Call: WRITE
  • Prompt: !,"(ICD9) ",$P($G(^ICD9(Y,0)),U),?20,$P($G(^ICD9(Y,0)),U,3)
  • Line Location: RLINE+9
Function Call: WRITE
  • Prompt: !,"(ICD) ",$P($$ICDDX^ICDEX(DY,$$DN^ACHS(0,4),,"I"),U,2),?20,$E($P($$ICDDX^ICDEX(DY,$$DN^ACHS(0,4),,"I"),U,4),1,60)
  • Line Location: RLINE+12
Function Call: WRITE
  • Prompt: !,"(CPT) ",$P($G(^ICPT(Y,0)),U),?20,$P($G(^ICPT(Y,0)),U,2)
  • Line Location: RLINE+16
Function Call: WRITE
  • Prompt: !,"(CPT) ",$P($$CPT^ICPTCOD(DY),U,2),?20,$P($$CPT^ICPTCOD(DY),U,3)
  • Line Location: RLINE+17
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79),!
  • Line Location: DLINE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSDEN - [#9002071] NOT+3, NOT+5, PRIOR+8, R1+3, R1+4, RLINE+5, RLINE+7, RLINE+10, RLINE+14, RLINE+17
^ACHSDENA - [#9002074] APPEAL+1
^ACHSDENS - [#9002073] PRIOR+7, R1+6
^ACHSMPRI - [#9002073.1] PRIOR+1
^DD(9002071.01 TYPE+2
^DIC(4 - [#4] DATE+2
^DIC(5 - [#5] START+23, NOT+11
^DPT - [#2] START+8, START+10, START+20
^ICD9 - [#80] RLINE+12
^ICPT - [#81] RLINE+17
^VA(200 - [#200] PRIOR+4

Label References

Name Line Occurrences
COMMENT RLINE+5
DATE START+25
DLINE RLINE+2
END START+7, START+8
NOT START+5
R1 PRIOR+8
RLINE PRIOR+9

Naked Globals

Name Field # of Occurrence
^(0 PRIOR+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % TYPE+2*, TYPE+3*, TYPE+4*
>> A START+20*, START+21, START+22, START+24
>> ACHDCH START+17
>> ACHDNAME START+10*, START+11*, START+15
>> ACHDPDR PRIOR+6*, PRIOR+7*, PRIOR+9
>> ACHDST START+22*, START+23, NOT+10*, NOT+11
>> ACHSA NOT+3, NOT+5, PRIOR+8, R1+3, R1+4, RLINE+5, RLINE+7, RLINE+10, RLINE+14, RLINE+17
>> ACHSUMET DATE+1*, PRIOR+9
>> DFN START+6*, START+7, START+8, START+10, START+20
DUZ(2 NOT+3, NOT+5, DATE+2, PRIOR+8, R1+3, R1+4, RLINE+5, RLINE+7, RLINE+10, RLINE+14
, RLINE+17
>> DX RLINE+7*, RLINE+10, RLINE+14*, RLINE+17
>> DY RLINE+10*, RLINE+12, RLINE+17*
RSNPTR R1+2~, R1+4*, R1+5, R1+6
U START+10, START+21, START+22, START+23, START+24, NOT+9, NOT+10, NOT+11, NOT+12, DATE+2
, APPEAL+1, TYPE+2, PRIOR+1, PRIOR+4, PRIOR+7, PRIOR+8, R1+4, R1+6, RLINE+10, RLINE+12
, RLINE+17
>> X NOT+5*, NOT+9, NOT+10, NOT+12, TYPE+1*, TYPE+2, TYPE+4, PRIOR+3*, PRIOR+4, PRIOR+6*
, PRIOR+7, R1+3*, R1+4
>> Y NOT+6*, NOT+7, NOT+8, NOT+9, TYPE+2*, TYPE+3, TYPE+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All