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

Package: Accounts Receivable

ELECTRONIC REMITTANCE ADVICE(#344.4)-->344.41

Sub-Field: 344.41


Information

Parent File Name Number Package
ELECTRONIC REMITTANCE ADVICE(#344.4) ERA DETAIL 344.41 Accounts Receivable

Details

Field # Name Loc Type Details
.01 SEQUENCE # 0;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1.N) X I $D(X) S DINUM=X
  • LAST EDITED:  AUG 12, 2003
  • HELP-PROMPT:  Type a number between 0 and 99999999, 0 Decimal Digits
  • DESCRIPTION:  
    This is a sequence # used internally to identify this ERA detail record.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  344.41^B
    1)= S ^RCY(344.4,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^RCY(344.4,DA(1),1,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^344.4^.11
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^RCY(344.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=DIU+1 S DIH=$G(^RCY(344.4,DIV(0),0)),DIV=X S $P(^(0),U,11)=DIV,DIH=344.4,DIG=.11 D ^DICR
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^RCY(344.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=DIU-1 S DIH=$G(^RCY(344.4,DIV(0),0)),DIV=X S $P(^(0),U,11)=DIV,DIH=344.4,DIG=.11 D ^DICR
    3)= Do not delete
    CREATE VALUE)= INDIVIDUAL EOB COUNT+1
    DELETE VALUE)= INDIVIDUAL EOB COUNT-1
    FIELD)= INDIVIDUAL EOB COUNT
    Keeps track of the number of individual EOBs in the EOB transmission.
.02 EOB DETAIL 0;2 POINTER TO EXPLANATION OF BENEFITS FILE (#361.1) EXPLANATION OF BENEFITS(#361.1)

  • INPUT TRANSFORM:  S DIC("S")="I '$P(^(0),U,4)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 25, 2002
  • HELP-PROMPT:  Enter the EOB detail records that will comprise the EOB record
  • DESCRIPTION:  
    The detail EOB records that comprise the 835 transaction.
  • SCREEN:  S DIC("S")="I '$P(^(0),U,4)"
  • EXPLANATION:  This can only be regular EOB's, not MRA's
  • CROSS-REFERENCE:  344.41^AC
    1)= S ^RCY(344.4,DA(1),1,"AC",$E(X,1,30),DA)=""
    2)= K ^RCY(344.4,DA(1),1,"AC",$E(X,1,30),DA)
    3)= Do not delete
  • CROSS-REFERENCE:  344.4^ADET
    1)= S ^RCY(344.4,"ADET",$E(X,1,30),DA(1),DA)=""
    2)= K ^RCY(344.4,"ADET",$E(X,1,30),DA(1),DA)
    3)= Do not delete
    Cross references entire file by EOB detail pointer to file 361.1
  • RECORD INDEXES:  AVAL (#293)
.03 AMOUNT PAID 0;3 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>9999999999999)!(X<-9999999999999) X
  • LAST EDITED:  FEB 13, 2003
  • HELP-PROMPT:  Type a Dollar Amount between -9999999999999 and 9999999999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the specific amount the payer has paid on this bill.
.04 INSURANCE COMPANY ON BILL 0;4 POINTER TO INSURANCE COMPANY FILE (#36) INSURANCE COMPANY(#36)

  • LAST EDITED:  AUG 27, 2003
  • HELP-PROMPT:  Enter the name of the insurance co who supplied this EOB data
  • DESCRIPTION:  
    This is the insurance company that supplied this EOB data
.05 INVALID BILL NUMBER 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  APR 09, 2003
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  
    This is the bill # received on the EOB, but it doesn't exist in VistA.
  • CROSS-REFERENCE:  344.41^AD
    1)= S ^RCY(344.4,DA(1),1,"AD",$E(X,1,30),DA)=""
    2)= K ^RCY(344.4,DA(1),1,"AD",$E(X,1,30),DA)
    3)= Do not delete
  • CROSS-REFERENCE:  ^^TRIGGER^344.41^.17
    1)= Q
    2)= X ^DD(344.41,.05,1,2,2.3) I X S X=DIV S Y(1)=$S($D(^RCY(344.4,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y X ^DD(344.41,.05,1,2,2.1) X ^DD(344.41,.05,1,2,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^RCY(344.4,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,5)
    2.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^RCY(344.4,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,17)=""
    2.4)= S DIH=$G(^RCY(344.4,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,17)=DIV,DIH=344.41,DIG=.17 D ^DICR
    3)= Do not delete
    CREATE VALUE)= NO EFFECT
    DELETE CONDITION)= BILL NUMBER FROM PAYER=""
    DELETE VALUE)= INVALID BILL NUMBER
    FIELD)= BILL NUMBER FROM PAYER
  • RECORD INDEXES:  AVAL (#293)
.07 ERROR CATEGORY 0;7 SET
  • '1' FOR VALID BILL NOT FOUND;
  • '2' FOR EOB DETAIL NOT IN IB;
  • '99' FOR OTHER;

  • LAST EDITED:  DEC 23, 2002
  • HELP-PROMPT:  Enter the # corresponding to the specific error detected
  • DESCRIPTION:  
    This field is used to categorize the specific errors associated with EOB detail records. This is the coded error for special exception processing.
  • CROSS-REFERENCE:  344.4^AEXC
    1)= S ^RCY(344.4,"AEXC",$E(X,1,30),DA(1),DA)=""
    2)= K ^RCY(344.4,"AEXC",$E(X,1,30),DA(1),DA)
    This xref is used to identify EOB records with exception conditions.
