source: WorldVistAEHR/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOPOST1.m@ 1464

PSOPOST1 ;BHAM ISC/SAB - post routine to view status of background jobs ; 6/26/97

 ;;7.0;OUTPATIENT PHARMACY;**12,29,87**;DEC 1997

 ;External Ref. to ^ORD(101, is supp. by DBIA# 872

 K %ZIS,IOP,ZTSK S PSOION=ION,%ZIS="QM" D ^%ZIS K %ZIS I POP S IOP=PSOION D ^%ZIS K IOP G EX

 I $D(IO("Q")) D  S IOP=PSOION D ^%ZIS G EX

 .S ZTDESC="Outpatient Pharmacy Background Job Status",ZTRTN="EN^PSOPOST1",ZTSAVE("ZTREQ")="@" D ^%ZTLOAD

 .W:$D(ZTSK) !,"Report Queued to Print!",! K X,Y,IO("Q"),ZTSK

EN K DIC,DR,DA,DIQ,PSOPOST

 S DIC=59.7,DA=1,DR=".01;49.99;49.981;49.982",DIQ="PSOPOST" D EN^DIQ1

 Q

 I $G(PSOPOST(59.7,1,49.99))<7 D

 .K PSOPOST(59.7,1,49.981),PSOPOST(59.7,1,49.982),PSOPOST(59.7,1,49.983),PSOPOST(59.7,1,49.984)

 D NOW^%DTC S $P(LINE,"-",IOM)="-",HDR="Outpatient Pharmacy Background Job Status",Y=% X ^DD("DD")

 U IO W @IOF,!?1,HDR_"  "_$P(Y,"@")_"  "_$P(Y,"@",2)_"       Page 1",!,LINE

 W !?17,"Site Name: "_PSOPOST(59.7,1,.01),!?1,"Current Version Installed: "_$G(PSOPOST(59.7,1,49.99)),!

 W !?1,"Background Conversion Job Started: "_$S($G(PSOPOST(59.7,1,49.981))]"":$P(PSOPOST(59.7,1,49.981),"@")_"  "_$P(PSOPOST(59.7,1,49.981),"@",2),1:"Job Not Started Yet!")

 W !?21,"Job Completed: "_$S($G(PSOPOST(59.7,1,49.982))]"":$P(PSOPOST(59.7,1,49.982),"@")_"  "_$P(PSOPOST(59.7,1,49.982),"@",2),1:"")

EX D ^%ZISC K DIC,DR,DA,DIQ,PSOPOST,LINE,HDR,Y,X,%I,D0,PSOION

 Q

OPT ;PSO*7.0*12 deletes PSO CANCEL protocol in preinstall

 S DA=$O(^ORD(101,"B","PSO CANCEL",0)) I DA S DIK="^ORD(101," D ^DIK K DIK,DA

NDCM ;PSO*7*29 data conv. rout. to move data of field#11 NDC piece 13 from File 52.1(Refills) Node 0 to piece 3 of Node 1

 N V1,V2

 S V1=0 F  S V1=$O(^PSRX(V1)) Q:'V1  S V2=0 F  S V2=$O(^PSRX(V1,1,V2)) Q:'V2  S NDC=$P($G(^(V2,0)),"^",13) S:NDC]"" $P(^(1),"^",3)=NDC,$P(^(0),"^",13)=""

 Q

NDC ;PSO*7.0*29 Pre-install, to remove field#11 (NDC) of file 52.1 (Refills) in order to increase the length of field#1.2 (Current Unit Price of Drug) from 99.999 to 999.9999

 S DIK="^DD(52.1,",DA=11,DA(1)=52.1 D ^DIK K DIK,DA

 Q

NDCQ ;Post-install display

 W !  ;S DIR(0)="Y",DIR("B")="YES"

 W !,"In this patch field NDC (#11) in the REFILL sub-file (#52.1) is moved to"

 W !,"a new node within the multiple. The data in the old location can be moved to "

 W !,"it's new location now by selecting a time to queue the background job or can be"

 W !,"moved later by using the entry point NDCQ^PSOPOST1. This job can run at least"

 W !,"an hour or more depending on the amount of data that is in the PRESCRIPTION"

 W !,"file (#52). If you do not want to queue the background job at this time"

 W !,"enter '^' at the prompt."

 W !,"Be aware at this point that the cursor is hidden and the characters you enter"

 W !,"here will not be seen as the whole process is under the control of KIDS."

NDCG ;PSO*7*29 post-install background bob Date/Time selection

 W ! K %DT D NOW^%DTC S %DT="RAEX",%DT(0)=%,%DT("A")="Queue Post-install Job to run Date/Time: "

 D ^%DT K %DT I $D(DTOUT)!(Y<0) G NDCX

 S ZTDTH=$G(Y),ZTIO="",ZTRTN="NDCM^PSOPOST1",ZTDESC="Outpatient Pharmacy V7 Patch 29 Data Conversion",ZTIO=""

 D ^%ZTLOAD W:$D(ZTSK)&('$D(ZTQUEUED)) !!,"Task Queued !",!

 Q

NDCX W !!,"Task not queued !",!

 Q

MISIG ;post install for PSO*7*87

 F RX=0:0 S RX=$O(^PSRX(RX)) Q:'RX  I $G(^PSRX(RX,"SIG"))="^",$P($G(^("OR1")),"^",3) D

 .S RXN=$P(^PSRX(RX,"OR1"),"^",3) I $P($G(^PSRX(RXN,"SIG")),"^")]"" S ^PSRX(RX,"SIG")=^PSRX(RXN,"SIG") D EN^DDIOL(".","","?1")

 K RX,RXN

 Q