Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 90001.41

Package: Referred Care Information System

RCIS REFERRAL(#90001)-->90001.41

Sub-Field: 90001.41


Information

Parent File Name Number Package
RCIS REFERRAL(#90001) CHS AUTHORIZATIONS 90001.41 Referred Care Information System

Details

Field # Name Loc Type Details
.01 AUTHORIZATION 0;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X
  • LAST EDITED:  NOV 27, 2001
  • HELP-PROMPT:  Type a Number greater than 0, 0 Decimal Digits
  • TECHNICAL DESCR:  
    This field contains the IEN of one CHS authorization issued under the authority of this CHS referral.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  90001.41^B
    1)= S ^BMCREF(DA(1),41,"B",$E(X,1,30),DA)=""
    2)= K ^BMCREF(DA(1),41,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^90001^1115
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X=DIU+1 X ^DD(90001.41,.01,1,2,1.4)
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,15)=DIV,DIH=90001,DIG=1115 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X=DIU-1 X ^DD(90001.41,.01,1,2,2.4)
    2.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,15)=DIV,DIH=90001,DIG=1115 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= CHS AUTHORIZATION COUNT+1
    DELETE VALUE)= CHS AUTHORIZATION COUNT-1
    FIELD)= CHS AUTHORIZATION COUNT
    This trigger increments and decrements the CHS AUTHORIZATION COUNT field when entries are added to or deleted from this multiple.
  • CROSS-REFERENCE:  ^^TRIGGER^90001.41^.12
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BMCREF(D0,41,D1,11)):^(11),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(90001.41,.01,1,3,1.4)
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),41,DIV(1),11)):^(11),1:""),DIV=X S $P(^(11),U,2)=DIV,DIH=90001.41,DIG=.12 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= TODAY
    DELETE VALUE)= NO EFFECT
    FIELD)= DATE PO ADDED
.02 DOLLARS AUTHORIZED 0;2 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<1) X
  • LAST EDITED:  NOV 08, 2005
  • HELP-PROMPT:  Type a Dollar Amount between 1 and 999999, 2 Decimal Digits
  • TECHNICAL DESCR:  
    This field contains the dollar amount authorized by this CHS authorization.
  • CROSS-REFERENCE:  ^^TRIGGER^90001^1117
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(90001.41,.02,1,1,1.4)
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,17)=DIV,DIH=90001,DIG=1117 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y X ^DD(90001.41,.02,1,1,2.1) X ^DD(90001.41,.02,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^BMCREF(D0,41,D1,0)):^(0),1:"") S X=DIU-$P(Y(1),U,2)
    2.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,17)=DIV,DIH=90001,DIG=1117 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    3)= DELETE IT AND DIE
    CREATE VALUE)= CHS AMOUNT AUTHORIZED TO DATE+DOLLARS AUTHORIZED
    DELETE VALUE)= CHS AMOUNT AUTHORIZED TO DATE-DOLLARS AUTHORIZED
    FIELD)= UPDATED ESTIMATED IHS COST
    This trigger adds/subtracts the DOLLARS AUTHORIZED vlaue to/from the UPDATED ESTIMATED IHS COST field.
  • CROSS-REFERENCE:  ^^TRIGGER^90001^1120
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(90001.41,.02,1,2,1.4)
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,20)=DIV,DIH=90001,DIG=1120 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X=DIV S X=DIU-X X ^DD(90001.41,.02,1,2,2.4)
    2.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,20)=DIV,DIH=90001,DIG=1120 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= CHS AMOUNT AUTHORIZED TO DATE+DOLLARS AUTHORIZED
    DELETE VALUE)= CHS AMOUNT AUTHORIZED TO DATE-OLD DOLLARS AUTHORIZED
    FIELD)= #1120
