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: 90051.1101

Package: IHS Accounts Receivable

A/R COLLECTION BATCH/IHS(#90051.01)-->90051.1101

Sub-Field: 90051.1101


Information

Parent File Name Number Package
A/R COLLECTION BATCH/IHS(#90051.01) ITEM(S) 90051.1101 IHS Accounts Receivable

Details

Field # Name Loc Type Details
.001 NUMBER NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 23, 1996
  • HELP-PROMPT:  Type a Number between 1 and 9999999999, 0 Decimal Digits
.01 ITEM NUMBER 0;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X
  • LAST EDITED:  OCT 18, 1994
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  90051.1101^B
    1)= S ^BARCOL(DUZ(2),DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^BARCOL(DUZ(2),DA(1),1,"B",$E(X,1,30),DA)
2 PAYMENT TYPE 0;2 POINTER TO A/R TABLE ENTRY/IHS FILE (#90052.02)
************************REQUIRED FIELD************************
A/R TABLE ENTRY/IHS(#90052.02)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,3)=""PAYTYP""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 09, 1995
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)=""PAYTYP"""
  • EXPLANATION:  LIMIT TO PAYMENT TYPES
2.5 SYNONYM OF PAY TYPE COMPUTED

  • MUMPS CODE:  X ^DD(90051.1101,2.5,9.3) S X=$P(Y(90051.1101,2.5,101),U,6) S D0=Y(90051.1101,2.5,80) S D1=Y(90051.1101,2.5,81)
    9.2 = S Y(90051.1101,2.5,81)=$S($D(D1):D1,1:""),Y(90051.1101,2.5,80)=$S($D(D0):D0,1:""),Y(90051.1101,2.5,1)=$S($D(^BARCOL(DUZ(2),D0,1,D1,0)):^(0),1:"")
    9.3 = X ^DD(90051.1101,2.5,9.2) S D0=$P(Y(90051.1101,2.5,1),U,2) S:'$D(^BARTBL(+D0,0)) D0=-1 S Y(90051.1101,2.5,101)=$S($D(^BARTBL(D0,0)):^(0),1:"")
  • ALGORITHM:  #2:#6
  • LAST EDITED:  DEC 09, 1994
3 DATE/TIME STAMP 0;3 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 29, 1994
4 USER 0;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 29, 1994
5 PATIENT 0;6 POINTER TO PATIENT FILE (#9000001) PATIENT(#9000001)

  • LAST EDITED:  SEP 29, 1994
  • NOTES:  TRIGGERED by the BILL field of the ITEM(S) sub-field of the A/R COLLECTION BATCH/IHS File
6 BILL 1;6 POINTER TO A/R BILL/IHS FILE (#90050.01) A/R BILL/IHS(#90050.01)

  • LAST EDITED:  MAY 08, 1996
  • CROSS-REFERENCE:  ^^TRIGGER^90051.1101^7
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BARCOL(DUZ(2),D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(90051.1101,6,1,1,1.1) X ^DD(90051.1101,6,1,1,1.4)
    1.1)= S X=DIV X ^DD(90051.1101,6,1,1,49.2) S X=X S X=X S D0=I(0,0) S D1=I(1,0)
    1.4)= S DIH=$S($D(^BARCOL(DUZ(2),DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=90051.1101,DIG=7 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    49.2)= S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^BARBL(DUZ(2),+D0,0)) D0=-1 S Y(101)=$S($D(^BARBL(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(101),U,3)
    CREATE VALUE)= INTERNAL(#6:#3)
    DELETE VALUE)= NO EFFECT
    FIELD)= #7
  • CROSS-REFERENCE:  ^^TRIGGER^90051.1101^8
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BARCOL(DUZ(2),D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(90051.1101,6,1,2,1.1) X ^DD(90051.1101,6,1,2,1.4)
    1.1)= S X=DIV X ^DD(90051.1101,6,1,2,49.4) S X=$S('$D(^DIC(4,+$P(Y(301),U,1),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(1,0)
    1.4)= S DIH=$S($D(^BARCOL(DUZ(2),DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=90051.1101,DIG=8 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    49.2)= S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^BARBL(DUZ(2),+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=$S($D(^BARBL(DUZ(2),D0,1)):^(1),1:"")
    49.3)= X ^DD(90051.1101,6,1,2,49.2) S D0=$P(Y(101),U,8) S:'$D(^BAR(90052.05,DUZ(2),+D0,0)) D0=-1 S I(200,0)=$S($D(D0):D0,1:""),Y(201)=$S($D(^BAR(90052.05,DUZ(2),D0,0)):^(0),1:"")
    49.4)= X ^DD(90051.1101,6,1,2,49.3) S D0=$P(Y(201),U,1) S:'$D(^AUTTLOC(+D0,0)) D0=-1 S Y(301)=$S($D(^AUTTLOC(D0,0)):^(0),1:"")
    CREATE VALUE)= #6:#108
    DELETE VALUE)= NO EFFECT
    FIELD)= #8
  • CROSS-REFERENCE:  ^^TRIGGER^90051.1101^5
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BARCOL(DUZ(2),D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(90051.1101,6,1,3,1.1) X ^DD(90051.1101,6,1,3,1.4)
    1.1)= S X=DIV X ^DD(90051.1101,6,1,3,49.3) S X=$S('$D(^DPT(+$P(Y(201),U,1),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(1,0)
    1.4)= S DIH=$S($D(^BARCOL(DUZ(2),DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=90051.1101,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    49.2)= S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^BARBL(DUZ(2),+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=$S($D(^BARBL(DUZ(2),D0,1)):^(1),1:"")
    49.3)= X ^DD(90051.1101,6,1,3,49.2) S D0=$P(Y(101),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1 S Y(201)=$S($D(^AUPNPAT(D0,0)):^(0),1:"")
    CREATE VALUE)= #6:#101
    DELETE VALUE)= NO EFFECT
    FIELD)= #5
  • CROSS-REFERENCE:  ^^TRIGGER^90051.1101^201
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BARCOL(DUZ(2),D0,1,D1,2)):^(2),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(90051.1101,6,1,4,1.1) X ^DD(90051.1101,6,1,4,1.4)
    1.1)= S X=DIV X ^DD(90051.1101,6,1,4,49.4) S D1=I(1,0)
    1.4)= S DIH=$S($D(^BARCOL(DUZ(2),DIV(0),1,DIV(1),2)):^(2),1:""),DIV=X S $P(^(2),U,1)=DIV,DIH=90051.1101,DIG=201 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    49.2)= S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^BARBL(DUZ(2),+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=$S($D(^BARBL(DUZ(2),D0,0)):^(0),1:"")
    49.3)= X ^DD(90051.1101,6,1,4,49.2) S D0=$P(Y(101),U,3) S:'$D(^BARAC(DUZ(2),+D0,0)) D0=-1 S Y(201)=$S($D(^BARAC(DUZ(2),D0,0)):^(0),1:"")
    49.4)= X ^DD(90051.1101,6,1,4,49.3) S X=$P(Y(201),U,1),C=$S(X="":-1,'$D(@(U_$P(X,";",2)_"0)")):-1,1:$P(^(0),U,2)),X=$S(X="":X,'$D(^(+X,0)):"",1:$P(^(0),U,1)),Y=X,C=$S($D(^DD(+C,.01,0)):$P(^(0),U,2),1:"D") D:X]"" Y^DIQ:C'["
    D" S X=Y,C="," S D0=I(0,0)
    CREATE VALUE)= #6:#3
    DELETE VALUE)= NO EFFECT
    FIELD)= #201
7 A/R ACCOUNT 0;7 POINTER TO A/R ACCOUNTS/IHS FILE (#90050.02)
************************REQUIRED FIELD************************
A/R ACCOUNTS/IHS(#90050.02)

  • INPUT TRANSFORM:  S DIC("S")="I $E($$VAL^XBDIQ1(90050.02,+Y,2))=""B""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 24, 2018
  • SCREEN:  S DIC("S")="I $E($$VAL^XBDIQ1(90050.02,+Y,2))=""B"""
  • EXPLANATION:  LIMIT CREDIT TO BILLABLE ACCOUNTS
  • AUDIT:  EDITED OR DELETED
  • NOTES:  TRIGGERED by the BILL field of the ITEM(S) sub-field of the A/R COLLECTION BATCH/IHS File
  • CROSS-REFERENCE:  ^^TRIGGER^90051.1101^201
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BARCOL(DUZ(2),D0,1,D1,2)):^(2),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(90051.1101,7,1,1,1.1) X ^DD(90051.1101,7,1,1,1.4)
    1.1)= S X=DIV X ^DD(90051.1101,7,1,1,49.3) S D1=I(1,0)
    1.4)= S DIH=$S($D(^BARCOL(DUZ(2),DIV(0),1,DIV(1),2)):^(2),1:""),DIV=X S $P(^(2),U,1)=DIV,DIH=90051.1101,DIG=201 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    49.2)= S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^BARAC(DUZ(2),+D0,0)) D0=-1 S Y(101)=$S($D(^BARAC(DUZ(2),D0,0)):^(0),1:"")
    49.3)= X ^DD(90051.1101,7,1,1,49.2) S X=$P(Y(101),U,1),C=$S(X="":-1,'$D(@(U_$P(X,";",2)_"0)")):-1,1:$P(^(0),U,2)),X=$S(X="":X,'$D(^(+X,0)):"",1:$P(^(0),U,1)),Y=X,C=$S($D(^DD(+C,.01,0)):$P(^(0),U,2),1:"D") D:X]"" Y^DIQ:C'["
    D" S X=Y,C="," S D0=I(0,0)
    CREATE VALUE)= #7
    DELETE VALUE)= NO EFFECT
    FIELD)= #201
  • CROSS-REFERENCE:  90051.1101^D
    1)= S ^BARCOL(DUZ(2),DA(1),1,"D",$E(X,1,30),DA)=""
    2)= K ^BARCOL(DUZ(2),DA(1),1,"D",$E(X,1,30),DA)