.08 UNSPECIFIC ERROR 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
  • LAST EDITED:  SEP 24, 2002
  • HELP-PROMPT:  Answer must be 1-60 characters in length.
  • DESCRIPTION:  
    This is the text to describe the error associated with EOB detail records when the ERROR CATEGORY field is OTHER.
.09 TRANSFERRED OUT MSG # 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  OCT 24, 2002
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  
    This field will hold the last mail message number used to transmit a detail record for an EOB received for a bill belonging to another site.
.1 TRANSFER STATUS 0;10 SET
  • '0' FOR NOT ACCEPTED;
  • '1' FOR ACCEPTED;

  • LAST EDITED:  OCT 24, 2002
  • HELP-PROMPT:  Enter the code that corresponds to the status of the EOB transferred to another site
  • DESCRIPTION:  
    This field indicates whether or not an EOB transfer has been accepted by a site to whom this EOB detail record was sent.
.11 TRANSFERRED TO SITE 0;11 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  OCT 25, 2002
  • HELP-PROMPT:  Enter the name of the site where the EOB detail record will be sent
  • DESCRIPTION:  
    This is the name of the site where the EOB detail record will be sent.
.12 TRANSFERRED DATE 0;12 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 15, 2003
  • HELP-PROMPT:  Enter the date the EOB was last transferred to another site
  • DESCRIPTION:  
    This is the latest date/time when the transfer of the EOB detail record took place.
  • CROSS-REFERENCE:  344.4^ATOUT
    1)= S ^RCY(344.4,"ATOUT",$E(X,1,30),DA(1),DA)=""
    2)= K ^RCY(344.4,"ATOUT",$E(X,1,30),DA(1),DA)
    3)= Do not delete
    This cross reference allows easy access to EOBs that have been transferred out of the site to another site.
.13 ERROR STATUS 0;13 SET
  • '0' FOR UNRESOLVED;
  • '1' FOR RESOLVED;

  • LAST EDITED:  OCT 24, 2002
  • HELP-PROMPT:  Enter the code to indicate if the error for this EOB detail record has been resolved.
  • DESCRIPTION:  
    This indicates if the error associated with this EOB detail record was resolved or not. If resolved, it will not appear on any more EOB detail exception lists.
.14 REVERSAL 0;14 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  JAN 07, 2003
  • HELP-PROMPT:  Enter a 1 (YES) if this is a reversal notification
  • DESCRIPTION:  
    This is the flag that indicates the bill was not paid, but was reversed.
  • CROSS-REFERENCE:  344.41^ATB
    1)= S ^RCY(344.4,DA(1),1,"ATB",$E(X,1,30),DA)=""
    2)= K ^RCY(344.4,DA(1),1,"ATB",$E(X,1,30),DA)
    3)= Do not delete
    This xref is used to easily find reversal or takeback EOBs in an ERA.
.15 FREE TEXT PATIENT NAME 0;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<1) X
  • LAST EDITED:  DEC 23, 2002
  • HELP-PROMPT:  Answer must be 1-35 characters in length.
  • DESCRIPTION:  
    This is the name of the patient as returned by the payer. Used only if the bill cannot be found at the site.
.16 TRANSFER RECEIVED OTHER SITE 0;16 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  JAN 15, 2003
  • HELP-PROMPT:  Enter YES (1) if the other site has received the transferred EOB
  • DESCRIPTION:  
    This indicates whether or not the other site has received the transferred EOB record.
