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 |  Marked Items |  All
Print Page as PDF
Routine: PSOVER1

Package: Outpatient Pharmacy

Routine: PSOVER1


Information

PSOVER1 ;BHAM ISC/SAB - verify one rx ;29-May-2012 15:17;PLS

Source Information

Source file <PSOVER1.m>

Call Graph

Call Graph Total: 29

Package Total Call Graph
Outpatient Pharmacy 21 ECMESND^PSOBPSU1  $$SUBMIT^PSOBPSUT  (DSP,NVA)^PSODRDU1  CLS^PSODRDUP  ^PSODSPL  EN^PSOFSIG  SIG^PSOHELP  EN^PSOHLSN1  
DCORD^PSONEW2  (,UDSIG)^PSOORED3  (CLS,DRGINT,DUP,PAUSE)^PSOORRD2  REMOTE^PSOORRDI  ALLERGY^PSOORUT2  (ACT,DCV1,REA)^PSOPKIV1  $$HDLG^PSOREJU1  $$FIND^PSOREJUT  
REMOTE^PSORX1  EN1^PSORXI  SUS^PSORXL  ^PSORXPR  DELETE^PSOVER2  
VA Fileman 5 C^%DTC  EN^DDIOL  ^DIE  ^DIK  ^DIR  
Pharmacy Data Management 2 PSOUL^PSSLOCK  DOSE^PSSORPH  
Order Entry Results Reporting 1 ($$HAVEHDR,HAVEHDR)^ORRDI1  

Caller Graph

Caller Graph Total: 17

Package Total Caller Graph
Outpatient Pharmacy 17 PSOBBC  PSONEW  PSOORCPY  PSOOREDT  PSOORFI4  PSOORFI5  PSOORFIN  PSOORNE2  
PSOORNE4  PSOORNE5  PSOORNE6  PSOORNEW  PSOPKIV1  PSORENW0  PSORENW4  PSOVER  
PSOVER2  

Entry Points

Name Comments DBIA/ICR reference
QUIT
UPSUS
REMOTE ;
NVA ;
EDIT
VERIFY
CHKPRV(RXIEN) ; EP
NOALRGY ;
VERY
KV
EXPIRE
KILL
ALLR ;Allergy check
CLEAN ;cleans up tmp("psorxdc") global
KV1 ;
PROF
DELETE
REDO ;
CHANGE
OUT

External References

Name Field # of Occurrence
C^%DTC EXPIRE
EN^DDIOL VERY+15
^DIE CHANGE+1, CHANGE+4, VERY+14
^DIK REDO+12, KILL
^DIR REDO+10, REDO+11, ALLR+3, ALLR+8, EDIT+4, VERIFY+3, NOALRGY+4, CHKPRV+7
$$HAVEHDR^ORRDI1 REMOTE+3
HAVEHDR^ORRDI1 REMOTE+2
ECMESND^PSOBPSU1 VERY+27
$$SUBMIT^PSOBPSUT VERY+26
DSP^PSODRDU1 NVA+5
NVA^PSODRDU1 NVA+1
CLS^PSODRDUP REDO+11
^PSODSPL PROF+1
EN^PSOFSIG VERY+16
SIG^PSOHELP VERY+15
EN^PSOHLSN1 VERY+22, UPSUS
DCORD^PSONEW2 KILL
^PSOORED3 VERY+10
UDSIG^PSOORED3 VERY+16
CLS^PSOORRD2 REMOTE+11
DRGINT^PSOORRD2 REMOTE+12
DUP^PSOORRD2 REMOTE+10
PAUSE^PSOORRD2 REMOTE+6, REMOTE+9
REMOTE^PSOORRDI REMOTE+8
ALLERGY^PSOORUT2 ALLR+1
ACT^PSOPKIV1 VERY+21
DCV1^PSOPKIV1 EDIT
REA^PSOPKIV1 VERY
$$HDLG^PSOREJU1 VERY+29
$$FIND^PSOREJUT VERY+28
REMOTE^PSORX1 REMOTE+5
EN1^PSORXI ALLR+9, NOALRGY+7
SUS^PSORXL VERY+17
^PSORXPR CHANGE+7, CHKPRV+12
DELETE^PSOVER2 DELETE
PSOUL^PSSLOCK CLEAN+2
DOSE^PSSORPH VERY+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: REDO+9
Function Call: WRITE
  • Prompt: !
  • Line Location: REDO+10