8 VISIT LOCATION 0;8 POINTER ** TO AN UNDEFINED FILE **
************************REQUIRED FIELD************************

  • LAST EDITED:  DEC 06, 1994
  • NOTES:  TRIGGERED by the BILL field of the ITEM(S) sub-field of the A/R COLLECTION BATCH/IHS File
9 ASUFAC 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 28, 1994
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
10 INPAT/OUTPAT 0;10 SET
  • 'I' FOR INPATIENT;
  • 'O' FOR OUTPATIENT;

  • LAST EDITED:  OCT 13, 1994
11 CHECK NUMBER 0;11 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  MAY 24, 2018
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • AUDIT:  EDITED OR DELETED
  • CROSS-REFERENCE:  90051.1101^C
    1)= S ^BARCOL(DUZ(2),DA(1),1,"C",$E(X,1,30),DA)=""
    2)= K ^BARCOL(DUZ(2),DA(1),1,"C",$E(X,1,30),DA)
  • CROSS-REFERENCE:  90051.01^D
    1)= S ^BARCOL(DUZ(2),"D",$E(X,1,30),DA(1),DA)=""
    2)= K ^BARCOL(DUZ(2),"D",$E(X,1,30),DA(1),DA)
12 CHECK BANK NUMBER 0;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  SEP 29, 1994
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
13 CREDIT CARD NUMBER 0;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  SEP 29, 1994
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
14 CREDIT CARD VERIFICATION 0;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  SEP 29, 1994
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
15 REFUND APPROVAL BY: 0;15 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 12, 1994
16 AUTO PRINT RECEIPT 0;16 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  OCT 13, 1994
17 ITEM STATUS 0;17 SET
  • 'C' FOR CANCELED;
  • 'R' FOR ROLLED UP;
  • 'E' FOR EOB WITH SUBS;

  • LAST EDITED:  OCT 14, 1994
