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

Package: Fee Basis

Routine: FBSHAUT


Information

FBSHAUT ;WCIOFO/SAB - ENTER/EDIT STATE HOME AUTHORIZATION ;5/19/2014

Source Information

Source file <FBSHAUT.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 6 ^%DT  ^DIC  FILE^DICN  ^DIE  $$GET1^DIQ  ^DIR  
Fee Basis 3 ^FBAADEM  SITEP^FBAAUTL  (GETAUTH,GETAUTHK)^FBAAUTL1  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Fee Basis 5 FBPATDAT  FBSH CHANGE AUTH  FBSH DELETE AUTH  FBSH ENTER AUTH  FBSH REINSTATE AUTH  

Entry Points

Name Comments DBIA/ICR reference
ADD ; Enter new authorization
; Called from option FBSH ENTER AUTH
CHANGE ; Change existing authorization
; Called from option FBSH CHANGE AUTH
DELETE ; Delete existing authorization
; Called from option FBSH DELETE AUTH
REINSTA ; Reinstate deleted authorization
; Called from option FBSH REINSTATE AUTH
SETUP ; initial setup - returns FBPOP = 1 when problem
PAT ; select patient
; returns DFN as patient ien (or undef if not selected)
WRAPUP ; clean-up
BDATES ; get both from and to dates of new authorization
; input
; DFN patient ien in file 161
; FBPROG program ien in file
; output
; FBBEGDT From Date, FileMan format, null if dates not selected
; FBENDDT To Date, FileMan format, null if dates not selected
TDATE ; get to date for existing authorization
; input
; DFN patient ien in file 161
; FBPROG program ien in file
; FBBEGDT From Date, FileMan format
; FBENDDT (optional) current value of To Date
; output
; FBENDDT To Date, FileMan format, null if date not selected
CONFLICT(DFN,PRG,FDT,TDT,NEWAUT) ; check for conflict with existing auth.
; input
; DFN - patient ien
; PRG - program ien
; FDT - from date in fileman format
; TDT - to date in fileman format
; NEWAUT - optional flag, true if dates for a new authorization
; returns string with value =
; list of authorization iens (delimited by ^) that conflict OR
; null when no conflict found
RCON(DFN,LIST) ; Report Conflicts
QMRA(DFN,AUT,TYP) ; Queue MRA for transmission to Austin
; input
; DFN - patient ien (file 2)
; AUT - authorization ien (file 161.01)
; TYP - type of MRA (A, C, D, or R)
; returns ien of MRA (file 161.26)
POV ; get purpose of visit

External References

Name Field # of Occurrence
^%DT BDATES+9, BDATES+13, TDATE+11
^DIC PAT+3
FILE^DICN ADD+20, PAT+13, QMRA+9
^DIE ADD+26, CHANGE+23, REINSTA+23
$$GET1^DIQ RCON+18, RCON+19, RCON+20
^DIR DELETE+16, PAT+6, POV+5
^FBAADEM ADD+9
SITEP^FBAAUTL SETUP+1
GETAUTH^FBAAUTL1 CHANGE+9, DELETE+9, REINSTA+9
GETAUTHK^FBAAUTL1 WRAPUP+4
$$FMTE^XLFDT CHANGE+17, DELETE+15, REINSTA+17, TDATE+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,"AUTH. NOT ADDED"
  • Line Location: ADD+21
Function Call: WRITE
  • Prompt: $C(7),!,"AUTH IS AUSTIN DELETED. USE THE REINSTATE OPTION TO CHANGE IT."
  • Line Location: CHANGE+12
Function Call: WRITE
  • Prompt: !!,"FROM DATE: ",$$FMTE^XLFDT(FBBEGDT)," (No Editing)"
  • Line Location: CHANGE+17
Function Call: WRITE
  • Prompt: !!,"FROM DATE: ",$$FMTE^XLFDT(FBBEGDT)," (No Editing)"
  • Line Location: REINSTA+17
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: SETUP+6
Function Call: WRITE
  • Prompt: !,"ERROR. STATE HOME not found in FEE BASIS PROGRAM (#161.8) file."
  • Line Location: SETUP+7
