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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BMCCHSE

Package: Referred Care Information System

Routine: BMCCHSE


Information

BMCCHSE ;IHS/OIT/FCJ - CHS EDIT INFORMATION

Source Information

Source file <BMCCHSE.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 2 ^DIE  ^DIR  
Contract Health Management Information System 1 $$DIR^ACHS  
Kernel 1 $$REPEAT^XLFSTR  
Referred Care Information System 1 FILE^BMCFMC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Referred Care Information System 1 BMCMOD  

Entry Points

Name Comments DBIA/ICR reference
OPTSET ;SET OPTION FOR OTHER DENIAL REASON NODE 43
OTHREAS ; List other Denial Reasons
END ;
DICOPT(X,R) ; --- Select Denial reason Option.
EDIT ; EDIT REASONS
DENR ;ENTRY POINT FROM BMCMOD
OTHSET ;SET OTHER DENIAL REASON - NODE 43
PRMSET ;PRIMARY DENIAL REASON SET
ADD ;ADD OTHER DENIAL REASON
PRIREAS ; PRIMARY REASON
REASCK() ; --- Check if the Denial reason has already been entered.
OPTCK(T) ; CHECK FOR OPTIONS ALREADY SELECTED ;ACHS*3.1*19 NEW SECTION
OTHER ;EDIT OTHER DENIAL REASON
PRMOSET ;
PRIM ;
REA ; Denial Reason
TOF ;
REAOPT ; Primary Reason Option

External References

Name Field # of Occurrence
$$DIR^ACHS EDIT+2
FILE^BMCFMC ADD+15
^DIE PRMSET+2, PRMOSET+2, OTHSET+4, OPTSET+15
^DIR REA+14, DICOPT+13
$$REPEAT^XLFSTR TOF+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,$$REPEAT^XLFSTR("=",79),!?30,"DENIAL REASONS EDIT",!,$$REPEAT^XLFSTR("=",79),!!,"PRIMARY DENIAL REASON: ",!
  • Line Location: TOF+3
Function Call: WRITE
  • Prompt: !!,*7,*7,"No Primary Denial Reason Has Been Entered"
  • Line Location: PRIREAS+6
Function Call: WRITE
  • Prompt: !!,"OTHER DENIAL REASONS: ",!
  • Line Location: OTHREAS+4
Function Call: WRITE
  • Prompt: ?15,$P($G(^ACHSDENS(BMCOTR,20,BMCROPT,0)),U)
  • Line Location: OTHREAS+7
Function Call: WRITE
  • Prompt: !,"Please enter a number from 1 to ",BMCCNT,"."
  • Line Location: EDIT+5
Function Call: WRITE
  • Prompt: !!?5,"Must have a Primary Denial Reason."
  • Line Location: PRIM+2
Function Call: WRITE
  • Prompt: !?5,"Denial Option did not change."
  • Line Location: PRIM+10
Function Call: WRITE
  • Prompt: !!?3,"Denial Reason List:"
  • Line Location: REA+2
Function Call: WRITE
  • Prompt: !?5,CT,". ",$P(^ACHSDENS(X,0),U)
  • Line Location: REA+5
Function Call: WRITE
  • Prompt: !,"No active Denial Reasons"
  • Line Location: REA+8
Function Call: WRITE
  • Prompt: !
  • Line Location: REA+9
Function Call: WRITE
  • Prompt: !!,*7,*7,"DENIAL REASON/OPTIONS ALREADY SELECTED.",!!
  • Line Location: REASCK+8
Function Call: WRITE
  • Prompt: !!?5,"DENIAL REASON/OPTIONS ALREADY SELECTED. Need to select another.",!!
  • Line Location: REASCK+13
Function Call: WRITE
  • Prompt: !,"Must select an option for this Denial Reason."
  • Line Location: REAOPT+3
Function Call: WRITE
  • Prompt: !,"Must select an option for this Denial Reason."
  • Line Location: OPTSET+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: !!,*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
Routine Call
  • DIE
  • Line Location:
    • PRMSET+2
    • PRMOSET+2
    • OTHSET+4
    • OPTSET+15
