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

BSDMMU.m

Go to the documentation of this file.
  1. BSDMMU ;ihs/cmi/maw - BSD SDMM Hook
  1. ;;5.3;IHS Scheduling;**1014**;Feb 15, 2012
  1. ;
  1. ;this routine is called from SDMM1 and SDMA1 to set up the appointment
  1. ;node via either the UPDATE^DIE or FILE^DIE call instead of a direct set
  1. Q
  1. ;
  1. SDM(BSDCOV,BSDYC,BSDFN,BSDX,BSDSC,BSDINP,BSDPTYP,BSD17,BSDXSCAT,BSDRTY,BSDMANA,BSDDATE,BSDRFU,BSDERR) ;-- make the call to UPDATE^DIE to add a new entry
  1. N FDA,FIENS,FERR,MD
  1. S FIENS="+2,"_BSDFN_","
  1. S MD="A"
  1. I +$G(^DPT(BSDFN,"S",BSDX,0)) D
  1. . S FIENS=BSDX_","_BSDFN_","
  1. . S MD="E"
  1. S FIENS(2)=BSDX
  1. S FDA(2.98,FIENS,.01)=BSDSC
  1. S FDA(2.98,FIENS,3)=$$STATUS^SDM1A(BSDSC,BSDINP,BSDX)
  1. S FDA(2.98,FIENS,9)=BSDCOV
  1. S FDA(2.98,FIENS,13)=BSDYC
  1. S FDA(2.98,FIENS,9.5)=BSDPTYP
  1. S FDA(2.98,FIENS,20)=$$NOW^XLFDT
  1. S FDA(2.98,FIENS,24)=BSDXSCAT
  1. S FDA(2.98,FIENS,25)=BSDRTY
  1. S FDA(2.98,FIENS,26)=BSDMANA
  1. S FDA(2.98,FIENS,27)=BSDDATE
  1. S FDA(2.98,FIENS,28)=BSDRFU
  1. I MD="E" D Q
  1. . D FILE^DIE("K","FDA","FERR(1)")
  1. . I $D(FERR(1)) S BSDERR=FERR(1)
  1. I MD="A" D Q
  1. . D UPDATE^DIE("","FDA","FIENS","FERR(1)")
  1. . I $D(FERR(1)) S BSDERR=FERR(1)
  1. Q
  1. ;