Function Call: WRITE
  • Prompt: !,"Unable to process State Home authorization. Please contact IRM."
  • Line Location: SETUP+8
Function Call: WRITE
  • Prompt: !!,"ELIGIBILITY HAS NOT BEEN DETERMINED NOR PENDING, CANNOT ENTER AN AUTHORIZATION."
  • Line Location: PAT+4
Function Call: WRITE
  • Prompt: !!?4,"VETERAN HAS A DISHONORABLE DISCHARGE, "
  • Line Location: PAT+5
Function Call: WRITE
  • Prompt: $S(X="Y":"ONLY ELIGIBLE FOR AGENT ORANGE EXAM.",1:"NOT ELIGIBLE FOR BENEFITS.")
  • Line Location: PAT+5
Function Call: WRITE
  • Prompt: $C(7),!,"ERROR ADDING TO #161"
  • Line Location: PAT+8
Function Call: WRITE
  • Prompt: $C(7),!,"ANOTHER USER IS EDITING THIS PATIENT & PROGRAM. PLEASE TRY AGAIN LATER."
  • Line Location: PAT+17
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: RCON+3
Function Call: WRITE
  • Prompt: !!,"The specified dates conflict with other authorization(s)."
  • Line Location: RCON+4
Function Call: WRITE
  • Prompt: !,"Please specify different dates for this authorization or"
  • Line Location: RCON+5
Function Call: WRITE
  • Prompt: !,"remove the conflict by first editing the other authorization(s)."
  • Line Location: RCON+6
Function Call: WRITE
  • Prompt: !!,"Conflict with FROM DATE",?30,"TO DATE",?45,"PURPOSE OF VISIT"
  • Line Location: RCON+7
Function Call: WRITE
  • Prompt: !
  • Line Location: RCON+15
Function Call: WRITE
  • Prompt: !,?2,"**Austin Deleted** - Use Reinstate to reuse this From Date"
  • Line Location: RCON+17
Function Call: WRITE
  • Prompt: ?15,$$GET1^DIQ(161.01,FBIEN,.01)
  • Line Location: RCON+18
Function Call: WRITE
  • Prompt: ?30,$$GET1^DIQ(161.01,FBIEN,.02)
  • Line Location: RCON+19
Function Call: WRITE
  • Prompt: ?45,$$GET1^DIQ(161.01,FBIEN,.07)
  • Line Location: RCON+20
Function Call: WRITE
  • Prompt: !
  • Line Location: RCON+21
Routine Call
  • DIC
  • Line Location:
    • PAT+3
Routine Call
  • DIE
  • Line Location:
    • ADD+26
    • CHANGE+23
    • REINSTA+23