18 ITEM POSTING TOTAL COMPUTED

  • MUMPS CODE:  S X=$$ITT^BARCBC(D0,D1,"PAYMENT")
  • ALGORITHM:  S X=$$ITT^BARCBC(D0,D1,"PAYMENT")
  • LAST EDITED:  JUN 05, 2008
19 ITEM POSTING BALANCE COMPUTED

  • MUMPS CODE:  X ^DD(90051.1101,19,9.3) S X=Y(90051.1101,19,1)-Y(90051.1101,19,2)+Y(90051.1101,19,3)+Y(90051.1101,19,4)
    9.2 = X "N I,Y "_$P(^DD(90051.1101,18,0),U,5,99) S Y(90051.1101,19,2)=X X "N I,Y "_$P(^DD(90051.1101,21,0),U,5,99) S Y(90051.1101,19,3)=X
    9.3 = X ^DD(90051.1101,19,9.2) X "N I,Y "_$P(^DD(90051.1101,22,0),U,5,99) S Y(90051.1101,19,4)=X X "N I,Y "_$P(^DD(90051.1101,104,0),U,5,99) S Y(90051.1101,19,1)=X
  • ALGORITHM:  #104-#18+#21+#22
  • LAST EDITED:  JUL 19, 2007
20 TREASURY DEPOSIT NUMBER/IPAC 0;20 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:'$$GOODIPAC^BARUFEX3(X) X
  • OUTPUT TRANSFORM:  S:Y'="" Y=$$ITEM^BARUFTDN(Y,D0,D1)
  • LAST EDITED:  MAY 24, 2018
  • HELP-PROMPT:  Enter a 6-20 character Treasury Deposit Number/IPAC or PRE-UFMS_COLLECTIONS or NONPAYMENT
  • AUDIT:  EDITED OR DELETED
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  90051.01^F
    1)= S ^BARCOL(DUZ(2),"F",$E(X,1,30),DA(1),DA)=""
    2)= K ^BARCOL(DUZ(2),"F",$E(X,1,30),DA(1),DA)
