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: PSOCAN4

Package: Outpatient Pharmacy

Routine: PSOCAN4


Information

PSOCAN4 ;BIR/SAB - rx speed dc listman ;10/23/06 11:50am

Source Information

Source file <PSOCAN4.m>

Call Graph

Call Graph

Call Graph Total: 18

Package Total Call Graph
Outpatient Pharmacy 11 ^PSOBUILD  (CHK,EXP)^PSOCAN  (COM,INVALD,SHOW,SPEED1)^PSOCAN1  REINS^PSOCAN2  (CAN1,KCAN)^PSOCAN3  EN^PSOHLSN  LOCK^PSOORCPY  RV^PSOORFL  
BLD^PSOORUT1  $$TRIC^PSOREJP1  ENQ^PSORXDL  
VA FileMan 3 ^DIC  ^DIK  ^DIR  
List Manager 1 (FULL,PAUSE)^VALM1  
Order Entry Results Reporting 1 ($$NA,NA)^ORX1  
Pharmacy Data Management 1 ($$L,PSOL,PSOUL,UL)^PSSLOCK  
Registration 1 ELIG^VADPT  

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: 14

Package Total Caller Graph
Outpatient Pharmacy 13 PSO SPEED CANCEL  PSOCAN1  PSOCAN2  PSOCAN3  PSODGDG1  PSODGDGI  PSODGDGP  PSODOSUT  
PSOORFI6  PSOREJU1  PSORENW0  PSORXDL  PSOVER2  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
SEL
ULP
RX
ACT
PEN ;discontinue pending orders
OK
NOOR ;ask nature of order
NOORXP
NOORX
DEL ;deletes non-verified Rxs
; PSO*7*508 - if this is an eRx being deleted, do not prompt the user since there is no user to reply
; - since this cancellation will be sent by the provider, PSONOOR is set to "E"
EX
REQ ;prompt for requesting provider
RQTEST ;
MEDDIS ;
REF ;CONT. FROM REF^PSOCAN2; PSO*7*259
ELIG(DFN) ; Return primary eligibility
; Input:
; DFN: Patient IEN (required)
; Output:
; "": No DFN passed in, 0: Veteran, 1: TRICARE, 2: CHAMPVA

External References

Name Field # of Occurrence
^DIC REQ+6
^DIK PEN+6
^DIR SEL+4, NOOR+11, DEL+5, DEL+8
$$NA^ORX1 NOOR+5
NA^ORX1 NOOR+4
^PSOBUILD SEL+13
CHK^PSOCAN RX+8
EXP^PSOCAN RX+9
COM^PSOCAN1 SEL+9
INVALD^PSOCAN1 SEL+14
SHOW^PSOCAN1 RX+12
SPEED1^PSOCAN1 RX+10
REINS^PSOCAN2 ACT
CAN1^PSOCAN3 ACT+1
KCAN^PSOCAN3 SEL+5
EN^PSOHLSN PEN+8
LOCK^PSOORCPY SEL+3
RV^PSOORFL SEL+13
BLD^PSOORUT1 SEL+13
$$TRIC^PSOREJP1 NOOR+2
ENQ^PSORXDL DEL+3, DEL+10
$$L^PSSLOCK SEL+3
PSOL^PSSLOCK RX+1, PEN+2
PSOUL^PSSLOCK RX+11, RX+14, PEN+6, PEN+9
UL^PSSLOCK ULP
ELIG^VADPT ELIG+9
FULL^VALM1 SEL+9, SEL+10, NOOR+3, DEL+4
PAUSE^VALM1 RX+1, RX+4, PEN+5, MEDDIS+4, MEDDIS+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,$P($G(PSOMSG),"^",2),!,"Rx "_$P(^PSRX($P(PSOLST(ORN),"^",2),0),"^"),!
  • Line Location: RX+2
Function Call: WRITE
  • Prompt: $C(7),!!,"Digitally Signed Order - PSDRPH key required"
  • Line Location: RX+4
Function Call: WRITE
  • Prompt: $C(7),!!,$P($G(PSOMSG),"^",2)_" (Pending order)",!
  • Line Location: PEN+3
