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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: FBCTAU1

Package: Fee Basis

Routine: FBCTAU1


Information

FBCTAU1 ; ;10/31/14

Source Information

Source file <FBCTAU1.m>

Call Graph

Call Graph

Call Graph Total: 21

Package Total Call Graph
VA FileMan 12 ^%DT  (C,NOW)^%DTC  ^DIC  E^DIE0  (,F,FIREREC,M,N,OUT,UNIQFERR,Z)^DIE17  Z^DIE2  ^DIE3  (AST,NOSCR)^DIED  
QQ^DIEQ  ($$CREF,$$OREF)^DILF  ^DIR  RW^DIR2  
Fee Basis 6 $$EXTPV^FBAAUTL5  $$ASKICD10^FBASF  $$REFNPI^FBCH78  $$IMPDATE^FBCSV1  ^FBCTAU2  ENRLLMNT^FBGMT2  
Income Verification Match 1 EVENT^IVMPLOG  
Kernel 1 ($$FMADD,$$FMDIFF)^XLFDT  
Registration 1 $$GETSTAT^DGMSTAPI  

Entry Points

Name Comments DBIA/ICR reference
DE
W
O
TR
A
B
RE
N
RD
T
P
V
Z
X
QS
D
Y
PR
R
RP
I
SET
SAVEVALS
NKEY
KEYCHK()
BEGIN
1
X1
2
X2
3
4
C4
C4S
C4F1
X4
5
X5
6
X6
7
X7
8
X8
9
X9
10
X10
11
X11
12
X12
13
C13
C13S
C13F1
X13
14
X14
15
X15
16
17
X17
18
X18
19
C19
C19S
C19F1
X19
20
X20
21
X21
22
23
X23
24
C24
C24S
C24F1
X24
25
X25
26
X26
27
X27
28
X28
29
X29
30
31
X31
32
X32
33
X33
34
35
X35
36
X36
37
X37
38
39
C39
C39S
C39F1
X39
40
X40
41
X41
42
X42
43
X43
44
X44
45
46
X46
47
C47
C47S
C47F1
X47
48
X48
49
X49
50
X50
51
X51
52
X52
53
X53
54
X54
55
X55
56
X56
57
58
X58
59
X59
60

External References

Name Field # of Occurrence
^%DT X4, X19
C^%DTC X17
NOW^%DTC X7
$$GETSTAT^DGMSTAPI X41
^DIC X27, X39
E^DIE0 I+1, 13+4, 24+5
^DIE17 RD
F^DIE17 1, 2, 5, 6, 7, 8, 9, 10, 11, 12
, 13, 14, 15, 17, 18, 19, 20, 21, 23, 24
, 25, 26, 28, 29, 31, 32, 33, 35, 36, 37
, 40, 41, 42, 43, 44, 46, 48, 49, 50, 51
, 52, 53, 54, 55, 56, 58, 59, 60
FIREREC^DIE17 1, 2, 5, 6, 7, 8, 9, 10, 11, 12
, 14, 15, 17, 18, 20, 21, 23, 25, 28, 29
, 31, 32, 33, 35, 36, 37, 40, 41, 42, 43
, 44, 48, 49, 50, 51, 52, 53, 54, 55, 56
, 58, 59
M^DIE17 T
N^DIE17 RP, 13+4, 24+5
OUT^DIE17 1, 2, 5, 6, 7, 8, 9, 10, 11, 12
, 14, 15, 17, 18, 20, 21, 23, 25, 28, 29
, 31, 32, 33, 35, 36, 37, 40, 41, 42, 43
, 44, 48, 49, 50, 51, 52, 53, 54, 55, 56
, 58, 59
UNIQFERR^DIE17 Z
Z^DIE17 X
Z^DIE2 RD+1
^DIE3 T
AST^DIED P
NOSCR^DIED P
QQ^DIEQ QS
$$CREF^DILF C4F1, C13F1, C19F1, C39F1, C47F1
$$OREF^DILF C4F1, C13F1, C19F1, C39F1, C47F1
^DIR SET+2
RW^DIR2 O+1
$$EXTPV^FBAAUTL5 X40
$$ASKICD10^FBASF X58
$$REFNPI^FBCH78 X28
$$IMPDATE^FBCSV1 X51
^FBCTAU2 60
ENRLLMNT^FBGMT2 C19S+2
EVENT^IVMPLOG C4+8, C4S+8, C13+8, C13S+8, C19S+2, C24S+2, C47S+2
$$FMADD^XLFDT X31, X35
$$FMDIFF^XLFDT X10, X21

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: W
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !?DL+DL-2,DLB_": "
  • Line Location: W+0
