| [613] | 1 | PSORXI ;IHS/DSD/JCM - logs pharmacy interventions ; 03/19/93 11:56
|
|---|
| 2 | ;;7.0;OUTPATIENT PHARMACY;**268**;DEC 1997;Build 9
|
|---|
| 3 | ; This routine is used to create entries in the APSP INTERVENTION file.
|
|---|
| 4 | START ;
|
|---|
| 5 | D INIT,DIC G:PSORXI("QFLG") END
|
|---|
| 6 | D EDIT
|
|---|
| 7 | S:'$D(PSONEW("PROVIDER")) PSONEW("PROVIDER")=$P(^APSPQA(32.4,PSORXI("DA"),0),"^",3)
|
|---|
| 8 | END D EOJ
|
|---|
| 9 | Q
|
|---|
| 10 | INIT ;
|
|---|
| 11 | W !!,"Now creating Pharmacy Intervention",!
|
|---|
| 12 | I $G(PSODRUG("IEN")) W "for "_$P($G(^PSDRUG(PSODRUG("IEN"),0)),"^"),!
|
|---|
| 13 | K PSORXI S PSORXI("QFLG")=0
|
|---|
| 14 | Q
|
|---|
| 15 | DIC ;
|
|---|
| 16 | K DIC,DR,DA,X,Y,DD,DO S DIC="^APSPQA(32.4,",DLAYGO=9009032.4,DIC(0)="L",X=DT
|
|---|
| 17 | S DIC("DR")=".02////"_+PSODFN_";.04////"_DUZ_";.05////"_PSODRUG("IEN")_";.06///PHARMACY"
|
|---|
| 18 | S DIC("DR")=DIC("DR")_";.07"_$S($G(PSORX("INTERVENE"))=1:"////18",$G(PSORX("INTERVENE"))=2:"////19",1:"////6")_";.14////0"_";.16////"_$S($G(PSOSITE)]"":PSOSITE,1:"")
|
|---|
| 19 | D FILE^DICN K DIC,DR,DA
|
|---|
| 20 | I Y>0 S PSORXI("DA")=+Y
|
|---|
| 21 | E S PSORXI("QFLG")=1 G DICX
|
|---|
| 22 | D DIE
|
|---|
| 23 | DICX K X,Y
|
|---|
| 24 | Q
|
|---|
| 25 | DIE ;
|
|---|
| 26 | K DIE,DIC,DR,DA
|
|---|
| 27 | S DIE="^APSPQA(32.4,",DA=PSORXI("DA"),DR=$S($G(PSORXI("EDIT"))]"":".03:1600",1:".03;.08")
|
|---|
| 28 | L +^APSPQA(32.4,PSORXI("DA")):$S(+$G(^DD("DILOCKTM"))>0:+^DD("DILOCKTM"),1:3) D ^DIE K DIE,DIC,DR,X,Y,DA L -^APSPQA(32.4,PSORXI("DA"))
|
|---|
| 29 | W $C(7),!!,"See 'Pharmacy Intervention Menu' if you want to delete this",!,"intervention or for more options.",!
|
|---|
| 30 | Q
|
|---|
| 31 | EDIT ;
|
|---|
| 32 | K DIR W ! S DIR(0)="Y",DIR("A")="Would you like to edit this intervention ",DIR("B")="N" D ^DIR K DIR I $D(DIRUT)!'Y G EDITX
|
|---|
| 33 | S PSORXI("EDIT")=1 D DIE G EDIT
|
|---|
| 34 | EDITX K X,Y
|
|---|
| 35 | Q
|
|---|
| 36 | EOJ ;
|
|---|
| 37 | K PSORXI
|
|---|
| 38 | Q
|
|---|
| 39 | EN1(PSOX) ; Entry Point if have internal rx #
|
|---|
| 40 | N PSODFN,PSONEW,PSODRUG,PSOY
|
|---|
| 41 | I $G(^PSRX(+$G(PSOX),0))']"" W !,$C(7),"No prescription data" G EN1X
|
|---|
| 42 | S PSORXI("IRXN")=PSOX K PSOY S PSOY=^PSRX(PSORXI("IRXN"),0)
|
|---|
| 43 | S PSODFN=$P(PSOY,"^",2),PSONEW("PROVIDER")=$P(PSOY,"^",4),PSODRUG("IEN")=$P(PSOY,"^",6)
|
|---|
| 44 | D START
|
|---|
| 45 | EN1X Q
|
|---|
