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

Package: Contract Health Management Information System

Routine: ACHSDN2


Information

ACHSDN2 ; IHS/ITSC/PMF - DENIAL SET UP & DISPLAY ;

Source Information

Source file <ACHSDN2.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Contract Health Management Information System 4 ($$DN,$$LOCK,$$ZEROTH,ERPT,RTRN)^ACHS  ^ACHSDLK  $$DIE^ACHSDN  (TYPOTH,TYPPRI)^ACHSDN2A  
VA Fileman 4 ^DIC  ^DIE  EN^DIQ  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Contract Health Management Information System 8 ACHS DEN APPEAL  ACHS DEN DOCNTL  ACHS DEN DOCUMENT  ACHSDENDOCUMENT  ACHSDENEDIT  ACHSDENMENU  ACHSDN1  ACHSDN4  

Entry Points

Name Comments DBIA/ICR reference
Q1 ;
OTHREA1 ; --- Other Denial Reason : Comment
REASLST ; --- Display the other Denials entered.
OTHREAS ;EP-ACHSDN4
REAS1 ;
DUMP ;EP - From Option.
DICOPT(X,R) ; --- Select Denial reason Option.
DICREA(R) ; --- Select Denial Reason.
K ;
OPTCK(T) ; CHECK FOR OPTIONS ALREADY SELECTED ;ACHS*3.1*19 NEW SECTION
DEV ; --- Select print device
PRIORCK ;EP - Enter Priority Category.
REASON ;EP - Enter Denial Reasons.
DEL ; DELETE REASON IF NO ^ OUT OF OPTION
START ;EP - TaskMan.
APPEAL ;EP - From Option.
DOCNTL ;EP - From Option.
REASERR ;
REASCK() ; --- Check if the Denial reason has already been entered.
REAOPT ;EP-ACHSDN4 ;ACHS*3.1*18
OTHREAO ;EP-ACHSDN4 ;ACHS*3.1*18

External References

Name Field # of Occurrence
^%ZIS DEV+2
HOME^%ZIS DEV+3, DEV+10
^%ZISC DEV+6, DEV+10, K+2
^%ZTLOAD DEV+14
$$DN^ACHS PRIORCK+1, REAS1+3, REASCK+9, REASCK+10
$$LOCK^ACHS OTHREA1+7, OTHREA1+9, OTHREAO+19, OTHREAO+21
$$ZEROTH^ACHS OTHREAS+9
ERPT^ACHS K+2
RTRN^ACHS APPEAL+10
^ACHSDLK DUMP+10
$$DIE^ACHSDN REAS1+13, REAOPT+5, REAOPT+12, DOCNTL+8
TYPOTH^ACHSDN2A OTHREAO+27
TYPPRI^ACHSDN2A REAOPT+11
^DIC DOCNTL+5, APPEAL+5, APPEAL+8
^DIE OTHREA1+8, OTHREAO+20, APPEAL+12, DEL+7
EN^DIQ START+4
^DIR DICREA+14, DICOPT+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"If the PROVIDER (vendor) is in the CHS VENDOR FILE,",!,"answer 'Y'. If not, answer 'N'.",!!
  • Line Location: Q1+1
Function Call: WRITE
  • Prompt: !!,*7,"A PRIORITY CATEGORY is required - try again."
  • Line Location: PRIORCK+3
Function Call: WRITE
  • Prompt: !!,"Primary Denial Reason: ",$P($G(^ACHSDENS($$DN^ACHS(250,1),0)),U)
  • Line Location: REAS1+3
Function Call: WRITE
  • Prompt: !,"Must select an option for this Denial Reason."
  • Line Location: REAOPT+3
Function Call: WRITE
  • Prompt: !!,"YOUR ENTRY WAS NOT ACCEPTED",!,"PLEASE TRY AGAIN.",!!
  • Line Location: OTHREAS+14
Function Call: WRITE
  • Prompt: !
  • Line Location: OTHREA1+1
Function Call: WRITE
  • Prompt: !,"Must select an option for this Denial Reason."
  • Line Location: OTHREAO+12
Function Call: WRITE
  • Prompt: !!,*7,*7,*7,"A Primary Denial Reason Must Be Entered",!,"Please Try Again.",!
  • Line Location: REASERR+1
Function Call: WRITE
  • Prompt: !!?3,"Denial Reason List:"
  • Line Location: DICREA+4
