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 X4X19
C^%DTC X17
NOW^%DTC X7
$$GETSTAT^DGMSTAPI X41
^DIC X27X39
E^DIE0 I+1, 13+4, 24+5
^DIE17 RD
F^DIE17 1256789101112
13141517181920212324
25262829313233353637
40414243444648495051
5253545556585960
FIREREC^DIE17 1256789101112
14151718202123252829
31323335363740414243
44484950515253545556
5859
M^DIE17 T
N^DIE17 RP13+4, 24+5
OUT^DIE17 1256789101112
14151718202123252829
31323335363740414243
44484950515253545556
5859
UNIQFERR^DIE17 Z
Z^DIE17 X
Z^DIE2 RD+1
^DIE3 T
AST^DIED P
NOSCR^DIED P
QQ^DIEQ QS
$$CREF^DILF C4F1C13F1C19F1C39F1C47F1
$$OREF^DILF C4F1C13F1C19F1C39F1C47F1
^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 X31X35
$$FMDIFF^XLFDT X10X21

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( TRR+1
^DD("DD" R+2
^DD("KEY" - [#.31] N
^DISV( RD+2, Z*
^DPT - [#2] X6
^FBAAA - [#161] DEX1C4+2, C4+6!, C4S+2, C4S+6*, C13+2, C13+6!, C13S+2, C13S+6*
X19X23
^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
@( BV
A NZYRP125678
910111213+4, 1415171820
212324+5, 25282931323335
36374041424344484950
5152535455565859
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 RDRD+1, P+1, QS
DE FBCTAU1+1, 12567891011
12131415171819202123
24252628293132333536
37404142434446484950
5152535455565859
N Y
NKEY N
O YRP
P T
PR REI+1
QS RDNKEY
R RR+1
RD YII+1, 13+5, 24+6
RE 4+2, 26+2, 27+2, 39+3, 46+2, 47+3
RP PRRR+1
SAVEVALS Z
SET T
TR RE
V TP+1
W ORE
X NT+1, PY
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, RR+1
^("F" SAVEVALS*
^(0 DE+1, RR+1
^(12.1 T

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DE+1*, DE+2*, TR+2*, SET+2*
>> %DT X4*, X19*
%Z DE+1*, DE+2, DE+3!
>> D N, D*
>> D0 DE
>> DA DEX1C4+2, C4+4, C4+6, C4S+2, C4S+4, C4S+6, C13+2, C13+4
C13+6, C13S+2, C13S+4, C13S+6, X18X19X23
>> DA(1 X1C4+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, X19X23
C24S+2, X41C47S+2
DB DE!, C4!, C4S!, C13!, C13S!, C19!, C19S!, C24!, C24S!, C39!
, C39S!, C47!, C47S!
DB( TPXSETSET+1, 13+4*, 24+5*
>> DC RP
DDER TT+1!, SET+2
DE DE!
DE( O+2, REZYPRRPSAVEVALSSAVEVALS+1, KEYCHK, 4+1*
13+1*, 13+4*, 19+1*, 24+1*, 24+5*, 39+1*, 47+1*
DE(13 DE+1*, C13C13+1, C13+3, C13+5, C13+7
DE(19 DE+1*, C19C19+1, X20
DE(24 DE+1*, C24C24+1
DE(26 DE+1*
DE(27 DE+2*
DE(39 DE+1*, C39
DE(4 DE+1*, C4C4+1, C4+3, C4+5, C4+7
DE(46 DE+2*
DE(47 DE+1*, C47C47+1
>> DFN X6X56
DG DE!, PR*, R*, R+1*, R+2, 12567
891011121314151718
19202123242526282931
32333536374041424344
46484950515253545556
585960
DG( Z*, C4SC4S+1, C4S+3, C4S+5, C4S+7, C13SC13S+1, C13S+3, C13S+5
C13S+7, C19SC19S+1, C24SC24S+1, C39SC47SC47S+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*, PC4+1, C4+3, C4+5, C4+7, C4S+1, C4S+3, C4S+5, C4S+7
C4F1C13+1, C13+3, C13+5, C13+7, C13S+1, C13S+3, C13S+5, C13S+7, C13F1
C19+1, C19S+1, C19F1C24+1, C24S+1, X27C39F1X39C47+1, C47S+1
C47F1
DIE("NO^" X23!, X42*, X50!
>> DIEFIRE 1256789101112
14151718202123252829
31323335363740414243
44484950515253545556
5859
>> DIEL DE*
>> DIEZRXR( C4F1*, C4F1+1*, C13F1*, C13F1+1*, C19F1*, C19F1+1*, C39F1*, C39F1+1*, C47F1*, C47F1+1*
>> DIEZTMP SAVEVALSSAVEVALS+1, SAVEVALS+2
>> DIFLD NTDSAVEVALSSAVEVALS+1, SAVEVALS+2, 4*, 13*, 19*, 24*
, 26*, 27*, 39*, 46*, 47*
>> DIIENS SAVEVALSSAVEVALS+1, SAVEVALS+2, C4F1C13F1C19F1C39F1C47F1
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 WRD+2, ZD, 4*, 13*, 19*, 24*, 26*, 27*
, 39*, 46*, 47*
>> DNM BEGIN*
>> DOB X6*, X10X21X31X35
>> DP DE*, NTSAVEVALSSAVEVALS+1, SAVEVALS+2
>> DQ O+2, A*, BRETPP+2, VXD
YPRRPSETSET+1, SAVEVALS, BEGIN*, 1*, 2*, 3*
C4SC4S+1, C4S+3, C4S+5, C4S+7, 5*, 6*, 7*, 8*, 9*
, 10*, 11*, 12*, 13*, 13+4, C13SC13S+1, C13S+3, C13S+5, C13S+7
, 14*, 15*, 16*, 17*, 18*, 19*, C19SC19S+1, 20*, 21*
, 22*, 23*, 24*, 24+5, C24SC24S+1, 25*, 26*, 28*, 29*
, 30*, 31*, 32*, 33*, 34*, 35*, 36*, 37*, 38*, C39S
, 40*, 41*, 42*, 43*, 44*, 45*, 46*, C47SC47S+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*, PDPRSET, 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, NRD+2, TPP+1, ZDY
PRRPI, 4*, 13*, 13+4, 19*, 24*, 24+5, 26*
, 27*, 39*, 46*, 47*
>> DW ZDSAVEVALS+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*, X11X1213+2, X52
>> FBD1 X18*
>> FBDFN X56*
>> FBFRDT X20*, X35
>> FBPRG X1*, X224+3, X25
>> FBTODT X5*, X9X12X17X31
>> FBTYPE X25*
>> ICDSYS X51*, X53*, X54X55
>> IMPDATE X51*, X53
>> NOW X8*, X10X21
U DE+1, DE+2, TRPP+2, ZDRR+1, SET
12C4+2, C4S+2, 5678910
11X1112X12C13+2, C13S+2, 14151718
X19202123252829313233
3536374041X4142434448
49505152535455565859
X O+2*, TR*, NRDRD+1, RD+2*, T, P*, P+1!, P+2*
ZX+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 OO+1, O+2, PY, 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 XNKEY

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