PSO386P ;BIR/MR - HOLD REASON conversion post-install routine; 05/31/12 1:16pm
;;7.0;OUTPATIENT PHARMACY;**386**;DEC 1997;Build 4
;
N RXIEN,HLDREA
F HLDREA=3,5 D
. S RXIEN=0
. F S RXIEN=$O(^PSRX("AH",HLDREA,RXIEN)) Q:'RXIEN D
. . I '$G(^PSRX(RXIEN,"H")) Q
. . S $P(^PSRX(RXIEN,"H"),"^",1)=6
. . S ^PSRX("AH",6,RXIEN)=""
. . K ^PSRX("AH",HLDREA,RXIEN)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSO386P 378 printed Sep 23, 2025@19:59:01 Page 2
PSO386P ;BIR/MR - HOLD REASON conversion post-install routine; 05/31/12 1:16pm
+1 ;;7.0;OUTPATIENT PHARMACY;**386**;DEC 1997;Build 4
+2 ;
+3 NEW RXIEN,HLDREA
+4 FOR HLDREA=3,5
Begin DoDot:1
+5 SET RXIEN=0
+6 FOR
SET RXIEN=$ORDER(^PSRX("AH",HLDREA,RXIEN))
if 'RXIEN
QUIT
Begin DoDot:2
+7 IF '$GET(^PSRX(RXIEN,"H"))
QUIT
+8 SET $PIECE(^PSRX(RXIEN,"H"),"^",1)=6
+9 SET ^PSRX("AH",6,RXIEN)=""
+10 KILL ^PSRX("AH",HLDREA,RXIEN)
End DoDot:2
End DoDot:1
+11 QUIT
