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: ^BAR(90052

Package: IHS Accounts Receivable

Global: ^BAR(90052

Information

FileMan FileNo	FileMan Filename	Package
90052	A/R PRINTED LETTERS	IHS Accounts Receivable

Description

Directly Accessed By Routines, Total: 2

Accessed By FileMan Db Calls, Total: 1

Pointer To FileMan Files, Total: 6

Fields, Total: 11

Field #	Name	Loc	Type	Details
.01	DATE/TIME PRINTED	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:X<1 X S DINUM=X` LAST EDITED: `OCT 18, 2007` HELP-PROMPT: `(No range limit on date)` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `90052^B` 1)= S ^BAR(90052,"B",$E(X,1,30),DA)="" 2)= K ^BAR(90052,"B",$E(X,1,30),DA)
.02	USER	0;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `OCT 18, 2007` CROSS-REFERENCE: `90052^C` 1)= S ^BAR(90052,"C",$E(X,1,30),DA)="" 2)= K ^BAR(90052,"C",$E(X,1,30),DA)
.03	USERS FACILITY	0;3	POINTER TO LOCATION FILE (#9999999.06)	LOCATION(#9999999.06) LAST EDITED: `OCT 18, 2007`
.04	AMOUNT	0;4	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999999)!(X<0)!(X?.E1"."3.N) X` LAST EDITED: `OCT 18, 2007` HELP-PROMPT: `Type a Dollar amount between 0 and 999999999999, 2 Decimal Digits`
.05	COLLECTION BATCH	0;5	POINTER TO A/R COLLECTION BATCH/IHS FILE (#90051.01)	A/R COLLECTION BATCH/IHS(#90051.01) LAST EDITED: `OCT 18, 2007` CROSS-REFERENCE: `90052^D` 1)= S ^BAR(90052,"D",$E(X,1,30),DA)="" 2)= K ^BAR(90052,"D",$E(X,1,30),DA)
.06	CHECK NUMBER	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `OCT 18, 2007` HELP-PROMPT: `Answer must be 3-30 characters in length`
.07	TREASURY DEPOSIT NUMBER/IPAC	0;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `OCT 18, 2007` HELP-PROMPT: `Answer must be 3-20 characters in length` CROSS-REFERENCE: `90052^E` 1)= S ^BAR(90052,"E",$E(X,1,30),DA)="" 2)= K ^BAR(90052,"E",$E(X,1,30),DA)
.08	A/R ACCOUNT	0;8	POINTER TO A/R ACCOUNTS/IHS FILE (#90050.02)	A/R ACCOUNTS/IHS(#90050.02) LAST EDITED: `OCT 18, 2007`
.09	TYPE OF LETTER	0;9	POINTER TO A/R LETTERS & TEXT FILE (#90052.03)	A/R LETTERS & TEXT(#90052.03) LAST EDITED: `OCT 18, 2007`
.11	TYPE OF REIMBURSEMENT	0;11	POINTER TO A/R TABLE ENTRY/IHS FILE (#90052.02)	A/R TABLE ENTRY/IHS(#90052.02) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)=23" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` LAST EDITED: `OCT 18, 2007` DESCRIPTION: THIS FIELD WILL BE POPULATED ONY IF IT IS UNBILLED REIMBURSEMENT LETTER SCREEN: `S DIC("S")="I $P(^(0),U,2)=23"` EXPLANATION: `ONLY REIMBURSEMENT TYPES ALLOWED`
.12	ADJUSTMENT TYPE	0;12	POINTER TO A/R TABLE ENTRY/IHS FILE (#90052.02)	A/R TABLE ENTRY/IHS(#90052.02) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)=19" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` LAST EDITED: `OCT 18, 2007` DESCRIPTION: THIS WILL BE POPULATED ONLY IF IT A REFUND LETTER SCREEN: `S DIC("S")="I $P(^(0),U,2)=19"` EXPLANATION: `ONLY TABLE TYPE OF 'REFUND'`

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