Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields  | All
Print Page as PDF
Global: ^DGRU(46.12

Package: Registration

Global: ^DGRU(46.12


Information

FileMan FileNo FileMan Filename Package
46.12 RAI MDS WARD TRANSLATION Registration

Description

Directly Accessed By Routines, Total: 2

Package Total Routines
Registration 2 DGRUDYN    DGRUUTL1    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Registration 2 DGRUDYN    DGRUUTL1    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Registration 1 WARD LOCATION(#42)[.01]    

Fields, Total: 2

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

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,16)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 21, 1999
  • DESCRIPTION:  
    The name of the Vista Ward Location which requires translation to a different name on the Accu-Max system. The name must be a ward name already in the Vista Ward Location file (#42).
  • TECHNICAL DESCR:  
    Pointer to the Ward Location file which requires translation on Accu-Max system because the name exceeds 15 characters.
  • SCREEN:  S DIC("S")="I $P(^(0),U,16)=1"
  • EXPLANATION:  Only allow selection of wards flagged as RAI/MDS wards
  • CROSS-REFERENCE:  46.12^B
    1)= S ^DGRU(46.12,"B",$E(X,1,30),DA)=""
    2)= K ^DGRU(46.12,"B",$E(X,1,30),DA)
.02 COTS WARD NAME 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<2) X
  • LAST EDITED:  FEB 11, 2000
  • HELP-PROMPT:  Answer must be 2-15 characters in length.
  • DESCRIPTION:  
    The name of the ward on the Accu-Max system which represents the Vista ward selected.
  • TECHNICAL DESCR:  
    Free text field 2 - 15 characters.
  • CROSS-REFERENCE:  46.12^AC
    1)= S ^DGRU(46.12,"AC",$E(X,1,30),DA)=""
    2)= K ^DGRU(46.12,"AC",$E(X,1,30),DA)
    This cross reference is for looking up the VistA ward location from the translated ward location.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields  | All