Function Call: WRITE
  • Prompt: W
  • Line Location: O+0
Function Call: WRITE
  • Prompt: Y
  • Line Location: O+0
Function Call: WRITE
  • Prompt: !?9
  • Condition for execution: $X>45
  • Line Location: O+0
Function Call: WRITE
  • Prompt: " (No Editing)"
  • Line Location: O+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: TR+0
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: TR+0
Function Call: WRITE
  • Prompt: " "_X
  • Line Location: RD+2
Function Call: WRITE
  • Prompt: !!,*7,"You are only allowed to edit an outpatient authorization using this option.",!!
  • Line Location: X2+0
Function Call: WRITE
  • Prompt: !,*7,"From Date cannot be later than the To Date!"
  • Line Location: X14+0
Function Call: WRITE
  • Prompt: !!,"To Date cannot be earlier than From Date!",!
  • Line Location: X19+0
Function Call: WRITE
  • Prompt: !,"REFERRING PROVIDER NPI: ",$$REFNPI^FBCH78(X)
  • Line Location: X28+0
Function Call: WRITE
  • Prompt: !,*7,"This is a Newborn, From Date must be between DOB and DOB+7"
  • Line Location: X32+0
Function Call: WRITE
  • Prompt: !,*7,"This is a Newborn, TO Date must be between DOB and DOB+7"
  • Line Location: X36+0
Function Call: WRITE
  • Prompt: !,$C(7),"MST POV can't be selected because veteran's MST status is not YES."
  • Line Location: X43+0
Function Call: WRITE
  • Prompt: !," ICD Diagnosis is required"
  • Line Location: X59+0
Routine Call
  • DIC
  • Line Location:
    • X27
    • X39
