PSSP198 ;DAL/DSK-PSS*1.0*198 POST INSTALL ROUTINE ; 31 May 2016 7:07 PM
;;1.0;PHARMACY DATA MANAGEMENT;**198**;9/30/97;Build 15
;;Reference to $$SETSTR^VALM1 is covered by DBIA #10116
;;Reference to ^XMD is covered by DBIA #10070
;;
Q
;
POST ;Check DRUG (#50) file and also DOSE UNITS (#51.24) file
N PSSCNT S PSSCNT=1
D DOSE
D DRUG
Q
;
DOSE ;Change needed to the DOSE UNITS (#51.24) file
; (1) FIRST DATABANK DOSE UNIT (#1) field:
; (a) APPLICATORFUL/S changed to APPLICATORFUL
; (b) SUPPOSITORY/IES changed to SUPPOSITORY
; (2) Add SUPPOSITORY/IES as a synonym
;
N DIE,DA,DR,PSSDOSE,PSSFLG
S DIE="^PS(51.24,",PSSFLG=0
S ^TMP($J,"PSSP198",PSSCNT)="",PSSCNT=PSSCNT+1
S ^TMP($J,"PSSP198",PSSCNT)="This mail message has been sent to those holding the PSNMGR security key",PSSCNT=PSSCNT+1
S ^TMP($J,"PSSP198",PSSCNT)="as well as the installer of the PSS*1.0*198 patch.",PSSCNT=PSSCNT+1
S ^TMP($J,"PSSP198",PSSCNT)="",PSSCNT=PSSCNT+1
S ^TMP($J,"PSSP198",PSSCNT)="This mail message should also be forwarded to the Pharmacy ADPAC for review."
S ^TMP($J,"PSSP198",PSSCNT)="",PSSCNT=PSSCNT+1
S ^TMP($J,"PSSP198",PSSCNT)="Changes made to the DOSE UNITS (#51.24) file:",PSSCNT=PSSCNT+1
S ^TMP($J,"PSSP198",PSSCNT)="",PSSCNT=PSSCNT+1
S ^TMP($J,"PSSP198",PSSCNT)=" FIRST DATABANK (FDB) DOSE UNIT (#1) field",PSSCNT=PSSCNT+1
S DA=$O(^PS(51.24,"C","APPLICATORFUL/S",0))
I DA="" D
.S ^TMP($J,"PSSP198",PSSCNT)="",PSSCNT=PSSCNT+1
.S ^TMP($J,"PSSP198",PSSCNT)=" * No change needed to correct ""APPLICATORFUL/S"".",PSSCNT=PSSCNT+1
.S ^TMP($J,"PSSP198",PSSCNT)=" Post-install routine for patch PSS*1.0*198 may have been",PSSCNT=PSSCNT+1
.S ^TMP($J,"PSSP198",PSSCNT)=" already run or the file was corrected in the past.",PSSCNT=PSSCNT+1
.S ^TMP($J,"PSSP198",PSSCNT)="",PSSCNT=PSSCNT+1
I DA]"" D
. S PSSDOSE=$G(^PS(51.24,DA,0))
. S ^TMP($J,"PSSP198",PSSCNT)=" * Name: "_$P(PSSDOSE,"^")_" Old: "_$P(PSSDOSE,"^",2)_" New: APPLICATORFUL",PSSCNT=PSSCNT+1
. S DR="1////APPLICATORFUL" D ^DIE K DA,DR
S DA=$O(^PS(51.24,"C","SUPPOSITORY/IES",0))
I DA="" D
.S ^TMP($J,"PSSP198",PSSCNT)="",PSSCNT=PSSCNT+1
.S ^TMP($J,"PSSP198",PSSCNT)=" * No change needed to correct ""SUPPOSITORY/IES"".",PSSCNT=PSSCNT+1
.S ^TMP($J,"PSSP198",PSSCNT)=" Post-install routine for patch PSS*1.0*198 may have been",PSSCNT=PSSCNT+1
.S ^TMP($J,"PSSP198",PSSCNT)=" already run or the file was corrected in the past.",PSSCNT=PSSCNT+1
.S ^TMP($J,"PSSP198",PSSCNT)="",PSSCNT=PSSCNT+1
I DA]"" D
. S PSSDOSE=$G(^PS(51.24,DA,0))
. S ^TMP($J,"PSSP198",PSSCNT)=" * Name: "_$P(PSSDOSE,"^")_" Old: "_$P(PSSDOSE,"^",2)_" New: SUPPOSITORY",PSSCNT=PSSCNT+1
. S ^TMP($J,"PSSP198",PSSCNT)="",PSSCNT=PSSCNT+1
. S ^TMP($J,"PSSP198",PSSCNT)=" SYNONYM (#2) field corresponding to the NAME (#.01) field:",PSSCNT=PSSCNT+1
. S ^TMP($J,"PSSP198",PSSCNT)=" ""SUPPOSITORY/IES"" added as a synonym for ""SUPPOSITOR(IES)"".",PSSCNT=PSSCNT+1
. S ^TMP($J,"PSSP198",PSSCNT)=" (""APPLICATORFUL/S"" is already a synonym for ""APPLICATORFUL(S)"").",PSSCNT=PSSCNT+1
. S DR="1////SUPPOSITORY" D ^DIE
. S DR="2////SUPPOSITORY/IES" D ^DIE
. K DA,DR
S ^TMP($J,"PSSP198",PSSCNT)="",PSSCNT=PSSCNT+1
K DIE
Q
;
DRUG ;Loop through the DRUG (#50) file and search for drugs that are
;defined with MEMANTINE HCL 5MG/10MG TAB TITRATION PAK,49
;in the PSNDF VA PRODUCT NAME ENTRY (#22) field
;
;This field points to the VA PRODUCT (#50.68) file
;
;The internal entry number (ien) for MEMANTINE HCL 5MG/10MG TAB
;TITRATION PAK,49 in file 50.68 is 16512
;
;If the NCPDP DISPENSE UNIT (#82) field is defined with "RA"
;(which is invalid), change the value to "EA".
;
N PSSIEN,PSSNCP,PSSNAM,PSSDU,PSSUNIT,DIE,DA,DR,XMSUB,PSSTXT,PSSCTR
S PSSIEN=0 F S PSSIEN=$O(^PSDRUG(PSSIEN)) Q:'PSSIEN D
.S PSSNCP=+$P($G(^PSDRUG(PSSIEN,"ND")),"^",3)
.I PSSNCP=16512,$P($G(^PSDRUG(PSSIEN,"EPH")),"^",2)="RA" D
..S PSSNAM=$P(^PSDRUG(PSSIEN,0),"^",1),PSSDU=$P($G(^PSDRUG(PSSIEN,"EPH")),"^",2)
..S PSSUNIT="EA",DIE="^PSDRUG(",DA=PSSIEN,DR="82////"_PSSUNIT D ^DIE K DA,DIE,DR
..S ^TMP($J,"PSSP198-1",PSSIEN,1)=PSSNAM_"^RA^"_PSSUNIT
S PSSIEN=0
S ^TMP($J,"PSSP198",PSSCNT)="PSS*1*198 NCPDP Disp Unit Corrections",PSSCNT=PSSCNT+1,PSSTXT=""
F PSSCTR=1:1:79 S PSSTXT=PSSTXT_"-"
S ^TMP($J,"PSSP198",PSSCNT)=PSSTXT,PSSCNT=PSSCNT+1,^TMP($J,"PSSP198",PSSCNT)="",PSSCNT=PSSCNT+1
S ^TMP($J,"PSSP198",PSSCNT)="The following drug(s) is/are associated with the VA Product",PSSCNT=PSSCNT+1
S ^TMP($J,"PSSP198",PSSCNT)="MEMANTINE HCL 5MG/10MG TAB TITRATION PAK and the",PSSCNT=PSSCNT+1
S ^TMP($J,"PSSP198",PSSCNT)="NCPDP Dispense Unit have been changed to EA (Each).",PSSCNT=PSSCNT+1
S ^TMP($J,"PSSP198",PSSCNT)="",PSSTXT="",PSSCNT=PSSCNT+1
F PSSCTR=1:1:79 S PSSTXT=PSSTXT_"="
S ^TMP($J,"PSSP198",PSSCNT)=PSSTXT,PSSCNT=PSSCNT+1
I '$D(^TMP($J,"PSSP198-1")) D G EXIT
.S ^TMP($J,"PSSP198",PSSCNT)="",PSSCNT=PSSCNT+1
.S ^TMP($J,"PSSP198",PSSCNT)=" All drugs associated with",PSSCNT=PSSCNT+1
.S ^TMP($J,"PSSP198",PSSCNT)=" MEMANTINE HCL 5MG/10MG TAB TITRATION PAK",PSSCNT=PSSCNT+1
.S ^TMP($J,"PSSP198",PSSCNT)=" are marked correctly.",PSSCNT=PSSCNT+1
.S ^TMP($J,"PSSP198",PSSCNT)="",PSSCNT=PSSCNT+1
.S ^TMP($J,"PSSP198",PSSCNT)=" No changes were needed.",PSSCNT=PSSCNT+1
.S ^TMP($J,"PSSP198",PSSCNT)="",PSSCNT=PSSCNT+1
.D MAIL
D HDR
S PSSIEN=0 F S PSSIEN=$O(^TMP($J,"PSSP198-1",PSSIEN)) Q:'PSSIEN D
.S PSSTXT="" D TXT($P($G(^TMP($J,"PSSP198-1",PSSIEN,1)),"^",1)_" ("_PSSIEN_")",1)
.D TXT("RA",57),TXT($P($G(^TMP($J,"PSSP198-1",PSSIEN,1)),"^",3),63)
.S PSSCNT=PSSCNT+1,^TMP($J,"PSSP198",PSSCNT)=PSSTXT
.S PSSCNT=PSSCNT+1,^TMP($J,"PSSP198",PSSCNT)=""
D MAIL
;
EXIT ; CLEAN UP
K ^TMP($J),PSSCNT,PSSCTR,PSSDU,PSSIEN,PSSINS,PSSNAM,PSSNCP,PSSTXT,PSSUNIT,PSSUSER,XMDUZ,XMSUB,XMTEXT,XMY
Q
TXT(PSSVAL,PSSCAL) S:'$D(PSSTXT) PSSTXT="" S PSSTXT=$$SETSTR^VALM1(PSSVAL,PSSTXT,PSSCAL,$L(PSSVAL))
Q
MAIL N DIFROM
S XMSUB="PSS*1*198 Post-Install Report"
S PSSCNT=PSSCNT+1,^TMP($J,"PSSP198",PSSCNT)="***** End Of Report *****"
S XMTEXT="^TMP($J,""PSSP198"",",XMDUZ="PSS*1*198 Post Install",XMY(DUZ)=""
F PSSUSER=0:0 S PSSUSER=$O(^XUSEC("PSNMGR",PSSUSER)) Q:'PSSUSER S:PSSUSER'=.5 XMY(PSSUSER)="",XMY(DUZ)=""
D ^XMD
Q
HDR ;SET REPORT HEADER
S PSSTXT="" D TXT("NCPDP Disp Unit",55) S ^TMP($J,"PSSP198",PSSCNT)=PSSTXT,PSSTXT="",PSSCNT=PSSCNT+1
S PSSTXT="" D TXT("Drug",1),TXT("Old",57),TXT("New",63) S ^TMP($J,"PSSP198",PSSCNT)=PSSTXT,PSSCNT=PSSCNT+1
S PSSTXT=""
F PSSCTR=1:1:79 S PSSTXT=PSSTXT_"-"
S ^TMP($J,"PSSP198",PSSCNT)=PSSTXT,PSSCNT=PSSCNT+1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSSP198 6744 printed Apr 09, 2024@21:31:59 Page 2
PSSP198 ;DAL/DSK-PSS*1.0*198 POST INSTALL ROUTINE ; 31 May 2016 7:07 PM
+1 ;;1.0;PHARMACY DATA MANAGEMENT;**198**;9/30/97;Build 15
+2 ;;Reference to $$SETSTR^VALM1 is covered by DBIA #10116
+3 ;;Reference to ^XMD is covered by DBIA #10070
+4 ;;
+5 QUIT
+6 ;
POST ;Check DRUG (#50) file and also DOSE UNITS (#51.24) file
+1 NEW PSSCNT
SET PSSCNT=1
+2 DO DOSE
+3 DO DRUG
+4 QUIT
+5 ;
DOSE ;Change needed to the DOSE UNITS (#51.24) file
+1 ; (1) FIRST DATABANK DOSE UNIT (#1) field:
+2 ; (a) APPLICATORFUL/S changed to APPLICATORFUL
+3 ; (b) SUPPOSITORY/IES changed to SUPPOSITORY
+4 ; (2) Add SUPPOSITORY/IES as a synonym
+5 ;
+6 NEW DIE,DA,DR,PSSDOSE,PSSFLG
+7 SET DIE="^PS(51.24,"
SET PSSFLG=0
+8 SET ^TMP($JOB,"PSSP198",PSSCNT)=""
SET PSSCNT=PSSCNT+1
+9 SET ^TMP($JOB,"PSSP198",PSSCNT)="This mail message has been sent to those holding the PSNMGR security key"
SET PSSCNT=PSSCNT+1
+10 SET ^TMP($JOB,"PSSP198",PSSCNT)="as well as the installer of the PSS*1.0*198 patch."
SET PSSCNT=PSSCNT+1
+11 SET ^TMP($JOB,"PSSP198",PSSCNT)=""
SET PSSCNT=PSSCNT+1
+12 SET ^TMP($JOB,"PSSP198",PSSCNT)="This mail message should also be forwarded to the Pharmacy ADPAC for review."
+13 SET ^TMP($JOB,"PSSP198",PSSCNT)=""
SET PSSCNT=PSSCNT+1
+14 SET ^TMP($JOB,"PSSP198",PSSCNT)="Changes made to the DOSE UNITS (#51.24) file:"
SET PSSCNT=PSSCNT+1
+15 SET ^TMP($JOB,"PSSP198",PSSCNT)=""
SET PSSCNT=PSSCNT+1
+16 SET ^TMP($JOB,"PSSP198",PSSCNT)=" FIRST DATABANK (FDB) DOSE UNIT (#1) field"
SET PSSCNT=PSSCNT+1
+17 SET DA=$ORDER(^PS(51.24,"C","APPLICATORFUL/S",0))
+18 IF DA=""
Begin DoDot:1
+19 SET ^TMP($JOB,"PSSP198",PSSCNT)=""
SET PSSCNT=PSSCNT+1
+20 SET ^TMP($JOB,"PSSP198",PSSCNT)=" * No change needed to correct ""APPLICATORFUL/S""."
SET PSSCNT=PSSCNT+1
+21 SET ^TMP($JOB,"PSSP198",PSSCNT)=" Post-install routine for patch PSS*1.0*198 may have been"
SET PSSCNT=PSSCNT+1
+22 SET ^TMP($JOB,"PSSP198",PSSCNT)=" already run or the file was corrected in the past."
SET PSSCNT=PSSCNT+1
+23 SET ^TMP($JOB,"PSSP198",PSSCNT)=""
SET PSSCNT=PSSCNT+1
End DoDot:1
+24 IF DA]""
Begin DoDot:1
+25 SET PSSDOSE=$GET(^PS(51.24,DA,0))
+26 SET ^TMP($JOB,"PSSP198",PSSCNT)=" * Name: "_$PIECE(PSSDOSE,"^")_" Old: "_$PIECE(PSSDOSE,"^",2)_" New: APPLICATORFUL"
SET PSSCNT=PSSCNT+1
+27 SET DR="1////APPLICATORFUL"
DO ^DIE
KILL DA,DR
End DoDot:1
+28 SET DA=$ORDER(^PS(51.24,"C","SUPPOSITORY/IES",0))
+29 IF DA=""
Begin DoDot:1
+30 SET ^TMP($JOB,"PSSP198",PSSCNT)=""
SET PSSCNT=PSSCNT+1
+31 SET ^TMP($JOB,"PSSP198",PSSCNT)=" * No change needed to correct ""SUPPOSITORY/IES""."
SET PSSCNT=PSSCNT+1
+32 SET ^TMP($JOB,"PSSP198",PSSCNT)=" Post-install routine for patch PSS*1.0*198 may have been"
SET PSSCNT=PSSCNT+1
+33 SET ^TMP($JOB,"PSSP198",PSSCNT)=" already run or the file was corrected in the past."
SET PSSCNT=PSSCNT+1
+34 SET ^TMP($JOB,"PSSP198",PSSCNT)=""
SET PSSCNT=PSSCNT+1
End DoDot:1
+35 IF DA]""
Begin DoDot:1
+36 SET PSSDOSE=$GET(^PS(51.24,DA,0))
+37 SET ^TMP($JOB,"PSSP198",PSSCNT)=" * Name: "_$PIECE(PSSDOSE,"^")_" Old: "_$PIECE(PSSDOSE,"^",2)_" New: SUPPOSITORY"
SET PSSCNT=PSSCNT+1
+38 SET ^TMP($JOB,"PSSP198",PSSCNT)=""
SET PSSCNT=PSSCNT+1
+39 SET ^TMP($JOB,"PSSP198",PSSCNT)=" SYNONYM (#2) field corresponding to the NAME (#.01) field:"
SET PSSCNT=PSSCNT+1
+40 SET ^TMP($JOB,"PSSP198",PSSCNT)=" ""SUPPOSITORY/IES"" added as a synonym for ""SUPPOSITOR(IES)""."
SET PSSCNT=PSSCNT+1
+41 SET ^TMP($JOB,"PSSP198",PSSCNT)=" (""APPLICATORFUL/S"" is already a synonym for ""APPLICATORFUL(S)"")."
SET PSSCNT=PSSCNT+1
+42 SET DR="1////SUPPOSITORY"
DO ^DIE
+43 SET DR="2////SUPPOSITORY/IES"
DO ^DIE
+44 KILL DA,DR
End DoDot:1
+45 SET ^TMP($JOB,"PSSP198",PSSCNT)=""
SET PSSCNT=PSSCNT+1
+46 KILL DIE
+47 QUIT
+48 ;
DRUG ;Loop through the DRUG (#50) file and search for drugs that are
+1 ;defined with MEMANTINE HCL 5MG/10MG TAB TITRATION PAK,49
+2 ;in the PSNDF VA PRODUCT NAME ENTRY (#22) field
+3 ;
+4 ;This field points to the VA PRODUCT (#50.68) file
+5 ;
+6 ;The internal entry number (ien) for MEMANTINE HCL 5MG/10MG TAB
+7 ;TITRATION PAK,49 in file 50.68 is 16512
+8 ;
+9 ;If the NCPDP DISPENSE UNIT (#82) field is defined with "RA"
+10 ;(which is invalid), change the value to "EA".
+11 ;
+12 NEW PSSIEN,PSSNCP,PSSNAM,PSSDU,PSSUNIT,DIE,DA,DR,XMSUB,PSSTXT,PSSCTR
+13 SET PSSIEN=0
FOR
SET PSSIEN=$ORDER(^PSDRUG(PSSIEN))
if 'PSSIEN
QUIT
Begin DoDot:1
+14 SET PSSNCP=+$PIECE($GET(^PSDRUG(PSSIEN,"ND")),"^",3)
+15 IF PSSNCP=16512
IF $PIECE($GET(^PSDRUG(PSSIEN,"EPH")),"^",2)="RA"
Begin DoDot:2
+16 SET PSSNAM=$PIECE(^PSDRUG(PSSIEN,0),"^",1)
SET PSSDU=$PIECE($GET(^PSDRUG(PSSIEN,"EPH")),"^",2)
+17 SET PSSUNIT="EA"
SET DIE="^PSDRUG("
SET DA=PSSIEN
SET DR="82////"_PSSUNIT
DO ^DIE
KILL DA,DIE,DR
+18 SET ^TMP($JOB,"PSSP198-1",PSSIEN,1)=PSSNAM_"^RA^"_PSSUNIT
End DoDot:2
End DoDot:1
+19 SET PSSIEN=0
+20 SET ^TMP($JOB,"PSSP198",PSSCNT)="PSS*1*198 NCPDP Disp Unit Corrections"
SET PSSCNT=PSSCNT+1
SET PSSTXT=""
+21 FOR PSSCTR=1:1:79
SET PSSTXT=PSSTXT_"-"
+22 SET ^TMP($JOB,"PSSP198",PSSCNT)=PSSTXT
SET PSSCNT=PSSCNT+1
SET ^TMP($JOB,"PSSP198",PSSCNT)=""
SET PSSCNT=PSSCNT+1
+23 SET ^TMP($JOB,"PSSP198",PSSCNT)="The following drug(s) is/are associated with the VA Product"
SET PSSCNT=PSSCNT+1
+24 SET ^TMP($JOB,"PSSP198",PSSCNT)="MEMANTINE HCL 5MG/10MG TAB TITRATION PAK and the"
SET PSSCNT=PSSCNT+1
+25 SET ^TMP($JOB,"PSSP198",PSSCNT)="NCPDP Dispense Unit have been changed to EA (Each)."
SET PSSCNT=PSSCNT+1
+26 SET ^TMP($JOB,"PSSP198",PSSCNT)=""
SET PSSTXT=""
SET PSSCNT=PSSCNT+1
+27 FOR PSSCTR=1:1:79
SET PSSTXT=PSSTXT_"="
+28 SET ^TMP($JOB,"PSSP198",PSSCNT)=PSSTXT
SET PSSCNT=PSSCNT+1
+29 IF '$DATA(^TMP($JOB,"PSSP198-1"))
Begin DoDot:1
+30 SET ^TMP($JOB,"PSSP198",PSSCNT)=""
SET PSSCNT=PSSCNT+1
+31 SET ^TMP($JOB,"PSSP198",PSSCNT)=" All drugs associated with"
SET PSSCNT=PSSCNT+1
+32 SET ^TMP($JOB,"PSSP198",PSSCNT)=" MEMANTINE HCL 5MG/10MG TAB TITRATION PAK"
SET PSSCNT=PSSCNT+1
+33 SET ^TMP($JOB,"PSSP198",PSSCNT)=" are marked correctly."
SET PSSCNT=PSSCNT+1
+34 SET ^TMP($JOB,"PSSP198",PSSCNT)=""
SET PSSCNT=PSSCNT+1
+35 SET ^TMP($JOB,"PSSP198",PSSCNT)=" No changes were needed."
SET PSSCNT=PSSCNT+1
+36 SET ^TMP($JOB,"PSSP198",PSSCNT)=""
SET PSSCNT=PSSCNT+1
+37 DO MAIL
End DoDot:1
GOTO EXIT
+38 DO HDR
+39 SET PSSIEN=0
FOR
SET PSSIEN=$ORDER(^TMP($JOB,"PSSP198-1",PSSIEN))
if 'PSSIEN
QUIT
Begin DoDot:1
+40 SET PSSTXT=""
DO TXT($PIECE($GET(^TMP($JOB,"PSSP198-1",PSSIEN,1)),"^",1)_" ("_PSSIEN_")",1)
+41 DO TXT("RA",57)
DO TXT($PIECE($GET(^TMP($JOB,"PSSP198-1",PSSIEN,1)),"^",3),63)
+42 SET PSSCNT=PSSCNT+1
SET ^TMP($JOB,"PSSP198",PSSCNT)=PSSTXT
+43 SET PSSCNT=PSSCNT+1
SET ^TMP($JOB,"PSSP198",PSSCNT)=""
End DoDot:1
+44 DO MAIL
+45 ;
EXIT ; CLEAN UP
+1 KILL ^TMP($JOB),PSSCNT,PSSCTR,PSSDU,PSSIEN,PSSINS,PSSNAM,PSSNCP,PSSTXT,PSSUNIT,PSSUSER,XMDUZ,XMSUB,XMTEXT,XMY
+2 QUIT
TXT(PSSVAL,PSSCAL) if '$DATA(PSSTXT)
SET PSSTXT=""
SET PSSTXT=$$SETSTR^VALM1(PSSVAL,PSSTXT,PSSCAL,$LENGTH(PSSVAL))
+1 QUIT
MAIL NEW DIFROM
+1 SET XMSUB="PSS*1*198 Post-Install Report"
+2 SET PSSCNT=PSSCNT+1
SET ^TMP($JOB,"PSSP198",PSSCNT)="***** End Of Report *****"
+3 SET XMTEXT="^TMP($J,""PSSP198"","
SET XMDUZ="PSS*1*198 Post Install"
SET XMY(DUZ)=""
+4 FOR PSSUSER=0:0
SET PSSUSER=$ORDER(^XUSEC("PSNMGR",PSSUSER))
if 'PSSUSER
QUIT
if PSSUSER'=.5
SET XMY(PSSUSER)=""
SET XMY(DUZ)=""
+5 DO ^XMD
+6 QUIT
HDR ;SET REPORT HEADER
+1 SET PSSTXT=""
DO TXT("NCPDP Disp Unit",55)
SET ^TMP($JOB,"PSSP198",PSSCNT)=PSSTXT
SET PSSTXT=""
SET PSSCNT=PSSCNT+1
+2 SET PSSTXT=""
DO TXT("Drug",1)
DO TXT("Old",57)
DO TXT("New",63)
SET ^TMP($JOB,"PSSP198",PSSCNT)=PSSTXT
SET PSSCNT=PSSCNT+1
+3 SET PSSTXT=""
+4 FOR PSSCTR=1:1:79
SET PSSTXT=PSSTXT_"-"
+5 SET ^TMP($JOB,"PSSP198",PSSCNT)=PSSTXT
SET PSSCNT=PSSCNT+1
+6 QUIT
