Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | Found Entries | All

Print Page as PDF

Global: ^BARDEBT

Package: IHS Accounts Receivable

Global: ^BARDEBT

Information

FileMan FileNo	FileMan Filename	Package
90050.05	A/R DEBT COLLECTION LOG	IHS Accounts Receivable

Description

Directly Accessed By Routines, Total: 5

Accessed By FileMan Db Calls, Total: 4

Pointer To FileMan Files, Total: 1

Fields, Total: 9

Field #	Name	Loc	Type	Details
.01	DATE LOGGED	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 07, 2004` CROSS-REFERENCE: `90050.05^B` 1)= S ^BARDEBT("B",$E(X,1,30),DA)="" 2)= K ^BARDEBT("B",$E(X,1,30),DA)
.02	AR BILL	0;2	POINTER TO A/R BILL/IHS FILE (#90050.01)	A/R BILL/IHS(#90050.01) LAST EDITED: `APR 07, 2004` CROSS-REFERENCE: `90050.05^C` 1)= S ^BARDEBT("C",$E(X,1,30),DA)="" 2)= K ^BARDEBT("C",$E(X,1,30),DA)
.03	AR BALANCE	0;3	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999999)!(X<-99999) X` LAST EDITED: `APR 07, 2004` HELP-PROMPT: `Type a Dollar Amount between -99999 and 99999999, 2 Decimal Digits`
.04	ACTION CODE	0;4	SET	'0' FOR STARTS; '1' FOR CANCEL; '2' FOR SUSPEND; '3' FOR RESERVED; '4' FOR RESERVED; '5' FOR PAID IN FULL; 'A' FOR ADJUSTMENT; LAST EDITED: `APR 07, 2004` CROSS-REFERENCE: `90050.05^AC` 1)= S ^BARDEBT("AC",$E(X,1,30),DA)="" 2)= K ^BARDEBT("AC",$E(X,1,30),DA)
.05	ACTIVE RECORD	0;5	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `APR 07, 2004` CROSS-REFERENCE: `90050.05^AD` 1)= S ^BARDEBT("AD",$E(X,1,30),DA)="" 2)= K ^BARDEBT("AD",$E(X,1,30),DA)
.06	DEBT CATEGORY	0;6	SET	'I' FOR INSURANCE; 'S' FOR SELF PAY; LAST EDITED: `APR 07, 2004`
.07	PAYER	0;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `APR 07, 2004` HELP-PROMPT: `Answer must be 1-30 characters in length.` CROSS-REFERENCE: `90050.05^AE` 1)= S ^BARDEBT("AE",$E(X,1,30),DA)="" 2)= K ^BARDEBT("AE",$E(X,1,30),DA)
.08	AR LOCATION	0;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 07, 2004` HELP-PROMPT: `Type a Number between 1 and 99999, 0 Decimal Digits`
.09	TRANSMISSION FILE NAME	0;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<3) X` LAST EDITED: `JUN 17, 2005` HELP-PROMPT: `Answer must be 3-50 characters in length.` CROSS-REFERENCE: `90050.05^D` 1)= S ^BARDEBT("D",$E(X,1,30),DA)="" 2)= K ^BARDEBT("D",$E(X,1,30),DA)

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | Found Entries | All