Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DDSIT

DDSIT.m

Go to the documentation of this file.
  1. DDSIT ;SFISC/MKO-INPUT TRANSFORMS ;09:07 AM 24 Oct 1994
  1. ;;22.0;VA FileMan;;Mar 30, 1999
  1. ;Per VHA Directive 10-93-142, this routine should not be modified.
  1. ;
  1. PFIELD ;Input transform for the PARENT FIELD field of the PAGE multiple
  1. ;of the Form file.
  1. N DDSMF
  1. S DDSMF=$$GETFLD^DDSLIB($P(X,","),$P(X,",",2),$P(X,",",3),DA(1))
  1. G QUIT
  1. ;
  1. ;the PAGE MULTIPLE of the Form file.
  1. N DDP,DDSCD,DDSERR,DDS
  1. ;
  1. S DDP=$P($G(^DIST(.403,DA(2),0)),U,8)
  1. I 'DDP D G QUIT
  1. . N P
  1. . S P(1)="PRIMARY FILE",P(2)="FORM"
  1. . D BLD^DIALOG(3011,.P)
  1. ;
  1. S DDS=DA(2)_U_$P(^DIST(.403,DA(2),0),U)
  1. D:X?1"FO(".E FO^DDSPTR(DDP,X,DA(2),DA(1))
  1. D:X'?1"FO(".E DD^DDSPTR(DDP,X,DA)
  1. G QUIT
  1. ;
  1. CEXPR ;Input transform for COMPUTED EXPRESSION field
  1. N DDP,DDSX,DDSNEXP
  1. S DDP=$P($G(^DIST(.404,DA(1),0)),U,2)
  1. D PARSE^DDSCOMP(DDP,X,DA(1),.DDSNEXP) G:$G(DIERR) QUIT
  1. ;
  1. S DDSX=X,X=DDSNEXP D ^DIM S:$D(X) X=DDSX
  1. Q
  1. ;
  1. QUIT ;Check error and quit
  1. I $G(DIERR) N DDSERR D MSG^DIALOG("AB",.DDSERR),EN^DDIOL(.DDSERR) K X
  1. Q