- BSDMMU ;ihs/cmi/maw - BSD SDMM Hook
- ;;5.3;IHS Scheduling;**1014**;Feb 15, 2012
- ;
- ;this routine is called from SDMM1 and SDMA1 to set up the appointment
- ;node via either the UPDATE^DIE or FILE^DIE call instead of a direct set
- Q
- ;
- 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
- N FDA,FIENS,FERR,MD
- S FIENS="+2,"_BSDFN_","
- S MD="A"
- I +$G(^DPT(BSDFN,"S",BSDX,0)) D
- . S FIENS=BSDX_","_BSDFN_","
- . S MD="E"
- S FIENS(2)=BSDX
- S FDA(2.98,FIENS,.01)=BSDSC
- S FDA(2.98,FIENS,3)=$$STATUS^SDM1A(BSDSC,BSDINP,BSDX)
- S FDA(2.98,FIENS,9)=BSDCOV
- S FDA(2.98,FIENS,13)=BSDYC
- S FDA(2.98,FIENS,9.5)=BSDPTYP
- S FDA(2.98,FIENS,20)=$$NOW^XLFDT
- S FDA(2.98,FIENS,24)=BSDXSCAT
- S FDA(2.98,FIENS,25)=BSDRTY
- S FDA(2.98,FIENS,26)=BSDMANA
- S FDA(2.98,FIENS,27)=BSDDATE
- S FDA(2.98,FIENS,28)=BSDRFU
- I MD="E" D Q
- . D FILE^DIE("K","FDA","FERR(1)")
- . I $D(FERR(1)) S BSDERR=FERR(1)
- I MD="A" D Q
- . D UPDATE^DIE("","FDA","FIENS","FERR(1)")
- . I $D(FERR(1)) S BSDERR=FERR(1)
- Q
- ;
- BSDMMU ;ihs/cmi/maw - BSD SDMM Hook
- +1 ;;5.3;IHS Scheduling;**1014**;Feb 15, 2012
- +2 ;
- +3 ;this routine is called from SDMM1 and SDMA1 to set up the appointment
- +4 ;node via either the UPDATE^DIE or FILE^DIE call instead of a direct set
- +5 QUIT
- +6 ;
- 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 NEW FDA,FIENS,FERR,MD
- +2 SET FIENS="+2,"_BSDFN_","
- +3 SET MD="A"
- +4 IF +$GET(^DPT(BSDFN,"S",BSDX,0))
- Begin DoDot:1
- +5 SET FIENS=BSDX_","_BSDFN_","
- +6 SET MD="E"
- End DoDot:1
- +7 SET FIENS(2)=BSDX
- +8 SET FDA(2.98,FIENS,.01)=BSDSC
- +9 SET FDA(2.98,FIENS,3)=$$STATUS^SDM1A(BSDSC,BSDINP,BSDX)
- +10 SET FDA(2.98,FIENS,9)=BSDCOV
- +11 SET FDA(2.98,FIENS,13)=BSDYC
- +12 SET FDA(2.98,FIENS,9.5)=BSDPTYP
- +13 SET FDA(2.98,FIENS,20)=$$NOW^XLFDT
- +14 SET FDA(2.98,FIENS,24)=BSDXSCAT
- +15 SET FDA(2.98,FIENS,25)=BSDRTY
- +16 SET FDA(2.98,FIENS,26)=BSDMANA
- +17 SET FDA(2.98,FIENS,27)=BSDDATE
- +18 SET FDA(2.98,FIENS,28)=BSDRFU
- +19 IF MD="E"
- Begin DoDot:1
- +20 DO FILE^DIE("K","FDA","FERR(1)")
- +21 IF $DATA(FERR(1))
- SET BSDERR=FERR(1)
- End DoDot:1
- QUIT
- +22 IF MD="A"
- Begin DoDot:1
- +23 DO UPDATE^DIE("","FDA","FIENS","FERR(1)")
- +24 IF $DATA(FERR(1))
- SET BSDERR=FERR(1)
- End DoDot:1
- QUIT
- +25 QUIT
- +26 ;