Sub-Field: 9001026.12

Parent File	Name	Number	Package
9001026.01	INTAKE FORMS TO INCLUDE	9001026.12	Patient Care Component

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	ORDER OF FORM PRINT	0;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X` LAST EDITED: `AUG 15, 2011` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9001026.12^B` 1)= S ^APCHPWHT(DA(2),1,DA(1),12,"B",$E(X,1,30),DA)="" 2)= K ^APCHPWHT(DA(2),1,DA(1),12,"B",$E(X,1,30),DA)
.02	INTAKE FORM	0;2	POINTER TO HEALTH SUMMARY PWH FORMS FILE (#9001025.06)	**********************REQUIRED FIELD********************** HEALTH SUMMARY PWH FORMS(#9001025.06) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)=""I""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `AUG 15, 2011` SCREEN: `S DIC("S")="I $P(^(0),U,2)=""I"""` EXPLANATION: `MUST BE AN INTAKE TYPE OF FORM`

ORDER OF FORM PRINT

0;1

NUMBER

CROSS-REFERENCE: 9001026.12^B

1)= S ^APCHPWHT(DA(2),1,DA(1),12,"B",$E(X,1,30),DA)=""

2)= K ^APCHPWHT(DA(2),1,DA(1),12,"B",$E(X,1,30),DA)

INTAKE FORM

0;2

POINTER TO HEALTH SUMMARY PWH FORMS FILE (#9001025.06)

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

INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)=""I""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: AUG 15, 2011
SCREEN: S DIC("S")="I $P(^(0),U,2)=""I"""
EXPLANATION: MUST BE AN INTAKE TYPE OF FORM