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 ;3/9/05 12:53pm

Source Information

Source file <PSOVER1.m>

Call Graph

Call Graph Total: 38

Package Total Call Graph
Outpatient Pharmacy 26 ECMESND^PSOBPSU1  ($$RXSITE,$$SUBMIT)^PSOBPSUT  HD^PSODDPR2  DOSCK^PSODOSUT  (DSP,NVA)^PSODRDU1  (NOALRGY,POST,SET)^PSODRG  ^PSODSPL  EN^PSOFSIG  
SIG^PSOHELP  EN^PSOHLSN1  DAOC^PSONEW  DCORD^PSONEW2  ^PSONEWOC  (,UDSIG)^PSOORED3  (CLS,DRGINT,DUP)^PSOORRD2  REMOTE^PSOORRDI  
(ACT,DCV1,REA)^PSOPKIV1  $$PSOET^PSOREJP3  $$HDLG^PSOREJU1  $$FIND^PSOREJUT  REMOTE^PSORX1  EPH^PSORXEDT  SUS^PSORXL  ^PSORXPR  
(SHOW,SHOW2)^PSOVER  DELETE^PSOVER2  
VA FileMan 6 C^%DTC  EN^DDIOL  ^DIE  ^DIK  $$GET1^DIQ  ^DIR  
Pharmacy Data Management 4 $$DS^PSSDSAPI  PSOUL^PSSLOCK  $$GETNDC^PSSNDCUT  DOSE^PSSORPH  
List Manager 1 FULL^VALM1  
Order Entry Results Reporting 1 ($$HAVEHDR,HAVEHDR)^ORRDI1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 19

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

Entry Points

Name Comments DBIA/ICR reference
REDO ;
EDIT ;
PROF
EXPIRE
ORDCHK ;
VERIFY ;
VERY
KILL
OUT ;
DELETE
QUIT
UPSUS
CLEAN ;cleans up tmp("psorxdc") global
KV1 ;
KV
NVA ;
REMOTE ;
NOALRGY ;
ORDCK ;
FULLEDT
DRIDOSE(DA,RX0) ;where DA is RXIEN and RX0 is zero node of file 52 for the RXIEN
CHECK(PSONV) ;

External References

Name Field # of Occurrence
C^%DTC EXPIRE
EN^DDIOL VERY+15
^DIE VERY+14
^DIK KILL
$$GET1^DIQ ORDCK+12, ORDCK+16, ORDCK+21, CHECK+1
^DIR EDIT+7, VERIFY+6, CLEAN+10
$$HAVEHDR^ORRDI1 REMOTE+3
HAVEHDR^ORRDI1 REMOTE+2
ECMESND^PSOBPSU1 VERY+38
$$RXSITE^PSOBPSUT FULLEDT+6
$$SUBMIT^PSOBPSUT VERY+37
HD^PSODDPR2 PROF+2, REMOTE+4, REMOTE+7, REMOTE+10, ORDCK+5
DOSCK^PSODOSUT ORDCK+20
DSP^PSODRDU1 NVA+5
NVA^PSODRDU1 NVA+1
NOALRGY^PSODRG NOALRGY+3
POST^PSODRG ORDCK+15
SET^PSODRG REDO+5
^PSODSPL PROF+2
EN^PSOFSIG VERY+16
SIG^PSOHELP VERY+15
EN^PSOHLSN1 VERY+27, UPSUS
DAOC^PSONEW VERY+32
DCORD^PSONEW2 KILL
^PSONEWOC VERY+22, VERY+25
^PSOORED3 VERY+10
UDSIG^PSOORED3 VERY+16
CLS^PSOORRD2 REMOTE+12
DRGINT^PSOORRD2 REMOTE+13
DUP^PSOORRD2 REMOTE+11
REMOTE^PSOORRDI REMOTE+9
ACT^PSOPKIV1 VERY+26
DCV1^PSOPKIV1 EDIT+5
REA^PSOPKIV1 VERY
$$PSOET^PSOREJP3 VERY+40
$$HDLG^PSOREJU1 VERY+42
$$FIND^PSOREJUT VERY+41
REMOTE^PSORX1 REMOTE+6
EPH^PSORXEDT FULLEDT+8
SUS^PSORXL VERY+20
^PSORXPR EDIT+3, EDIT+18, EDIT+20
SHOW^PSOVER ORDCK+5
SHOW2^PSOVER PROF+2
DELETE^PSOVER2 DELETE
$$DS^PSSDSAPI DRIDOSE+14
PSOUL^PSSLOCK CLEAN+4
$$GETNDC^PSSNDCUT ORDCK+11
DOSE^PSSORPH VERY+10
FULL^VALM1 VERIFY+1, FULLEDT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+7
Function Call: WRITE
  • Prompt: !,"CHANGE",!
  • Line Location: EDIT+20