Function Call: WRITE
  • Prompt: !?5,CT,". ",$P(^ACHSDENS(X,0),U)
  • Line Location: DICREA+7
Function Call: WRITE
  • Prompt: !,"No active Denial Reasons"
  • Line Location: DICREA+9
Function Call: WRITE
  • Prompt: !
  • Line Location: DICREA+10
Function Call: WRITE
  • Prompt: !!?3,"Denial Reason Option list:"
  • Line Location: DICOPT+3
Function Call: WRITE
  • Prompt: !?5,CT,". ",$P(^ACHSDENS(X,20,X1,0),U)
  • Line Location: DICOPT+7
Function Call: WRITE
  • Prompt: !,"No active Denial Reasons Options"
  • Line Location: DICOPT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: DICOPT+10
Function Call: WRITE
  • Prompt: !!?5,"SELECTED Primary Denial Reason: "
  • Line Location: REASLST+3
Function Call: WRITE
  • Prompt: !?5,"SELECTED Other Denial Reasons: "
  • Line Location: REASLST+15
Function Call: WRITE
  • Prompt: !!,*7,*7,"DENIAL REASON/OPTIONS ALREADY SELECTED.",!!
  • Line Location: REASCK+9
Function Call: WRITE
  • Prompt: !!?5,"ALL DENIAL REASON/OPTIONS ALREADY SELECTED. Need to select another.",!!
  • Line Location: REASCK+14
Function Call: WRITE
  • Prompt: !!,*7,*7,"DENIAL REASON OPTION ALREADY SELECTED.",!!
  • Line Location: OPTCK+2
Function Call: WRITE
  • Prompt: !!,*7,*7,"DENIAL REASON OPTION ALREADY SELECTED.....",!!
  • Line Location: OPTCK+6
Function Call: WRITE
  • Prompt: *7,!,"Please queue to system printers."
  • Line Location: DEV+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: APPEAL+1
Function Call: WRITE
  • Prompt: !!,?5,"No alternate resource info found.",!
  • Line Location: APPEAL+10
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3
    • DEV+10
Routine Call
  • DIE
  • Line Location:
    • OTHREA1+8
    • OTHREAO+20
    • APPEAL+12
    • DEL+7
Routine Call
  • DIC
  • Line Location:
    • DOCNTL+5
    • APPEAL+5
    • APPEAL+8
