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

Package: Inpatient Medications

WARD GROUP(#57.5)-->57.51

Sub-Field: 57.51


Information

Parent File Name Number Package
WARD GROUP(#57.5) WARD 57.51 Inpatient Medications

Details

Field # Name Loc Type Details
.01 WARD 0;1 POINTER TO WARD LOCATION FILE (#42)
************************REQUIRED FIELD************************
WARD LOCATION(#42)

  • INPUT TRANSFORM:  I $D(^PS(57.5,DA(1),0)),$P(^(0),"^",2)'="M",$D(^PS(57.5,"AB",X)) D EN^DDIOL("THIS WARD ALREADY BELONGS TO THE '"_$P(^PS(57.5,$O(^(X,0)),0),"^")_"' WARD GROUP!") K X
  • LAST EDITED:  AUG 03, 1992
  • HELP-PROMPT:  Enter the MAS ward(s) that are included in this ward group.
  • DESCRIPTION:  
    This is a ward to be placed under this ward group.
  • EXECUTABLE HELP:  D EN^DDIOL("THE WARD(S) CHOSEN MUST ALREADY BE IN THE 'WARD LOCATION' FILE.")
  • GROUP:  PSJU
  • CROSS-REFERENCE:  57.5^AB^MUMPS
    1)= I $D(^PS(57.5,DA(1),0)),$P(^(0),"^",2)="P" S ^PS(57.5,"AB",$E(X,1,30),DA(1),DA)=""
    2)= K ^PS(57.5,"AB",$E(X,1,30),DA(1),DA)
    3)= USED BY UNIT DOSE
    Allows Unit Dose to determine a ward's corresponding PHARMACY ward group.  Set only for ward groups given the TYPE of PHARMACY.  S ^PS(57.5,"AB",WARD,WARD GROUP NAME,WARD IEN)=""
  • CROSS-REFERENCE:  57.5^AC^MUMPS
    1)= S ^PS(57.5,"AC",DA(1),X)=""
    2)= K ^PS(57.5,"AC",DA(1),X)
    3)= USED BY UNIT DOSE
    Allows Unit Dose to easily access the wards that belong to a ward group.  S ^PS(57.5,"AC",WARD,WARD GROUP)=""
  • CROSS-REFERENCE:  57.51^B
    1)= S ^PS(57.5,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^PS(57.5,DA(1),1,"B",$E(X,1,30),DA)
Info |  Details |  All