Routine: ORY176

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.")

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY176   1210     printed  Apr 09, 2024@21:24:55                                                                                                                                                                                                      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

ORY176.m