21 ITEM TOTAL REIMBURSEMENTS COMPUTED

  • MUMPS CODE:  S X=$$ITTREIM^BARCBC(D0,D1)
  • ALGORITHM:  S X=$$ITTREIM^BARCBC(D0,D1)
  • LAST EDITED:  JUL 17, 2007
22 ITEM TOTAL TRANSFER COMPUTED

  • MUMPS CODE:  S X=$$ITT^BARCBC(D0,D1,560)
  • ALGORITHM:  S X=$$ITT^BARCBC(D0,D1,560)
  • LAST EDITED:  JUL 19, 2007
  • TECHNICAL DESCR:  
    ADD TOTAL AMOPUNT FOR THE TRANSACTIONS TYPES OF 'TRANSFER' ASSOCIATED WITH THIS ITEM
23 PREPAYMENT RECEIPT # 0;23 POINTER TO A/R PREPAYMENT FILE (#90050.06) A/R PREPAYMENT(#90050.06)

  • LAST EDITED:  JUL 12, 2010
101 CREDIT 1;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  MAY 24, 2018
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
  • AUDIT:  EDITED OR DELETED
102 DEBIT 1;2 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<0) X
  • LAST EDITED:  MAY 24, 2018
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits
102.5 CREDIT-DEBIT COMPUTED

  • MUMPS CODE:  S Y(90051.1101,102.5,1)=$S($D(^BARCOL(DUZ(2),D0,1,D1,1)):^(1),1:"") S X=$P(Y(90051.1101,102.5,1),U,1)-$P(Y(90051.1101,102.5,1),U,2) S X=$J(X,0,2)
  • ALGORITHM:  #101-#102 (ALWAYS 2 DECIMAL DIGITS)
103 ITEM UNDISTRIBUTED 1;3 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<0) X
  • LAST EDITED:  MAY 24, 2018
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits
104 POSTABLE AMOUNT COMPUTED

  • MUMPS CODE:  X ^DD(90051.1101,104,9.3) S X=X-Y(90051.1101,104,2)-Y(90051.1101,104,3)
    9.2 = X $P(^DD(90051.1101,105,0),U,5,99) S Y(90051.1101,104,2)=X X $P(^DD(90051.1101,106,0),U,5,99) S Y(90051.1101,104,3)=X
    9.3 = X ^DD(90051.1101,104,9.2) S Y(90051.1101,104,1)=$S($D(^BARCOL(DUZ(2),D0,1,D1,1)):^(1),1:"") S X=$P(Y(90051.1101,104,1),U,1)-$P(Y(90051.1101,104,1),U,3)
  • ALGORITHM:  #101-#103-#105-#106
  • LAST EDITED:  NOV 03, 1998