Routine Call
  • DIR
  • Line Location:
    • SET+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FBAAA - [#161] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( T, R, R+1
^DD("DD" R+2
^DD("KEY" - [#.31] N
^DISV( RD+2, Z*
^DPT - [#2] X6
^FBAAA - [#161] DE, X1, C4+2, C4+6!, C4S+2, C4S+6*, C13+2, C13+6!, C13S+2, C13S+6*
, X19, X23
^FBAAA("AIC" C4+2!, C4S+2*, C13+2!, C13S+2*
^FBAAA("ATST" C4+4!, C4S+4*, C13+4!, C13S+4*

Label References

Name Line Occurrences
$$KEYCHK Z
@( B, V
A N, Z, Y, RP, 1, 2, 5, 6, 7, 8
, 9, 10, 11, 12, 13+4, 14, 15, 17, 18, 20
, 21, 23, 24+5, 25, 28, 29, 31, 32, 33, 35
, 36, 37, 40, 41, 42, 43, 44, 48, 49, 50
, 51, 52, 53, 54, 55, 56, 58, 59
B QS
BEGIN FBCTAU1+1
C13F1 C13S
C13S C13
C19F1 C19S
C19S C19
C24F1 C24S
C24S C24
C39F1 C39S
C39S C39
C47F1 C47S
C47S C47
C4F1 C4S
C4S C4
D RD, RD+1, P+1, QS
DE FBCTAU1+1, 1, 2, 5, 6, 7, 8, 9, 10, 11
, 12, 13, 14, 15, 17, 18, 19, 20, 21, 23
, 24, 25, 26, 28, 29, 31, 32, 33, 35, 36
, 37, 40, 41, 42, 43, 44, 46, 48, 49, 50
, 51, 52, 53, 54, 55, 56, 58, 59
N Y
NKEY N
O Y, RP
P T
PR RE, I+1
QS RD, NKEY
R R, R+1
RD Y, I, I+1, 13+5, 24+6
RE 4+2, 26+2, 27+2, 39+3, 46+2, 47+3
RP PR, R, R+1
SAVEVALS Z
SET T
TR RE
V T, P+1
W O, RE
X N, T+1, P, Y
X1 1
X10 10
X11 11
X12 12
X14 14
X15 15
X17 17
X18 18
X2 2
X20 20
X21 21
X23 23
X25 25
X28 28
X29 29
X31 31
X32 32
X33 33
X35 35
X36 36
X37 37
X40 40
X41 41
X42 42
X43 43
X44 44
X48 48
X49 49
X5 5
X50 50
X51 51
X52 52
X53 53
X54 54
X55 55
X56 56
X58 58
X59 59
X6 6
X7 7
X8 8
X9 9
Y 19+4
Z P+1, 13+5, 24+6

Naked Globals

Name Field # of Occurrence
^( RD+2, R, R+1
^("F" SAVEVALS*
^(0 DE+1, R, R+1
^(12.1 T

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DE+1*, DE+2*, T, R+2*, SET+2*
>> %DT X4*, X19*
%Z DE+1*, DE+2, DE+3!
>> D N, D*
>> D0 DE
>> DA DE, X1, C4+2, C4+4, C4+6, C4S+2, C4S+4, C4S+6, C13+2, C13+4
, C13+6, C13S+2, C13S+4, C13S+6, X18, X19, X23
>> DA(1 X1, C4+2, C4+4, C4+6, C4+8, C4S+2, C4S+4, C4S+6, C4S+8, C13+2
, C13+4, C13+6, C13+8, C13S+2, C13S+4, C13S+6, C13S+8, C19S+2, X19, X23
, C24S+2, X41, C47S+2
DB DE!, C4!, C4S!, C13!, C13S!, C19!, C19S!, C24!, C24S!, C39!
, C39S!, C47!, C47S!
DB( T, P, X, SET, SET+1, 13+4*, 24+5*
>> DC RP
DDER T, T+1!, SET+2
DE DE!
DE( O+2, RE, Z, Y, PR, RP, SAVEVALS, SAVEVALS+1, KEYCHK, 4+1*
, 13+1*, 13+4*, 19+1*, 24+1*, 24+5*, 39+1*, 47+1*
DE(13 DE+1*, C13, C13+1, C13+3, C13+5, C13+7
DE(19 DE+1*, C19, C19+1, X20
DE(24 DE+1*, C24, C24+1
DE(26 DE+1*
DE(27 DE+2*
DE(39 DE+1*, C39
DE(4 DE+1*, C4, C4+1, C4+3, C4+5, C4+7
DE(46 DE+2*
DE(47 DE+1*, C47, C47+1
>> DFN X6, X56
DG DE!, PR*, R*, R+1*, R+2, 1, 2, 5, 6, 7
, 8, 9, 10, 11, 12, 13, 14, 15, 17, 18
, 19, 20, 21, 23, 24, 25, 26, 28, 29, 31
, 32, 33, 35, 36, 37, 40, 41, 42, 43, 44
, 46, 48, 49, 50, 51, 52, 53, 54, 55, 56
, 58, 59, 60
DG( Z*, C4S, C4S+1, C4S+3, C4S+5, C4S+7, C13S, C13S+1, C13S+3, C13S+5
, C13S+7, C19S, C19S+1, C24S, C24S+1, C39S, C47S, C47S+1
DIC DE*, P*, C4+1*, C4+3*, C4+5*, C4+7*, C4S+1*, C4S+3*, C4S+5*, C4S+7*
, C13+1*, C13+3*, C13+5*, C13+7*, C13S+1*, C13S+3*, C13S+5*, C13S+7*, C19+1*, C19S+1*
, C24+1*, C24S+1*, X27!*, X39!*, C47+1*, C47S+1*
DIC("S" T, Z!, X27*, X39*
DIC(0 P*, 1*, 2*, 5*, 6*, 7*, 8*, 9*, 10*, 11*
, 12*, 14*, 15*, 17*, 18*, 20*, 21*, 23*, 25*, 28*
, 29*, 31*, 32*, 33*, 35*, 36*, 37*, 40*, 41*, 42*
, 43*, 44*, 48*, 49*, 50*, 51*, 52*, 53*, 54*, 55*
, 56*, 58*, 59*
>> DIE DE*, P, C4+1, C4+3, C4+5, C4+7, C4S+1, C4S+3, C4S+5, C4S+7
, C4F1, C13+1, C13+3, C13+5, C13+7, C13S+1, C13S+3, C13S+5, C13S+7, C13F1
, C19+1, C19S+1, C19F1, C24+1, C24S+1, X27, C39F1, X39, C47+1, C47S+1
, C47F1
>> DIE("NO^" X23!, X42*, X50!
>> DIEFIRE 1, 2, 5, 6, 7, 8, 9, 10, 11, 12
, 14, 15, 17, 18, 20, 21, 23, 25, 28, 29
, 31, 32, 33, 35, 36, 37, 40, 41, 42, 43
, 44, 48, 49, 50, 51, 52, 53, 54, 55, 56
, 58, 59
>> DIEL DE*
>> DIEZRXR( C4F1*, C4F1+1*, C13F1*, C13F1+1*, C19F1*, C19F1+1*, C39F1*, C39F1+1*, C47F1*, C47F1+1*
>> DIEZTMP SAVEVALS, SAVEVALS+1, SAVEVALS+2
>> DIFLD N, T, D, SAVEVALS, SAVEVALS+1, SAVEVALS+2, 4*, 13*, 19*, 24*
, 26*, 27*, 39*, 46*, 47*
>> DIIENS SAVEVALS, SAVEVALS+1, SAVEVALS+2, C4F1, C13F1, C19F1, C39F1, C47F1
DIQUIET SET+1~*
DIR SET~
DIR("V" SET*
DIR(0 SET*
>> DIU(0 C4+8, C4S+8, C13+8, C13S+8, C19S+2, C24S+2, C47S+2
>> DIXR C4F1+1*, C13F1+1*, C19F1+1*, C39F1+1*, C47F1+1*
>> DL DE*, W
DLAYGO P*, Z!
>> DLB W, RD+2, Z, D, 4*, 13*, 19*, 24*, 26*, 27*
, 39*, 46*, 47*
>> DNM BEGIN*
>> DOB X6*, X10, X21, X31, X35
>> DP DE*, N, T, SAVEVALS, SAVEVALS+1, SAVEVALS+2
>> DQ O+2, A*, B, RE, T, P, P+2, V, X, D
, Y, PR, RP, SET, SET+1, SAVEVALS, BEGIN*, 1*, 2*, 3*
, C4S, C4S+1, C4S+3, C4S+5, C4S+7, 5*, 6*, 7*, 8*, 9*
, 10*, 11*, 12*, 13*, 13+4, C13S, C13S+1, C13S+3, C13S+5, C13S+7
, 14*, 15*, 16*, 17*, 18*, 19*, C19S, C19S+1, 20*, 21*
, 22*, 23*, 24*, 24+5, C24S, C24S+1, 25*, 26*, 28*, 29*
, 30*, 31*, 32*, 33*, 34*, 35*, 36*, 37*, 38*, C39S
, 40*, 41*, 42*, 43*, 44*, 45*, 46*, C47S, C47S+1, 48*
, 49*, 50*, 51*, 52*, 53*, 54*, 55*, 56*, 57*, 58*
, 59*
>> DQ( A!, P+2, D*, PR
DTIME TR
>> DTOUT TR*
>> DU DE*, P, D, PR, SET, 4*, 13*, 19*, 24*, 24+2*
, 26*, 26+1*, 27*, 27+1*, 39*, 39+2*, 46*, 46+1*, 47*, 47+2*
DUZ RD+2, Z
>> DV O+1, O+2, N, RD+2, T, P, P+1, Z, D, Y
, PR, RP, I, 4*, 13*, 13+4, 19*, 24*, 24+5, 26*
, 27*, 39*, 46*, 47*
>> DW Z, D, SAVEVALS+1, KEYCHK, 1*, 2*, 4*, 4+1, 5*, 6*
, 7*, 8*, 9*, 10*, 11*, 12*, 13*, 13+1, 13+4, 14*
, 15*, 17*, 18*, 19*, 19+1, 20*, 21*, 23*, 24*, 24+1
, 24+5, 25*, 26*, 27*, 28*, 29*, 31*, 32*, 33*, 35*
, 36*, 37*, 39*, 39+1, 40*, 41*, 42*, 43*, 44*, 46*
, 47*, 47+1, 48*, 49*, 50*, 51*, 52*, 53*, 54*, 55*
, 56*, 58*, 59*
>> DZ QS*
>> EDATE X52*, X53
>> FBAADDYS X17*
>> FBAALT X1*, X49*
>> FBAATT X48*, X54
>> FBAAX X17*, 19+2
>> FBAOLD X1*, X11, X12, 13+2, X52
>> FBD1 X18*
>> FBDFN X56*
>> FBFRDT X20*, X35
>> FBPRG X1*, X2, 24+3, X25
>> FBTODT X5*, X9, X12, X17, X31
>> FBTYPE X25*
>> ICDSYS X51*, X53*, X54, X55
>> IMPDATE X51*, X53
>> NOW X8*, X10, X21
U DE+1, DE+2, TR, P, P+2, Z, D, R, R+1, SET
, 1, 2, C4+2, C4S+2, 5, 6, 7, 8, 9, 10
, 11, X11, 12, X12, C13+2, C13S+2, 14, 15, 17, 18
, X19, 20, 21, 23, 25, 28, 29, 31, 32, 33
, 35, 36, 37, 40, 41, X41, 42, 43, 44, 48
, 49, 50, 51, 52, 53, 54, 55, 56, 58, 59
X O+2*, TR*, N, RD, RD+1, RD+2*, T, P*, P+1!, P+2*
, Z, X+1*, QS, Y*, PR*, R*, R+1*, R+2, RP*, I+1
, SET+2*, NKEY*, 1*, 2*, C4+1*, C4+2, C4+3*, C4+4, C4+5*, C4+6
, C4+7*, C4S*, C4S+1*, C4S+2, C4S+3*, C4S+4, C4S+5*, C4S+6, C4S+7*, X4*!
, 5*, X5, 6*, 7*, 8*, X8, 9*, X9*, 10*, 11*
, 12*, 13+2*, 13+3, 13+4*, 13+5, C13+1*, C13+2, C13+3*, C13+4, C13+5*
, C13+6, C13+7*, C13S*, C13S+1*, C13S+2, C13S+3*, C13S+4, C13S+5*, C13S+6, C13S+7*
, 14*, 15*, 17*, X17, 18*, 19+2*, 19+3, C19+1*, C19S*, C19S+1*
, X19*!, 20*, 21*, 23*, 24+3*, 24+4, 24+5*, 24+6, C24+1*, C24S*
, C24S+1*, 25*, X27*!, 28*, X28, 29*, 31*, 32*, 33*, 35*
, 36*, 37*, C39S*, X39*!, 40*, X40, 41*, 42*, 43*, 44*
, C47+1*, C47S*, C47S+1*, 48*, X48, 49*, X49, 50*, 51*, 52*
, 53*, 54*, 55*, 56*, 58*, 59*
>> X1 X17*
>> X2 X17*
>> XX1 X58*, X59
>> Y O, O+1, O+2, P, Y, PR*, R*, R+1*, R+2*, SET+2
, 1*, 2*, X2*, X4, 5*, 6*, 7*, 8*, 9*, 10*
, X10*, 11*, X11*, 12*, X12*, 13+3*, 13+4, 14*, 15*, X15*
, 17*, 18*, 19+3*, X19, 20*, 21*, X21*, 23*, 24+4*, 24+5
, 25*, X27, 28*, 29*, X29*, 31*, X31*, 32*, 33*, X33*
, 35*, X35*, 36*, 37*, X37*, X39, 40*, X40*, 41*, X41*
, 42*, 43*, 44*, X44*, 48*, 49*, 50*, 51*, 52*, 53*
, 54*, X54*, 55*, X55*, 56*, 58*, 59*, X59*
>> Y(0 SET+2
YS V!
>> ZTQUEUED X, NKEY

Marked Items

Name Field # of Occurrence
$T(@(3) D
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All