Function Call: WRITE
  • Prompt: $C(7),!!,"Digitally Signed Order - PSDRPH key required"
  • Line Location: PEN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: REQ+5
Function Call: WRITE
  • Prompt: "Drug: "_$P($G(^PSDRUG(+$P(^PS(52.41,ORD,0),"^",9),0)),"^")
  • Line Location: MEDDIS+4
Function Call: WRITE
  • Prompt: "Orderable Item: "_$P($G(^PS(50.7,PSOFMMD,0)),"^")_" "_$P($G(^PS(50.606,+$P($G(^PS(50.7,PSOFMMD,0)),"^",2),0)),"^")
  • Line Location: MEDDIS+5
Routine Call
  • DIC
  • Line Location:
    • REQ+6
Routine Call
  • DIR
  • Line Location:
    • SEL+4
    • NOOR+11
    • DEL+5
    • DEL+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(52.41 - [#52.41] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.606 - [#50.606] MEDDIS+5
^PS(50.7 - [#50.7] MEDDIS+5
^PS(52.41 - [#52.41] PEN+5, PEN+6, PEN+7!*, PEN+8, REQ+1, RQTEST+4, MEDDIS+3, MEDDIS+4, MEDDIS+5
^PS(52.5 - [#52.5] REF+2, REF+3, REF+4
^PSDRUG - [#50] MEDDIS+4
^PSRX - [#52] RX+2, RX+3, RX+4, RX+5, RX+6, RX+8, RX+9, RX+10, ACT, DEL+5
, RQTEST+3
^VA(200 - [#200] NOOR+5, NOOR+10, REQ+3
^XUSEC("PSDRPH" RX+4, PEN+5
^XUSEC("PSORPH" SEL, RX

Label References

Name Line Occurrences
$$ELIG SEL+8
@( SEL+10
ACT RX+13
DEL RX+7
EX DEL+5, DEL+6
MEDDIS PEN+2
NOOR DEL+7
NOORXP NOOR+4
OK PEN+2, PEN+5
REQ NOORXP
RQTEST SEL+6
ULP SEL+4, SEL+14

Naked Globals

Name Field # of Occurrence
^("PS" REQ+3
^("STA" RX+6, RX+8
^(0 MEDDIS+5
^(2 RX+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
COM SEL+14!
DA RX+9*, RX+10, RX+12*, ACT*, PEN+6*!, DEL+3*, DEL+9*, REF+2
>> DEAD RX+8
DFN RX+8*, ELIG~, ELIG+5
DFNHLD SEL+2*, SEL+14!
DIC REQ+5!*, REQ+6!
DIC("A" REQ+5*
DIC("B" REQ+5*
DIC("S" REQ+5*
DIC(0 REQ+5*
DIK PEN+6*!
DIR SEL+4!, SEL+5!, SEL+13!, NOOR+4!, NOOR+11!, DEL+5!, DEL+8!
DIR("A" SEL+4*, NOOR+9*, DEL+5*, DEL+8*
DIR("B" NOOR+9*, DEL+5*, DEL+8*
DIR(0 SEL+4*, NOOR+10*, DEL+5*, DEL+8*
DIRUT SEL+4!, SEL+5!, SEL+9, SEL+13!, NOOR+4!, NOOR+7*, NOOR+11, NOORX, DEL+5!, DEL+6
, DEL+7, DEL+8, REQ+6*
>> DODR NOOR+9
DSMSG SEL+13!
DT RX+9, REQ+3
DTOUT SEL+4!, SEL+5!, SEL+13!, NOOR+4!, NOOR+11!, REQ+6
DUOUT SEL+4!, SEL+13!, DEL+5!, REQ+6
DUZ SEL, RX, RX+4, PEN+5, NOOR+5, NOOR+10
ELIG ELIG+7~, ELIG+11*, ELIG+12
>> EN RX+5*, RX+8
>> ERXDCIEN DEL+3
I ELIG+7~
IEN SEL+13!
>> IFN REF+3
>> II ACT*
INCOM SEL+9, SEL+14!, PEN+8
LST SEL+4*, SEL+5, SEL+10, SEL+13!, RQTEST+2
ORD SEL+10*, SEL+13!, PEN+1, PEN+2*, PEN+5, PEN+6, PEN+7, PEN+8, PEN+9, OK*
, REQ+1, MEDDIS+2, MEDDIS+3, MEDDIS+4, MEDDIS+5
ORN SEL+10*, SEL+13!, RX+1, RX+2, RX+3, RX+4, RX+5, RX+11, RX+14, PEN+1
, PEN+2, OK*, NOOR+2, DEL+3, DEL+5, DEL+9
ORSV SEL+13!
PMIN RQTEST+1~, RQTEST+2*
PMINFLAG RQTEST+1~, RQTEST+2*, RQTEST+3*, RQTEST+4*, RQTEST+5
PMINZ RQTEST+1~, RQTEST+2*, RQTEST+3, RQTEST+4
PSCAN RX+5!, RX+11
PSCAN( RX+12, RX+13, ACT
PSDEL DEL+9!
PSINV SEL+14!
PSINV( RX+8*
PSOACT SEL+13!
>> PSOCANRA SEL+6*, NOORXP
>> PSOCANRC REQ+6*
PSOCANRD REQ+1*, REQ+2, REQ+3, REQ+4!, REQ+5, RQTEST+3*, RQTEST+4*
>> PSOCANRN REQ+6*
>> PSOCANRP REQ+1
>> PSOCANRZ NOORXP, REQ+6*, RQTEST+5*
>> PSOCNT SEL+1, SEL+4
PSOCO SEL+13!
PSOCU SEL+13!
>> PSODFN SEL+2, SEL+3, SEL+8, SEL+14*, ULP, RX+8*, ACT*
PSODIR SEL+13!
PSOFDR SEL+4!
PSOFMMD MEDDIS+1~, MEDDIS+5*
>> PSOLST( SEL+10, RX+1, RX+2, RX+3, RX+4, RX+5, RX+11, RX+14, PEN+2, NOOR+2
, DEL+3, DEL+5, DEL+9, RQTEST+3, RQTEST+4
PSOMSG SEL+13!, RX+1!, RX+2, PEN+2!, PEN+3
PSONO SEL+13!
>> PSONODEL REF+2, REF+5*
PSONOOR SEL+13!, RX+7*, PEN+8, NOOR+5*, NOOR+6*, NOOR+7!, NOOR+11*, DEL+3*
PSONOORA RX+7*!
PSOOELSE SEL+5!*, SEL+12, SEL+14!
PSOPLCK SEL+3*!, SEL+4!
PSORENW SEL+13!
PSORNW SEL+13!
>> PSORX("INTERVENE" DEL+9!
PSOSIEN REF+1~*, REF+2*, REF+3, REF+4
PSOTRIC SEL+8~*, NOOR+2~*, NOOR+5, NOOR+9
>> PSOZVER DEL+3*, DEL+9*
>> REA RX+12*, ACT*
REF SEL+13!
REFL SEL+13!
RPH SEL+13!
RX RX+10*, RX+12*, RX+13*, ACT, NOOR+1~, NOOR+2*
RXCNT SEL+4*, SEL+13!, RX+12*
>> RXSP RX+5*
SAVORD SEL+13!, PEN+1*, OK
SAVORN SEL+13!, PEN+1*, OK
SPEED SEL+5*, SEL+9!, SEL+13!, NOORX, DEL+6
ST SEL+13!
U NOOR+2, ELIG+11
VAEL ELIG+7~
VAEL(1 ELIG+11
VAERR ELIG+7~
>> VALMBCK SEL*, SEL+1*, SEL+3*, SEL+4*, SEL+9*, SEL+11*, SEL+12*, NOORX*, DEL+5*, DEL+7*
VALMCNT SEL+1~
>> VALMSG SEL*, SEL+1*, SEL+3*, DEL+7*, DEL+8*
>> X RX+5*
>> Y SEL+4, RX+5*, RX+6, RX+8, NOOR+11, DEL+3*, DEL+5, REQ+6
>> Y(0 RX+5*, RX+8
YY RX+8*, RX+9, RX+11!
YY(0 RX+8*, RX+10

Marked Items

Name Field # of Occurrence
$T(NA^ORX1 NOOR+4
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