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

SCCVDBU.m

Go to the documentation of this file.
  1. SCCVDBU ;ALB/RMO,TMP - Database Update Utilities; [ 03/23/95 11:08 AM ]
  1. ;;5.3;Scheduling;**211**;Aug 13, 1993
  1. ;
  1. UPD(SCFILE,SCIENS,SCDATA,SCERR) ;File data into an existing entry
  1. ; Input -- SCFILE File or sub-file number
  1. ; SCIENS Internal entry number(s)
  1. ; SCDATA Data array to file
  1. ; Output -- SCERR DEFINED=error
  1. N SCFDA,SCFIELD
  1. S SCFIELD=0
  1. F S SCFIELD=$O(SCDATA(SCFIELD)) Q:'SCFIELD D
  1. . S SCFDA(SCFILE,SCIENS_",",SCFIELD)=$G(SCDATA(SCFIELD))
  1. D FILE^DIE("K","SCFDA","")
  1. I $G(DIERR) S SCERR=U_$G(^TMP("DIERR",$J,$P(DIERR,U,2),"TEXT",1))
  1. D CLEAN^DILF
  1. UPDQ Q
  1. ;
  1. ADD(SCFILE,SCIENS,SCDATA,SCERR) ;File data into a new or existing entry
  1. ; Input -- SCFILE File or sub-file number
  1. ; SCIENS Internal entry number(s)
  1. ; SCDATA Data array to file
  1. ; Output -- SCERR DEFINED=error
  1. N SCFDA,SCFIELD
  1. S SCFIELD=0
  1. F S SCFIELD=$O(SCDATA(SCFIELD)) Q:'SCFIELD D
  1. . S SCFDA(SCFILE,SCIENS_",",SCFIELD)=$G(SCDATA(SCFIELD))
  1. D UPDATE^DIE("","SCFDA","","")
  1. I $G(DIERR) S SCERR=U_$G(^TMP("DIERR",$J,$P(DIERR,U,2),"TEXT",1))
  1. D CLEAN^DILF
  1. ADDQ Q
  1. ;
  1. WP(SCFILE,SCIENS,SCFIELD,SCDATA) ;File data into a single word processing field
  1. ; Input -- SCFILE File or sub-file number
  1. ; SCIENS Internal entry number(s)
  1. ; SCFIELD Field number
  1. ; SCDATA Data array to file
  1. ; Output -- ;add- SCERR 0=error and 1=no error
  1. D WP^DIE(SCFILE,SCIENS_",",SCFIELD,"AK","SCDATA(""WP"")","")
  1. D CLEAN^DILF
  1. WPQ Q