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

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
  • Timeout: DTIME
  • Variable: X
  • 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