105 ITEM UNALLOCATED COMPUTED

  • MUMPS CODE:  S BAR23=1,X=$$ITT^BARCBC(D0,D1,"UN-ALLOCATED") K BAR23
  • ALGORITHM:  S BAR23=1,X=$$ITT^BARCBC(D0,D1,"UN-ALLOCATED") K BAR23
  • LAST EDITED:  MAY 28, 2002
  • TECHNICAL DESCR:  
    Modified expression to only account for un-allocated transactions that are not resolved.  Sent to field in A/R V1.6 Patch 2.
105.5 ITEM TOTAL UNALLOCATED COMPUTED

  • MUMPS CODE:  S X=$$ITT^BARCBC(D0,D1,"UN-ALLOCATED")
  • ALGORITHM:  S X=$$ITT^BARCBC(D0,D1,"UN-ALLOCATED")
  • LAST EDITED:  JUN 11, 2008
106 ITEM REFUNDED COMPUTED

  • MUMPS CODE:  S X=$$ITT^BARCBC(D0,D1,"REFUND")*-1
  • ALGORITHM:  S X=$$ITT^BARCBC(D0,D1,"REFUND")*-1
  • LAST EDITED:  JUL 23, 2008
107 PUC Message 7;0 WORD-PROCESSING #90051.1101107

  • LAST EDITED:  FEB 11, 2010
  • DESCRIPTION:  
    PUC Message to optionally print on Refund Letter.
  • TECHNICAL DESCR:  
    PUC Message.  2/12/10 per Adrian.  PKD:BAR*1.8.17
201 PAYOR 2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  NOV 03, 1994
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • NOTES:  TRIGGERED by the BILL field of the ITEM(S) sub-field of the A/R COLLECTION BATCH/IHS File
    TRIGGERED by the A/R ACCOUNT field of the ITEM(S) sub-field of the A/R COLLECTION BATCH/IHS File
202 SUB EOB TOTAL COMPUTED

  • MUMPS CODE:  S X=$$SET^BARCBC(D0,D1)
  • ALGORITHM:  S X=$$SET^BARCBC(D0,D1)
202.5 SUB EOB BALANCE COMPUTED

  • MUMPS CODE:  X ^DD(90051.1101,202.5,9.2) S X=X-Y(90051.1101,202.5,2)
    9.2 = X $P(^DD(90051.1101,202,0),U,5,99) S Y(90051.1101,202.5,2)=X S Y(90051.1101,202.5,1)=$S($D(^BARCOL(DUZ(2),D0,1,D1,1)):^(1),1:"") S X=$P(Y(90051.1101,202.5,1),U,1)
  • ALGORITHM:  #101-#202
  • LAST EDITED:  OCT 09, 1998
203 GENERAL LEDGER ACCOUNT 2;3 POINTER TO A/R ACCOUNTS/IHS FILE (#90050.02) A/R ACCOUNTS/IHS(#90050.02)

  • INPUT TRANSFORM:  S DIC("S")="I $E($$VAL^XBDIQ1(90050.02,+Y,2))=""F""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 03, 1995
  • SCREEN:  S DIC("S")="I $E($$VAL^XBDIQ1(90050.02,+Y,2))=""F"""
  • EXPLANATION:  LIMIT TO FINANCIAL ENTRIES (GENERAL LEDGER)
301 COMMENTS 3;0 WORD-PROCESSING #90051.1101301
401 ERROR TYPE 4;1 POINTER TO A/R TABLE TYPE/IHS FILE (#90052.01) A/R TABLE TYPE/IHS(#90052.01)

  • INPUT TRANSFORM:  I $P(^(0),U,3)="BTER" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 29, 1994
  • SCREEN:  I $P(^(0),U,3)="BTER"
  • EXPLANATION:  ONLY BATCH ERRORS LOOKED UP IN STANDARD TABLES.
402 EDITED BY USER 4;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 29, 1994
403 EDITED DATE/TIME 4;3 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 29, 1994
404 ROLLED UP TO RECEIPT 4;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 21, 1994
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
405 ROLLED UP FROM RECEIPT 4;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 21, 1994
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
501 ERROR COMMENTS 5;0 WORD-PROCESSING #90051.1101501
601 SUB EOB(S) 6;0 POINTER Multiple #90051.1101601 90051.1101601
1101 ITEM AUDIT 1101;0 DATE Multiple #90051.11011101 90051.11011101
Info |  Details |  All