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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ACHSDADP

Package: Contract Health Management Information System

Routine: ACHSDADP


Information

ACHSDADP ; IHS/ITSC/JVK - DENIAL APPEAL DISPLAY/EDIT; [ 09/21/2006 3:05 PM ]

Source Information

Source file <ACHSDADP.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Contract Health Management Information System 3 ($$DIR,$$DN,$$LOCK,RTRN,VIDEO)^ACHS  ($$LINK,APPEAL)^ACHSBMC  ^ACHSDLK  
Kernel 2 $$FMTE^XLFDT  $$REPEAT^XLFSTR  
VA Fileman 2 ^DIE  $$GET1^DIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHS DEN APPEAL EDIT  

Entry Points

Name Comments DBIA/ICR reference
11 ;
10 ;
P1 ; --- Display Page 1
END ;
HDR ;
REF ;UPDATE REFERRAL IF DENIAL EXIST AND LINK IS ON
DSP ; --- Display
12 ;
DIE(DR) ; --- Edit appropriate fields in Denial
9 ;
8 ; --- Other Resources
APPEAL ;--ENTER OR EDIT APPEAL TRANSACTIONS--
TOF ;

External References

Name Field # of Occurrence
$$DIR^ACHS P1+45
$$DN^ACHS HDR+1, HDR+3, P1+2, P1+3, P1+4, P1+5, P1+6, P1+7, P1+9, P1+11
, P1+12, P1+16, P1+31, P1+37, APPEAL+10
$$LOCK^ACHS DIE+5, DIE+9
RTRN^ACHS ACHSDADP+9
VIDEO^ACHS DSP+1
$$LINK^ACHSBMC REF+2
APPEAL^ACHSBMC REF+4
^ACHSDLK ACHSDADP+8
^DIE DIE+6
$$GET1^DIQ APPEAL+12, APPEAL+13, APPEAL+14, APPEAL+15
$$FMTE^XLFDT P1+4, P1+6, P1+7
$$REPEAT^XLFSTR HDR+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TOF+3
Function Call: WRITE
  • Prompt: IORVON,!?79,!,"CHS DENIAL DISPLAY",?25,"PATIENT: ",$E(ACHDPAT,1,25),?62,"CHART#: "
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: $P($G(^AUPNPAT($$DN^ACHS(0,7),41,DUZ(2),0)),U,2)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "NONE"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !?79,IORVOFF,!,$$REPEAT^XLFSTR("=",79),!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: IORVOFF
  • Line Location: P1+1
Function Call: WRITE
  • Prompt: "DENIAL NO: ",$$DN^ACHS(0,1),?45,"DENIAL STATUS: ",$S(STATUS="":"Active",STATUS="Y":"Canceled",STATUS="R":"Reversed"),!
  • Line Location: P1+3
Function Call: WRITE
  • Prompt: "DATE ISSUED: ",$$FMTE^XLFDT($$DN^ACHS(0,2))
  • Line Location: P1+4
Function Call: WRITE
  • Prompt: ?45,"ISSUED BY: ",$E($P($G(^VA(200,$$DN^ACHS(0,3),0)),U),1,25)
  • Line Location: P1+5
Function Call: WRITE
  • Prompt: !!,"1. DATE MED SVC: ",$$FMTE^XLFDT($$DN^ACHS(0,4))
  • Line Location: P1+6
Function Call: WRITE
  • Prompt: ?43,"2. DATE OF REQUEST: ",$$FMTE^XLFDT($$DN^ACHS(0,5))
  • Line Location: P1+7
Function Call: WRITE
  • Prompt: !,"4. VISIT TYPE: ",$S(%="O":"OUTPATIENT",%="I":"INPATIENT",%="A":"AMBULANCE",%="P":"PATIENT ESCORT",%="D":"DENTAL",1:"UNKNOWN")
  • Line Location: P1+14
Function Call: WRITE
  • Prompt: !!,"5. PRIMARY PROVIDER: ",?25,$S($$DN^ACHS(100,1)="Y":$P($G(^AUTTVNDR($$DN^ACHS(100,2),0)),U),1:$$DN^ACHS(100,3))
  • Line Location: P1+16
Function Call: WRITE
  • Prompt: !,"6. SECONDARY PROVIDERS: "
  • Line Location: P1+18
Function Call: WRITE
  • Prompt: ?25,ACHSPROF(ACHSJ),!
  • Line Location: P1+24
Function Call: WRITE
  • Prompt: ?25,ACHSPRNF(ACHSJ),!
  • Line Location: P1+29
Function Call: WRITE
  • Prompt: !,"7. PRIMARY DENIAL REASON: "
  • Line Location: P1+31
Function Call: WRITE
  • Prompt: $P($G(^ACHSDENS(%,0)),U)
  • Line Location: P1+31
Function Call: WRITE
  • Prompt: !,"8. *OTHER RESOURCES: ",$S($P($G(^ACHSDEN(DUZ(2),"D",ACHSA,800,0)),U,4):"YES",1:"NONE")
  • Line Location: P1+33
