PSOVER ;BIR/SAB-verify rx's by clerk ;09-Oct-2008 11:17;SM
Source file <PSOVER.m>
Package | Total | Call Graph |
---|---|---|
Outpatient Pharmacy | 11 | ^PSOBUILD PROCESS^PSODGDG1 STAT^PSODGDG2 ^PSODSPL ^PSOLSET LOCK^PSOORCPY CER^PSOPKIV1 ^PSORXL ^PSORXPR (MARKV,VOPN)^PSOTPCAN ^PSOVER1 |
VA Fileman | 4 | ^DIC FILE^DICN (,IX)^DIK ^DIR |
Registration | 2 | (KVA,PID)^VADPT FULL^VALM1 |
Pharmacy Data Management | 1 | ($$L,PSOL,PSOUL,UL)^PSSLOCK |
Name | Comments | DBIA/ICR reference |
---|---|---|
PAT | ||
LPAT | ;
|
|
EOJ | ||
DONE | ||
PPL | ||
CL1 | ||
CL2 | ||
ULK1 | ;
|
|
END | ||
SHOW | ||
ULP | ;
|
|
PATCHK | ;I $D(PSOVER),PSDFN0,PSDFN0'=DFN S (DFN,PSDFN)=PSDFN0 D PACK S (DFN,PSDFN)=PSODFN D ^PSOBUILD,PID^VADPT S PSONAM=$P(^DPT(DFN,0),"^") Q
|
|
L1 | ||
ULB | ;
|
|
PAT1 | ; EP - New IHS Patient processing
|
|
QUIT | ||
OERR | ;K PSONOOR,PSOVER I $G(PSONACT) W $C(7),$C(7) S VALMSG="No Pharmacy Orderable Item!",VALMBCK="" Q
|
|
CLERK | ||
DONEX | ||
DSPL | ||
DGDGI | ;process drug interaction for non verified rxs
|
|
LRX | ;
|
|
LK1 | ;
|
|
ULRX | ;
|
|
PACK | ;S PPL="" F J=0:0 S J=$O(PSOVER(J)) Q:'J S PPL=PPL_J_"," ;IHS/MSC/PLS - 07/10/08
|
Name | Field # of Occurrence |
---|---|
^DIC | PAT, PAT1+5, CLERK+5, OERR+10 |
FILE^DICN | OERR+13 |
^DIK | PPL |
IX^DIK | OERR+15 |
^DIR | DGDGI+4, LRX+2 |
^PSOBUILD | PAT+1, PAT1+6, PATCHK+1, PATCHK+2 |
PROCESS^PSODGDG1 | DGDGI+7 |
STAT^PSODGDG2 | CL1, OERR+16 |
^PSODSPL | SHOW+1 |
^PSOLSET | PSOVER+6, PAT1+1, CLERK |
LOCK^PSOORCPY | PAT1+10, LPAT+3 |
CER^PSOPKIV1 | DSPL+1 |
^PSORXL | PACK+4 |
^PSORXPR | DSPL+2 |
MARKV^PSOTPCAN | PPL+6 |
VOPN^PSOTPCAN | OERR+2 |
^PSOVER1 | DSPL+3 |
$$L^PSSLOCK | PAT1+10, OERR+7, LPAT+3 |
PSOL^PSSLOCK | OERR+8, LRX+2, LK1+2 |
PSOUL^PSSLOCK | PAT1+13, PAT1+14, PAT1+15, CL1+6, CL1+7, CL1+8, ULRX+2, ULK1+2, ULB+2 |
UL^PSSLOCK | OERR+8, ULP+2, ULB+1 |
KVA^VADPT | END+1 |
PID^VADPT | L1, PAT1+7, PATCHK+1, PATCHK+2, OERR+18 |
FULL^VALM1 | OERR+10 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls |
^VA(200 - [#200] | Classic Fileman Calls |
^PS(52.4 - [#52.4] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | PAT+1, PAT1+6, PATCHK+1, PATCHK+2, OERR+17, LRX+3 |
^PS(52.4 - [#52.4] | L1, L1+1, L1+2, L1+4, PAT1+7, PAT1+11, PAT1+13, PAT1+15, CL1, CL1+6 , CL1+8, DGDGI+1, DGDGI+2, DGDGI+9, DONE+2, OERR+14*, OERR+15, OERR+18, OERR+20, PPL |
^PS(53 - [#53] | DSPL+2 |
^PS(56 - [#56] | DGDGI+7 |
^PSRX - [#52] | L1+3, L1+4, PAT1+14, PAT1+15, CL1+7, CL1+8, DSPL, DSPL+1, DSPL+2, DGDGI+1 , DGDGI+2, DGDGI+7, DGDGI+8*, DGDGI+9, DGDGI+10, DONE!, DONE+2, OERR+6, OERR+11, OERR+14 , OERR+19, OERR+20, EOJ+1 |
^XUSEC("PSORPH" | PSOVER+7, PAT1+2, OERR+5 |
Name | Line Occurrences |
---|---|
CLERK | PAT, PAT1+5, CL2 |
DGDGI | L1+2, L1+3, PAT1+13, PAT1+14, CL1+6, CL1+7, OERR+18, OERR+19 |
DONE | DGDGI+8, DGDGI+9 |
DONEX | DGDGI+4 |
DSPL | L1+4, PAT1+15, CL1+8, DGDGI+8, DGDGI+9, DGDGI+10, DONE+2, OERR+20 |
END | PAT, PAT1+5, CLERK, CLERK+6, EOJ |
EOJ | OERR+16, OERR+18, OERR+19, PPL+3 |
LK1 | DGDGI+3 |
LPAT | CL1+3 |
LRX | PAT1+12, CL1+5 |
PACK | L1, PAT1+7, PAT1+16, CL2, PATCHK+1, QUIT |
PAT | L1, PAT1+7 |
PAT1 | PAT1+18 |
PATCHK | CL1 |
PPL | OERR+18, OERR+19 |
QUIT | L1+5, PAT1+17 |
ULB | OERR+10, EOJ |
ULK1 | DGDGI+4, DONE+3 |
ULP | CL1+3, CL1+9 |
Name | Field # of Occurrence |
---|---|
^("MP" | DSPL+2 |
^("STA" | DGDGI+7, DGDGI+8, DONE, OERR+11 |
^(0 | DSPL+2, OERR+14 |
^(2 | OERR+14 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
A1 | END+1! |
C | END+1! |
CAN | END! |
CLFLAG | CL1*! |
CLS | END! |
D | EOJ! |
D0 | END+1! |
DA | END!, DSPL+1*, DSPL+2, OERR+10*, OERR+11!, OERR+15*, PPL*! |
DD | OERR+13! |
DEA1 | END! |
DEA2 | END! |
>> DFN | PAT+1*, PAT1+6*, CL1*, PATCHK+1*, PATCHK+2, DGDGI+7, OERR+17* |
DGDG | L1+1*, L1+2, PAT1+11*, PAT1+13, CL1*, CL1+6, EOJ! |
DIC | PAT*!, PAT1+5*!, CLERK+5*, CLERK+6!, END!, OERR+10!*, OERR+13*! |
DIC("A" | PAT*, PAT1+5*, CLERK+5* |
DIC("S" | PAT*, PAT1+5*, CLERK+5* |
DIC(0 | PAT*, PAT1+5*, CLERK+5*, OERR+10*, OERR+13* |
DIE | END! |
DIK | OERR+15*!, PPL*! |
DINUM | OERR+13*! |
DIPGM | END+1! |
DIR | END+3!, DGDGI+4!, LRX+2! |
DIR("A" | DGDGI+4*, LRX+2* |
DIR(0 | DGDGI+4*, LRX+2* |
DIROUT | END+3! |
DIRUT | END+3! |
DLAYGO | OERR+13*! |
DO | OERR+13! |
DQ | END+1! |
DR | END! |
DRG | END! |
DRGG | END! |
DRGX | END+1! |
DRUG | END+1! |
DTOUT | CLERK+6, END+3! |
DUOUT | END+3! |
DUP | END! |
DUPRX | END! |
DUPRX0 | END! |
DUZ | PSOVER+7, PAT1+2, OERR+5 |
FLAGST | CL1, END+1!, OERR+16 |
FLDT | END! |
I | END! |
>> IFN | DGDGI+7* |
II | END+1! |
INA | END+3!, DGDGI+7* |
>> INT | DGDGI+7* |
ISDT | END! |
ISSD | END! |
J | PACK+1*, END! |
LOCKARRY | DGDGI+3!, DGDGI+4, DONE+3, DONEX!, ULK1+1 |
LOCKARRY( | LK1+3*, ULK1+2 |
LOCKINA | DGDGI+3*, DONEX! |
LST | OERR+17~ |
LSTFL | END! |
MED | END+3!, DGDGI+2*, DGDGI+3, DGDGI+4, DGDGI+7 |
MW | EOJ! |
N | END+1! |
>> ORD | OERR+2, OERR+6, OERR+10 |
>> ORN | EOJ+1 |
P | EOJ! |
PCOMX | EOJ! |
PDA | EOJ! |
PHY | END+1! |
PHYS | END! |
PI | END+1! |
PKI | DSPL+1~ |
PKI1 | DSPL+1~ |
PKIE | DSPL+1~ |
PKIR | DSPL+1~ |
>> POERR | END+3 |
PPL | PAT+1*, PAT1+6*, CLERK+6*, PACK+1*, PACK+4, PACK+7*, END!, OERR+17* |
PSC | END! |
PSD | PACK+7!, END!, EOJ! |
PSDFN | PAT+1*, L1, L1+1, PAT1+6*, PAT1+7, PAT1+10, PAT1+11, CL1*, CL1+4, PATCHK+1* , END!, OERR+17*, LRX+3 |
PSDFN0 | CLERK+6*, CL1+4*, PATCHK+1, PATCHK+2, END! |
PSDNEW | END! |
PSDOLD | END! |
PSI | END+1! |
>> PSLST | OERR+2, OERR+6, OERR+10 |
PSLSTVER | OERR+9*, OERR+10, OERR+11!, OERR+12*, PPL, EOJ! |
PSMSG | END! |
PSOACT | PAT!, PAT1+4! |
>> PSOBEDT | OERR+4 |
PSOCLK | CLERK+4*, END+1! |
PSOCNT | END+1! |
PSOCQ | CLERK+4!, CL1, END+1! |
PSODFN | PAT+1*, PAT1+6*, CL1*, PATCHK+1, DGDGI+7*, OERR+9~, OERR+17* |
PSOFROM | PACK+3~* |
PSOLKVRX | DGDGI+3*, DONEX!, LK1+1, LK1+2, LK1+3 |
>> PSOLST( | OERR+2, OERR+6, OERR+10, EOJ+1 |
PSOMSG | PAT1+12!, CL1+5, CL1+6!, OERR+8!, LRX+1!, LRX+2, LK1+2 |
>> PSONACT | OERR+1 |
PSONAM | PAT+1*, PAT1+6*, CLERK+6!, PATCHK+1*, PATCHK+2*, END+1!, OERR+17* |
PSONOOR | END+3!, OERR+1! |
PSONULN | END+1! |
PSONV | PAT+1*, L1*, L1+1*, L1+2*, L1+3, L1+4, PAT1+6*, PAT1+7*, PAT1+11*, PAT1+13* , PAT1+14, PAT1+15, CLERK+6*, CL1*, CL1+1, CL1+6*, CL1+7, CL1+8, END!, DSPL , DSPL+1, DGDGI+1, DGDGI+2, DGDGI+7, DGDGI+8, DGDGI+9, DGDGI+10, DONE, DONE+2*, OERR+10* , OERR+11!, OERR+13, OERR+14, OERR+15, OERR+18, OERR+19, OERR+20, PPL, LRX+1, LRX+2 , ULRX+1, ULRX+2 |
PSONVLP | PPL+5*, PPL+7, PPL+9, PPL+10, EOJ! |
PSONVXX | CL1+1*, CL1+6, CL1+7, CL1+8, END+1! |
PSOOPT | PACK+4*!, DGDGI+7*, DONEX! |
>> PSOPAR | PSOVER+6, PAT1+1, CLERK |
PSOPLCK | PAT1+10*, OERR+7*!, OERR+8!, LPAT+3*, LPAT+4! |
PSOQUIT | PAT!, L1+1, PAT1+4!, PAT1+11, CLERK+4!, CL1, END! |
PSORX | CLERK+6! |
PSORX("PSOL" | PPL+7*, PPL+8, PPL+9*, PPL+10* |
PSOSD | L1+5, PAT1+17, SHOW, END+3! |
PSOSIG | L1+1!, L1+3*, PAT1+11!, PAT1+14*, CL1!, CL1+7*, END+3!, DGDGI+1, DGDGI+2, OERR+19* |
PSOSTA | EOJ! |
PSOTHER | L1+1!, PAT1+11!, CL1!, END+1!, DONE+1*, DONE+2 |
PSOTHER( | DONE+1 |
>> PSOTPBFG | OERR+2 |
PSOTPPE9 | OERR+2~*!, OERR+3! |
PSOTPPEN | OERR+2~*!, OERR+3! |
PSOTPPEX | OERR+2~*!, OERR+3! |
PSOTRVV | PACK+4*! |
PSOTT | PAT!, PAT1+4!, CLERK+6*, CL1, END! |
PSOVDFN | OERR+6*, OERR+7, OERR+8, ULB+1, ULB+3! |
PSOVER | PAT!, PAT1+4!, CLERK+6!, END!, OERR+1! |
PSOVERA | PAT1+4!, CLERK+6!, PATCHK+1, PACK+7!, END+2!, OERR+1! |
PSOVERA( | PACK+1, PPL+5 |
PSOVERA(0 | PPL+3 |
PSOVERLX | CLERK+1!, CL1+2, CL1+3!, END+1!, LPAT+3* |
PSOVERPH | CLERK+1!, CL1+2, CL1+3*, CL1+9, END+1!, ULP+1, ULP+2! |
PSOVERPL | CLERK+1!, CL1+3, CL1+9, END+1!, LPAT+1!, LPAT+3* |
PSOVERPX | CLERK+1!, CL1*, CL1+2, CL1+3, END+1!, LPAT+2, LPAT+3 |
PSOVMSGX | DGDGI+3!, DGDGI+4!, DGDGI+5, DGDGI+6!, LK1+2* |
PSOVOLK | ULK1+2*, ULK1+3! |
PSOVRXN | OERR+6*, OERR+8, ULB+2, ULB+3! |
>> PSOX1 | PPL+8* |
>> PSOX2 | PPL+8*, PPL+9, PPL+10 |
PSOZVER | PSOVER+7*, PAT1+3*, END+1!, OERR+9*, OERR+11! |
PSPRXN | EOJ! |
PSREA | END! |
PSRFLS | END! |
PSRX | END! |
PSRX1 | END! |
PSRX2 | END! |
PSRXREF | END! |
PSS | END+1! |
PSVERFLG | END!, DGDGI+7*, DGDGI+8, DGDGI+10 |
PSVFLAG | DSPL+3*! |
PTST | END+1! |
RFDATE | END+1! |
RFL | END+1! |
RFL1 | END+1! |
RFLL | END+1! |
RFLS | END! |
RX | DGDGI+7*, EOJ! |
RX0 | END! |
RX2 | END! |
RX3 | END! |
RXF | END+1! |
SD | END+1! |
SER | DGDGI+7*, DONEX! |
SER1 | END+3!, DGDGI+1*, DGDGI+7 |
ST | END! |
ST0 | END! |
ST00 | END+1! |
>> STA | DGDGI+7* |
STAR | END! |
STEXT | END+1! |
>> VALMBCK | OERR+1*, OERR+2*, OERR+4*, OERR+5*, OERR+7*, OERR+8*, OERR+11* |
>> VALMSG | OERR+1*, OERR+4*, OERR+5*, OERR+7*, OERR+8*, OERR+11* |
VERLFLAG | END+1!, DGDGI+3*, DGDGI+4, OERR+18, OERR+19, LK1+2* |
X | PAT, PAT1+5, END!, OERR+10*, OERR+11!, OERR+13*, OERR+15* |
Y | PAT, PAT+1, PAT1+5, PAT1+6, CLERK+6, END!, OERR+10, OERR+11! |
Y(0 | OERR+15*, OERR+17 |
Z | END+1! |