Global: ^BAR(90052.06,7819,0)

FileMan FileNo	FileMan Filename	Package
90052.06	A/R SITE PARAMETER/IHS	IHS Accounts Receivable

Package	Total	Routines
IHS Accounts Receivable	17	BARDMAN BARDRST BARDYSCL BARRADJ BARRAMR BARRAOI BARRASM BARRASM2 BARRATS BARRNBRA BARRSYNC BARRTAR BARUFCAS BARUFSUP BARUFUT BARUFUT1 BARUFUT2

Package	Total	FileMan Files
IHS Accounts Receivable	3	A/R LETTERS & TEXT(#90052.03)[1705, 1707, 1709, 1711] A/R INSURER TYPE(#90053.03)[#90052.0603(.01)] A/R ACCOUNTS/IHS(#90050.02)[#90052.0601(.01), #90052.0602(.01)]
Kernel	1	STATE(#5)[1804]
Utility Tables	1	LOCATION(#9999999.06)[.01, 8]

Fields, Total: 75

Field #	Name	Loc	Type	Details
.01	RPMS SITE	0;1	POINTER TO LOCATION FILE (#9999999.06)	**********************REQUIRED FIELD********************** LOCATION(#9999999.06) INPUT TRANSFORM: `S DIC("S")="I DUZ(2)=+Y" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X` LAST EDITED: `NOV 09, 1994` DESCRIPTION: Remote pointer to the location file through the RPMS Site SCREEN: `S DIC("S")="I DUZ(2)=+Y"` EXPLANATION: `LIMIT ENTRY TO DUZ(2)` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `90052.06^B` 1)= S ^BAR(90052.06,DUZ(2),"B",$E(X,1,30),DA)="" 2)= K ^BAR(90052.06,DUZ(2),"B",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^90052.06^8` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BAR(90052.06,DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(90052.06,.01,1,2,1.1) X ^DD(90052.06,.01,1,2,1.4) 1.1)= S X=DIV X ^DD(90052.06,.01,1,2,49.3) S X=$S('$D(^DIC(4,+$P(Y(201),U,1),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) 1.4)= S DIH=$S($D(^BAR(90052.06,DUZ(2),DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=90052.06,DIG=8 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q 49.2)= S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTSITE(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=$S($D(^AUTTSITE(D0,0)):^(0),1:"") 49.3)= X ^DD(90052.06,.01,1,2,49.2) S D0=$P(Y(101),U,1) S:'$D(^AUTTLOC(+D0,0)) D0=-1 S Y(201)=$S($D(^AUTTLOC(D0,0)):^(0),1:"") CREATE VALUE)= #.01 DELETE VALUE)= NO EFFECT FIELD)= #8 Trigger into the standard field 8 for location CROSS-REFERENCE: `^^TRIGGER^90052.06^9` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BAR(90052.06,DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(90052.06,.01,1,3,1.1) X ^DD(90052.06,.01,1,3,1.4) 1.1)= S X=DIV X ^DD(90052.06,.01,1,3,49.2) S D0=$P(Y(101),U,1) S:'$D(^AUTTLOC(+D0,0)) D0=-1 S Y(201)=$S($D(^AUTTLOC(D0,0)):^(0),1:"") S X=$P(Y(201),U,10) S D0=I(0,0) 1.4)= S DIH=$S($D(^BAR(90052.06,DUZ(2),DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,9)=DIV,DIH=90052.06,DIG=9 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q 49.2)= S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTSITE(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=$S($D(^AUTTSITE(D0,0)):^(0),1:"") CREATE VALUE)= .01:.01:ASUFAC INDEX DELETE VALUE)= NO EFFECT FIELD)= #9
2	MULTIPLE 3P EOB LOCATIONS	0;2	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `NOV 02, 1994`
3	MULTIPLE FISCAL EOB LOCATIONS	0;3	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `NOV 02, 1994`
6	LAST BILL ADDED DATE	0;6	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 04, 1994`
6.07	YEAR(TODAY)		COMPUTED	MUMPS CODE: `S X=DT S X=X S:X X=($E(X,1,3)+1700)` ALGORITHM: `YEAR(TODAY)` LAST EDITED: `AUG 10, 1998`
6.5	LAST BILL ADDED YEAR		COMPUTED	MUMPS CODE: `S Y(90052.06,6.5,1)=$S($D(^BAR(90052.06,DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(90052.06,6.5,1),U,6) S:X X=($E(X,1,3)+1700)` ALGORITHM: `YEAR(#6)`
7	LAST BILL ADDED SEQUENCE	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 04, 1994` HELP-PROMPT: `Type a Number between 0 and 9999999999999, 0 Decimal Digits`
8	SITE LOCATION	0;8	POINTER TO LOCATION FILE (#9999999.06)	**********************REQUIRED FIELD********************** LOCATION(#9999999.06) LAST EDITED: `OCT 04, 1994` NOTES: `TRIGGERED by the RPMS SITE field of the A/R SITE PARAMETER/IHS File` CROSS-REFERENCE: `^^TRIGGER^90052.06^9` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BAR(90052.06,DUZ(2),D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(90052.06,8,1,1,1.1) X ^DD(90052.06,8,1,1,1.4) 1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTLOC(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTLOC(D0,0)):^(0),1:"") S X=$P(Y(101),U,10) S D0=I(0,0) 1.4)= S DIH=$S($D(^BAR(90052.06,DUZ(2),DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,9)=DIV,DIH=90052.06,DIG=9 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE VALUE)= #8:ASUFAC INDEX DELETE VALUE)= NO EFFECT FIELD)= #9
9	SITE ASUFAC	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 27, 1994` HELP-PROMPT: `Type a Number between 1 and 999999, 0 Decimal Digits` NOTES: `TRIGGERED by the RPMS SITE field of the A/R SITE PARAMETER/IHS File` TRIGGERED by the SITE LOCATION field of the A/R SITE PARAMETER/IHS File
11	USABLE	0;11	SET	**********************REQUIRED FIELD********************** '0' FOR NOT USABLE; '1' FOR USABLE; LAST EDITED: `AUG 23, 1995`
12	ACCEPT 3P BILLS	0;12	SET	'0' FOR DO NOT ACCEPT; '1' FOR ACCEPT; LAST EDITED: `FEB 24, 1999` DESCRIPTION: If this flag is set, bills from the RPMS Third Party Billing system will not upload to the A/R Bill file.
13	ROLL OVER DURING POSTING	0;13	SET	'Y' FOR YES; 'N' FOR NO; 'A' FOR ASK; LAST EDITED: `MAR 30, 1999`
14	SMALL BALANCE	0;14	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99)!(X<0) X` LAST EDITED: `AUG 28, 1998` HELP-PROMPT: `Type a Dollar Amount between 0 and 99, 2 Decimal Digits`
15	AWO EXPIRATION	0;15	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 06, 2001` HELP-PROMPT: `Enter date for Automatic Write-off menu option to expire.`
16	Location Type For Reports	0;16	SET	'B' FOR BILLING; 'V' FOR VISIT; LAST EDITED: `MAR 06, 2002` HELP-PROMPT: `Enter B to sort reports by Billing location (DUZ(2)), or V to sort them by Visit Location` DESCRIPTION: `This parameter was created in A/R V1.6 Patch 2 in order to obtain data by visit location or billing location (DUZ(2)). This became necessary for balancing the Period Summary Report to any of the others. In order to` balance, the value of this field must be "visit" . This parameter affects the "Select LOCATION" prompt. If the parameter is left blank it will be treated as though the user said "visit". If the parameter says billing location then the meaning of the prompt "Select LOCATION" on the following reports is DUZ(2) and not visit location: Age Detail Report Age Summary Report Bills Listing Report A/R Statistical Report Transaction Report
17	Default Path	0;17	FREE TEXT	INPUT TRANSFORM: `D ^BAR17IT` LAST EDITED: `MAR 12, 2002` HELP-PROMPT: `Answer must be 1-25 characters in length.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
100	EDI PAYER LIST	1;0	POINTER Multiple #90052.0601	90052.0601
201	EISS System	2;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>33!($L(X)<3) X` LAST EDITED: `JUL 31, 2003` HELP-PROMPT: `Answer must be 3-33 characters in length.` DESCRIPTION: Used for sending PSR and ASM Summary data to Web. TECHNICAL DESCR: Added in V1.7 Patch 2. This is the IP address to the ARMS Server. It must be a UNIX machine for XBGSAVE to work. The WEB Team will access the ARMS Server to retrieve the files.
202	EISS Username	2;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `JUL 31, 2003` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: This is the Username needed to access the remote system receiving the ASM and PSR data. TECHNICAL DESCR: Added V1.7 patch 2. This is the Username needed to access the ARMS Server.
203	EISS Password	2;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<8) X` LAST EDITED: `JUL 31, 2003` HELP-PROMPT: `Answer must be 8-20 characters in length.` DESCRIPTION: This is the password needed to access the remote system receiving the ASM and PSR data. TECHNICAL DESCR: Added V1.7 Patch 2. Password to ARMS Server.
204	EISS (local) path	2;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>33!($L(X)<3) X` LAST EDITED: `JUL 31, 2003` HELP-PROMPT: `Answer must be 3-33 characters in length.` DESCRIPTION: This is the directory (path name) on the local system that will hold the ASM and PSR summary data. TECHNICAL DESCR: Added V1.7 Patch 2. This is the local directory that will contain the ASM and PSR summary data file. It is these files that will be sent to the EISS System using the EISS Username and EISS Password.
1001	TSI INSURANCE CLIENT NUMBER	10;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<3) X` LAST EDITED: `APR 01, 2004` HELP-PROMPT: `Answer must be 3-10 characters in length.` DESCRIPTION: This is the client number assigned to the facility for sending collections letters to payers (insurance companies).
1002	MAXIMUM INSURANCE TRANSACTIONS	10;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 01, 2004` HELP-PROMPT: `Type a Number between 1 and 99999999, 0 Decimal Digits` DESCRIPTION: This number may be found w/in the facilities contract with Transworld. If the number of records sent to Transworld to date exceeds the number here, files will not get created for transmission to Transworld.
1003	INSURANCE TX'S TO DATE	10;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `APR 01, 2004` HELP-PROMPT: `Type a Number between 0 and 99999999, 0 Decimal Digits` DESCRIPTION: This keeps track of how many total transactions have been sent to Transworld.
1004	TSI SELF PAY CLIENT NUMBER	10;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<3) X` LAST EDITED: `APR 01, 2004` HELP-PROMPT: `Answer must be 3-10 characters in length.` DESCRIPTION: This is the client number assigned to the facility for sending collections letters to non beneficiary patients (self pay).
1005	MAXIMUM SELF PAY TRANSACTIONS	10;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `APR 01, 2004` HELP-PROMPT: `Type a Number between 0 and 99999999, 0 Decimal Digits` DESCRIPTION: `This number may be found w/in the facilities contract with Transworld. If the number of records sent to Transworld (for self pay) to date exceeds the number here, self pay start files will not get created for transmission` to Transworld.
1006	SELF PAY TX'S TO DATE	10;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `APR 01, 2004` HELP-PROMPT: `Type a Number between 0 and 99999999, 0 Decimal Digits` DESCRIPTION: This keeps track of how many total self pay transactions have been sent to Transworld.
1007	EXTRACT DIRECTORY	10;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `APR 01, 2004` HELP-PROMPT: `Answer must be 1-30 characters in length.`
1008	REPORT DIRECTORY	10;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>45!($L(X)<2) X` LAST EDITED: `APR 01, 2004` HELP-PROMPT: `Answer must be 2-45 characters in length.`
1101	MINIMUM PRINCIPLE AMOUNT	11;1	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>1000)!(X<10) X` LAST EDITED: `APR 01, 2004` HELP-PROMPT: `Type a Dollar Amount between 10 and 1000, 2 Decimal Digits`
1102	MINIMUM BILL AGE DAYS	11;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>180)!(X<30)!(X?.E1"."1N.N) X` LAST EDITED: `APR 01, 2004` HELP-PROMPT: `Type a Number between 30 and 180, 0 Decimal Digits`
1103	EARLIEST DOS ALLOWED	11;3	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 01, 2004`
1104	EARLIEST DATE TO SEARCH	11;4	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 01, 2004`
1105	LAST BEGIN DATE	11;5	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 01, 2004`
1106	LAST END DATE	11;6	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 01, 2004`
1107	RUN AUTO PROCESS?	11;7	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `APR 23, 2004` DESCRIPTION: `If question is answered yes, When the taskable menu option BAR DEBT COLLECTION AUTO runs, this parent facility will be auto processed. If the question is left blank or answered no, this parent facility will be by-passed` when the taskable menu option BAR DEBT COLLECTION AUTO is run.
1108	START DATE USED AUTO	11;8	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 23, 2004` DESCRIPTION: This value is the 3P Approval date you wish the Debt Collection Auto Mode to start with. The ending date will always be whatever todays date is minus the minimum age Debt Collection Site parameter.
1300	Debt Collectn Restrictd Payers	13;0	POINTER Multiple #90052.0602	90052.0602
1401	PAS SORTING ORDER	20;4	SET	'1' FOR BILLING LOC, ACCOUNT NUMBER; '2' FOR BILLING LOC, PATIENT NAME; LAST EDITED: `APR 16, 2013` HELP-PROMPT: `Select one option how Patient Statement should be sorted before printing` DESCRIPTION: Select one option how Patient Statement should be sorted before printing. EXECUTABLE HELP: `D HELP^BARMPAS`
1402	ALLOW ERA POSTING NEG BAL	20;5	SET	'Y' FOR YES; 'N' FOR NO; INPUT TRANSFORM: `I $$IHS^BARUFUT(DA) D EN^DDIOL("IHS SITES CANNOT EDIT THIS FIELD!",,) K X Q` LAST EDITED: `JAN 30, 2014` HELP-PROMPT: `Non-IHS sites: Enter Y if you want to allow ERA posting of neg. balances. Default value is NO.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1403	ALLOW ERA POSTING CANC. BILLS	20;6	SET	'Y' FOR YES; 'N' FOR NO; INPUT TRANSFORM: `I $$IHS^BARUFUT(DA) D EN^DDIOL("IHS SITES CANNOT EDIT THIS FIELD!",,) K X Q` LAST EDITED: `JAN 30, 2014` HELP-PROMPT: `Non-IHS sites: Enter Y if you want to allow posting of cancelled bills.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1501	UFMS DIRECTORY	15;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `APR 13, 2007` HELP-PROMPT: `Enter the non-public directory where UFMS files will be stored`
1502	UFMS SHUTDOWN FILE TRANSFER	15;2	SET	'1' FOR YES; '0' FOR NO; INPUT TRANSFORM: `I $$IHS^BARUFUT(DA) D EN^DDIOL("IHS SITES CANNOT EDIT THIS FIELD!",,) K X` LAST EDITED: `DEC 21, 2007` HELP-PROMPT: `ANSWER YES TO SHUTDOWN FTP FILE TRANSFER` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1503	UFMS SHUTDOWN SESSION LOGGING	15;3	SET	'1' FOR YES; '0' FOR NO; INPUT TRANSFORM: `I $$IHS^BARUFUT(DA) D EN^DDIOL("IHS SITES CANNOT EDIT THIS FIELD!",,) K X` LAST EDITED: `DEC 21, 2007` HELP-PROMPT: `ENTER YES TO SHUTDOWN SESSION LOGGING OF CASHIERING ACTIVITY` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `90052.06^ENABLE^MUMPS` 1)= S BARRC=$$OUTOFORD^BARUFUT1($G(Y(0)),"BAR UFMS CASHIERING MENU") K BARRC 2)= S BARRC=$$ENABLORD^BARUFUT1($G(Y(0)),"BAR UFMS CASHIERING MENU") K BARRC This cross reference sets no index. However it will place the menu outy of order when a yes is entered or enable it otherwise.
1504	UFMS DISPLAY DATE LIMIT	15;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X I $D(X) K:X'?1"T-".E X I $D(X) S %DT="" D ^%DT K:Y<0 X K %DT` LAST EDITED: `AUG 20, 2007` HELP-PROMPT: `T-1 (for YESTERDAY), T-3, T-3W (for 3 WEEKS AGO), etc. Use only past dates.` DESCRIPTION: SESSION IDs BEFORE THIS DATE WILL NOT BE DISPLAYED TO THE SUPERVISOR WHEN USING THE 'VIEW CASHIERING SESSION' OPTION NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1505	BOOKING DATE IN UFMS	15;5	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:3071001>X X` LAST EDITED: `MAY 07, 2008` HELP-PROMPT: `TYPE A DATE NOT EARLIER THAN OCT 01, 2007` AUDIT: `YES, ALWAYS`
1601	OMB DIRECTORY	16;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<3) X` LAST EDITED: `APR 21, 2009` HELP-PROMPT: `Enter the non-public directory where OMB files will be stored`
1701	DEBT LETTER START DATE	17;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:X<1 X` LAST EDITED: `JUL 06, 2012` HELP-PROMPT: `Will be compared to the 3P Approval Date to start debt letters`
1702	DEBT LETTER WRITE OFF	17;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>500)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 05, 2011` HELP-PROMPT: `Enter the Write Off amount for Debt. This will be the value used to print the Debt Write off report.`
1703	DEBT LETTER NPI	17;3	SET	'F' FOR FACILITY; 'P' FOR PROVIDER; 'N' FOR NONE; 'B' FOR BOTH FACILITY AND PROVIDER; LAST EDITED: `JUL 10, 2012` HELP-PROMPT: `Enter F to use the Facility NPI, P to use the Provider NPI, N to not print the NPI on the Debt Letters, or B for both facility and provider`
1704	DEPT LETTER PRINT DOB	17;4	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `MAY 05, 2011` HELP-PROMPT: `Enter Yes if you would like to print the insured's date of birth on the Debt Letter.`
1705	DEBT LETTER 1	17;5	POINTER TO A/R LETTERS & TEXT FILE (#90052.03)	**********************REQUIRED FIELD********************** A/R LETTERS & TEXT(#90052.03) LAST EDITED: `FEB 16, 2012` HELP-PROMPT: `Enter the Debt Letter that will be sent as the first notice for outstanding payment.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1706	DEBT LETTER 1 CYCLE	17;6	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<0)!(X?.E1"."1.N) X` LAST EDITED: `FEB 16, 2012` HELP-PROMPT: `Enter the number of days to wait to print the first Debt Letter.`
1707	DEBT LETTER 2	17;7	POINTER TO A/R LETTERS & TEXT FILE (#90052.03)	**********************REQUIRED FIELD********************** A/R LETTERS & TEXT(#90052.03) LAST EDITED: `FEB 16, 2012` HELP-PROMPT: `Enter the Debt letter that will be sent as the second notice for outstanding payment.`
1708	DEBT LETTER 2 CYCLE	17;8	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>200)!(X<0)!(X?.E1"."1.N) X` LAST EDITED: `FEB 16, 2012` HELP-PROMPT: `Enter the number of days to wait to print the second Debt Letter.`
1709	DEBT LETTER 3	17;9	POINTER TO A/R LETTERS & TEXT FILE (#90052.03)	**********************REQUIRED FIELD********************** A/R LETTERS & TEXT(#90052.03) LAST EDITED: `FEB 16, 2012` HELP-PROMPT: `Enter the Debt Letter that will be sent as the third notice for outstanding payment.`
1710	DEBT LETTER 3 CYCLE	17;10	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>300)!(X<0)!(X?.E1"."1.N) X` LAST EDITED: `FEB 16, 2012` HELP-PROMPT: `Enter the number of days to wait to print the third Debt Letter.`
1711	DEBT LETTER 4	17;11	POINTER TO A/R LETTERS & TEXT FILE (#90052.03)	**********************REQUIRED FIELD********************** A/R LETTERS & TEXT(#90052.03) LAST EDITED: `FEB 16, 2012` HELP-PROMPT: `Enter the letter that will be sent as the fourth notice for outstanding payment.`
1712	DEBT LETTER 4 CYCLE	17;12	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>500)!(X<0)!(X?.E1"."1.N) X` LAST EDITED: `FEB 16, 2012` HELP-PROMPT: `Enter the number of days to wait to print the forth Debt Letter.`
1713	DEBT LETTER SIG NAME	17;13	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>35!($L(X)<3) X` LAST EDITED: `FEB 16, 2012` HELP-PROMPT: `Enter the person's name who will be signing the Debt Letters.`
1714	DEBT LETTER SIG LINE 2	17;14	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `FEB 16, 2012` HELP-PROMPT: `Enter the Title of the person siging the Debt Letter.`
1715	DEBT LETTER SIG LINE 3	17;15	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `MAY 06, 2011` HELP-PROMPT: `Enter additional information for signature line under title`
1801	DEBT LETTER STREET 1	18;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `FEB 16, 2012` HELP-PROMPT: `Enter the return street address.`
1802	DEBT LETTER STREET 2	18;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `MAY 06, 2011` HELP-PROMPT: `Enter the return address line 2 for the address`
1803	DEBT LETTER ADD-CITY	18;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `FEB 16, 2012` HELP-PROMPT: `Enter the return city address.`
1804	DEBT LETTER ADD-ST	18;4	POINTER TO STATE FILE (#5)	**********************REQUIRED FIELD********************** STATE(#5) LAST EDITED: `FEB 16, 2012` HELP-PROMPT: `Enter the state for the return address`
1805	DEBT LETTER ADD-ZIP	18;5	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>10!($L(X)<5) X` LAST EDITED: `FEB 16, 2012` HELP-PROMPT: `Enter the Zip Code for the return address.`
1806	DEBT LETTER PHONE NO	18;6	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>13!($L(X)<10) X` LAST EDITED: `FEB 16, 2012` HELP-PROMPT: `Answer must be 10-13 characters in length`
1807	DEBT LETTER LAST RUN DATE	18;7	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:X<1 X` LAST EDITED: `MAY 23, 2011` HELP-PROMPT: `Enter the date the last bill search was completed. Will reset if new Accounts or Insurer types are added.` NOTES: `TRIGGERED by the DEBT LETTER INSURER TYPE field of the DEBT LETTER INSURER TYPE sub-field of the A/R SITE PARAMETER/IHS File`
1808	DEBT LETTER PRINT MAX #	18;8	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1.N) X` LAST EDITED: `FEB 16, 2012` HELP-PROMPT: `Enter a number between 0 and 1000, this will be the maximum number of letter to print each day.`
1809	DEBT LETTER TOP MARGIN	18;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>20)!(X<0)!(X?.E1"."1.N) X` LAST EDITED: `FEB 13, 2012` HELP-PROMPT: `Enter the additional number of line feeds for the top margin.`
1810	DEBT LETTER LEFT MARGIN	18;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>25)!(X<0)!(X?.E1"."1.N) X` LAST EDITED: `MAY 11, 2011` HELP-PROMPT: `Enter the additional number of spaces for the left margin.`
1900	DEBT LETTER INSURER TYPE	19;0	POINTER Multiple #90052.0603	90052.0603
1901	DEBT LETTER PRINT BILL DATE	20;1	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `MAY 22, 2013` DESCRIPTION: Enter Yes if you would like to print the bill date TECHNICAL DESCR: Enter Yes if you would like to print the bill date
1902	DEBT LETTER SORTING ORDER	20;2	SET	'C' FOR BY CYCLE; 'P' FOR BY POLICY HOLDER'S NAME; 'I' FOR BY INSURANCE NAME; LAST EDITED: `SEP 26, 2013` HELP-PROMPT: `Enter C to sort letters by Cycle, P by Policy Holder's name, I for Insurance name`

Name	Line Occurrences (* Changed, ! Killed)
^AUTTLOC - [#9999999.06]	.01(XREF 2n49.3), .01(XREF 3n1.1), 8(XREF 1n1.1)
^AUTTSITE - [#9999999.39]	.01(XREF 2n49.2), .01(XREF 3n49.2)
^BAR(90052.06	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4), 6.5+1, 8(XREF 1S), 8(XREF 1n1.4)
^DD(	.01(XREF 2n1.4), .01(XREF 3n1.4), 8(XREF 1n1.4)
^DD(90052.06	.01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n49.3), .01(XREF 3S), .01(XREF 3n1.1), 8(XREF 1S)
^DIC(4 - [#4]	.01(XREF 2n1.1)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	6+1, 15+1, 1103+1, 1104+1, 1105+1, 1106+1, 1108+1, 1504+1!, 1505+1, 1701+1 , 1807+1*
BARRC	1503(XREF 1S), 1503(XREF 1K)
>> D0	.01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n49.2), .01(XREF 2n49.3), .01(XREF 3S), .01(XREF 3n1.1), .01(XREF 3n49.2), 6.5+1, 8(XREF 1S), 8(XREF 1n1.1)
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 3S), 8(XREF 1S)
DIC	.01+1!*
DIC("S"	.01+1, .01SCR+1
>> DIE	.01+1
>> DIG	.01(XREF 2n1.4), .01(XREF 3n1.4), 8(XREF 1n1.4)
>> DIH	.01(XREF 2n1.4), .01(XREF 3n1.4), 8(XREF 1n1.4)
>> DINUM	.01+1*
>> DIU	.01(XREF 2S), .01(XREF 3S), 8(XREF 1S)
DIV	.01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4), .01(XREF 2n49.2), .01(XREF 3S), .01(XREF 3n1.1), .01(XREF 3n1.4), .01(XREF 3n49.2), 8(XREF 1S), 8(XREF 1n1.1) , 8(XREF 1n1.4)
DIV(0	.01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4), 8(XREF 1S), 8(XREF 1n1.4)
DT	6.07+1
DUZ(2	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4), 6.5+1, 8(XREF 1S), 8(XREF 1n1.4)
>> I(0	.01(XREF 2n1.1), .01(XREF 2n49.2), .01(XREF 3n1.1), .01(XREF 3n49.2), 8(XREF 1n1.1)
>> I(100	.01(XREF 2n49.2), .01(XREF 3n49.2)
U	.01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4), .01(XREF 2n49.3), .01(XREF 3S), .01(XREF 3n1.1), .01(XREF 3n1.4), 6.5+1, 8(XREF 1S), 8(XREF 1n1.1) , 8(XREF 1n1.4)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.1), .01(XREF 3n1.4), 6+1! , 6.07+1, 6.5+1, 7+1!, 8(XREF 1S), 8(XREF 1n1.1), 8(XREF 1n1.4), 9+1!, 14+1!, 15+1!, 201+1! , 202+1!, 203+1!, 204+1!, 1001+1!, 1002+1!, 1003+1!, 1004+1!, 1005+1!, 1006+1!, 1007+1! , 1008+1!, 1101+1!, 1102+1!, 1103+1!, 1104+1!, 1105+1!, 1106+1!, 1108+1!, 1501+1!, 1504+1! , 1505+1!, 1601+1!, 1701+1!, 1702+1!, 1706+1!, 1708+1!, 1710+1!, 1712+1!, 1713+1!, 1714+1! , 1715+1!, 1801+1!, 1802+1!, 1803+1!, 1805+1!, 1806+1!, 1807+1*!, 1808+1!, 1809+1!, 1810+1!
Y	.01+1, .01(XREF 2S), .01(XREF 3S), 6+1, 8(XREF 1S), 15+1, 1103+1, 1104+1, 1105+1, 1106+1 , 1108+1, 1504+1, 1505+1, 1701+1, 1807+1
Y(	6.5+1*
Y(0	1503(XREF 1S), 1503(XREF 1K)
Y(1	.01(XREF 2S), .01(XREF 3S), 8(XREF 1S)
Y(101	.01(XREF 2n49.2), .01(XREF 2n49.3), .01(XREF 3n1.1), .01(XREF 3n49.2), 8(XREF 1n1.1)
Y(201	.01(XREF 2n1.1), .01(XREF 2n49.3), .01(XREF 3n1.1)

Customize PDF page

Package: IHS Accounts Receivable

Global: ^BAR(90052.06,7819,0)

Information

Description

Accessed By FileMan Db Calls, Total: 17

Pointer To FileMan Files, Total: 5

Fields, Total: 75

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	6+1, 15+1, 1103+1, 1104+1, 1105+1, 1106+1, 1108+1, 1504+1, 1505+1, 1701+1 , 1807+1
^BAR17IT	17+1
HELP^BARMPAS	1401(HELP )
$$ENABLORD^BARUFUT1	1503(XREF 1K)
$$OUTOFORD^BARUFUT1	1503(XREF 1S)
^DIC	.01+1
^DICR	.01(XREF 2n1.4), .01(XREF 3n1.4), 8(XREF 1n1.4)