.17 BILL NUMBER FROM PAYER 0;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  APR 09, 2003
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
  • DESCRIPTION:  
    If a bill number must be edited because it could not be found in the site's A/R file, this is the original bill # that the payer sent.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the INVALID BILL NUMBER field of the ERA DETAIL sub-field of the ELECTRONIC REMITTANCE ADVICE File
.18 BILLING PROVIDER NPI 3;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<10)!'(X?10N) X
  • LAST EDITED:  JUN 14, 2007
  • HELP-PROMPT:  Answer must be 10 characters in length.
  • DESCRIPTION:  
    This field contains the NPI for the Billing Provider that is found in piece 16 of the line type 10 of the 835ERA sent from Austin Information Technology Center.
.19 RENDERING/SERVICING PROV NPI 3;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<10)!'(X?10N) X
  • LAST EDITED:  MAY 06, 2008
  • HELP-PROMPT:  Answer must be 10 characters in length.
  • DESCRIPTION:  This field contains the NPI for the Rendering/Servicing Provider that is found in piece 16 of the line type 10 of the 835ERA sent from the Austin Information Technology Center. This field is named Rendering NPI on the
    835ERA and can contain the NPI for the Rendering (individual) or the Servicing (non-individual) provider.
.2 ENTITY TYPE QUALIFIER 3;3 SET
  • '1' FOR INDIVIDUAL;
  • '2' FOR NON-INDIVIDUAL;

  • LAST EDITED:  OCT 18, 2007
  • HELP-PROMPT:  Enter a '1' for an individual NPI or a '2' for a non-individual NPI.
  • DESCRIPTION:  This field reflects the type of NPI that is being returned in the NM1 segment of the X12N 835. If it is a 1 then the NPI is for an individual provider. If it is a 2 then it is a non-individual (organizational) NPI.
    This data is found in piece 17 of line type 10 in the 835ERA message transmitted from the Austin Information Technology Center.
.21 RENDERING/SERVICING PROV NAME 3;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>96!($L(X)<2) X
  • LAST EDITED:  JUN 21, 2010
  • HELP-PROMPT:  Answer must be 2-96 characters in length.
  • DESCRIPTION:  This field holds the value of the "Rendering Provider Name" field from the NM1 segment of the X12N 835. It is last name (or servicing organization name) concatenated with a comma (if there is a first name) concatenated
    with the first name. The last name is piece 18 of a line type of 10 in the 835ERA message and the first name is piece 19 of a line type of 10 in the 835ERA message transmitted from the Austin Information Technology
    Center.
.22 BILLING PROV COMMENT 3;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<3) X
  • LAST EDITED:  APR 28, 2008
  • HELP-PROMPT:  Answer must be 3-80 characters in length.
  • DESCRIPTION:  
    This comment is about the Billing Provider NPI. This field is filled in only if the NPI is not in proper format.
.23 REN PROV COMMENT 4;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<3) X
  • LAST EDITED:  JUN 21, 2010
  • HELP-PROMPT:  Answer must be 3-80 characters in length.
  • DESCRIPTION:  
    This field is filled in with a comment if the Rendering/Servicing Provider NPI is not in correct format.
.24 ECME # 4;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<1) X
  • LAST EDITED:  MAY 05, 2014
  • HELP-PROMPT:  Answer must be 1-12 characters in length.
  • DESCRIPTION:  
    The ELECTRONIC CLAIMS MANAGEMENT ENGINE NUMBER is used to track an ERA for matching, posting, and reporting claims.
  • CROSS-REFERENCE:  344.41^ECME
    1)= S ^RCY(344.4,DA(1),1,"ECME",$E(X,1,30),DA)=""
    2)= K ^RCY(344.4,DA(1),1,"ECME",$E(X,1,30),DA)
    This cross-reference is for locating the ECME number(s) for an ERA.
.25 RECEIPT 4;3 POINTER TO AR BATCH PAYMENT FILE (#344) AR BATCH PAYMENT(#344)

  • LAST EDITED:  JAN 10, 2015
  • HELP-PROMPT:  Select the AR BATCH PAYMENT entry associated with this ERA DETAIL sub-file entry.
  • DESCRIPTION:  
    This is the AR BATCH PAYMENT entry that has the associated Receipt Number.
  • CROSS-REFERENCE:  344.41^RECEIPT
    1)= S ^RCY(344.4,DA(1),1,"RECEIPT",$E(X,1,30),DA)=""
    2)= K ^RCY(344.4,DA(1),1,"RECEIPT",$E(X,1,30),DA)
  • CROSS-REFERENCE:  344.4^H
    1)= S ^RCY(344.4,"H",$E(X,1,30),DA(1),DA)=""
    2)= K ^RCY(344.4,"H",$E(X,1,30),DA(1),DA)
    This cross reference is for the RECEIPT that is stored at each of the individual claim lines within an ERA.