.03 DOLLARS PAID 0;3 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<1) X
  • LAST EDITED:  NOV 08, 2005
  • HELP-PROMPT:  Type a Dollar Amount between 1 and 999999, 2 Decimal Digits
  • TECHNICAL DESCR:  
    This field contains the dollars actually paid by the CHS system.  This field may be updated by partial payments.
  • CROSS-REFERENCE:  ^^TRIGGER^90001^1116
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X=DIV S X=DIU+1 X ^DD(90001.41,.03,1,1,1.4)
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,16)=DIV,DIH=90001,DIG=1116 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X=DIV S X=DIU-1 X ^DD(90001.41,.03,1,1,2.4)
    2.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,16)=DIV,DIH=90001,DIG=1116 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= CHS AUTHORIZATIONS PAID+1
    DELETE VALUE)= CHS AUTHORIZATIONS PAID-1
    FIELD)= CHS AUTHORIZATIONS PAID
    This trigger increments and decrements the CHS AUTHORIZATION PAID COUNT field when entries are added to or deleted from this multiple.
  • CROSS-REFERENCE:  ^^TRIGGER^90001^1118
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(90001.41,.03,1,2,1.4)
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,18)=DIV,DIH=90001,DIG=1118 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y X ^DD(90001.41,.03,1,2,2.1) X ^DD(90001.41,.03,1,2,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^BMCREF(D0,41,D1,0)):^(0),1:"") S X=DIU-$P(Y(1),U,3)
    2.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,18)=DIV,DIH=90001,DIG=1118 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= IHS REFERRAL COSTS TO DATE+DOLLARS PAID
    DELETE VALUE)= IHS REFERRAL COSTS TO DATE-DOLLARS PAID
    FIELD)= IHS REFERRAL COSTS TO DATE
    This trigger adds/subtracts the DOLLARS PAID value to the IHS REFERRAL COSTS TO DATE TO DATE field.
  • CROSS-REFERENCE:  ^^TRIGGER^90001^1117
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y X ^DD(90001.41,.03,1,3,1.1) X ^DD(90001.41,.03,1,3,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^BMCREF(D0,41,D1,0)):^(0),1:"") S X=DIU-$P(Y(1),U,2)
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,17)=DIV,DIH=90001,DIG=1117 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y X ^DD(90001.41,.03,1,3,2.1) X ^DD(90001.41,.03,1,3,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^BMCREF(D0,41,D1,0)):^(0),1:"") S X=DIU+$P(Y(1),U,2)
    2.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,17)=DIV,DIH=90001,DIG=1117 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= CHS IHS AUTH AMT TO DATE-DOLLARS AUTHORIZED
    DELETE VALUE)= CHS IHS AUTH AMT TO DATE+DOLLARS AUTHORIZED
    FIELD)= CHS IHS AUTH AMT TO DATE
    This trigger subtracts the $ authorized from the CHS IHS AUTH AMT TO DATE running total field because another trigger is going to add the $ paid.  The result is the running total is the sum of all of the authorization
    amounts actually paid plus the sum of all of the estimated amounts for the ones not paid.
  • CROSS-REFERENCE:  ^^TRIGGER^90001^1117
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(90001.41,.03,1,4,1.4)
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,17)=DIV,DIH=90001,DIG=1117 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y X ^DD(90001.41,.03,1,4,2.1) X ^DD(90001.41,.03,1,4,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^BMCREF(D0,41,D1,0)):^(0),1:"") S X=DIU-$P(Y(1),U,3)
    2.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,17)=DIV,DIH=90001,DIG=1117 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= CHS IHS AUTH AMT TO DATE+DOLLARS PAID
    DELETE VALUE)= CHS IHS AUTH AMT TO DATE-DOLLARS PAID
    FIELD)= CHS IHS AUTH AMT TO DATE
    This trigger adds/subtracts the $ paid to/from the CHS IHS AUTH AMT TO DATE field so that the value of that field will be the sum of $ paid for all authorization plus the sum of $ authorized for those not yet paid.
.04 PAYMENT STATUS 0;4 SET
  • '1' FOR FULL PAY;

  • LAST EDITED:  SEP 27, 1995
  • TECHNICAL DESCR:  
    This field is set to 1 for a CHS full pay (see CHS package for a definition).
.05 TOTAL COST 0;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  OCT 30, 1995
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, Dollars only
  • TECHNICAL DESCR:  
    This field contains the FI's estimate of total cost for this authorization, independent of the IHS cost.
  • CROSS-REFERENCE:  ^^TRIGGER^90001^1119
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(90001.41,.05,1,1,1.4)
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,19)=DIV,DIH=90001,DIG=1119 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y X ^DD(90001.41,.05,1,1,2.1) X ^DD(90001.41,.05,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^BMCREF(D0,41,D1,0)):^(0),1:"") S X=DIU-$P(Y(1),U,5)
    2.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,19)=DIV,DIH=90001,DIG=1119 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= TOTAL REFERRAL COSTS TO DATE+TOTAL COST
    DELETE VALUE)= TOTAL REFERRAL COSTS TO DATE-TOTAL COST
    FIELD)= TOTAL REFERRAL COSTS TO DATE
    This trigger adds/subtracts the TOTAL COST value to the TOTAL REFERRAL COSTS TO DATE FIELD.  #1119
