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: 58.637

Package: Auto Replenishment Ward Stock

PADE DISPENSING DEVICE(#58.63)-->58.637

Sub-Field: 58.637


Information

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

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)
Info |  Details |  All