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

Package: Contract Health Management Information System

Routine: ACHSDNDP


Information

ACHSDNDP ; IHS/ITSC/TPF/PMF - DENIAL DISPLAY/EDIT ;

Source Information

Source file <ACHSDNDP.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Contract Health Management Information System 3 ($$DIR,$$DN,$$LOCK,VIDEO)^ACHS  ^ACHSDN3  ^ACHSDN4  
Kernel 2 $$FMTE^XLFDT  $$REPEAT^XLFSTR  
VA Fileman 1 ^DIE  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHSDN  

Entry Points

Name Comments DBIA/ICR reference
P1 ; --- Display Page 1
END ;
HDR ;
DIE(DR) ; --- Edit appropriate fields in Denial
DSP ; --- Display
1 ; --- Date of Service
3 ; --- Medical priority
2 ; --- Date of Request
5 ; --- Primary Provider
4 ; --- Service Type
7 ; --- Denial Reasons
6 ; --- Diagnosis
9 ;
8 ; --- Other Resources
TOF ;

External References

Name Field # of Occurrence
$$DIR^ACHS P1+24
$$DN^ACHS HDR+1, HDR+3, P1+1, P1+2, P1+3, P1+4, P1+5, P1+6, P1+10, P1+16
$$LOCK^ACHS DIE+5, DIE+7
VIDEO^ACHS DSP+1
^ACHSDN3 5+1
^ACHSDN4 7+2
^DIE DIE+6
$$FMTE^XLFDT P1+1, P1+3, P1+4
$$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: "DATE ISSUED: ",$$FMTE^XLFDT($$DN^ACHS(0,2))
  • Line Location: P1+1
Function Call: WRITE
  • Prompt: ?45,"ISSUED BY: ",$E($P($G(^VA(200,$$DN^ACHS(0,3),0)),U),1,25)
  • Line Location: P1+2
Function Call: WRITE
  • Prompt: !!,"1. DATE MED SVC: ",IORVON,$$FMTE^XLFDT($$DN^ACHS(0,4)),IORVOFF
  • Line Location: P1+3
Function Call: WRITE
  • Prompt: ?43,"2. DATE OF REQUEST: ",IORVON,$$FMTE^XLFDT($$DN^ACHS(0,5)),IORVOFF
  • Line Location: P1+4
Function Call: WRITE
  • Prompt: !!,"3. MEDICAL PRIORITY: ",IORVON,$P($G(^ACHSMPRI($$DN^ACHS(400,2),0)),U),IORVOFF
  • Line Location: P1+5
Function Call: WRITE
  • Prompt: ?43,"4. VISIT TYPE: ",IORVON,$S(%="O":"OUTPATIENT",%="I":"INPATIENT",%="A":"AMBULANCE",%="P":"PATIENT ESCORT",%="D":"DENTAL",1:"UNKNOWN"),IORVOFF
  • Line Location: P1+8
Function Call: WRITE
  • Prompt: !!,"5.*PRIMARY PROVIDER: ",IORVON,$S($$DN^ACHS(100,1)="Y":$P($G(^AUTTVNDR($$DN^ACHS(100,2),0)),U),1:$$DN^ACHS(100,3)),IORVOFF
  • Line Location: P1+10
Function Call: WRITE
  • Prompt: !!,"6.*DIAGNOSIS: "
  • Line Location: P1+13
Function Call: WRITE
  • Prompt: IORVON,$S(($D(^ACHSDEN(DUZ(2),"D",ACHSA,500,0))&$D(^ACHSDEN(DUZ(2),"D",ACHSA,700,0))):"ICD/CPT",$D(^ACHSDEN(DUZ(2),"D",ACHSA,500,0)):"ICD",$D(^ACHSDEN(DUZ(2),"D",ACHSA,700,0)):"CPT",1:"NONE"),IORVOFF
  • Line Location: P1+14
Function Call: WRITE
  • Prompt: !!,"7.*PRIMARY DENIAL REASON: "
  • Line Location: P1+16
Function Call: WRITE
  • Prompt: IORVON,$P($G(^ACHSDENS(%,0)),U),IORVOFF
  • Line Location: P1+16
Function Call: WRITE
  • Prompt: !!,"8.*OTHER RESOURCES: ",IORVON,$S($P($G(^ACHSDEN(DUZ(2),"D",ACHSA,800,0)),U,4):"YES",1:"NONE"),IORVOFF
  • Line Location: P1+18
Function Call: WRITE
  • Prompt: !!,"9. OTHER IHS RESOURCES: ",IORVON,$S($P($G(^ACHSDEN(DUZ(2),"D",ACHSA,825,0)),U,4):"YES",1:"NONE"),IORVOFF
  • Line Location: P1+20
Function Call: WRITE
  • Prompt: !!!?15,IORVON,"*",IORVOFF," - CHOOSE THESE FIELDS TO SEE FURTHER INFORMATION",!!,IORVON
  • Line Location: P1+22
Function Call: WRITE
  • Prompt: IORVOFF
  • Line Location: P1+26
Function Call: WRITE
  • Prompt: !!
  • Line Location: 7+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: 8+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: 9+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: DIE+1
Routine Call
  • DIE
  • Line Location:
    • DIE+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSDEN - [#9002071] TOF+2, P1+14, P1+18, P1+20, 6+5
^ACHSDENS - [#9002073] P1+16
^ACHSMPRI - [#9002073.1] P1+5
^AUPNPAT - [#9000001] HDR+3
^AUTTVNDR - [#9999999.11] P1+10
^DPT - [#2] HDR+1
^VA(200 - [#200] P1+2

Label References

Name Line Occurrences
$$DIE 1+1, 2+1, 3+1, 4+1, 6+5, 8+2, 9+2
@( P1+29
HDR DSP+4
P1 DSP+4
TOF DSP+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % P1+6*, P1+8, P1+16*, P1+24*, P1+27, P1+28, P1+29
>> ACHDPAT HDR+1*, HDR+2
>> ACHSA TOF+1, TOF+2, P1+14, P1+18, P1+20, 6+5, DIE+2
>> DA DIE+2*
>> DA(1 DIE+3*
>> DIE DIE+4*
DR DIE~
>> DTOUT P1+28
>> DUOUT DSP+5, P1+27*, P1+28, 1+1*, 2+1*, 3+1*, 4+1*, 6+5*, 8+2*, 9+2*
DUZ(2 TOF+2, HDR+3, P1+14, P1+18, P1+20, 6+5, DIE+3, DIE+4
IOF TOF+3
>> IORVOFF DSP+3*, HDR+5, P1+3, P1+4, P1+5, P1+8, P1+10, P1+14, P1+16, P1+18
, P1+20, P1+22, P1+26
>> IORVON DSP+2*, HDR+2, P1+3, P1+4, P1+5, P1+8, P1+10, P1+14, P1+16, P1+18
, P1+20, P1+22
U HDR+1, HDR+3, P1+2, P1+5, P1+10, P1+16, P1+18, P1+20
>> X 6+4*, 6+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All