Routine Call
  • DIR
  • Line Location:
    • REA+14
    • DICOPT+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BMCREF - [#90001] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSDENS - [#9002073] PRIREAS+3, PRIREAS+4, PRIREAS+5, OTHREAS+6, OTHREAS+7, PRIM+6, OTHER+6, REA+3, REA+4, REA+5
, REA+6, REA+10, REASCK+4, REASCK+5, DICOPT+1, DICOPT+5, DICOPT+6, DICOPT+7, DICOPT+8, ADD+8
^BMCREF - [#90001] PRIREAS+1, OTHREAS+1, OTHREAS+3, OTHREAS+5, REA+20, REASCK+8, REASCK+9, REASCK+10, REASCK+11, OPTSET+7
, OPTSET+16, OPTCK+2, OPTCK+3, OPTCK+5, OPTCK+6
^DD(90001 ADD+12

Label References

Name Line Occurrences
$$DICOPT REAOPT+1, OPTSET+2
$$OPTCK REAOPT+2, OPTSET+9
$$REASCK PRIM+7, OTHER+7, ADD+9
@( EDIT+7
ADD ADD+9
EDIT EDIT+5
END EDIT+3
OPTSET OTHER+8, OPTSET+9, OPTSET+10, ADD+16
OTHER OTHER+7
OTHSET OTHER+3, OTHER+7, REA+19, OPTSET+3, OPTSET+8
PRIM PRIREAS+6, PRIM+7
PRMOSET REAOPT+5
PRMSET REAOPT+5
REA PRIM+1, OTHER+1, ADD+2
REAOPT PRIM+9, REAOPT+2, REAOPT+3, ADD+5
TOF PRIREAS+6, EDIT+8

Naked Globals

Name Field # of Occurrence
^(0 OTHREAS+5, REA+20*, REASCK+5, DICOPT+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PRIREAS+6*, EDIT+2*, EDIT+3, EDIT+4*, EDIT+5, EDIT+6, EDIT+7, REA+18
>> ACHSDREA REAOPT+3
BMCCNT OTHREAS+2*, OTHREAS+4, OTHREAS+6, OTHREAS+8, OTHREAS+9*, EDIT+5, END+1!, REA+18
BMCDEN END+1!, REA+10*, REA+12
BMCENO DICOPT+16!
BMCENO( DICOPT+8*, DICOPT+14
BMCENR END+2!, PRIM+4*, PRIM+7*, REAOPT+1, PRMSET+1, ADD+5*
BMCENS END+2!
BMCENS( REA+6*, REA+17
BMCOPTR TOF+2*, PRIREAS+6*, END+2!, REASCK+8, REAOPT+2, OPTSET+3, OPTSET+4, OPTCK+4, ADD+1*
BMCOREO END+2!, PRIM+6*, OTHER+6*, REAOPT+3, OPTSET+6, OPTSET+10, ADD+8*
BMCORNM END+2!, PRIM+5*, OTHER+2*, REA+18*, OTHSET+2, OPTSET+7, OPTSET+13, OPTSET+16, OPTCK+4, ADD+15*
BMCOTR OTHREAS+5*, OTHREAS+6, OTHREAS+7, OTHREAS+8, END+2!, PRIM+4*, PRIM+6, PRIM+7, OTHER+5*, OTHER+6
, OTHER+7, REASCK+4, REASCK+5, REASCK+8, REASCK+9, REASCK+11, OPTSET+2, OPTCK+2, OPTCK+5, ADD+7*
, ADD+8, ADD+13
BMCR PRIREAS+6*, EDIT+6*, END+2!, REA+12, REA+18, ADD+5
BMCREA OTHREAS+2*, OTHREAS+3*, OTHREAS+5, OTHREAS+8, EDIT+8!, END+1!
BMCREA( OTHREAS+8*, EDIT+5, PRIM+5, PRIM+7, OTHER+2, OTHER+7, REA+7, REA+10, REA+18
BMCREA(1 PRIREAS+2*
BMCRED PRIREAS+6*, EDIT+6*, END+2!, PRIM+5, PRIM+7, OTHER+2, OTHER+7, REA+7, REA+10, REA+18
BMCREDT END+2!, REA+1*, REA+7*, REA+13, REA+18
>> BMCRIEN PRIREAS+1, OTHREAS+1, OTHREAS+3, OTHREAS+5, REA+20, REASCK+8, REASCK+9, REASCK+10, REASCK+11, REAOPT+5
, OTHSET+1, OTHSET+2, OPTSET+7, OPTSET+12, OPTSET+13, OPTSET+16, OPTCK+2, OPTCK+3, OPTCK+5, OPTCK+6
, ADD+11, ADD+13
>> BMCROPT OTHREAS+5*, OTHREAS+7, OTHREAS+8, REAOPT+4*, PRMOSET+1, OPTSET+7*, OPTSET+8, OPTSET+16*
CT END+2!, REA+1*, REA+5*, REA+6, REA+7, REA+8, REA+11, DICOPT+4*, DICOPT+7*, DICOPT+8
, DICOPT+9, DICOPT+11
DA REAOPT+5*, PRMOSET+3!, OTHSET+2*, OTHSET+5!, OPTSET+13*, OPTSET+17!
DA(1 OTHSET+2*, OPTSET+13*, ADD+13*
>> DIC OTHSET+1*, OPTSET+12*, ADD+11*
>> DIC("DR" ADD+14*
>> DIC("P" ADD+12*
>> DIC(0 OTHSET+2*, OPTSET+13*, ADD+13*
DIE REAOPT+5*, PRMOSET+3!, OTHSET+1*, OTHSET+5!, OPTSET+12*, OPTSET+17!
DIR REA+22!
DIR("A" REA+12*, DICOPT+12*
DIR("B" REA+13*
DIR(0 REA+11*, DICOPT+11*
DR PRMSET+1*, PRMSET+3!, PRMOSET+1*, PRMOSET+3!, OTHSET+3*, OTHSET+5!, OPTSET+14*
DT REA+4, REASCK+5, DICOPT+6
>> DTOUT EDIT+3
>> DUOUT EDIT+3, PRIM+1, PRIM+8, OTHER+1, REA+15, OPTSET+3, OPTSET+4
IOF TOF+3
L END+2!, REASCK+10*, REASCK+11
R DICOPT~, DICOPT+12
T OPTCK~, OPTCK+2
TMP END+1!, REA+16*, REA+17*, REA+21
U PRIREAS+1, PRIREAS+2, PRIREAS+4, PRIREAS+5, OTHREAS+5, OTHREAS+6, OTHREAS+7, OTHREAS+8, PRIM+5, PRIM+6
, PRIM+7, OTHER+2, OTHER+6, OTHER+7, REA+4, REA+5, REA+6, REA+7, REA+10, REA+18
, REA+20, REASCK+5, REASCK+8, REASCK+9, REASCK+11, OPTSET+7, OPTSET+16, DICOPT+6, DICOPT+7, DICOPT+8
, OPTCK+2, OPTCK+5, OPTCK+6, ADD+8, ADD+12
X PRIREAS+1*, PRIREAS+2, PRIREAS+3, PRIREAS+4, PRIREAS+5, PRIM+2, PRIM+4*, OTHER+3, OTHER+5*, REA+1*
, REA+3*, REA+4, REA+5, REA+6, REA+7, REA+18*, REASCK+1~, REASCK+2*, REASCK+4*, REASCK+5
, REASCK+9*, REASCK+11*, REASCK+12, OTHSET+3, OPTSET+3*, OPTSET+8*, DICOPT~, DICOPT+1, DICOPT+5, DICOPT+6
, DICOPT+7, DICOPT+8, OPTCK+1*, OPTCK+3*, OPTCK+4, OPTCK+5, OPTCK+6, ADD+13*, ADD+14
X1 PRIREAS+1*, PRIREAS+2, PRIREAS+5, REASCK+1~, REASCK+2*, REASCK+6*, REASCK+8, REASCK+12, DICOPT+4*, DICOPT+5*
, DICOPT+6, DICOPT+7, DICOPT+8, OPTCK+1*, OPTCK+2*, OPTCK+3, OPTCK+6*, OPTCK+7
Y EDIT+4*, EDIT+5, EDIT+6, PRIM+4, PRIM+7, PRIM+10, OTHER+5, REA+8*, REA+17, REA+18
, REA+21*, REASCK+1~, REASCK+2*, REASCK+12, REAOPT+1*, REAOPT+2, REAOPT+3, REAOPT+4, REAOPT+5, OPTSET+2*
, OPTSET+10, OPTSET+11, OPTSET+14, DICOPT+9*, DICOPT+14*, DICOPT+15*, DICOPT+17, OPTCK+2, OPTCK+6, ADD+3
, ADD+5, ADD+7, ADD+15, ADD+16
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 |  Naked Globals |  Local Variables |  All