Changeset 623 for WorldVistAEHR/trunk/r/FEE_BASIS-FB/FBCTAU.m

Timestamp:

Dec 4, 2009, 12:11:15 AM (14 years ago)

Author:

George Lilly

Message:

revised back to 6/30/08 version

File:

• WorldVistAEHR/trunk/r/FEE_BASIS-FB/FBCTAU.m (modified) (2 diffs)

WorldVistAEHR/trunk/r/FEE_BASIS-FB/FBCTAU.m

@@ -1 @@
-FBCTAU ; GENERATED FROM 'FBAA AUTHORIZATION' INPUT TEMPLATE(#1015), FILE 161;11/08/09
+FBCTAU ; GENERATED FROM 'FBAA AUTHORIZATION' INPUT TEMPLATE(#1015), FILE 161;06/28/03
  D DE G BEGIN
 DE S DIE="^FBAAA(",DIC=DIE,DP=161,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^FBAAA(DA,""))=""
@@ -57 +57 @@
  Q
 2 S D=0 K DE(1) ;1
- S DIFLD=1,DGO="^FBCTAU1",DC="23^161.01ID^1^",DV="161.01DX",DW="0;1",DOW="FROM DATE",DLB="Select "_DOW S:D DC=DC_D
+ S DIFLD=1,DGO="^FBCTAU1",DC="22^161.01ID^1^",DV="161.01DX",DW="0;1",DOW="FROM DATE",DLB="Select "_DOW S:D DC=DC_D
  I $D(DSC(161.01))#2,$P(DSC(161.01),"I $D(^UTILITY(",1)="" X DSC(161.01) S D=$O(^(0)) S:D="" D=-1 G M2
  S D=$S($D(^FBAAA(DA,1,0)):$P(^(0),U,3,4),$O(^(0))'="":$O(^(0)),1:-1)