Sub-Field: 669.922

Parent File	Name	Number	Package
PROSTHETICS SITE PARAMETERS(#669.9)	PROSTHETICS CLINIC	669.922	Prosthetics

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	PROSTHETICS CLINIC	0;1	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,3)[""C"" S ZT=$G(^(""I"")),ZV=1 S:$P(ZT,U,2>DT) ZV=0 S:$P(ZT,U)&($P(ZT,U)'>DT)&('$P(ZT,U,2)) ZV=0 I ZV=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JAN 12, 1994` HELP-PROMPT: `Enter the name of the Prosthetics Scheduled Clinics` SCREEN: `S DIC("S")="I $P(^(0),U,3)[""C"" S ZT=$G(^(""I"")),ZV=1 S:$P(ZT,U,2>DT) ZV=0 S:$P(ZT,U)&($P(ZT,U)'>DT)&('$P(ZT,U,2)) ZV=0 I ZV=1"` EXPLANATION: `Entry must be an active clinic` CROSS-REFERENCE: `669.922^B` `1)= S ^RMPR(669.9,DA(1),1,"B",$E(X,1,30),DA)=""` `2)= K ^RMPR(669.9,DA(1),1,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `669.922^AC^MUMPS` `1)= I $D(^RMPR(669.9,DA(1),0)) S ZST=$P(^(0),U,2) S:ZST ^RMPR(669.9,"AC",X,ZST,DA(1),DA)="" K ZST` `2)= I $D(^RMPR(669.9,DA(1),0)) S ZST=$P(^(0),U,2) K:ZST ^RMPR(669.9,"AC",X,ZST,DA(1),DA) K ZST` `This x-ref is used by the RMPRSC routine to check if the MAS appointment being entered or changed is for a Prosthetics Clinic.`

PROSTHETICS CLINIC

0;1

POINTER TO HOSPITAL LOCATION FILE (#44)

INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,3)[""C"" S ZT=$G(^(""I"")),ZV=1 S:$P(ZT,U,2>DT) ZV=0 S:$P(ZT,U)&($P(ZT,U)'>DT)&('$P(ZT,U,2)) ZV=0 I ZV=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JAN 12, 1994
HELP-PROMPT: Enter the name of the Prosthetics Scheduled Clinics
SCREEN: S DIC("S")="I $P(^(0),U,3)[""C"" S ZT=$G(^(""I"")),ZV=1 S:$P(ZT,U,2>DT) ZV=0 S:$P(ZT,U)&($P(ZT,U)'>DT)&('$P(ZT,U,2)) ZV=0 I ZV=1"
EXPLANATION: Entry must be an active clinic
CROSS-REFERENCE: 669.922^B
1)= S ^RMPR(669.9,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^RMPR(669.9,DA(1),1,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 669.922^AC^MUMPS
1)= I $D(^RMPR(669.9,DA(1),0)) S ZST=$P(^(0),U,2) S:ZST ^RMPR(669.9,"AC",X,ZST,DA(1),DA)="" K ZST
2)= I $D(^RMPR(669.9,DA(1),0)) S ZST=$P(^(0),U,2) K:ZST ^RMPR(669.9,"AC",X,ZST,DA(1),DA) K ZST
This x-ref is used by the RMPRSC routine to check if the MAS appointment being entered or changed is for a Prosthetics Clinic.