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 | All

Print Page as PDF

Global: ^ACRTPAR

Package: Commitment Register

Global: ^ACRTPAR

Information

FileMan FileNo	FileMan Filename	Package
9002196.2	ARMS TRAINING PARTICIPANTS	Commitment Register

Description

Directly Accessed By Routines, Total: 2

Accessed By FileMan Db Calls, Total: 1

Pointer To FileMan Files, Total: 4

Fields, Total: 8

Field #	Name	Loc	Type	Details
.01	TRAINING PARTICIPANT	0;1	POINTER TO ARMS USER FILE (#9002185.3)	**********************REQUIRED FIELD********************** ARMS USER(#9002185.3) LAST EDITED: `OCT 01, 1996` HELP-PROMPT: `Enter the name of the training participant` DESCRIPTION: Enter the name of the individual who will participate in this training. CROSS-REFERENCE: `9002196.2^B` 1)= S ^ACRTPAR("B",$E(X,1,30),DA)="" 2)= K ^ACRTPAR("B",$E(X,1,30),DA) CROSS-REFERENCE: `9002196.2^AC^MUMPS` 1)= N ACRX S ACRX=$G(^ACRTPAR(+DA,0)) S:$P(ACRX,U,2) ^ACRTPAR("AC",$P(ACRX,U,2),X,DA)="" 2)= N ACRX S ACRX=$G(^ACRTPAR(+DA,0)) K:$P(ACRX,U,2) ^ACRTPAR("AC",$P(ACRX,U,2),X,DA)
.02	TRAINING DOCUMENT	0;2	POINTER TO FMS DOCUMENT FILE (#9002196)	FMS DOCUMENT(#9002196) LAST EDITED: `OCT 01, 1996` HELP-PROMPT: `Enter the document number of the 350 for training for this individual.` DESCRIPTION: Enter the document number of the training 350 under which the individual will be training. CROSS-REFERENCE: `9002196.2^C` 1)= S ^ACRTPAR("C",$E(X,1,30),DA)="" 2)= K ^ACRTPAR("C",$E(X,1,30),DA) CROSS-REFERENCE: `9002196.2^AC2^MUMPS` 1)= N ACRX S ACRX=$G(^ACRTPAR(+DA,0)) S:+ACRX ^ACRTPAR("AC",X,+ACRX,DA)="" 2)= N ACRX S ACRX=$G(^ACRTPAR(+DA,0)) K:+ACRX ^ACRTPAR("AC",X,+ACRX,DA)
.03	DEPARTMENT ACCOUNT	0;3	POINTER TO FMS DEPARTMENT ACCOUNT FILE (#9002188)	FMS DEPARTMENT ACCOUNT(#9002188) LAST EDITED: `OCT 01, 1996` HELP-PROMPT: `Enter the Department Account to which to charge expenses for this trainee.` DESCRIPTION: Enter the Department Account to which to charge expenses for this trainee.
.04	TUITION AND FEES	0;4	POINTER TO FMS SUPPLIES AND SERVICES FILE (#9002193)	FMS SUPPLIES AND SERVICES(#9002193) LAST EDITED: `OCT 01, 1996` HELP-PROMPT: `Enter the Tuition and Fees entry for this trainee.` DESCRIPTION: This points to the Tuition and Fees entry for this participant.
.05	BOOKS AND OTHER EXPENSES	0;5	POINTER TO FMS SUPPLIES AND SERVICES FILE (#9002193)	FMS SUPPLIES AND SERVICES(#9002193) LAST EDITED: `OCT 01, 1996` HELP-PROMPT: `Enter the Books and Other expenses entry for this trainee.` DESCRIPTION: This indicates the pointer to the Books and Other expenses entry for this trainee.
.06	CONTINUOUS YEARS OF SERVICE	0;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>50)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 01, 1996` HELP-PROMPT: `Type a Number between 0 and 50, 0 Decimal Digits` DESCRIPTION: Enter the number of years of service for the employee.
.07	CONTINUOUS MONTHS OF SERVICE	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>12)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 01, 1996` HELP-PROMPT: `Type a Number between 0 and 12, 0 Decimal Digits` DESCRIPTION: Enter the number of months of service for the employee.
.08	TRAVEL ORDER	0;8	POINTER TO FMS DOCUMENT FILE (#9002196)	FMS DOCUMENT(#9002196) INPUT TRANSFORM: `S DIC("S")="I $P($G(^ACRDOC(+Y,""TO"")),U,9)=$P($G(^ACRTPAR(+$G(DA),0)),U)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 11, 1997` HELP-PROMPT: `Enter the Travel Order Number for this attendee's travel.` DESCRIPTION: Enter the Travel Order Number for this attendee's travel associated with this training. SCREEN: `S DIC("S")="I $P($G(^ACRDOC(+Y,""TO"")),U,9)=$P($G(^ACRTPAR(+$G(DA),0)),U)"` EXPLANATION: `Select attendee's Travel Order for this training.`

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