Routine Call
  • DIR
  • Line Location:
    • DICREA+14
    • DICOPT+13
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSDEN - [#9002071] OTHREAS+1, OTHREAS+9*, OTHREAS+10, OTHREAS+11*, OTHREAS+12*, OTHREAS+13*, OTHREAS+14, OTHREA1+10!, OTHREAO+9, OTHREAO+11
, OTHREAO+22, REASLST+4, REASLST+5, REASLST+11, REASLST+12, REASLST+13, REASLST+17, REASLST+18, REASLST+24, REASLST+25
, REASLST+26, REASCK+11, REASCK+12, OPTCK+2, OPTCK+3, OPTCK+5, OPTCK+6, DEV+12
^ACHSDENS - [#9002073] REAS1+3, REAS1+12, OTHREAS+7, OTHREAS+18, OTHREAO+11, DICREA+5, DICREA+6, DICREA+7, DICREA+8, DICOPT+1
, DICOPT+5, DICOPT+6, DICOPT+7, DICOPT+8, REASLST+7, REASLST+8, REASLST+10, REASLST+11, REASLST+14, REASLST+20
, REASLST+21, REASLST+23, REASLST+24, REASLST+27, REASCK+5, REASCK+6

Label References

Name Line Occurrences
$$DICOPT REAOPT+1, OTHREAO+2
$$DICREA REAS1+4, OTHREAS+2
$$OPTCK REAOPT+2, OTHREAO+3
$$REASCK REAS1+6, OTHREAS+8
DEL OTHREAO+5, OTHREAO+10, OTHREAO+11
DEV DEV+6, DEV+15
K DUMP+11, DEV+3, DEV+17
OTHREA1 OTHREAO+13
OTHREAO OTHREAS+18, OTHREAO+3, OTHREAO+12
OTHREAS REASON+2, REAS1+3, OTHREAS+8, OTHREAS+14, OTHREA1+12, OTHREAO+5
REAOPT REAOPT+2, REAOPT+3
REAS1 REASON+2, REAS1+6
REASERR REAS1+8
REASLST OTHREAS+1
REASON REAS1+8
START DEV+4

Naked Globals

Name Field # of Occurrence
^(0 DICOPT+6, REASCK+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DEV+13*
>> %ZIS DEV+1*
>> ACHD("DA" DUMP+12*, DEV+12, START+3, K+1!
>> ACHDENO( DICOPT+8*, DICOPT+14
>> ACHDENR REAS1+9*, REAS1+11, REAS1+12, REAS1+13, REAOPT+1
>> ACHDENS( DICREA+8*, DICREA+15
>> ACHDIO START+5
>> ACHDLKER DUMP+11
>> ACHDOCT DUMP+9*
>> ACHDOPTR REASON+1*, REAS1+3, REAS1+6, REAOPT+2, OTHREA1+10, OTHREA1+11, OTHREAO+5, OTHREAO+6, REASCK+9, OPTCK+4
>> ACHDOREO OTHREAS+7*, OTHREAO+8, OTHREAO+11, OTHREAO+12, OTHREAO+27
ACHDORNM REASON+1~, OTHREAS+10*, OTHREAS+11, OTHREAS+12, OTHREAS+13, OTHREAS+14, OTHREA1+5, OTHREAO+9, OTHREAO+11, OTHREAO+17
, OTHREAO+22, OPTCK+4, DEL+5
ACHDOTR REASON+1~, OTHREAS+6*, OTHREAS+7, OTHREAS+11, OTHREAS+12, OTHREAS+18, OTHREAO+2, OTHREAO+11, REASCK+5, REASCK+6
, REASCK+9, REASCK+10, REASCK+12, OPTCK+2, OPTCK+5
>> ACHDROPT REAS1+2*, REAOPT+4*, OTHREAO+9*, OTHREAO+10, OTHREAO+11, OTHREAO+22*
ACHSA OTHREAS+1, OTHREAS+9, OTHREAS+10, OTHREAS+11, OTHREAS+12, OTHREAS+13, OTHREAS+14, OTHREA1+2, OTHREA1+4, OTHREA1+10
, OTHREAO+9, OTHREAO+11, OTHREAO+14, OTHREAO+16, OTHREAO+22, REASLST+4, REASLST+5, REASLST+11, REASLST+12, REASLST+13
, REASLST+17, REASLST+18, REASLST+24, REASLST+25, REASLST+26, REASCK+11, REASCK+12, OPTCK+2, OPTCK+3, OPTCK+5
, OPTCK+6, DUMP+12, DOCNTL+1~, DOCNTL+7*, DEL+2, DEL+4
ACHSDENO DICOPT+16!
>> ACHSDREA REAS1+12*, REAOPT+3, REAOPT+11
>> ACHSERR REAS1+7*
>> ACHSQUIT OTHREAO+27
>> ACHSREF REAS1+11
>> ACHSREF(1114 REAS1+11*
>> CT DICREA+3*, DICREA+7*, DICREA+8, DICREA+9, DICREA+12, DICOPT+4*, DICOPT+7*, DICOPT+8, DICOPT+9, DICOPT+11
DA OTHREA1+5*, OTHREAO+17*, START+3*, DOCNTL+1~, APPEAL+11*, DEL+5*
DA(1 OTHREA1+4*, OTHREAO+16*, DOCNTL+3*, APPEAL+3*, DEL+4*
DA(2 OTHREA1+3*, OTHREAO+15*, DEL+3*
DIC START+3*, DOCNTL+1~, DOCNTL+2*, APPEAL+2*, APPEAL+7*, APPEAL+11
DIC(0 DOCNTL+4*, APPEAL+4*
DIE OTHREA1+2*, OTHREAO+14*, DOCNTL+1~, APPEAL+11*, DEL+2*
DIR DICREA+11!
DIR("A" DICREA+13*, DICOPT+12*
DIR(0 DICREA+12*, DICOPT+11*
>> DR OTHREA1+6*, OTHREAO+18*, APPEAL+11*, DEL+6*
>> DR(1 APPEAL+11*
DT DICREA+6, DICOPT+6, REASCK+6
>> DTOUT REAOPT+11, OTHREAO+27
>> DUOUT REASON+2, REAS1+7, REAS1+14*, REAOPT+11, OTHREAS+3*, OTHREAO+5, OTHREAO+6, OTHREAO+27
DUZ(2 OTHREAS+1, OTHREAS+9, OTHREAS+10, OTHREAS+11, OTHREAS+12, OTHREAS+13, OTHREAS+14, OTHREA1+2, OTHREA1+3, OTHREA1+10
, OTHREAO+9, OTHREAO+11, OTHREAO+14, OTHREAO+15, OTHREAO+22, REASLST+4, REASLST+5, REASLST+11, REASLST+12, REASLST+13
, REASLST+17, REASLST+18, REASLST+24, REASLST+25, REASLST+26, REASCK+11, REASCK+12, OPTCK+2, OPTCK+3, OPTCK+5
, OPTCK+6, DEV+12, START+3, DOCNTL+2, DOCNTL+3, APPEAL+2, APPEAL+3, DEL+2, DEL+3
IO START+2, START+5
IO("Q" DEV+4, DEV+5!
IO("S" DEV+6, START+1
IOF START+5
ION DEV+9
IOSL START+1*
IOST DEV+6
>> L REASCK+11*, REASCK+12
>> POP DEV+3
R DICREA~, DICREA+13, DICOPT~, DICOPT+12
>> R1 REASLST+12*, REASLST+13, REASLST+25*, REASLST+26
>> R2 REASLST+13*, REASLST+14, REASLST+26*, REASLST+27
T OPTCK~, OPTCK+2
U REAS1+3, REAS1+12, OTHREAS+3, OTHREAS+7, OTHREAS+10, OTHREAS+13, OTHREAO+9, OTHREAO+11, OTHREAO+22, DICREA+6
, DICREA+7, DICREA+8, DICOPT+6, DICOPT+7, DICOPT+8, REASLST+5, REASLST+8, REASLST+10, REASLST+11, REASLST+13
, REASLST+14, REASLST+18, REASLST+21, REASLST+23, REASLST+24, REASLST+26, REASLST+27, REASCK+6, REASCK+12, OPTCK+2
, OPTCK+5, OPTCK+6, DEV+12
X OTHREAS+3, DICREA+2~, DICREA+3*, DICREA+5*, DICREA+6, DICREA+7, DICREA+8, DICOPT~, DICOPT+1, DICOPT+5
, DICOPT+6, DICOPT+7, DICOPT+8, REASLST+2~, REASLST+16*, REASLST+17*, REASLST+18, REASLST+24, REASLST+25, REASLST+26
, REASCK+2~, REASCK+3*, REASCK+5*, REASCK+6, REASCK+10*, REASCK+12*, REASCK+13, OPTCK+1*, OPTCK+3*, OPTCK+4
, OPTCK+5, OPTCK+6
X1 DICOPT+4*, DICOPT+5*, DICOPT+6, DICOPT+7, DICOPT+8, REASCK+2~, REASCK+3*, REASCK+7*, REASCK+9, REASCK+13
, OPTCK+1*, OPTCK+2*, OPTCK+3, OPTCK+6*, OPTCK+7
Y PRIORCK+1*, PRIORCK+2*, REAS1+4*, REAS1+8, REAS1+9, REAS1+14, REAOPT+1*, REAOPT+2, REAOPT+3, REAOPT+4
, REAOPT+5, OTHREAS+2*, OTHREAS+4, OTHREAS+6, OTHREAO+2*, OTHREAO+12, OTHREAO+13, OTHREAO+18, DICREA+9*, DICREA+15*
, DICREA+16*, DICREA+17, DICOPT+9*, DICOPT+14*, DICOPT+15*, DICOPT+17, REASLST+2~, REASLST+5*, REASLST+6, REASLST+7
, REASLST+8, REASLST+10, REASLST+11, REASLST+14, REASLST+18*, REASLST+19, REASLST+20, REASLST+21, REASLST+23, REASLST+24
, REASLST+27, REASCK+2~, REASCK+3*, REASCK+13, OPTCK+2, OPTCK+6, DOCNTL+6, DOCNTL+7, APPEAL+6, APPEAL+7
, APPEAL+10, APPEAL+11
Y1 REASLST+2~, REASLST+5*, REASLST+9, REASLST+10, REASLST+11, REASLST+18*, REASLST+22, REASLST+23, REASLST+24
>> ZTDESC DEV+12*
>> ZTIO DEV+9*
>> ZTRTN DEV+12*
>> ZTSAVE( DEV+13*
ZTSK DEV+15, DEV+16!, 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