.06 ACTUAL BEGINNING DATE 0;6 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 23, 1996
  • DESCRIPTION:  This field is the ACTUAL Beginning Date of Service passed over from the CHS Side of the House. Once the ACTUAL CHS Beginning Date is received, the field 1106 ACTUAL APPT/BEGINNING DATE is Triggered to this passed Date.
    The Trigger is only invoked if the passed CHS ACTUAL Begin Date is earlier than the existing Referral Begin DOS Date.
  • CROSS-REFERENCE:  ^^TRIGGER^90001^1106
    1)= X ^DD(90001.41,.06,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(90001.41,.06,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(0)=X S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,6)>Y(0),Y(2)=X S X=$P(Y(1),U,6)="",Y=X,X=Y(2),X=X!Y
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,6)=DIV,DIH=90001,DIG=1106 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= ACTUAL APPT/BEGIN DOS>ACTUAL BEGINNING DATE!(ACTUAL APPT/BEGIN DOS="")
    CREATE VALUE)= ACTUAL BEGINNING DATE
    DELETE VALUE)= NO EFFECT
    DIC)=
    FIELD)= ACTUAL APPT/BEGIN DOS
.07 ACTUAL ENDING DATE 0;7 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 23, 1996
  • DESCRIPTION:  This is the ACTUAL Ending Date of Service passed over from the CHS Side of the House. Once the Date is passed, this field will then trigger the field 1108 Actual Ending DOS Date of Service for the entire Referral. The
    Trigger will only occur if the ACTUAL Date passed over is Later then the Referral End DOS Date of Service.
  • CROSS-REFERENCE:  ^^TRIGGER^90001^1108
    1)= X ^DD(90001.41,.07,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(90001.41,.07,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(0)=X S Y(1)=$S($D(^BMCREF(D0,11)):^(11),1:"") S X=$P(Y(1),U,8)
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,8)=DIV,DIH=90001,DIG=1108 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= ACTUAL END DOS
    CREATE VALUE)= ACTUAL ENDING DATE
    DELETE VALUE)= NO EFFECT
    DIC)=
    FIELD)= ACTUAL END DOS
.08 PO AUTHORIZATION NUMBER 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  MAY 23, 2000
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  
    This is the actual Purchase Order Number passed from the CHS The .01 CHS Authorization sends over the IEN of the Purchase Order.  This is the actual number of the purchase order.
  • CROSS-REFERENCE:  ^^TRIGGER^90001.41^.11
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=Y(0)'="" I X S X=DIV S Y(1)=$S($D(^BMCREF(D0,41,D1,11)):^(11),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=$E(X,1,2) X ^DD(90001.41,.08,1,1,1.4)
    1.4)= S DIH=$S($D(^BMCREF(DIV(0),41,DIV(1),11)):^(11),1:""),DIV=X S $P(^(11),U,1)=DIV,DIH=90001.41,DIG=.11 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1,Y(0)=X,Y(1)=$S($D(^BMCREF(D0,41,D1,0)):^(0),1:""),X=$P(Y(1),U,8)="" I X S X=DIV S Y(1)=$S($D(^BMCREF(D0,41,D1,11)):^(11),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X
    ^DD(90001.41,.08,1,1,2.4)
    2.4)= S DIH=$S($D(^BMCREF(DIV(0),41,DIV(1),11)):^(11),1:""),DIV=X S $P(^(11),U,1)=DIV,DIH=90001.41,DIG=.11 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= PO AUTHORIZATION NUMBER'=""
    CREATE VALUE)= S X=$E(X,1,2)
    DELETE CONDITION)= PO AUTHORIZATION NUMBER=""
    DELETE VALUE)= @
    FIELD)= PO FISCAL YEAR
.09 VENDOR 0;9 POINTER TO VENDOR FILE (#9999999.11) VENDOR(#9999999.11)

  • LAST EDITED:  MAR 03, 1997
  • DESCRIPTION:  
    This is the IEN of the Vendor for the CHS Authorization.  This IEN is passed over from the CHS package each time a CHS Authorization is cut.  Or this is manually entered if the Site is not utilizing the CHS Link
.11 PO FISCAL YEAR 11;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X
  • LAST EDITED:  MAY 11, 2000
  • HELP-PROMPT:  Enter the first 2 digits of Purchase Order Number
  • EXECUTABLE HELP:  W !,"Example: PO # 09-X07-00004 - ENTER 09",!
  • NOTES:  TRIGGERED by the PO AUTHORIZATION NUMBER field of the CHS AUTHORIZATIONS sub-field of the RCIS REFERRAL File
.12 DATE PO ADDED 11;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 27, 2001
  • NOTES:  TRIGGERED by the AUTHORIZATION field of the CHS AUTHORIZATIONS sub-field of the RCIS REFERRAL File
.13 DATE PO PAID 0;10 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 14, 2003
Info |  Details |  All