Function Call: WRITE
  • Prompt: !,$C(7),"This patient has no other prescriptions on file",!!
  • Line Location: PROF+0
Function Call: WRITE
  • Prompt: !!,$P(^DPT(DFN,0),"^"),?40,"ID#:"_VA("PID")
  • Line Location: PROF+1
Function Call: WRITE
  • Prompt: " RX#: "_$S($D(INT):$P(INT,"^"),$D(^PSRX(PSONV)):$P(^PSRX(PSONV,0),"^"),1:"")
  • Condition for execution: $D(INT)!$D(PSONV)
  • Line Location: PROF+1
Function Call: WRITE
  • Prompt: !,$P(^DPT(DFN,0),"^"),?40,"ID#:"_VA("PID")
  • Line Location: VERIFY+2
Function Call: WRITE
  • Prompt: " RX#: "_$S($D(INT):$P(INT,"^"),$D(^PSRX(PSONV)):$P(^PSRX(PSONV,0),"^"),1:"")
  • Condition for execution: $D(INT)!$D(PSONV)
  • Line Location: VERIFY+2
Function Call: WRITE
  • Prompt: !,PSODRUG("NAME"),!
  • Condition for execution: $D(PSODRUG("NAME"))
  • Line Location: VERIFY+2
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: !
  • Line Location: CLEAN+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CLEAN+10
Function Call: WRITE
  • Prompt: !!,"Remote data not available - Only local order checks processed.",!
  • Line Location: REMOTE+10
Function Call: WRITE
  • Prompt: !,PSOSCPT(SCRIPT)
  • Line Location: DRIDOSE+13
Function Call: WRITE
  • Prompt: !
  • Line Location: DRIDOSE+16
Routine Call
  • DIE
  • Line Location:
    • VERY+14
