ORY176 ; slc/CLA - Pre and Post-init for patch OR*3*176 ; 17 Aug 2004 2:29 PM
;;3.0;ORDER ENTRY/RESULTS REPORTING;**176**;Dec 17, 1997
;
PRE ;initiate pre-init processes
N FDA,ERR
S FDA(9.4,"?+1,",.01)="HERBAL/OTC/NON-VA MEDS"
S FDA(9.4,"?+1,",1)="PSH"
S FDA(9.4,"?+1,",2)="Non-VA Medications"
D UPDATE^DIE("","FDA","","ERR")
I $D(ERR) D BMES^XPDUTL("Error creating HERBAL/OTC/NON-VA MEDS Package entry.")
Q
;
POST ;initiate post-init processes
;update Pharmacy Display Group:
N FDA,ERR
S FDA(100.98,"?1,",.01)="PHARMACY"
S FDA(100.981,"?+2,?1,",.01)="NON-VA MEDICATIONS"
D UPDATE^DIE("E","FDA","","ERR")
I $D(ERR) D BMES^XPDUTL("Error adding NON-VA MEDICATIONS to Pharmacy Display Group.")
;
D BMES^XPDUTL("Updating OE/RR Orderable Item file with Non-VA Meds...")
S XPDIDTOT=0 D UPDATE^XPDID(0) ; reset status bar
S XPDIDTOT=$P(^PS(50.7,0),"^",4) ; Pharmacy Orderable Item file
;
;call PDM to send Master File Updates to CPRS
N XXOI,PSSCROSS,PSSTEST
S XXOI=0,PSSCROSS=1
F S XXOI=$O(^PS(50.7,XXOI)) Q:'XXOI D
. I '(XXOI#100) D UPDATE^XPDID(XXOI) ; update status bar
. I '$P(^PS(50.7,XXOI,0),"^",10) Q
. S PSSTEST=XXOI D EN1^PSSPOIDT
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY176 1210 printed Oct 16, 2024@18:39:27 Page 2
ORY176 ; slc/CLA - Pre and Post-init for patch OR*3*176 ; 17 Aug 2004 2:29 PM
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**176**;Dec 17, 1997
+2 ;
PRE ;initiate pre-init processes
+1 NEW FDA,ERR
+2 SET FDA(9.4,"?+1,",.01)="HERBAL/OTC/NON-VA MEDS"
+3 SET FDA(9.4,"?+1,",1)="PSH"
+4 SET FDA(9.4,"?+1,",2)="Non-VA Medications"
+5 DO UPDATE^DIE("","FDA","","ERR")
+6 IF $DATA(ERR)
DO BMES^XPDUTL("Error creating HERBAL/OTC/NON-VA MEDS Package entry.")
+7 QUIT
+8 ;
POST ;initiate post-init processes
+1 ;update Pharmacy Display Group:
+2 NEW FDA,ERR
+3 SET FDA(100.98,"?1,",.01)="PHARMACY"
+4 SET FDA(100.981,"?+2,?1,",.01)="NON-VA MEDICATIONS"
+5 DO UPDATE^DIE("E","FDA","","ERR")
+6 IF $DATA(ERR)
DO BMES^XPDUTL("Error adding NON-VA MEDICATIONS to Pharmacy Display Group.")
+7 ;
+8 DO BMES^XPDUTL("Updating OE/RR Orderable Item file with Non-VA Meds...")
+9 ; reset status bar
SET XPDIDTOT=0
DO UPDATE^XPDID(0)
+10 ; Pharmacy Orderable Item file
SET XPDIDTOT=$PIECE(^PS(50.7,0),"^",4)
+11 ;
+12 ;call PDM to send Master File Updates to CPRS
+13 NEW XXOI,PSSCROSS,PSSTEST
+14 SET XXOI=0
SET PSSCROSS=1
+15 FOR
SET XXOI=$ORDER(^PS(50.7,XXOI))
if 'XXOI
QUIT
Begin DoDot:1
+16 ; update status bar
IF '(XXOI#100)
DO UPDATE^XPDID(XXOI)
+17 IF '$PIECE(^PS(50.7,XXOI,0),"^",10)
QUIT
+18 SET PSSTEST=XXOI
DO EN1^PSSPOIDT
End DoDot:1
+19 ;
+20 QUIT
