Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSOVER

Package: Outpatient Pharmacy

Routine: PSOVER


Information

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

Source Information

Source file <PSOVER.m>

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!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All