Routine: PSOVER

Information

PSOVER ;BIR/SAB-verify rx's by clerk ;09-Oct-2008 11:17;SM

Call Graph

Call Graph Total: 18

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

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Outpatient Pharmacy	2	PSO VR PSODGDG2

Entry Points

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

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"Pharmacy Division Must be Selected!",! Line Location: PSOVER+6
Function Call: WRITE	Prompt: $C(7),!!,"Pharmacy Division Must be Selected!",! Line Location: PAT1+1
Function Call: WRITE	Prompt: !,$C(7),"This patient has no prescriptions on file",!! Line Location: SHOW+0
Function Call: WRITE	Prompt: $C(7),!!,"Pharmacy Division Must be Selected!",! Line Location: CLERK+0
Function Call: WRITE	Prompt: ! Line Location: CLERK+3
Function Call: WRITE	Prompt: ! Line Location: CLERK+5
Function Call: WRITE	Prompt: !,"METHOD OF PICKUP : ",^("MP"),! Condition for execution: $D(^PSRX(DA,"MP")) Line Location: DSPL+2
Function Call: WRITE	Prompt: !!,"Cannot process this prescription, one of the interacting medications is",!,"being edited.",! Line Location: DGDGI+4
Function Call: WRITE	Prompt: PSOVMSGX,! Line Location: DGDGI+5
Function Call: WRITE	Prompt: $C(7),$C(7) Line Location: OERR+0
Function Call: WRITE	Prompt: $C(7),$C(7) Line Location: OERR+1
Function Call: WRITE	Prompt: $C(7),$C(7) Line Location: OERR+4
Function Call: WRITE	Prompt: "for patient "_$P($G(^DPT(PSDFN,0)),"^")_".",! Line Location: LRX+3
Routine Call	DIC Line Location: PAT PAT1+5 CLERK+5 OERR+10
Routine Call	DIR Line Location: DGDGI+4 LRX+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^VA(200 - [#200]	Classic Fileman Calls
^PS(52.4 - [#52.4]	Classic Fileman Calls

Global Variables Directly Accessed

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

Label References

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

Naked Globals

Name	Field # of Occurrence
^("MP"	DSPL+2
^("STA"	DGDGI+7, DGDGI+8, DONE, OERR+11
^(0	DSPL+2, OERR+14
^(2	OERR+14

Local Variables

Legend:

>>	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!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOVER

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: