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

SCUTBK2.m

Go to the documentation of this file.
  1. SCUTBK2 ;ALB/MJK - Scheduling Broker Utilities ;[ 03/07/95 10:02 AM ]
  1. ;;5.3;Scheduling;**41**;AUG 13, 1993
  1. ;
  1. Q
  1. ;
  1. FINDC(SCDATA,SC) ; -- broker callback to actually use FIND^DIC
  1. N SCFILE,SCIENS,SCFIELDS,SCFLAGS,SCFROM,SCPART,SCVAL,SCMAX,SCXREF,SCREEN,SCID,SCROOT,SCDILIST
  1. D CHK^SCUTBK
  1. ;
  1. ; -- parse array to parameters
  1. D PARSE^SCUTBK(.SC)
  1. D TMP^SCUTBK
  1. ;
  1. D FIND^DIC(SCFILE,SCIENS,SCFIELDS,SCFLAGS,SCVAL,SCMAX,SCXREF,SCREEN,SCID,"SCDATA")
  1. ;
  1. Q
  1. ;
  1. GETSC(SCDATA,SC) ; -- broker callback to actually use GETS^DIQ
  1. ;
  1. N SCFILE,SCIENS,SCFIELDS,SCFLAGS,SCFROM,SCPART,SCVAL,SCMAX,SCXREF,SCREEN,SCID,SCROOT,SCERR
  1. D CHK^SCUTBK
  1. ;
  1. ; -- parse array to parameters
  1. D PARSE^SCUTBK(.SC)
  1. D TMP^SCUTBK
  1. ;
  1. D GETS^DIQ(SCFILE,SCIENS,SCFIELDS,SCFLAGS,"SCDATA","SCERR")
  1. ;
  1. N Y,SCFLD,N,X,J,C
  1. S N=0
  1. D SET("[Data]")
  1. S SCFLD=0 F S SCFLD=$O(SCDATA(SCFILE,SCIENS,SCFLD)) Q:'SCFLD D
  1. . S X=SCFILE_"^"_$E(SCIENS,1,$L(SCIENS)-1)_"^"_SCFLD_"^"
  1. . ; -- below call to $$GET1 is too slow...working w/FM team for speed
  1. . ;IF $$GET1^DID(SCFILE,SCFLD,"","TYPE")="WORD-PROCESSING" D
  1. . IF $P($G(^DD(SCFILE,SCFLD,0)),U,4)[";0" D
  1. . . D SET(X_"[WORD PROCESSING]")
  1. . . S J=0 F S J=$O(SCDATA(SCFILE,SCIENS,SCFLD,J)) Q:'J D
  1. . . . D SET(SCDATA(SCFILE,SCIENS,SCFLD,J))
  1. . . D SET("$$END$$")
  1. . E D
  1. . . D SET(X_$G(SCDATA(SCFILE,SCIENS,SCFLD,"I"))_"^"_$G(SCDATA(SCFILE,SCIENS,SCFLD,"E")))
  1. ;
  1. IF $D(SCERR) D
  1. . D SET("[ERROR]")
  1. ;
  1. K SCDATA M SCDATA=Y
  1. Q
  1. ;
  1. SET(X) ;
  1. S N=N+1
  1. S Y(N)=X
  1. Q
  1. ;