1 RAW DATA 1;0 WORD-PROCESSING #344.411

  • DESCRIPTION:  
    This field stores the raw data as it was received for the individual EOB if its detail could not be stored in IB.
1.1 FORMATTED MESSAGE DATA COMPUTED

  • MUMPS CODE:  S X="" N Q,Q0,Q1 D DISP^RCDPESR0("^RCY(344.4,"_D0_",1,"_D1_",1)","Q0",1,"Q1",75,1) I $O(Q1(0)) D EN^DDIOL("FORMATTED MESSAGE DATA: ","","!!") S Q=0 F S Q=$O(Q1(Q)) D:'Q EN^DDIOL(" ","","!") Q:'Q D EN^DDIOL(Q1(Q),"","!"
    )
  • ALGORITHM:  S X="" N Q,Q0,Q1 D DISP^RCDPESR0("^RCY(344.4,"_D0_",1,"_D1_",1)","Q0",1,"Q1",75,1) I $O(Q1(0)) D EN^DDIOL("FORMATTED MESSAGE DATA: ","","!!") S Q=0 F S Q=$O(Q1(Q)) D:'Q EN^DDIOL(" ","","!") Q:'Q D EN^DDIOL(Q1(Q),"","!"
    )
  • LAST EDITED:  NOV 04, 2002
2 RESOLUTION LOG 2;0 WORD-PROCESSING #344.412

  • DESCRIPTION:  
    This field contains comments to detail the attempts made to remove the exception condition associated with this individual EOB.
4 CLAIM COMMENT 6;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>132!($L(X)<3) X
  • LAST EDITED:  OCT 30, 2015
  • HELP-PROMPT:  Answer must be 3-132 characters in length.
  • DESCRIPTION:  
    This field will hold any claim comments used to indicate what was done to this line item to get exceptions resolved so the claim will post and get the ERA processed.
4.01 CLAIM COMMENT DATE 6;2 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 06, 2016
  • HELP-PROMPT:  Enter date comment was added to this detail record.
  • DESCRIPTION:  
    This will be the date that this comment was added/updated. Date is required but time is optional.
4.02 CLAIM COMMENT USER 6;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 05, 2016
  • HELP-PROMPT:  Enter the name of user that added/edited this comment.
  • DESCRIPTION:  
    This will be the pointer to the user that entered/updated this comment last.
5 AUTO-POST REJECTION REASON 5;1 SET
  • '1' FOR FIELD VERIFICATION FAILED;
  • '2' FOR CLAIM ALREADY COMPLETED/CLOSED;
  • '3' FOR PAYMENT EXCEEDS CLAIM BALANCE;
  • '4' FOR REFERRED TO GENERAL COUNCIL;
  • '5' FOR REJECTED (COMPLETED/CLOSED);
  • '6' FOR PAYMENT AMOUNT IS NEGATIVE;
  • '7' FOR REJECTED (GENERAL COUNCIL);

  • LAST EDITED:  JUL 28, 2014
  • HELP-PROMPT:  Enter the reason that auto-post rejected this line.
  • DESCRIPTION:  
    This field describes the reason that caused the ERA detail line to be rejected by the ERA auto-posting process in the AR nightly job.
6 MARK FOR AUTO-POST 5;2 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 21, 2014
  • HELP-PROMPT:  Enter YES if the EEOB line item in the ERA is marked for auto-posting.
  • DESCRIPTION:  
    This flag identifies if the EEOB line item in the ERA is marked for automatic posting to a receipt during the nightly job process.
  • CROSS-REFERENCE:  344.4^AP
    1)= S ^RCY(344.4,"AP",$E(X,1,30),DA(1),DA)=""
    2)= K ^RCY(344.4,"AP",$E(X,1,30),DA(1),DA)
    This cross reference is used to identify ERA claim lines which have been marked for auto-post in the EDI Lockbox option 'Auto-Post Awaiting Resolution'.
