PSS247PO.m

PSS247PO ;BIR/SJA-Post Install routine for patch PSS*1*247 ;12/01/20

 ;;1.0;PHARMACY DATA MANAGEMENT;**247**;9/30/97;Build 11

 ;

 Q

POST ; add data to the new 'PSS BUPRENORPHINE PAIN VAPRODS' parameter

 N PARA S PARA="PSS BUPRENORPHINE PAIN VAPRODS"

 D PUT^XPAR("PKG",PARA,1,21859) ;BUPRENORPHINE 10MCG/HR PATCH

 D PUT^XPAR("PKG",PARA,2,24191) ;BUPRENORPHINE 15MCG/HR PATCH

 D PUT^XPAR("PKG",PARA,3,21860) ;BUPRENORPHINE 20MCG/HR PATCH

 D PUT^XPAR("PKG",PARA,4,21858) ;BUPRENORPHINE 5MCG/HR PATCH

 D PUT^XPAR("PKG",PARA,5,25043) ;BUPRENORPHINE 7.5MCG/HR PATCH

 D PUT^XPAR("PKG",PARA,6,26340) ;BUPRENORPHINE 150MCG FILM,BUCCAL

 D PUT^XPAR("PKG",PARA,7,26341) ;BUPRENORPHINE 300MCG FILM,BUCCAL

 D PUT^XPAR("PKG",PARA,8,26342) ;BUPRENORPHINE 450MCG FILM,BUCCAL

 D PUT^XPAR("PKG",PARA,9,26343) ;BUPRENORPHINE 600MCG FILM,BUCCAL

 D PUT^XPAR("PKG",PARA,10,26344) ;BUPRENORPHINE 750MCG FILM,BUCCAL

 D PUT^XPAR("PKG",PARA,11,26335) ;BUPRENORPHINE 75MCG FILM,BUCCAL

 D PUT^XPAR("PKG",PARA,12,26345) ;BUPRENORPHINE 900MCG FILM,BUCCAL

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSS247PO   1046     printed  Apr 09, 2024@21:35:09                                                                                                                                                                                                    Page 2

PSS247PO  ;BIR/SJA-Post Install routine for patch PSS*1*247 ;12/01/20

 +1       ;;1.0;PHARMACY DATA MANAGEMENT;**247**;9/30/97;Build 11

 +2       ;

 +3        QUIT 

POST      ; add data to the new 'PSS BUPRENORPHINE PAIN VAPRODS' parameter

 +1        NEW PARA

           SET PARA="PSS BUPRENORPHINE PAIN VAPRODS"

 +2       ;BUPRENORPHINE 10MCG/HR PATCH

           DO PUT^XPAR("PKG",PARA,1,21859)

 +3       ;BUPRENORPHINE 15MCG/HR PATCH

           DO PUT^XPAR("PKG",PARA,2,24191)

 +4       ;BUPRENORPHINE 20MCG/HR PATCH

           DO PUT^XPAR("PKG",PARA,3,21860)

 +5       ;BUPRENORPHINE 5MCG/HR PATCH

           DO PUT^XPAR("PKG",PARA,4,21858)

 +6       ;BUPRENORPHINE 7.5MCG/HR PATCH

           DO PUT^XPAR("PKG",PARA,5,25043)

 +7       ;BUPRENORPHINE 150MCG FILM,BUCCAL

           DO PUT^XPAR("PKG",PARA,6,26340)

 +8       ;BUPRENORPHINE 300MCG FILM,BUCCAL

           DO PUT^XPAR("PKG",PARA,7,26341)

 +9       ;BUPRENORPHINE 450MCG FILM,BUCCAL

           DO PUT^XPAR("PKG",PARA,8,26342)

 +10      ;BUPRENORPHINE 600MCG FILM,BUCCAL

           DO PUT^XPAR("PKG",PARA,9,26343)

 +11      ;BUPRENORPHINE 750MCG FILM,BUCCAL

           DO PUT^XPAR("PKG",PARA,10,26344)

 +12      ;BUPRENORPHINE 75MCG FILM,BUCCAL

           DO PUT^XPAR("PKG",PARA,11,26335)

 +13      ;BUPRENORPHINE 900MCG FILM,BUCCAL

           DO PUT^XPAR("PKG",PARA,12,26345)

 +14       QUIT