Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 669.922

Package: Prosthetics

PROSTHETICS SITE PARAMETERS(#669.9)-->669.922

Sub-Field: 669.922


Information

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

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.
Info |  Details