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

Package: Contract Health Management Information System

Routine: ACHSDNA1


Information

ACHSDNA1 ; IHS/ITSC/JVK -EDIT THE STATUS OF A DENIAL AND APPEAL STATUS; [ 10/31/2003 11:42 AM ]

Source Information

Source file <ACHSDNA1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Contract Health Management Information System 4 ($$DIR,RTRN,VIDEO)^ACHS  ^ACHSDLK  $$DIE^ACHSDN  READ^ACHSFU  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

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

Entry Points

Name Comments DBIA/ICR reference
SET ;
LOOK ; --- Select the Denial
EDIT ;
SURE ;
WHICH ;
APPEAL ;

External References

Name Field # of Occurrence
$$DIR^ACHS SURE+4
RTRN^ACHS LOOK+6, WHICH+6, SURE+8
VIDEO^ACHS ACHSDNA1+4
^ACHSDLK LOOK+5
$$DIE^ACHSDN SET+3, SET+6, APPEAL+7
READ^ACHSFU WHICH+2
^DIR APPEAL+4, EDIT+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: LOOK+2
Function Call: WRITE
  • Prompt: !!,*7,*7,IORVON,"THE STATUS OF THIS DENIAL IS CANCELLED",IORVOFF,!!
  • Line Location: LOOK+9
Function Call: WRITE
  • Prompt: !!,*7,*7,IORVON,"THE STATUS OF THIS DENIAL IS REVERSED",IORVOFF,!!
  • Line Location: LOOK+11
Function Call: WRITE
  • Prompt: !!,*7,*7,IORVON,"THE STATUS OF THIS DENIAL IS ACTIVE",IORVOFF,!!
  • Line Location: LOOK+12
Function Call: WRITE
  • Prompt: !!,"Cancel,Reverse or Activate this denial? (C/R/A): "
  • Line Location: WHICH+1
Function Call: WRITE
  • Prompt: !!,*7,*7,IORVON,MSG,!!,"The status change will be recorded",IORVOFF,!!
  • Line Location: SURE+3
Function Call: WRITE
  • Prompt: !!,*7,*7,"DENIAL LEFT UNCHANGED",!!
  • Line Location: SURE+6
Function Call: WRITE
  • Prompt: !!,IORVON,"Now ",$S(STATUS="Y":"Cancelling",STATUS="R":"Reversing",STATUS="A":"Activate")_" Denial Number ",$P($G(^ACHSDEN(DUZ(2),"D",DA,0)),U),IORVOFF
  • Line Location: SET+1
Function Call: WRITE
  • Prompt: !,"Completed"
  • Line Location: SET+4
Function Call: WRITE
  • Prompt: !,"Enter Notes",!
  • Line Location: SET+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: APPEAL+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: EDIT+4
Routine Call
  • DIR
  • Line Location:
    • APPEAL+4
    • EDIT+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSDEN - [#9002071] LOOK+9, LOOK+11, LOOK+12, SET+1

Label References

Name Line Occurrences
APPEAL SURE+6, EDIT+7
EDIT LOOK+9, LOOK+11, LOOK+12
LOOK APPEAL+8
WHICH WHICH+7, EDIT+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % SURE+4*, SURE+6
>> ACHDLKER LOOK+6
>> ACHDOCT LOOK+4*
ACHSA LOOK+7, SET+3!
ACHSQUIT WHICH+4!
>> DA LOOK+7*, LOOK+9, LOOK+11, LOOK+12, SET+1
DFN LOOK+4!, SET+3!
DIC SET+3!
DIR LOOK+1!, APPEAL+1!, APPEAL+8!, EDIT+1!, EDIT+6!
DIR("?" EDIT+3*
DIR("A" APPEAL+2*, EDIT+2*
DIR("B" APPEAL+2*, EDIT+2*
DIR(0 APPEAL+2*, EDIT+2*
>> DTOUT WHICH+6, SURE+8
>> DUOUT WHICH+6, SURE+6
DUZ(2 LOOK+9, LOOK+11, LOOK+12, SET+1
>> IORVOFF LOOK+9, LOOK+11, LOOK+12, SURE+3, SET+1
>> IORVON LOOK+9, LOOK+11, LOOK+12, SURE+3, SET+1
MSG SURE+2~*, SURE+3, SURE+4
STATUS WHICH+8~, WHICH+10*, SURE+2, SET+1, SET+2*, SET+3
U LOOK+9, LOOK+11, LOOK+12, SET+1
Y WHICH+7!, WHICH+10, APPEAL+7, EDIT+6, EDIT+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All