Global: ^BARPPAY(2906

FileMan FileNo	FileMan Filename	Package
90050.06	A/R PREPAYMENT	IHS Accounts Receivable

Package	Total	Routines
IHS Accounts Receivable	3	BARCLU BARPPY1A BARRPPS

Package	Total	FileMan Files
IHS Accounts Receivable	1	A/R COLLECTION BATCH/IHS(#90051.01)[#90051.1101(23)]

Package	Total	FileMan Files
IHS Accounts Receivable	2	A/R BILL/IHS(#90050.01)[.09] A/R COLLECTION BATCH/IHS(#90051.01)[.14]
IHS Patient	1	PATIENT(#9000001)[.08]
Kernel	1	NEW PERSON(#200)[.1, .17, #90050.06201(1)]
Scheduling	1	CLINIC STOP(#40.7)[.11]

Fields, Total: 21

Field #	Name	Loc	Type	Details
.01	RECEIPT NUMBER	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `SEP 09, 2010` HELP-PROMPT: `Answer must be 3-30 characters in length` DESCRIPTION: RECEIPT NUMBER IS SYSTEM GENERATED IN THE FORMAT: FACILITY SUFFIX FOLLOWED BY THE INTERNAL ENTRY NUMBER (IEN) OF THE A/R PREPAYMENT FILE. EXAMPLE: IF SUFFIX="IHS" AND IEN IS 99, THE RECEIPT NUMBER WOULD BE "IHS0000000099" DELETE AUTHORITY: @ WRITE AUTHORITY: @ CROSS-REFERENCE: `90050.06^B` 1)= S ^BARPPAY(DUZ(2),"B",$E(X,1,30),DA)="" 2)= K ^BARPPAY(DUZ(2),"B",$E(X,1,30),DA) RECORD INDEXES: `I (#240), J (#241), K (#242), L (#243)`
.02	PREPAYMENT DATE	0;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EST" D ^%DT S X=Y K:X<1 X` LAST EDITED: `SEP 09, 2010` HELP-PROMPT: `(No range limit on date)` DESCRIPTION: DATE THE PREPAYMENT WAS ENTERED INTO RPMS DELETE AUTHORITY: @ CROSS-REFERENCE: `90050.06^H` 1)= S ^BARPPAY(DUZ(2),"H",$E(X,1,30),DA)="" 2)= K ^BARPPAY(DUZ(2),"H",$E(X,1,30),DA) Cross reference the PAYMENT DATE for the Prepayment. This is the date the Prepayment was entered. RECORD INDEXES: `F (#239), I (#240), J (#241), K (#242), L (#243)`
.03	PAYMENT TYPE	0;3	SET	**********************REQUIRED FIELD********************** 'CA' FOR CASH; 'CK' FOR CHECK; 'CC' FOR CREDIT CARD; 'DB' FOR DEBIT CARD; LAST EDITED: `SEP 09, 2010` DELETE AUTHORITY: @ RECORD INDEXES: `D (#238), F (#239)`
.04	CHECK #	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `SEP 09, 2010` HELP-PROMPT: `Answer must be 3-30 characters in length` DESCRIPTION: CHECK # IS REQUIRED WHEN PAYMENT TYPE IS 'CHECK' DELETE AUTHORITY: @
.05	BANK ACCOUNT OWNER NAME	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `SEP 09, 2010` HELP-PROMPT: `Answer must be 3-30 characters in length` DESCRIPTION: IDENTIFIES WHO MADE THE PAYMENT OR WHOS NAME IS ON THE CHECK/CREDIT CARD/DEBIT CARD. DELETE AUTHORITY: @
.06	CARD TYPE	0;6	SET	'V' FOR VISA; 'M' FOR MASTERCARD; 'D' FOR DISCOVER; 'C' FOR DINERS CLUB; 'A' FOR AMERICAN EXPRESS; LAST EDITED: `SEP 09, 2010` DESCRIPTION: TYPE OF CREDIT CARD OR DEBIT CARD PRESENTED FOR PAYMENT DELETE AUTHORITY: @
.07	CREDIT	0;7	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999)!(X<-999999)!(X?.E1"."3.N) X` LAST EDITED: `SEP 09, 2010` HELP-PROMPT: `Type a Dollar amount between .01 and 999999, 2 Decimal Digits` DESCRIPTION: PAYMENT AMOUNT DELETE AUTHORITY: @ WRITE AUTHORITY: @ CROSS-REFERENCE: `^^TRIGGER^90050.06^.1` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BARPPAY(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=DUZ S DIH=$G(^BARPPAY(DUZ(2),DIV(0),0)),DIV=X S $P(^(0),U,10)=DIV,DIH=90050.06,DIG=.1 D ^DICR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BARPPAY(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X="" S DIH=$G(^BARPPAY(DUZ(2),DIV(0),0)),DIV=X S $P(^(0),U,10)=DIV,DIH=90050.06,DIG=.1 D ^DICR CREATE VALUE)= S X=DUZ DELETE VALUE)= S X="" FIELD)= ENTERED BY
.08	PATIENT	0;8	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) LAST EDITED: `SEP 09, 2010` HELP-PROMPT: `Select the PATIENT the Prepayment is for` DESCRIPTION: This is the PATIENT the Prepayment is for. DELETE AUTHORITY: @ CROSS-REFERENCE: `90050.06^E` 1)= S ^BARPPAY(DUZ(2),"E",$E(X,1,30),DA)="" 2)= K ^BARPPAY(DUZ(2),"E",$E(X,1,30),DA) RECORD INDEXES: `I (#240), J (#241), K (#242), L (#243)`
.09	A/R BILL	0;9	POINTER TO A/R BILL/IHS FILE (#90050.01)	A/R BILL/IHS(#90050.01) LAST EDITED: `SEP 09, 2010` DELETE AUTHORITY: @
.1	ENTERED BY	0;10	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `SEP 09, 2010` DESCRIPTION: USER WHO ENTERED THE PAYMENT DELETE AUTHORITY: @ WRITE AUTHORITY: @ NOTES: `TRIGGERED by the CREDIT field of the A/R PREPAYMENT File`
.11	DEPARTMENT	0;11	POINTER TO CLINIC STOP FILE (#40.7)	**********************REQUIRED FIELD********************** CLINIC STOP(#40.7) LAST EDITED: `SEP 09, 2010` DESCRIPTION: DEPARTMENT WHERE THE PAYMENT WAS MADE. I.E. THE DEPARTMENT OF THE USER ENTERING THE PAYMENT. DELETE AUTHORITY: @
.12	A/R BILL DOS	0;12	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:X<1 X` LAST EDITED: `SEP 09, 2010` HELP-PROMPT: `(No range limit on date)` DESCRIPTION: THE BEGIN DATE OF SERVICE FROM THE A/R BILL FILE DELETE AUTHORITY: @ CROSS-REFERENCE: `90050.06^G` 1)= S ^BARPPAY(DUZ(2),"G",$E(X,1,30),DA)="" 2)= K ^BARPPAY(DUZ(2),"G",$E(X,1,30),DA) Cross-reference the BILL DOS field. This is not the Date of Service associated with the A/R Bill but a Date of Service the user typed in when the Prepayment was received. RECORD INDEXES: `I (#240), J (#241), K (#242), L (#243)`
.13	PAYMENT FOR DOS	0;13	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:X<1 X` LAST EDITED: `SEP 09, 2010` HELP-PROMPT: `(No range limit on date)` DESCRIPTION: DATE OF SERVICE FOR WHICH THE PREPAYMENT IS INTENDED DELETE AUTHORITY: @
.14	BATCH	0;14	POINTER TO A/R COLLECTION BATCH/IHS FILE (#90051.01)	A/R COLLECTION BATCH/IHS(#90051.01) LAST EDITED: `SEP 09, 2010` DESCRIPTION: COLLECTION BATCH THE PREPAYMENT WAS ASSIGNED TO DELETE AUTHORITY: @ CROSS-REFERENCE: `^^TRIGGER^90050.06^.16` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BARPPAY(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(90050.06,.14,1,1,1.4) 1.4)= S DIH=$G(^BARPPAY(DUZ(2),DIV(0),0)),DIV=X S $P(^(0),U,16)=DIV,DIH=90050.06,DIG=.16 D ^DICR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BARPPAY(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="" S DIH=$G(^BARPPAY(DUZ(2),DIV(0),0)),DIV=X S $P(^(0),U,16)=DIV,DIH=90050.06,DIG=.16 D ^DICR CREATE VALUE)= NOW DELETE VALUE)= S X="" FIELD)= ASSIGNED TO BATCH DT CROSS-REFERENCE: `^^TRIGGER^90050.06^.17` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BARPPAY(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=DUZ S DIH=$G(^BARPPAY(DUZ(2),DIV(0),0)),DIV=X S $P(^(0),U,17)=DIV,DIH=90050.06,DIG=.17 D ^DICR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BARPPAY(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X="" S DIH=$G(^BARPPAY(DUZ(2),DIV(0),0)),DIV=X S $P(^(0),U,17)=DIV,DIH=90050.06,DIG=.17 D ^DICR CREATE VALUE)= S X=DUZ DELETE VALUE)= S X="" FIELD)= ASSIGNED TO BATCH BY U CROSS-REFERENCE: `^^TRIGGER^90050.06^.18` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BARPPAY(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X=DIV S X=$$BFLAG^BARCLU(DA) X ^DD(90050.06,.14,1,3,1.4) 1.4)= S DIH=$G(^BARPPAY(DUZ(2),DIV(0),0)),DIV=X S $P(^(0),U,18)=DIV,DIH=90050.06,DIG=.18 D ^DICR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BARPPAY(DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X=DIV S X=$$BFLAG^BARCLU(DA) X ^DD(90050.06,.14,1,3,2.4) 2.4)= S DIH=$G(^BARPPAY(DUZ(2),DIV(0),0)),DIV=X S $P(^(0),U,18)=DIV,DIH=90050.06,DIG=.18 D ^DICR CREATE VALUE)= S X=$$BFLAG^BARCLU(DA) DELETE VALUE)= S X=$$BFLAG^BARCLU(DA) FIELD)= BATCH FLAG
.15	ITEM	0;15	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1.N) X` LAST EDITED: `SEP 09, 2010` HELP-PROMPT: `Type a number between 1 and 999, 0 Decimal Digits` DESCRIPTION: COLLECTION BATCH ITEM THE PREPAYMENT WAS ASSIGNED TO DELETE AUTHORITY: @
.16	ASSIGNED TO BATCH DT/TM	0;16	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `SEP 09, 2010` HELP-PROMPT: `(No range limit on date)` DESCRIPTION: DATE/TIME PREPAYMENT WAS ASSIGNED TO COLLECTION BATCH/ITEM NOTES: `TRIGGERED by the BATCH field of the A/R PREPAYMENT File`
.17	ASSIGNED TO BATCH BY USER	0;17	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `SEP 09, 2010` DESCRIPTION: USER WHO ASSIGNED CO-PAY TO COLLECTION BATCH/ITEM DELETE AUTHORITY: @ NOTES: `TRIGGERED by the BATCH field of the A/R PREPAYMENT File`
.18	BATCH FLAG	0;18	SET	'A' FOR ASSIGNED TO BATCH; 'N' FOR NOT ASSIGNED TO BATCH; LAST EDITED: `SEP 09, 2010` HELP-PROMPT: `Answer must be 1-3 characters in length` DESCRIPTION: IDENTIFIES BATCHES THAT HAVE NOT BEEN ASSIGNED A BATCH DELETE AUTHORITY: @ NOTES: `TRIGGERED by the BATCH field of the A/R PREPAYMENT File` CROSS-REFERENCE: `90050.06^C` 1)= S ^BARPPAY(DUZ(2),"C",$E(X,1,30),DA)="" 2)= K ^BARPPAY(DUZ(2),"C",$E(X,1,30),DA) RECORD INDEXES: `D (#238), F (#239)`
.19	RECEIPT PRINT DATE	0;19	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `SEP 09, 2010` HELP-PROMPT: `(No range limit on date)` DESCRIPTION: DATE/TIME INITIAL RECEIPT PRINTED DELETE AUTHORITY: @
.2	COMMENTS	1;0	WORD-PROCESSING #90050.07
201	RECEIPT PRINT DATE (multiple)	2;0	DATE Multiple #90050.06201	90050.06201

Customize PDF page

Package: IHS Accounts Receivable

Global: ^BARPPAY(2906

Information

Description

Accessed By FileMan Db Calls, Total: 3

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 5

Fields, Total: 21