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

Package: Interim Management Support

NATIONAL SERVICE(#730)-->730.01

Sub-Field: 730.01


Information

Parent File Name Number Package
NATIONAL SERVICE(#730) T&L UNIT 730.01 Interim Management Support

Details

Field # Name Loc Type Details
.01 T&L UNIT 0;1 POINTER TO T&L UNIT FILE (#455.5) T&L UNIT(#455.5)

  • INPUT TRANSFORM:  S DIC("W")="W "" "",$P(^PRST(455.5,+Y,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
  • LAST EDITED:  NOV 01, 1990
  • HELP-PROMPT:  Enter all T&L units for this service.
  • DESCRIPTION:  
    Identify the T&L units which are associated with this 'local' service.
  • SCREEN:  S DIC("W")="W "" "",$P(^PRST(455.5,+Y,0),U,2)"
  • EXPLANATION:  
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  730.01^B
    1)= S ^ECC(730,DA(1),"TL","B",$E(X,1,30),DA)=""
    2)= K ^ECC(730,DA(1),"TL","B",$E(X,1,30),DA)
Info |  Details |  All