Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call