PSO544POST ;AITC/PD - Post install for PSO*7.0*544 ;11/22/19
;;7.0;OUTPATIENT PHARMACY;**544**;;Build 19
;
Q
;
POST ; Post-install functions are coded here.
;
D MES^XPDUTL(" Starting post-install of PSO*7.0*544")
;
; Add RRR Reject Code 943 to EPHARMACY SITE PARAMETERS (#52.86)
D RRR
;
D MES^XPDUTL(" Finished post-install of PSO*7.0*544")
Q
;
RRR ; Add RRR Reject Code 943 to EPHARMACY SITE PARAMETERS
;
N CNT,PSOBPSDV,REJIEN,RRR943
;
S REJIEN=$O(^BPSF(9002313.93,"B",943,""))
I REJIEN="" Q
;
S CNT=0
;
D MES^XPDUTL(" ")
D MES^XPDUTL(" - Updating EPHARMACY SITE PARAMETERS")
;
S PSOBPSDV=0
F S PSOBPSDV=$O(^PS(52.86,PSOBPSDV)) Q:'PSOBPSDV D
. I $D(^PS(52.86,PSOBPSDV,5,"B",REJIEN)) Q
. S RRR943(52.865,"+1,"_PSOBPSDV_",",.01)=REJIEN
. S RRR943(52.865,"+1,"_PSOBPSDV_",",.02)=0
. S RRR943(52.865,"+1,"_PSOBPSDV_",",.03)=.5
. D UPDATE^DIE(,"RRR943")
. S CNT=CNT+1
;
D MES^XPDUTL(" - "_CNT_" entries updated")
D MES^XPDUTL(" - Done with EPHARMACY SITE PARAMETERS")
D MES^XPDUTL(" ")
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSO544POST 1078 printed Dec 13, 2024@02:23:13 Page 2
PSO544POST ;AITC/PD - Post install for PSO*7.0*544 ;11/22/19
+1 ;;7.0;OUTPATIENT PHARMACY;**544**;;Build 19
+2 ;
+3 QUIT
+4 ;
POST ; Post-install functions are coded here.
+1 ;
+2 DO MES^XPDUTL(" Starting post-install of PSO*7.0*544")
+3 ;
+4 ; Add RRR Reject Code 943 to EPHARMACY SITE PARAMETERS (#52.86)
+5 DO RRR
+6 ;
+7 DO MES^XPDUTL(" Finished post-install of PSO*7.0*544")
+8 QUIT
+9 ;
RRR ; Add RRR Reject Code 943 to EPHARMACY SITE PARAMETERS
+1 ;
+2 NEW CNT,PSOBPSDV,REJIEN,RRR943
+3 ;
+4 SET REJIEN=$ORDER(^BPSF(9002313.93,"B",943,""))
+5 IF REJIEN=""
QUIT
+6 ;
+7 SET CNT=0
+8 ;
+9 DO MES^XPDUTL(" ")
+10 DO MES^XPDUTL(" - Updating EPHARMACY SITE PARAMETERS")
+11 ;
+12 SET PSOBPSDV=0
+13 FOR
SET PSOBPSDV=$ORDER(^PS(52.86,PSOBPSDV))
if 'PSOBPSDV
QUIT
Begin DoDot:1
+14 IF $DATA(^PS(52.86,PSOBPSDV,5,"B",REJIEN))
QUIT
+15 SET RRR943(52.865,"+1,"_PSOBPSDV_",",.01)=REJIEN
+16 SET RRR943(52.865,"+1,"_PSOBPSDV_",",.02)=0
+17 SET RRR943(52.865,"+1,"_PSOBPSDV_",",.03)=.5
+18 DO UPDATE^DIE(,"RRR943")
+19 SET CNT=CNT+1
End DoDot:1
+20 ;
+21 DO MES^XPDUTL(" - "_CNT_" entries updated")
+22 DO MES^XPDUTL(" - Done with EPHARMACY SITE PARAMETERS")
+23 DO MES^XPDUTL(" ")
+24 ;
+25 QUIT
