PSS219PO.m

PSS219PO ;AITC/BWF-Post Install routine for patch PSS*1*219 ;11/24/2017

 ;;1.0;PHARMACY DATA MANAGEMENT;**219**;9/30/97;Build 14

 ;

POSTINIT ;

 N FBUCC,PATCH

 S FBUCC=$O(^PS(50.606,"B","FILM,BUCCAL",0)),PATCH=$O(^PS(50.606,"B","PATCH",0))

 D PUT^XPAR("PKG","PSS BUPRENORPHINE PAIN DFS",1,FBUCC)

 D PUT^XPAR("PKG","PSS BUPRENORPHINE PAIN DFS",2,PATCH)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSS219PO   363     printed  Dec 13, 2024@02:29:30                                                                                                                                                                                                     Page 2

PSS219PO  ;AITC/BWF-Post Install routine for patch PSS*1*219 ;11/24/2017

 +1       ;;1.0;PHARMACY DATA MANAGEMENT;**219**;9/30/97;Build 14

 +2       ;

POSTINIT  ;

 +1        NEW FBUCC,PATCH

 +2        SET FBUCC=$ORDER(^PS(50.606,"B","FILM,BUCCAL",0))

           SET PATCH=$ORDER(^PS(50.606,"B","PATCH",0))

 +3        DO PUT^XPAR("PKG","PSS BUPRENORPHINE PAIN DFS",1,FBUCC)

 +4        DO PUT^XPAR("PKG","PSS BUPRENORPHINE PAIN DFS",2,PATCH)

 +5        QUIT