Function Call: WRITE
  • Prompt: !
  • Line Location: REDO+11
Function Call: WRITE
  • Prompt: !!,"A Drug-Allergy Reaction exists for this medication!",!!,"***SIGNIFICANT*** Allergy Reaction"
  • Line Location: ALLR+4
Function Call: WRITE
  • Prompt: !,"Drug: ",$P($G(^PSDRUG(+$P($G(^PSRX(PSONV,0)),"^",6),0)),"^")
  • Line Location: ALLR+5
Function Call: WRITE
  • Prompt: !?6,"Ingredients: "
  • Line Location: ALLR+6
Function Call: WRITE
  • Prompt: !?19
  • Condition for execution: $X+$L($G(^PSRX(PSONV,"DAI",PSPPP,0)))+2>IOM
  • Line Location: ALLR+7
Function Call: WRITE
  • Prompt: $G(^PSRX(PSONV,"DAI",PSPPP,0))_", "
  • Line Location: ALLR+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ALLR+8
Function Call: WRITE
  • Prompt: !,$C(7),"This patient has no other prescriptions on file",!!
  • Line Location: PROF+0
Function Call: WRITE
  • Prompt: !!,"Rx: "_$P(^PSRX(DA,0),"^")_" not Verified!!",!
  • Line Location: VERY+3
Function Call: WRITE
  • Prompt: "SIG: "_$P(^PSRX(PSONV,"SIG"),"^"),!
  • Line Location: VERY+5
Function Call: WRITE
  • Prompt: ^PSRX(PSONV,"SIG1",I,0),!
  • Line Location: VERY+7
Function Call: WRITE
  • Prompt: !,"Remote data not available - Only local order checks processed."
  • Line Location: REMOTE+9
Function Call: WRITE
  • Prompt: $C(7),!,"There is no allergy assessment on file for this patient."
  • Line Location: NOALRGY+1
Function Call: WRITE
  • Prompt: !,"You will be prompted to intervene if you continue with this prescription"
  • Line Location: NOALRGY+2
Routine Call
  • DIE
  • Line Location:
    • CHANGE+1
    • CHANGE+4
    • VERY+14
Routine Call
  • DIR
  • Line Location:
    • REDO+10
    • REDO+11
    • ALLR+3
    • ALLR+8
    • EDIT+4
    • VERIFY+3
    • NOALRGY+4
    • CHKPRV+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] Classic Fileman Calls