Function Call: WRITE
  • Prompt: ?43,"9. *OTHER IHS RESOURCES: ",$S($P($G(^ACHSDEN(DUZ(2),"D",ACHSA,825,0)),U,4):"YES",1:"NONE")
  • Line Location: P1+35
Function Call: WRITE
  • Prompt: !,"12. *CHS OFFICE COMMENTS: ",$S($D(^ACHSDEN(DUZ(2),"D",ACHSA,900,0)):"YES",1:"NONE")
  • Line Location: P1+41
Function Call: WRITE
  • Prompt: !?15,IORVON,"*",IORVOFF," - CHOOSE THESE FIELDS TO SEE FURTHER INFORMATION",!
  • Line Location: P1+43
Function Call: WRITE
  • Prompt: !!
  • Line Location: 8+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: 9+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: 10+3
Function Call: WRITE
  • Prompt: ?20,"APPEAL TRANSACTION MENU",!
  • Line Location: 10+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: 11+1
Function Call: WRITE
  • Prompt: ?20,"APPEAL TRANSACTION MENU",!
  • Line Location: 11+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: 12+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: DIE+1
Routine Call
  • DIE
  • Line Location:
    • DIE+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ACHSDENA - [#9002074] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSDEN - [#9002071] TOF+2, P1+21, P1+22, P1+27, P1+28, P1+33, P1+35, P1+39, P1+40, P1+41
, APPEAL+2, APPEAL+7*, APPEAL+8*, APPEAL+9*, APPEAL+12*, APPEAL+13*, APPEAL+14*, APPEAL+15*, REF+4
^ACHSDENA - [#9002074] P1+38
^ACHSDENS - [#9002073] P1+31
^ACHSMPRI - [#9002073.1] P1+11
^AUPNPAT - [#9000001] HDR+3
^AUTTVNDR - [#9999999.11] P1+16, P1+23
^DPT - [#2] HDR+1
^VA(200 - [#200] P1+5

Label References

Name Line Occurrences
$$DIE 8+2, 9+2, 10+5, 11+3, 12+2
@( P1+49
APPEAL DIE+8
HDR DSP+4
P1 DSP+4
REF DIE+8
TOF DSP+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % P1+12*, P1+14, P1+31*, P1+37*, P1+38, P1+39*, P1+40, P1+45*, P1+47, P1+48
, P1+49, APPEAL+10*, APPEAL+11, APPEAL+12, APPEAL+13, APPEAL+14, APPEAL+15
>> ACHDLKER ACHSDADP+9
>> ACHDOCT ACHSDADP+7*
>> ACHDPAT HDR+1*, HDR+2
>> ACHSA ACHSDADP+10, TOF+1, TOF+2, P1+21, P1+22, P1+27, P1+28, P1+33, P1+35, P1+39
, P1+40, P1+41, DIE+2, APPEAL+2, APPEAL+7, APPEAL+8, APPEAL+9, APPEAL+11, APPEAL+12, APPEAL+13
, APPEAL+14, APPEAL+15, REF+4
>> ACHSDEN( APPEAL+11*
>> ACHSDREC APPEAL+2*, APPEAL+7, APPEAL+9
ACHSI END+1!, P1+20*, P1+21*, P1+22, P1+26*, P1+27*, P1+28
ACHSJ END+1!, P1+21*, P1+22, P1+23, P1+24, P1+27*, P1+28, P1+29
ACHSMPRI END+1!, P1+9*, P1+11
ACHSPRNF END+1!
ACHSPRNF( P1+28*, P1+29
ACHSPROF END+1!
ACHSPROF( P1+22*, P1+23*, P1+24
ACHSREC REF+3*, REF+4*, REF+5!
>> ACHSTREC APPEAL+1*, APPEAL+7, APPEAL+8, APPEAL+9
>> D APPEAL+1
>> D1 REF+4
>> DA ACHSDADP+10*, DIE+2*
>> DA(1 DIE+3*
DFN ACHSDADP+7!
>> DIE DIE+4*
DR DIE~, DIE+8
>> DTOUT P1+48
>> DUOUT DSP+5, P1+47*, P1+48, 8+2*, 9+2*, 10+5*, 11+3*, 12+2*
DUZ(2 TOF+2, HDR+3, P1+21, P1+22, P1+27, P1+28, P1+33, P1+35, P1+39, P1+40
, P1+41, DIE+3, DIE+4, APPEAL+2, APPEAL+7, APPEAL+8, APPEAL+9, APPEAL+11, APPEAL+12, APPEAL+13
, APPEAL+14, APPEAL+15, REF+4
IOF TOF+3, 10+3, 11+1
>> IORVOFF DSP+3*, HDR+5, P1+1, P1+38, P1+43
>> IORVON DSP+2*, HDR+2, P1+38, P1+43
>> STATUS P1+2*, P1+3
U HDR+1, HDR+3, P1+5, P1+11, P1+16, P1+22, P1+23, P1+28, P1+31, P1+33
, P1+35, P1+38, P1+39, P1+40, APPEAL+1, APPEAL+2, APPEAL+7, APPEAL+8, APPEAL+9, APPEAL+11
, APPEAL+12, APPEAL+13, APPEAL+14, APPEAL+15
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All