PSNP578 ;HDSO/DJH - PSN*4.0*578 Post-Install Routine; Sep 05, 2025@15:00
;;4.0;NATIONAL DRUG FILE;**578**; 30 Oct 98;Build 5
;
;
Q
;
EN ;
N DIK,DA,PSNSAV
K ^XTMP("PSN*4.0*578 POST INSTALL")
S ^XTMP("PSN*4.0*578 POST INSTALL",0)=$$FMADD^XLFDT(DT,365)_"^"_DT_"^PSN*4.0*578 POST INSTALL"
S ^XTMP("PSN*4.0*578 POST INSTALL",6)="Unable to update TIZANIDINE HCL 4MG TAB - enter a ServiceNow Ticket."
I $P(^PSNDF(50.68,12664,0),U)="TIZANIDINE HCL 4MG TAB",$G(^PSNDF(50.68,12664,6,1,0))="RESTRICTED TO SPINAL CORD INJURY,NEUROLOGY,AND REHABILITATION" D
. M PSNSAV=^PSNDF(50.68,12664,6)
. S DIK="^PSNDF(50.68,12664,6,",DA=1,DA(1)=12664 D ^DIK
. S ^XTMP("PSN*4.0*578 POST INSTALL",6)="has been removed from TIZANIDINE HCL 4MG TAB (IEN 12664)"
D BMES^XPDUTL("PSN*4.0*578 post-install routine complete.")
D MAIL
M ^XTMP("PSN*4.0*578 POST INSTALL","RESTORE")=PSNSAV
Q
;
MAIL ;
N PSNMIN,PSNMY,PSNX,PSNMSUB,PSNMTEXT
S PSNMIN("FROM")="PSN*4.0*578 Post-Install"
S PSNMSUB="PSN*4.0*578 Post-Install"
S PSNMY(DUZ)=""
S PSNX=""
F S PSNX=$O(^XUSEC("PSN PPS ADMIN",PSNX)) Q:PSNX="" D
. S PSNMY(PSNX)=""
S ^XTMP("PSN*4.0*578 POST INSTALL",1)="PSN*4.0*578 post-install routine has completed."
S ^XTMP("PSN*4.0*578 POST INSTALL",2)=" "
S ^XTMP("PSN*4.0*578 POST INSTALL",3)="NATIONAL FORMULARY RESTRICTION:"
S ^XTMP("PSN*4.0*578 POST INSTALL",4)=" RESTRICTED TO SPINAL CORD INJURY,NEUROLOGY,AND REHABILITATION"
S ^XTMP("PSN*4.0*578 POST INSTALL",5)="-------------------- ----------------------------------------"
S PSNMTEXT="^XTMP(""PSN*4.0*578 POST INSTALL"")"
D SENDMSG^XMXAPI(DUZ,PSNMSUB,PSNMTEXT,.PSNMY,.PSNMIN,"","")
Q
;
;
RESTORE ;
I $P(^PSNDF(50.68,12664,0),U)="TIZANIDINE HCL 4MG TAB",$P(^PSNDF(50.68,12664,6,0),U,3)="" D
. I $O(^PSNDF(50.68,12664,6,0))="",$D(^XTMP("PSN*4.0*578 POST INSTALL","RESTORE")) D
. . M ^PSNDF(50.68,12664,6)=^XTMP("PSN*4.0*578 POST INSTALL","RESTORE")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSNP578 1950 printed May 25, 2026@12:28:09 Page 2
PSNP578 ;HDSO/DJH - PSN*4.0*578 Post-Install Routine; Sep 05, 2025@15:00
+1 ;;4.0;NATIONAL DRUG FILE;**578**; 30 Oct 98;Build 5
+2 ;
+3 ;
+4 QUIT
+5 ;
EN ;
+1 NEW DIK,DA,PSNSAV
+2 KILL ^XTMP("PSN*4.0*578 POST INSTALL")
+3 SET ^XTMP("PSN*4.0*578 POST INSTALL",0)=$$FMADD^XLFDT(DT,365)_"^"_DT_"^PSN*4.0*578 POST INSTALL"
+4 SET ^XTMP("PSN*4.0*578 POST INSTALL",6)="Unable to update TIZANIDINE HCL 4MG TAB - enter a ServiceNow Ticket."
+5 IF $PIECE(^PSNDF(50.68,12664,0),U)="TIZANIDINE HCL 4MG TAB"
IF $GET(^PSNDF(50.68,12664,6,1,0))="RESTRICTED TO SPINAL CORD INJURY,NEUROLOGY,AND REHABILITATION"
Begin DoDot:1
+6 MERGE PSNSAV=^PSNDF(50.68,12664,6)
+7 SET DIK="^PSNDF(50.68,12664,6,"
SET DA=1
SET DA(1)=12664
DO ^DIK
+8 SET ^XTMP("PSN*4.0*578 POST INSTALL",6)="has been removed from TIZANIDINE HCL 4MG TAB (IEN 12664)"
End DoDot:1
+9 DO BMES^XPDUTL("PSN*4.0*578 post-install routine complete.")
+10 DO MAIL
+11 MERGE ^XTMP("PSN*4.0*578 POST INSTALL","RESTORE")=PSNSAV
+12 QUIT
+13 ;
MAIL ;
+1 NEW PSNMIN,PSNMY,PSNX,PSNMSUB,PSNMTEXT
+2 SET PSNMIN("FROM")="PSN*4.0*578 Post-Install"
+3 SET PSNMSUB="PSN*4.0*578 Post-Install"
+4 SET PSNMY(DUZ)=""
+5 SET PSNX=""
+6 FOR
SET PSNX=$ORDER(^XUSEC("PSN PPS ADMIN",PSNX))
if PSNX=""
QUIT
Begin DoDot:1
+7 SET PSNMY(PSNX)=""
End DoDot:1
+8 SET ^XTMP("PSN*4.0*578 POST INSTALL",1)="PSN*4.0*578 post-install routine has completed."
+9 SET ^XTMP("PSN*4.0*578 POST INSTALL",2)=" "
+10 SET ^XTMP("PSN*4.0*578 POST INSTALL",3)="NATIONAL FORMULARY RESTRICTION:"
+11 SET ^XTMP("PSN*4.0*578 POST INSTALL",4)=" RESTRICTED TO SPINAL CORD INJURY,NEUROLOGY,AND REHABILITATION"
+12 SET ^XTMP("PSN*4.0*578 POST INSTALL",5)="-------------------- ----------------------------------------"
+13 SET PSNMTEXT="^XTMP(""PSN*4.0*578 POST INSTALL"")"
+14 DO SENDMSG^XMXAPI(DUZ,PSNMSUB,PSNMTEXT,.PSNMY,.PSNMIN,"","")
+15 QUIT
+16 ;
+17 ;
RESTORE ;
+1 IF $PIECE(^PSNDF(50.68,12664,0),U)="TIZANIDINE HCL 4MG TAB"
IF $PIECE(^PSNDF(50.68,12664,6,0),U,3)=""
Begin DoDot:1
+2 IF $ORDER(^PSNDF(50.68,12664,6,0))=""
IF $DATA(^XTMP("PSN*4.0*578 POST INSTALL","RESTORE"))
Begin DoDot:2
+3 MERGE ^PSNDF(50.68,12664,6)=^XTMP("PSN*4.0*578 POST INSTALL","RESTORE")
End DoDot:2
End DoDot:1
+4 QUIT