6.01 MARKED FOR AUTOPOST USER 5;7 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  NOV 14, 2017
  • HELP-PROMPT:  Select the person who marked the ERA detail for auto-posting
  • DESCRIPTION:  
    This is the person who marked the ERA detail for auto-posting. This field is set automatically by the system.
7 AUTO-DECREASE INDICATOR 5;3 SET
  • '1' FOR YES;

  • LAST EDITED:  MAY 06, 2014
  • HELP-PROMPT:  Enter Yes to indicate that the claim is auto-decreased.
  • DESCRIPTION:  
    This field indicates that the claim on this ERA DETAIL line has been reviewed by the nightly decrease adjustment process.
8 AUTO-DECREASE AMOUNT 5;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999)!(X<0) X
  • LAST EDITED:  MAY 06, 2014
  • HELP-PROMPT:  Type a dollar amount between 0 and 9999, 2 decimal digits.
  • DESCRIPTION:  
    This is the dollar amount of the decrease adjustment applied to the claim on this ERA DETAIL line by the nightly automatic decrease adjustment process.
9 AUTO-POST DATE 5;5 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  MAR 26, 2014
  • HELP-PROMPT:  Enter the date on which this claim was auto-posted.
  • DESCRIPTION:  
    This is the date on which the claim line was auto-posted by the AR Nightly process.
  • CROSS-REFERENCE:  344.4^F
    1)= S ^RCY(344.4,"F",$E(X,1,30),DA(1),DA)=""
    2)= K ^RCY(344.4,"F",$E(X,1,30),DA(1),DA)
    This cross reference is for the auto-posting date of individual claim lines within an ERA.
9.01 PHARMACY CLAIM COMMENT 9;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<3) X
  • LAST EDITED:  FEB 26, 2014
  • HELP-PROMPT:  Answer must be 3-80 characters.
  • DESCRIPTION:  
    This field is informational and is to aid users in the processing of pharmacy claims.
10 AUTO-DECREASE DATE 5;6 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 06, 2014
  • HELP-PROMPT:  Enter the date on which this claim was auto-decreased.
  • DESCRIPTION:  
    This is the date on which the claim line was auto-decreased by the AR Nightly process.
  • CROSS-REFERENCE:  344.4^G
    1)= S ^RCY(344.4,"G",$E(X,1,30),DA(1),DA)=""
    2)= K ^RCY(344.4,"G",$E(X,1,30),DA(1),DA)
    This cross reference is for the auto-decrease date of individual claim lines within an ERA.
99 BILL REFERENCE NUMBER COMPUTED

  • MUMPS CODE:  S:'$G(DA(1)) DA(1)=+$G(D0),DA=+$G(D1) S X=$$GETBILL^RCDPESR0(.DA)
    9.2 = S Y(344.41,99,81)=$G(D1),Y(344.41,99,80)=$G(D0),Y(344.41,99,1)=$S($D(^RCY(344.4,D0,1,D1,0)):^(0),1:"")
    9.3 = X ^DD(344.41,99,9.2) S D0=$P(Y(344.41,99,1),U,2) S:'D0!'$D(^IBM(361.1,+D0,0)) D0=-1 S Y(344.41,99,101)=$S($D(^IBM(361.1,D0,0)):^(0),1:"")
    9.4 = X ^DD(344.41,99,9.3) S Y(344.41,99,102)=$G(X),D0=$P(Y(344.41,99,101),U,1) S:'D0!'$D(^DGCR(399,+D0,0)) D0=-1 S Y(344.41,99,201)=$S($D(^DGCR(399,D0,0)):^(0),1:"")
    9.5 = X ^DD(344.41,99,9.4) S D0=$P(Y(344.41,99,1),U,2) S:'D0!'$D(^IBM(361.1,+D0,0)) D0=-1 S Y(344.41,99,280)=$G(D0),Y(344.41,99,201)=$S($D(^IBM(361.1,D0,0)):^(0),1:"")
    9.6 = X ^DD(344.41,99,9.5) S Y(344.41,99,202)=$G(X),D0=$P(Y(344.41,99,201),U,1) S:'D0!'$D(^DGCR(399,+D0,0)) D0=-1 S Y(344.41,99,301)=$S($D(^DGCR(399,D0,0)):^(0),1:"")
  • ALGORITHM:  S:'$G(DA(1)) DA(1)=+$G(D0),DA=+$G(D1) S X=$$GETBILL^RCDPESR0(.DA)
  • LAST EDITED:  SEP 25, 2003
Info |  Details