Global: ^PRST(458.7

FileMan FileNo	FileMan Filename	Package
458.7	PT PHYSICIAN MEMORANDUM	PAID

Package	Total	Routines
PAID	21	PRSPUT1 ^PRST(458.7 LABOR DISTRIBUTION PAY PERIOD PRS4P150 PRSAPPO PRSASR1 PRSPBRP PRSPDEM PRSPDFM PRSPDM PRSPEEM PRSPEM PRSPESR PRSPRM PRSPRM1 PRSPSAPU PRSPSRC PRSPTM PRSPUT3 PRSXP140

Package	Total	Routines
PAID	6	PRS4P150 PRSPDFM PRSPDM PRSPEM PRSPSRC PRSXP140

Package	Total	FileMan Files
Kernel	1	NEW PERSON(#200)[6, 19, 23]
PAID	1	PAID EMPLOYEE(#450)[.01]

Fields, Total: 27

Field #	Name	Loc	Type	Details
.01	EMPLOYEE	0;1	POINTER TO PAID EMPLOYEE FILE (#450)	**********************REQUIRED FIELD********************** PAID EMPLOYEE(#450) LAST EDITED: `SEP 24, 2004` HELP-PROMPT: `Type a number between 1 and 999999999, 0 Decimal Digits` DESCRIPTION: `A pointer to the PAID EMPLOYEE file (#450) which identifies the name of the Part Time Physician employee.` CROSS-REFERENCE: `458.7^B` `1)= S ^PRST(458.7,"B",$E(X,1,30),DA)=""` `2)= K ^PRST(458.7,"B",$E(X,1,30),DA)` RECORD INDEXES: `AST (#709)`
1	START DATE	0;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `N PRSX S PRSX=X S X1=DT,X2=180 D C^%DTC S %DT(0)=-X,X=PRSX,%DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 14, 2005` HELP-PROMPT: `Enter the 1st day of the physician's memorandum.` DESCRIPTION: `This is the first day of the part-time physician's Memorandum of Service Level Expectation. This date must also be the first day of a pay period and must be within 6 months of today. The memorandum covers 26 full pay` `periods and will automatically expire on the last day of the 26th pay period.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `458.7^SD` `1)= S ^PRST(458.7,"SD",$E(X,1,30),DA)=""` `2)= K ^PRST(458.7,"SD",$E(X,1,30),DA)` `Cross reference based on the Start Date of the memorandum.`
2	END DATE	0;3	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:3041001>X X` LAST EDITED: `JAN 04, 2005` HELP-PROMPT: `TYPE A DATE NOT EARLIER THAN OCT 01, 2004` DESCRIPTION: `The End Date of the Part Time Physician's 364 day Memorandum of Service Level Expectation. The End Date will always be the last day of a Pay Period.` CROSS-REFERENCE: `458.7^ED` `1)= S ^PRST(458.7,"ED",$E(X,1,30),DA)=""` `2)= K ^PRST(458.7,"ED",$E(X,1,30),DA)` `Cross reference based on the End Date of the memorandum.`
3	AGREED # OF HOURS	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>2000)!(X<1)!(X?.E1"."3.N) X` LAST EDITED: `JAN 22, 2005` HELP-PROMPT: `Type a number between 1 and 2000, 2 Decimal Digits` DESCRIPTION: `The number of hours that the Part Time Physician agreed to work during their 364 day memorandum. This number must be equally divisible by 26.`
4	INITIAL COMMENTS	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `SEP 24, 2004` HELP-PROMPT: `Answer must be 1-240 characters in length` DESCRIPTION: `The initial comments entered by Human Resources as the memorandum was entered.`
5	STATUS OF MEMORANDUM	0;6	SET	**********************REQUIRED FIELD********************** '1' FOR NOT STARTED; '2' FOR ACTIVE; '3' FOR RECONCILIATION STARTED; '4' FOR RECONCILED; LAST EDITED: `JAN 22, 2005` HELP-PROMPT: `The current status of the part-time physician's memorandum.` DESCRIPTION: `The status of the Part Time Physician's memorandum. Possible values are: 1:NOT STARTED, 2:ACTIVE, 3:RECONCILIATION STARTED, 4:RECONCILED` RECORD INDEXES: `AST (#709)`
6	ENTERED BY	0;7	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 22, 2005` DESCRIPTION: `The Human Resource staff member who entered the Part Time Physician's Memorandum.`
7	DATE/TIME ENTERED	0;8	DATE	INPUT TRANSFORM: `S %DT="EST" D ^%DT S X=Y K:3041001>X X` LAST EDITED: `SEP 22, 2004` HELP-PROMPT: `TYPE A DATE NOT EARLIER THAN OCT 01, 2004` DESCRIPTION: `The date and time that the memorandum was entered.`
8	CARRYOVER HOURS	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>200)!(X<-200)!(X?.E1"."3.N) X` LAST EDITED: `SEP 22, 2004` HELP-PROMPT: `Type a number between -200 and 200, 2 Decimal Digits` DESCRIPTION: `The amount of hours carried over from the Part Time Physician's last memorandum. Maximum carryover is +/- 5%.`
9	TOTAL HOURS WORKED	0;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."3.N) X` LAST EDITED: `DEC 04, 2004` HELP-PROMPT: `Type a number between 0 and 9999, 2 Decimal Digits` DESCRIPTION: `The total hours worked by the Part Time Physician since the beginning of their memorandum. This includes both scheduled tour hours and extra hours worked.`
10	TOTAL HOURS PAID	0;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."3.N) X` LAST EDITED: `DEC 04, 2004` HELP-PROMPT: `Type a number between 0 and 9999, 2 Decimal Digits` DESCRIPTION: `The number of scheduled tour hours paid since the memorandum began.`
11	NONPAY HOURS	0;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>2000)!(X<0)!(X?.E1"."3.N) X` LAST EDITED: `DEC 04, 2004` HELP-PROMPT: `Type a number between 0 and 2000, 2 Decimal Digits` DESCRIPTION: `The number of scheduled tour hours reported as Non Pay since the memorandum began.`
12	WITHOUT PAY HOURS	0;13	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>2000)!(X<0)!(X?.E1"."3.N) X` LAST EDITED: `DEC 04, 2004` HELP-PROMPT: `Type a number between 0 and 2000, 2 Decimal Digits` DESCRIPTION: `The number of scheduled hours that were recorded as Leave With Out Pay (LWOP).`
13	% OF MEMORANDUM COMPLETED	0;14	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<0)!(X?.E1"."3.N) X` LAST EDITED: `DEC 04, 2004` HELP-PROMPT: `Type a number between 0 and 100, 2 Decimal Digits` DESCRIPTION: `The percentage of the memorandum that has been completed. This percentage is based on the Start Date and the last Pay Period processed.`
14	% OF HOURS COMPLETED	0;15	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>200)!(X<0)!(X?.E1"."3.N) X` LAST EDITED: `DEC 04, 2004` HELP-PROMPT: `Type a number between 0 and 200, 2 Decimal Digits` DESCRIPTION: `The percentage of scheduled hours completed since the beginning of the memorandum. This percentage reflects any AWOL that may have occurred during the memorandum.`
15	AVE HRS/PP TO COMPLETE MEM	0;16	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."3.N) X` LAST EDITED: `DEC 04, 2004` HELP-PROMPT: `Type a number between 0 and 999, 2 Decimal Digits` DESCRIPTION: `The average number of hours that the Part Time Physician will have to work to meet the Agreed Hours in their Memorandum of Service Level Expectation.`
16	% OFF TARGET	0;17	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"."3.N) X` LAST EDITED: `FEB 01, 2005` HELP-PROMPT: `Type a number between -999.99 and 999.99, 2 Decimal Digits` DESCRIPTION: `The percentage that the Part Time Physician is either ahead or behind on meeting their Agreed Hours. This percentage is based on the Part Time Physician's Normal Hours per Pay Period.`
17	PT PHY'S RECONCILIATION CHOICE	2;1	SET	'1' FOR No reconciliation needed; '2' FOR Transfer negative balance; '3' FOR Pay VA for negative balance; '4' FOR Transfer positive balance; '5' FOR Pay Phy for positive balance; LAST EDITED: `JAN 22, 2005` DESCRIPTION: `The PT Physician's choice on how to reconcile their last memorandum.`
18	PT PHY'S RECONCILIATION NOTES	2;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `SEP 24, 2004` HELP-PROMPT: `Answer must be 1-240 characters in length` DESCRIPTION: `Comments entered by the PT Physician when they chose their reconciliation option.`
19	RECONCILED BY	3;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 08, 2005` DESCRIPTION: `The Human Resource staff member who completed the reconciliation process.`
20	DATE/TIME RECONCILED	3;2	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:3041001>X X` LAST EDITED: `SEP 24, 2004` HELP-PROMPT: `TYPE A DATE NOT EARLIER THAN OCT 01, 2004` DESCRIPTION: `The date and time that Human Resources completed the reconciliation process.`
21	HR RECONCILIATION COMMENTS	3.1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `JAN 22, 2005` HELP-PROMPT: `Answer must be 1-240 characters in length` DESCRIPTION: `Any final comments entered by Human Resources during the reconciliation process.`
22	TERMINATION DATE	4;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:3041001>X X` LAST EDITED: `SEP 24, 2004` HELP-PROMPT: `TYPE A DATE NOT EARLIER THAN OCT 01, 2004` DESCRIPTION: `The date specified by Human Resources in which the PT Physician's current memorandum will expire so that the reconciliation process can begin.`
23	TERMINATED BY	4;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 04, 2005` DESCRIPTION: `The Human Resources personnel who terminated the PT Physician's memorandum.`
24	DATE/TIME TERMINATED	4;3	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:3041001>X X` LAST EDITED: `SEP 24, 2004` HELP-PROMPT: `TYPE A DATE NOT EARLIER THAN OCT 01, 2004` DESCRIPTION: `The date and time that the PT Physician's memorandum was terminated.`
25	TERMINATION COMMENTS	4.1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `SEP 24, 2004` HELP-PROMPT: `Answer must be 1-240 characters in length` DESCRIPTION: `Comments entered by Human Resources when they terminated the PT Physician's memorandum.`
200	PAY PERIOD	9;0	Multiple #458.701	458.701

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	1+1, 2+1, 7+1, 20+1, 22+1, 24+1
>> %DT(0	1+1*
>> DA	IXASTSL+1, IXASTKL+1, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K)
DT	1+1
PRSX	1+1~*
X	.01(XREF 1S), .01(XREF 1K), 1+1!, 1(XREF 1S), 1(XREF 1K), 2+1!, 2(XREF 1S), 2(XREF 1K), 3+1!, 4+1! , 7+1!, 8+1!, 9+1!, 10+1!, 11+1!, 12+1!, 13+1!, 14+1!, 15+1!, 16+1! , 18+1!, 20+1!, 21+1!, 22+1!, 24+1!, 25+1!
X(1	IXASTSL+1, IXASTKL+1
X(2	IXASTSL+1, IXASTKL+1
>> X1	1+1*
>> X2	1+1*
>> Y	1+1, 2+1, 7+1, 20+1, 22+1, 24+1

Customize PDF page

Package: PAID

Global: ^PRST(458.7

Information

Description

Directly Accessed By Routines, Total: 21

Accessed By FileMan Db Calls, Total: 6

Pointer To FileMan Files, Total: 2

Fields, Total: 27

External References

Global Variables Directly Accessed

Local Variables

Legend: