Global: ^PRC(442.7

FileMan FileNo	FileMan Filename	Package
442.7	ADMINISTRATIVE CERTIFICATIONS	IFCAP

FileMan FileNo

FileMan Filename

Package

442.7

ADMINISTRATIVE CERTIFICATIONS

This file contains a listing of pre-set clauses used on purchase order. The file is initially sent with data, but each station can then edit or add their own clauses. Once a clause is entered to this file, the Purchasing or PPM agent can then copy the clause into any Purchase Order or Requisition, which will cause it to be printed in the P.O. Comments block on the P.O. or Requisition form.

Package	Total	Routines
IFCAP	1	PRCHE

Package

Total

Routines

PRCHE

Package	Total	FileMan Files
IFCAP	2	PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)[#442.15(.01)] AMENDMENTS(#443.6)[#443.624(.01)]

Package

Total

FileMan Files

Fields, Total: 3

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	NUMBER	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X I $D(X) S DINUM=+X` LAST EDITED: `APR 07, 1987` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 9999` DESCRIPTION: `This is the number of the administrative certification.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `442.7^B` `1)= S ^PRC(442.7,"B",$E(X,1,30),DA)=""` `2)= K ^PRC(442.7,"B",$E(X,1,30),DA)`
1	TYPE	0;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<3) X` HELP-PROMPT: `ANSWER MUST BE 3-45 CHARACTERS IN LENGTH` DESCRIPTION: `This is the type of the administrative certification.` CROSS-REFERENCE: `442.7^C` `1)= S ^PRC(442.7,"C",$E(X,1,30),DA)=""` `2)= K ^PRC(442.7,"C",$E(X,1,30),DA)` `This X-REF is used for lookup of the ADMINISTRATIVE CERTIFICATIONS file TYPE.`
2	TEXT	1;0	WORD-PROCESSING #442.701	DESCRIPTION: `This is the text of the administrative certification.` DESCRIPTION: `Text for the ADMINISTRATIVE CERTIFICATION`

NUMBER

0;1

NUMBER

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X I $D(X) S DINUM=+X
LAST EDITED: APR 07, 1987
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 9999
DESCRIPTION:
This is the number of the administrative certification.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 442.7^B
1)= S ^PRC(442.7,"B",$E(X,1,30),DA)=""
2)= K ^PRC(442.7,"B",$E(X,1,30),DA)

TYPE

0;2

FREE TEXT

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<3) X
HELP-PROMPT: ANSWER MUST BE 3-45 CHARACTERS IN LENGTH
DESCRIPTION:
This is the type of the administrative certification.
CROSS-REFERENCE: 442.7^C
1)= S ^PRC(442.7,"C",$E(X,1,30),DA)=""
2)= K ^PRC(442.7,"C",$E(X,1,30),DA)
This X-REF is used for lookup of the ADMINISTRATIVE CERTIFICATIONS file TYPE.

TEXT

1;0

WORD-PROCESSING #442.701

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #3698	M DATA EXTRACTOR
ICR #6604	ADVANCED PROSTHETICS ACQ TOOL	NUMBER (.01). Access: Read w/Fileman TYPE (1). Access: Read w/Fileman TEXT (.01). Access: Read w/Fileman

ICR LINK

Subscribing Package(s)

Fields Referenced

Description