Routine Call
  • DIR
  • Line Location:
    • EDIT+7
    • VERIFY+6
    • CLEAN+10

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PROF+1, VERIFY+2, VERIFY+3
^PS(50.606 - [#50.606] CLEAN+7
^PS(50.7 - [#50.7] CLEAN+7
^PS(52.4 - [#52.4] EXPIRE+1*, VERIFY+9*, VERIFY+10*, DRIDOSE+4, DRIDOSE+5, DRIDOSE+7, DRIDOSE+14
^PS(52.41 - [#52.41] CLEAN+6
^PS(55 - [#55] EXPIRE+1!*, NVA+4
^PS(56 - [#56] DRIDOSE+8, DRIDOSE+11
^PS(59 - [#59] FULLEDT+7
^PSDRUG - [#50] REDO+2, REDO+4, EDIT+2, EDIT+16, VERY+17, VERY+23, CLEAN+7, NVA+5, ORDCK+7, ORDCK+8
, ORDCK+9, ORDCK+10, ORDCK+11, DRIDOSE+9, DRIDOSE+12
^PSDRUG("ASP" NVA+5
^PSRX - [#52] REDO+2, REDO+3, REDO+6, EDIT+2, EDIT+16, PROF+1, EXPIRE, EXPIRE+1*, ORDCHK+2, VERIFY+2
, VERIFY+9*, VERY+1!*, VERY+2!, VERY+3, VERY+5, VERY+6, VERY+7, VERY+9, VERY+17*, VERY+18
, VERY+19, VERY+23*, VERY+38, CLEAN+9, REMOTE+9, NOALRGY+2, ORDCK+4, ORDCK+6, DRIDOSE+4, DRIDOSE+5
, DRIDOSE+9, DRIDOSE+10, DRIDOSE+12
^TMP("PSODAOC" VERY+22!, VERY+25!, VERY+29, VERY+30!, VERY+33!
^TMP("PSORXDC" CLEAN+3, CLEAN+4, CLEAN+5, CLEAN+8, CLEAN+9, CLEAN+11!
^TMP($J REMOTE+1!, REMOTE+11, REMOTE+12, REMOTE+13!*, REMOTE+14!
^XTMP("ORRDI" REMOTE+5, REMOTE+10

Label References

Name Line Occurrences
$$CHECK EDIT+9
CLEAN OUT+2, OUT+3, QUIT
DELETE VERIFY+11
EDIT EDIT+9, EDIT+20, EDIT+21, PROF, PROF+2
EXPIRE EDIT+15
FULLEDT EDIT+9
KILL EDIT+9, VERY+18
ORDCHK EDIT+13
ORDCK ORDCHK+3
OUT EDIT+4, EDIT+5, EDIT+7, EDIT+10, EDIT+11, EDIT+12, EDIT+13, EDIT+18, EDIT+19, EDIT+20
, ORDCHK+5, VERIFY+7, VERY+3, DELETE
PROF EDIT+13
REDO EDIT+21
UPSUS VERY+20
VERIFY VERY
VERY VERIFY+1

Naked Globals

Name Field # of Occurrence
^("ND" ORDCK+9, ORDCK+10
^("SIG" VERY+5
^(0 REDO+2, VERY+9, ORDCK+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTION VERY+36~, VERY+37, VERY+38*, VERY+40*, VERY+42*
CLASS NVA+2~, NVA+5*
CLI ORDCK+2~
CLOZPAT KV1+1!
CT ORDCK+2~
DA EDIT+3*, EDIT+18*, EDIT+20*, EXPIRE, EXPIRE+1, VERY+3, VERY+8*, VERY+9, VERY+17*, VERY+18
, VERY+19, VERY+23, VERY+26, KILL*!, FULLEDT+4, FULLEDT+9*, DRIDOSE~
DEA1 EDIT+15!
DEA2 EDIT+15!
>> DFN PROF+1, VERIFY+2, NVA+4, ORDCK+3, ORDCK+15*
DGI ORDCK+2~
DIE EDIT+15!, VERY+14*!
DIK KILL*!
DIR EDIT+7!, VERIFY+6!, VERY+8!, VERY+14!, CLEAN+10!, KV!
DIR("?" EDIT+6*, VERIFY+5*, CLEAN+10*
DIR("A" EDIT+6*, VERIFY+4*, CLEAN+10*
DIR("B" EDIT+6*, VERIFY+4*
DIR(0 EDIT+6*, VERIFY+4*, CLEAN+10*
DIRUT EDIT+7, EDIT+11, EDIT+12, EDIT+18, EDIT+19, EDIT+20, VERY+8!, VERY+14!, OUT+2!, KV!
, ORDCK+18!, ORDCK+22!
DNM CLEAN+7*, CLEAN+8, NVA+1, NVA+4~, NVA+5*
DOSE VERY+10, VERY+11!
DR EDIT+15!, VERY+14*!
DRET KV1+1!
DRG REDO+2*, VERY+17*, VERY+23*, VERY+24, VERY+27, DELETE, UPSUS, ORDCK+2~, ORDCK+8*
DRGI ORDCK+2~
DT VERY+18
DTOUT EDIT+7, EDIT+19, EDIT+20, VERY+3, VERY+8!, VERY+13, VERY+14!, OUT+2!, CLEAN+10, KV!
, ORDCK+18!, ORDCK+22!
DUOUT VERY+3, VERY+8!, VERY+12*, VERY+13, VERY+14!, OUT+2!, CLEAN+10, KV!
DUPT ORDCK+2~
DUZ VERY+17
>> ENT VERY+12
FILL FULLEDT+2~
FLG NVA+2~, NVA+3*, NVA+5*
I VERY+6!, VERY+7*
IFN NVA+2~, NVA+4*
>> INS1 VERY+15
INT PROF+1, VERIFY+2, ORDCK+2~
IOF CLEAN+10
IOSL CLEAN+10, REMOTE+4, REMOTE+7, REMOTE+10, ORDCK+5
LSI ORDCK+2~
LST KV1+1!, ORDCK+2~
>> ODA FULLEDT+4*
OLDDA FULLEDT+2~, FULLEDT+9
ON ORDCK+2~
OPSLST FULLEDT+2~, FULLEDT+4*, FULLEDT+9
OPSOLST FULLEDT+2~, FULLEDT+4*, FULLEDT+9
ORCHK KV1+1!
ORDRG KV1+1!
ORN ORDCK+1~*, ORDCK+3, ORDCK+24*, FULLEDT+5~, FULLEDT+6*, FULLEDT+7
ORNZZ CLEAN+11!, ORDCK+1~, ORDCK+3*, ORDCK+24
>> P(5 EDIT+15!
PDRG ORDCK+2~
PHI KV1+1!
>> PKI1 EDIT+5, VERY, VERY+26
>> PKIR VERY, VERY+26
PRC KV1+1!
PRNXZ CLEAN+11!
PRNXZ( ORDCK+3*, ORDCK+24
>> PSD( EDIT+16!*
>> PSDFN EXPIRE+1, VERIFY+3
PSDNEW EDIT+1~, EDIT+2*, EDIT+16*, EDIT+21
PSDOLD EDIT+1~, EDIT+2*, EDIT+16, EDIT+21
>> PSDRUG("IEN" ORDCK+6*, ORDCK+7, ORDCK+8, ORDCK+9, ORDCK+10, ORDCK+11
PSDTSTOP EDIT+6!
>> PSLST FULLEDT+4, FULLEDT+9*
>> PSOACT EDIT+10, EDIT+12
PSOANSQD KV1+1!
>> PSOCLK REDO+1, EDIT+9, EDIT+11, EDIT+20, ORDCHK+4, OUT+2, OUT+3, ORDCK+17, ORDCK+18, ORDCK+22
>> PSOCQ EDIT+11*
PSODAOC VERY+31~*
PSODFN REDO+6*, VERY+9*, VERY+10, VERY+11!, REMOTE+1, REMOTE+9, REMOTE+10, REMOTE+13, REMOTE+14, NOALRGY+1~
, NOALRGY+2*, ORDCK+4*
PSODIR KV1+1!
>> PSODLQT CLEAN+10*
PSODOSEX CLEAN+1!
PSODOSF DRIDOSE+1~, DRIDOSE+14, DRIDOSE+15*
PSODRUG KV1+1!, NOALRGY+1~, FULLEDT+2~
PSODRUG("CLN" ORDCK+10*
PSODRUG("DAW" ORDCK+12*, ORDCK+13*
PSODRUG("DEA" ORDCK+10*
PSODRUG("IEN" REDO+3*, REDO+4, VERY+9*, VERY+10, VERY+11!, NOALRGY+2*, ORDCK+6*
PSODRUG("MAXDOSE" ORDCK+10*
PSODRUG("NAME" REDO+2*, VERIFY+2, NVA+5, ORDCK+8*
PSODRUG("NDC" ORDCK+11*
PSODRUG("NDF" ORDCK+9*
PSODRUG("OI" VERY+9*
PSODRUG("SIG" ORDCK+11*
PSODRUG("STKLVL" ORDCK+11*
PSODRUG("VA C LASS" , REDO+2*, NVA+5, ORDCK+7*, ORDCK+8*
PSOLIST FULLEDT+5~
PSOLIST(1 FULLEDT+7*
PSOLST ORDCK+1~, FULLEDT+4, FULLEDT+9*
PSOLST( ORDCK+1*, ORDCK+3, ORDCK+24*
>> PSONAM VERIFY+3*, VERIFY+4
PSONEW KV1+1!
PSONULN ORDCK+2~
PSONULN1 ORDCK+2~
PSONV REDO+2, REDO+3, REDO+6, EDIT+2, EDIT+3, EDIT+9, EDIT+16, EDIT+18, EDIT+20, PROF+1
, ORDCHK+2, VERIFY+2, VERIFY+9, VERIFY+10, VERY+1, VERY+2, VERY+3, VERY+5, VERY+6, VERY+7
, VERY+8, VERY+17, VERY+23, VERY+27, VERY+31, VERY+37, VERY+38, VERY+40, VERY+41, VERY+42
, KILL, UPSUS, REMOTE+9, NOALRGY+2, ORDCK+1, ORDCK+3, ORDCK+4, ORDCK+6, ORDCK+12, ORDCK+16
, ORDCK+21, FULLEDT+3, CHECK~, CHECK+1
PSOODFN ORDCK+1~, ORDCK+3*, ORDCK+15
PSOOI NVA+2~, NVA+4*, NVA+5
>> PSOOVNOD VERIFY+9
>> PSOOVSTA VERIFY+9, VERIFY+10
PSOPAR VERIFY+1, VERY+18, FULLEDT+5~, FULLEDT+7*
>> PSOPOCK EDIT+9
PSOQUIT ORDCHK+4*, QUIT*, KV1+1!, ORDCK+23
PSOR CLEAN+6*, CLEAN+7, CLEAN+11!
>> PSORENW("OIRXN" ORDCK+3*, ORDCK+24!
>> PSORX("DFLG" EDIT+4, ORDCHK+4*, ORDCHK+5, VERIFY+8*, VERY+30, OUT+2*, OUT+3*, CLEAN+10*, ORDCK+16*, ORDCK+18!
, ORDCK+19, ORDCK+20, ORDCK+21*, ORDCK+22!, ORDCK+23
>> PSORX("FILL D ATE" , VERY+19*, VERY+21!, KV1+1!
>> PSORX("ISSUE DATE" , KV1+1!
>> PSORXED VERY+16
>> PSORXED("IRXN" EDIT+18, EDIT+20, VERY+9*, FULLEDT+3*
>> PSORXED("SIG" VERY+15*
PSOSCPT DRIDOSE+1~
PSOSCPT( DRIDOSE+9*, DRIDOSE+12*, DRIDOSE+13
PSOSD PROF, FULLEDT+5~
PSOSD( NVA+1, NVA+4
PSOSD("ACTIVE" VERY+24*, UPSUS*
PSOSD("NON-VERIFIED" VERY+24*, VERY+27!, DELETE!, UPSUS*!
PSOSERV DRIDOSE+1~, DRIDOSE+8*
PSOSIGFL KV1+1!
PSOSITE ORDCK+11, FULLEDT+5~, FULLEDT+6*, FULLEDT+7
PSOSTAT CHECK+1~*, CHECK+2
>> PSOVBCK EDIT+7*, VERIFY+8*
PSOVER VERY+8*, VERY+11!, VERY+19*
PSOVER( VERY+23*
PSOVER1 ORDCHK+1*, OUT+1!, QUIT!
PSOVINF ORDCK+7~*, ORDCK+8, ORDCK+10, ORDCK+11, ORDCK+14!
>> PSOVORD ORDCK+1*
>> PSOVQUIT REDO+3*, ORDCHK+5, ORDCK+18*, ORDCK+22*
>> PSOWRIT CLEAN+10
PSOWRITE CLEAN+2~, CLEAN+8*, CLEAN+9*, CLEAN+10
>> PSOY REDO+4*
>> PSOY(0 REDO+4*
PSRX1 EDIT+15!
PSRX2 EDIT+15!
PSTRIVER VERY+20*, VERY+21!
>> PSVERFLG REDO+1, EDIT+10*, VERIFY+8*, ORDCK+17*
REJ FULLEDT+2~
RET VERY+33!
RORD CLEAN+3*, CLEAN+4, CLEAN+5, CLEAN+6, CLEAN+8, CLEAN+9, CLEAN+11!
RX FULLEDT+2~, FULLEDT+3*, FULLEDT+6, DRIDOSE+1~, DRIDOSE+2*, DRIDOSE+4, DRIDOSE+5, DRIDOSE+7, DRIDOSE+10, DRIDOSE+14
RX0 EXPIRE*, ORDCHK+2*, DRIDOSE~, DRIDOSE+2, DRIDOSE+3
>> RXF VERY+19*
RXN VERY+31~*, DRIDOSE+1~, DRIDOSE+3*
RXREC NVA+2~, NVA+4*
RXX DRIDOSE+1~
RXX( DRIDOSE+7*, DRIDOSE+9, DRIDOSE+10*, DRIDOSE+12
SCRIPT DRIDOSE+1~, DRIDOSE+7*, DRIDOSE+10*, DRIDOSE+13*
SER ORDCK+2~, DRIDOSE+1~, DRIDOSE+8*, DRIDOSE+9, DRIDOSE+11*, DRIDOSE+12
SERS ORDCK+2~
SEV ORDCK+2~, DRIDOSE+1~, DRIDOSE+7*, DRIDOSE+10*
SEV( DRIDOSE+7*, DRIDOSE+8, DRIDOSE+10*, DRIDOSE+11
SIG KV1+1!
SPFL1 VERY+2!, VERY+19*
>> STA NVA+1, NVA+4
STX ORDCK+2~
SV ORDCK+2~
T DRIDOSE+1~, DRIDOSE+14*, DRIDOSE+15
UPFLAGX OUT+2!, OUT+3!, DELETE!
>> VA("PID" PROF+1, VERIFY+2
>> VALMBCK EDIT+9*, EDIT+10*, EDIT+12*, OUT+2*, FULLEDT+9*
X EXPIRE*, EXPIRE+1, VERY+15, CLEAN+10!, NVA+2~, DRIDOSE+1~, DRIDOSE+7*, DRIDOSE+8, DRIDOSE+9, DRIDOSE+10*
, DRIDOSE+11, DRIDOSE+12
X1 EXPIRE*, EXPIRE+1!
X2 EXPIRE*, EXPIRE+1!
Y EDIT+9, EDIT+10, EDIT+13, VERIFY+7, VERIFY+11, CLEAN+10!, NVA+2~, NVA+3*, NVA+5*, ORDCK+1~

Marked Items

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