Sub-Field: 58.501

Parent File	Name	Number	Package
AR/WS STATS FILE(#58.5)	INPATIENT SITE	58.501	Auto Replenishment Ward Stock

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	INPATIENT SITE	0;1	POINTER TO INPATIENT SITE FILE (#59.4)	**********************REQUIRED FIELD********************** INPATIENT SITE(#59.4) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),""^"",26)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X` DESCRIPTION: `This field contains the pointer to the INPATIENT SITE file (#59.4) for which the AMIS data is collected.` SCREEN: `S DIC("S")="I $P(^(0),""^"",26)"` EXPLANATION: `Enter only sites that are selectable for AR/WS.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `58.501^B` `1)= S ^PSI(58.5,DA(1),"S","B",$E(X,1,30),DA)=""` `2)= K ^PSI(58.5,DA(1),"S","B",$E(X,1,30),DA)`
1	AMIS	AMIS;0	SET Multiple #58.51	58.51
2	RECALCULATE AMIS	DRG;0	POINTER Multiple #58.52	58.52

INPATIENT SITE

0;1

POINTER TO INPATIENT SITE FILE (#59.4)

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

INPUT TRANSFORM: S DIC("S")="I $P(^(0),""^"",26)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
DESCRIPTION:
This field contains the pointer to the INPATIENT SITE file (#59.4) for which the AMIS data is collected.
SCREEN: S DIC("S")="I $P(^(0),""^"",26)"
EXPLANATION: Enter only sites that are selectable for AR/WS.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 58.501^B
1)= S ^PSI(58.5,DA(1),"S","B",$E(X,1,30),DA)=""
2)= K ^PSI(58.5,DA(1),"S","B",$E(X,1,30),DA)

1 AMIS AMIS;0 SET Multiple #58.51 58.51

2 RECALCULATE AMIS DRG;0 POINTER Multiple #58.52 58.52