Routine Call
  • DIR
  • Line Location:
    • DELETE+16
    • PAT+6
    • POV+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FBAAA - [#161] Classic Fileman Calls
161.01 GET1^DIQ
^FBAA(161.26 - [#161.26] Classic Fileman Calls
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(161 ADD+19
^DPT - [#2] PAT+4, PAT+5
^FBAA(161.8 - [#161.8] SETUP+4
^FBAAA - [#161] ADD+31, CHANGE+14, CHANGE+25, CHANGE+31, DELETE+14, DELETE+19*, DELETE+22, REINSTA+14, REINSTA+26!, REINSTA+29
, PAT+8, PAT+10, PAT+14, PAT+16, CONFLICT+25, CONFLICT+26, CONFLICT+32, RCON+9, RCON+16

Label References

Name Line Occurrences
$$CONFLICT BDATES+16, TDATE+14
$$QMRA ADD+28, CHANGE+28, DELETE+18, REINSTA+25
BDATES ADD+12, BDATES+17
PAT ADD+5, CHANGE+5, DELETE+5, REINSTA+5, PAT+4, PAT+6, PAT+16
POV ADD+14
RCON BDATES+17, TDATE+15
SETUP ADD+2, CHANGE+2, DELETE+2, REINSTA+2
TDATE CHANGE+19, REINSTA+19, TDATE+15
WRAPUP ADD+32, CHANGE+32, DELETE+23, REINSTA+30

Naked Globals

Name Field # of Occurrence
^( PAT+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT BDATES+8*, BDATES+9!, BDATES+12*, BDATES+13!, TDATE+9*, TDATE+11!
%DT("A" BDATES+8*, BDATES+12*, TDATE+9*
%DT("B" TDATE+10*
%DT(0 BDATES+12*, TDATE+9*
AUT QMRA~
CNT RCON+1~, RCON+2*
DA ADD+22*, CHANGE+11*, CHANGE+14, CHANGE+25, DELETE+12*, REINSTA+11*, REINSTA+14, PAT+9*, PAT+10, PAT+11
, WRAPUP+3!, POV+1~
DA(1 ADD+17*, ADD+18, ADD+24, CHANGE+11*, CHANGE+14, CHANGE+21, CHANGE+25, DELETE+12*, REINSTA+11*, REINSTA+14
, REINSTA+21
DD ADD+20!, PAT+11!, QMRA+6~, QMRA+9!
DFN ADD+3, ADD+5, ADD+17, ADD+28, ADD+31, CHANGE+3, CHANGE+5, CHANGE+11, CHANGE+28, CHANGE+31
, DELETE+3, DELETE+5, DELETE+12, DELETE+14, DELETE+18, DELETE+19, DELETE+22, REINSTA+3, REINSTA+5, REINSTA+11
, REINSTA+25, REINSTA+26, REINSTA+29, PAT+2!, PAT+3*, PAT+4, PAT+5, PAT+8!, PAT+9, PAT+14
, PAT+16, WRAPUP+1!, BDATES+16, BDATES+17, TDATE+14, TDATE+15, CONFLICT~, CONFLICT+25, CONFLICT+26, CONFLICT+32
, RCON~, RCON+9, RCON+14, RCON+16, QMRA~, QMRA+7
DIC ADD+18*, ADD+20!, PAT+3*, PAT+12*, PAT+13!, WRAPUP+3!, QMRA+6~, QMRA+7*, QMRA+9!
DIC("DR" QMRA+8*
DIC("P" ADD+19*
DIC(0 ADD+18*, PAT+3*, PAT+12*, QMRA+7*
DIE ADD+24*, ADD+26!, CHANGE+21*, CHANGE+23!, REINSTA+21*, REINSTA+23!, WRAPUP+3!
DINUM PAT+11*, PAT+13!
DIR DELETE+16!, PAT+6!, WRAPUP+3!, POV+1~
DIR("A" DELETE+15*, PAT+6*
DIR("B" PAT+6*
DIR(0 DELETE+15*, PAT+6*, POV+4*
DIROUT WRAPUP+3!
DIRUT PAT+6, WRAPUP+3!, POV+5
DLAYGO ADD+18*, ADD+20!, PAT+12*, QMRA+6~, QMRA+7*, QMRA+9!
DO ADD+20!, PAT+11!, QMRA+6~, QMRA+9!
DR ADD+25*, CHANGE+22*, REINSTA+22*, WRAPUP+3!
DT DELETE+19
DTOUT WRAPUP+3!
DUOUT WRAPUP+3!
FB WRAPUP+1!
FBA RCON+1~
FBA( RCON+11*, RCON+12, RCON+13
FBAAADA ADD+22*, ADD+28, CHANGE+11*, CHANGE+28, DELETE+12*, DELETE+18, DELETE+19, REINSTA+11*, REINSTA+25, REINSTA+26
, WRAPUP+1!
FBAAASKV SETUP+2*, WRAPUP+1!
FBAADDYS SETUP+2*, WRAPUP+1!
FBANEW CHANGE+14*, CHANGE+25*, CHANGE+26, REINSTA+14*, WRAPUP+1!
FBAOLD CHANGE+14*, CHANGE+15, CHANGE+26, REINSTA+14*, REINSTA+15, WRAPUP+1!
FBBEGDT ADD+15, ADD+17, CHANGE+15*, CHANGE+17, REINSTA+15*, REINSTA+17, WRAPUP+1!, BDATES+9*, BDATES+10*, BDATES+12
, BDATES+13*, BDATES+16, TDATE+9, TDATE+14
FBDMRA CHANGE+12, WRAPUP+2!
FBENDDT CHANGE+15*, CHANGE+19, REINSTA+15*, REINSTA+19, WRAPUP+2!, BDATES+9*, BDATES+13*, BDATES+14*, BDATES+16, TDATE+10
, TDATE+11*, TDATE+12*, TDATE+14
FBFD RCON+1~, RCON+9*, RCON+10, RCON+11, RCON+12*, RCON+13
FBI CONFLICT+22~, CONFLICT+25*, CONFLICT+26, CONFLICT+31, CONFLICT+32, CONFLICT+33, RCON+1~, RCON+8*, RCON+9, RCON+11
, RCON+13*, RCON+14, RCON+16
FBIEN RCON+1~, RCON+14*, RCON+18, RCON+19, RCON+20
FBOPT WRAPUP+2!
FBP RCON+1~, RCON+8*
FBPOP ADD+3, CHANGE+3, DELETE+3, REINSTA+3, SETUP+1, SETUP+9*, WRAPUP+2!
FBPOV ADD+15, WRAPUP+2!, POV+2*, POV+6*
FBPROG ADD+7, ADD+8*, ADD+10*, ADD+31, CHANGE+7, CHANGE+8*, CHANGE+9*, CHANGE+31, DELETE+7, DELETE+8*
, DELETE+9*, DELETE+22, REINSTA+7, REINSTA+8*, REINSTA+9*, REINSTA+29, SETUP+4*, SETUP+5, PAT+16, WRAPUP+2!
, BDATES+16, TDATE+14, POV+3
FBPROG(0 ADD+7*, ADD+10, CHANGE+7*, CHANGE+9, DELETE+7*, DELETE+9, REINSTA+7*, REINSTA+9
FBRET CONFLICT+22~, CONFLICT+23*, CONFLICT+31*, CONFLICT+33*, CONFLICT+34
FBSITE WRAPUP+2!
FBSITE(0 SETUP+2
FBSITE(1 SETUP+2
FBTYPE WRAPUP+2!, POV+1~, POV+3*
FBX ADD+28*, CHANGE+28*, DELETE+18*, REINSTA+25*, WRAPUP+2!, BDATES+16*, BDATES+17, TDATE+14*, TDATE+15
FBY DELETE+11~, DELETE+14*, DELETE+15, CONFLICT+22~, CONFLICT+26*, CONFLICT+27, CONFLICT+28, CONFLICT+31, CONFLICT+33
FDT CONFLICT~, CONFLICT+31, CONFLICT+33
FTP CHANGE+10, CHANGE+11, DELETE+10, DELETE+12, DELETE+14, REINSTA+10, REINSTA+11, WRAPUP+2!
LIST RCON~, RCON+2, RCON+8
NEWAUT CONFLICT~, CONFLICT+31
PRG CONFLICT~, CONFLICT+27
TDT CONFLICT~, CONFLICT+33
TYP QMRA~
U ADD+19, CHANGE+12, CHANGE+15, CHANGE+26, DELETE+15, DELETE+19, REINSTA+15, CONFLICT+27, CONFLICT+28, CONFLICT+31
, CONFLICT+32, CONFLICT+33, RCON+2, RCON+8, RCON+9, RCON+16
X ADD+17*, PAT+5*, PAT+6, PAT+11*, WRAPUP+3!, QMRA+7*
Y ADD+21, ADD+22, DELETE+16, PAT+3, PAT+6, PAT+8, PAT+10*, WRAPUP+3!, BDATES+9, BDATES+10
, BDATES+13, BDATES+14, TDATE+11, TDATE+12, QMRA+10, POV+6
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