PSS127PI.m

PSS127PI ; PSS*1*127 Post-install routine ;05/11/07

 ;;1.0;PHARMACY DATA MANAGEMENT;**127**;9/30/97;Build 41

 ;

 N DRUG,UNIT,MULTIP,ZND,NDF,ZTMP,DIE,DR,DA,COUNT

 ;

 D MES^XPDUTL(" ")

 D MES^XPDUTL(" Populating new fields in the DRUG file (#50)...")

 ;

 K ^TMP("PSSNCPDP",$J)

 M ^TMP("PSSNCPDP",$J)=@XPDGREF@("^XTMP(""PSSNCPDP"")")

 ;

 S XPDIDTOT=$P(^PSDRUG(0),"^",4),COUNT=0

 S DRUG=0

 F  S DRUG=$O(^PSDRUG(DRUG)) Q:'DRUG  D

 . I '$D(^PSDRUG(DRUG,0)) Q

 . S COUNT=COUNT+1 I '(COUNT#100) D UPDATE^XPDID(COUNT)

 . S UNIT="EA",MULTIP=1

 . S ZND=$G(^PSDRUG(DRUG,"ND")),NDF=+$P(ZND,"^",3)

 . I NDF,$D(^TMP("PSSNCPDP",$J,NDF)) D

 . . S ZTMP=$G(^TMP("PSSNCPDP",$J,NDF))

 . . S UNIT=$P(ZTMP,"^")

 . . S MULTIP=$P(ZTMP,"^",2)

 . S DIE="^PSDRUG(",DA=DRUG,DR="82////"_UNIT_";83////"_MULTIP D ^DIE

 D UPDATE^XPDID(XPDIDTOT)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSS127PI   840     printed  Mar 13, 2025@21:33:36                                                                                                                                                                                                     Page 2

PSS127PI  ; PSS*1*127 Post-install routine ;05/11/07

 +1       ;;1.0;PHARMACY DATA MANAGEMENT;**127**;9/30/97;Build 41

 +2       ;

 +3        NEW DRUG,UNIT,MULTIP,ZND,NDF,ZTMP,DIE,DR,DA,COUNT

 +4       ;

 +5        DO MES^XPDUTL(" ")

 +6        DO MES^XPDUTL(" Populating new fields in the DRUG file (#50)...")

 +7       ;

 +8        KILL ^TMP("PSSNCPDP",$JOB)

 +9        MERGE ^TMP("PSSNCPDP",$JOB)=@XPDGREF@("^XTMP(""PSSNCPDP"")")

 +10      ;

 +11       SET XPDIDTOT=$PIECE(^PSDRUG(0),"^",4)

           SET COUNT=0

 +12       SET DRUG=0

 +13       FOR 

               SET DRUG=$ORDER(^PSDRUG(DRUG))

               if 'DRUG

                   QUIT 

               Begin DoDot:1

 +14               IF '$DATA(^PSDRUG(DRUG,0))

                       QUIT 

 +15               SET COUNT=COUNT+1

                   IF '(COUNT#100)

                       DO UPDATE^XPDID(COUNT)

 +16               SET UNIT="EA"

                   SET MULTIP=1

 +17               SET ZND=$GET(^PSDRUG(DRUG,"ND"))

                   SET NDF=+$PIECE(ZND,"^",3)

 +18               IF NDF

                       IF $DATA(^TMP("PSSNCPDP",$JOB,NDF))

                           Begin DoDot:2

 +19                           SET ZTMP=$GET(^TMP("PSSNCPDP",$JOB,NDF))

 +20                           SET UNIT=$PIECE(ZTMP,"^")

 +21                           SET MULTIP=$PIECE(ZTMP,"^",2)

                           End DoDot:2

 +22               SET DIE="^PSDRUG("

                   SET DA=DRUG

                   SET DR="82////"_UNIT_";83////"_MULTIP

                   DO ^DIE

               End DoDot:1

 +23       DO UPDATE^XPDID(XPDIDTOT)

 +24       QUIT