^PS(52.4 - [#52.4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.4 - [#52.4] REDO+12, EXPIRE+1*
^PS(55 - [#55] EXPIRE+1!*, NVA+4
^PSDRUG - [#50] REDO+1, ALLR+5, CHANGE+6, NVA+5
^PSDRUG("ASP" NVA+5
^PSRX - [#52] REDO+1, REDO+2, REDO+12, REDO+13, ALLR+2, ALLR+5, ALLR+6, ALLR+7, CHANGE, CHANGE+6
, EXPIRE, EXPIRE+1*, VERY+1!*, VERY+2!, VERY+3, VERY+5, VERY+6, VERY+7, VERY+9, VERY+17*
, VERY+20*, VERY+27, CLEAN+3, REMOTE+8, CHKPRV+2, CHKPRV+11*
^TMP("PSORXDC" CLEAN+1, CLEAN+2, CLEAN+3, CLEAN+4!
^TMP($J REMOTE+1!, REMOTE+10, REMOTE+11, REMOTE+12!*, REMOTE+13!
^XTMP("ORRDI" REMOTE+4, REMOTE+9

Label References

Name Line Occurrences
$$CHKPRV REDO+4
CLEAN REDO+14, ALLR+1, OUT, QUIT
DELETE VERIFY+3
EDIT ALLR+2, CHANGE+8, PROF, PROF+1
EXPIRE CHANGE+5
KILL VERY+17
NOALRGY ALLR+1
NVA REDO+8
OUT ALLR+3, ALLR+8, EDIT, EDIT+4, EDIT+5, EDIT+6, EDIT+7, VERIFY+3, VERY+3, DELETE
PROF EDIT+7
QUIT VERIFY+3
REDO CHANGE+8
REMOTE REDO+15
UPSUS VERY+17
VERIFY EDIT+7, VERY
VERY VERIFY

Naked Globals

Name Field # of Occurrence
^( ALLR+7
^("SIG" VERY+5
^(0 REDO+1, VERY+9
^(2 VERY+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTION VERY+25~, VERY+26, VERY+27*, VERY+29*
CLASS NVA+2~, NVA+5*
CLOZPAT KV1+1!
DA REDO+12*, CHANGE*, CHANGE+1, CHANGE+7*, EXPIRE, EXPIRE+1, VERY+3, VERY+8*, VERY+9, VERY+17*
, VERY+21, KILL*!
DEA1 CHANGE+1*, CHANGE+5!
DEA2 CHANGE+1*, CHANGE+5!
>> DFN NVA+4
DIE CHANGE+1*, CHANGE+5!, VERY+14*!
DIK REDO+12*!, KILL*!
DIR REDO+10!, REDO+11!, ALLR+3!, ALLR+8!, EDIT+4!, VERIFY+3!, VERY+8!, VERY+14!, KV!, NOALRGY+3!
, CHKPRV+1~
DIR("?" EDIT+3*, VERIFY+2*
DIR("A" REDO+10*, REDO+11*, ALLR+8*, EDIT+3*, VERIFY+1*, NOALRGY+4*, CHKPRV+4*
DIR("B" ALLR+8*, EDIT+3*, VERIFY+1*, NOALRGY+4*, CHKPRV+4*
DIR(0 REDO+10*, REDO+11*, ALLR+3*, ALLR+8*, EDIT+3*, VERIFY+1*, NOALRGY+4*, CHKPRV+7*
>> DIROUT CHKPRV+9
DIRUT EDIT+5, EDIT+6, VERY+8!, VERY+14!, OUT!, KV!
DNM REDO+6*, REDO+10, REDO+11, REDO+12, REDO+13, REDO+14!, REDO+16!, ALLR+1!, NVA+1, NVA+4~
, NVA+5*
DOSE VERY+10, VERY+11!
DR CHANGE+1*, CHANGE+4*, CHANGE+5!, VERY+14*!
DRET KV1+1!
>> DRG REDO+1*, VERY+20, VERY+22, DELETE, UPSUS
DT VERY+17
DTOUT ALLR+3, ALLR+8, VERY+3, VERY+8!, VERY+13, VERY+14!, OUT!, KV!
DUOUT ALLR+3, ALLR+8, VERY+3, VERY+8!, VERY+12*, VERY+13, VERY+14!, OUT!, KV!
DUZ VERY+17
>> ENT VERY+12
FLG NVA+2~, NVA+3*, NVA+5*
I VERY+6!, VERY+7*
IFN NVA+2~, NVA+4*
>> INS1 VERY+15
IOM ALLR+7
LST KV1+1!
MSG REDO+14!, ALLR+1!
ORCHK KV1+1!
ORDRG KV1+1!
>> P(5 CHANGE+5!
PHI KV1+1!
>> PKI1 EDIT, VERY, VERY+21
>> PKIR VERY, VERY+21
PRC KV1+1!
>> PSD( CHANGE+6!*
>> PSDFN EXPIRE+1
>> PSDNEW CHANGE+6*, CHANGE+8
>> PSDOLD CHANGE+1*, CHANGE+6, CHANGE+8
>> PSDPSTOP REDO+6*
PSDTSTOP REDO+10*, REDO+11*, REDO+14!, ALLR+1!, ALLR+3!, ALLR+8!, EDIT+3!
>> PSOACT EDIT+4, EDIT+6
PSOANSQD KV1+1!
>> PSOCLK EDIT+5
>> PSOCQ EDIT+5*
PSODFN REDO+2*, REDO+14!, REDO+16!, ALLR+1!, VERY+9*, VERY+10, VERY+11!, REMOTE+1, REMOTE+8, REMOTE+9
, REMOTE+12, REMOTE+13
PSODIR KV1+1!
PSODRUG REDO+14!, REDO+16!, ALLR+1!, KV1+1!
PSODRUG("IEN" VERY+9*, VERY+10, VERY+11!
PSODRUG("NAME" REDO+1*, REDO+10, REDO+11, NVA+5
PSODRUG("OI" VERY+9*
PSODRUG("VA C LASS" , REDO+1*, REDO+11, NVA+5
>> PSONAM VERIFY+1
PSONEW KV1+1!
PSONOAL ALLR+1*!
>> PSONULN REDO+6*
>> PSONV REDO+1, REDO+2, REDO+4, REDO+10, ALLR+2, ALLR+5, ALLR+6, ALLR+7, ALLR+9, CHANGE
, CHANGE+6, CHANGE+7, VERY+1, VERY+2, VERY+3, VERY+5, VERY+6, VERY+7, VERY+8, VERY+17
, VERY+20, VERY+22, VERY+26, VERY+27, VERY+28, VERY+29, KILL, UPSUS, REMOTE+8, NOALRGY+7
PSOOI NVA+2~, NVA+4*, NVA+5
>> PSOPAR CHANGE+1, VERIFY, VERY+17
PSOQUIT QUIT*, KV1+1!, CHKPRV+9*
>> PSORX("FILL D ATE" , VERY+17*!, KV1+1!
>> PSORX("INTERVENE" ALLR+9*, NOALRGY+6*
>> PSORX("ISSUE DATE" , KV1+1!
>> PSORXED VERY+16
>> PSORXED("IRXN" VERY+9*
>> PSORXED("SIG" VERY+15*
>> PSOSD PROF
>> PSOSD( REDO+6, REDO+10, REDO+11, REDO+12, REDO+13, NVA+1, NVA+4
>> PSOSD("ACTIVE" VERY+20*, UPSUS*
>> PSOSD("NON-VERIFIED" VERY+20*, VERY+22!, DELETE!, UPSUS*!
PSOSIGFL KV1+1!
PSOVER VERY+8*, VERY+11!, VERY+17*
>> PSOVERA( VERY+20*
PSPPP ALLR+7*, ALLR+8!
PSRX1 CHANGE*, CHANGE+5!
PSRX2 CHANGE*, CHANGE+5!
PSTRIVER VERY+17*!
>> PSVFLAG REDO+12, REDO+13, REDO+14
PSZZQUIT REDO+13*, REDO+14!, REDO+16!, ALLR+1!, NOALRGY+5*
PSZZZDUP REDO+6!, REDO+10*, REDO+12, REDO+13, REDO+14!, REDO+16!, ALLR+1!
RET CHKPRV+1~, CHKPRV+2*, CHKPRV+3, CHKPRV+8*, CHKPRV+10, CHKPRV+11, CHKPRV+13
RORD CLEAN+1*, CLEAN+2, CLEAN+3, CLEAN+4!
>> RX0 EXPIRE*
>> RXF VERY+17*
RXIEN CHKPRV~, CHKPRV+2, CHKPRV+11
RXREC NVA+2~, NVA+4*
SIG KV1+1!
SPFL VERY+2!
>> SPFL1 VERY+17*
>> STA REDO+6*, REDO+8, REDO+10, REDO+11, REDO+12, REDO+13, NVA+1, NVA+4
U CHKPRV+2, CHKPRV+11
UPFLAGX OUT!, DELETE!
>> VALMBCK EDIT+4*, EDIT+6*
X ALLR+8, EXPIRE*, EXPIRE+1, VERY+15, NVA+2~
>> X1 EXPIRE*
>> X2 EXPIRE*
Y ALLR+9, EDIT+4, EDIT+7, VERIFY+3, NVA+2~, NVA+3*, NVA+5*, NOALRGY+5, CHKPRV+1~, CHKPRV+8

Marked Items

Name Field # of Occurrence
$T(HAVEHDR^ORRDI1 REMOTE+2
$T(REMOTE^PSORX1 REMOTE+5
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 |  Marked Items |  All