Sub-Field: 58.637

Parent File	Name	Number	Package
PADE DISPENSING DEVICE(#58.63)	CLINIC GROUP	58.637	Auto Replenishment Ward Stock

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	CLINIC GROUP	0;1	POINTER TO CLINIC GROUP FILE (#57.8)	CLINIC GROUP(#57.8) INPUT TRANSFORM: `S DIC("S")="I $$CGCHK2^PSJPADSI(Y,DA)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `DEC 08, 2015` HELP-PROMPT: `Enter a Clinic Group supplied by this PADE device.` DESCRIPTION: `Clinic Groups associated with this PADE device.` SCREEN: `S DIC("S")="I $$CGCHK2^PSJPADSI(Y,DA)"` EXPLANATION: `Allow only Clinic Groups associated with Division` CROSS-REFERENCE: `58.637^B` `1)= S ^PS(58.63,DA(1),5,"B",$E(X,1,30),DA)=""` `2)= K ^PS(58.63,DA(1),5,"B",$E(X,1,30),DA)` FIELD INDEX: `CG (#1379) MUMPS IR LOOKUP & SORTING WHOLE FILE (#58.63)` `Short Descr: CLINIC GROUPS` `Set Logic: S ^PS(58.63,"CG",X(1),$G(DA(1)))=""` `Kill Logic: K ^PS(58.63,"CG",X(1),$G(DA(1)))` `Whole Kill: K ^PS(58.63,"CG")` `X(1): CLINIC GROUP (58.637,.01) (Subscr 1) (forwards)`

CLINIC GROUP

0;1

POINTER TO CLINIC GROUP FILE (#57.8)

INPUT TRANSFORM: S DIC("S")="I $$CGCHK2^PSJPADSI(Y,DA)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: DEC 08, 2015
HELP-PROMPT: Enter a Clinic Group supplied by this PADE device.
DESCRIPTION:
Clinic Groups associated with this PADE device.
SCREEN: S DIC("S")="I $$CGCHK2^PSJPADSI(Y,DA)"
EXPLANATION: Allow only Clinic Groups associated with Division
CROSS-REFERENCE: 58.637^B
1)= S ^PS(58.63,DA(1),5,"B",$E(X,1,30),DA)=""
2)= K ^PS(58.63,DA(1),5,"B",$E(X,1,30),DA)
FIELD INDEX: CG (#1379) MUMPS IR LOOKUP & SORTING WHOLE FILE (#58.63)
Short Descr: CLINIC GROUPS
Set Logic: S ^PS(58.63,"CG",X(1),$G(DA(1)))=""
Kill Logic: K ^PS(58.63,"CG",X(1),$G(DA(1)))
Whole Kill: K ^PS(58.63,"CG")
X(1): CLINIC GROUP (58.637,.01) (Subscr 1) (forwards)