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

Package: Outpatient Pharmacy

Routine: PSOCAN2


Information

PSOCAN2 ;BHAM ISC/JMB - modular rx cancel with speed ability drug check ;29-May-2012 14:40;PLS

Source Information

Source file <PSOCAN2.m>

Call Graph

Call Graph Total: 21

Package Total Call Graph
Outpatient Pharmacy 13 $$STATUS^PSOBPSUT  ^PSOBUILD  CAN^PSOCAN  AREC^PSOCAN1  REF^PSOCAN4  (,REINS)^PSOCMOPA  (POST,SET)^PSODRG  EN^PSOHLSN1  
$$TRIC^PSOREJP1  SUBMIT^PSOREJU3  $$FIND^PSOREJUT  Q^PSORXL  SPR^PSOUTL  
VA Fileman 6 DD^%DT  NOW^%DTC  ^DIC  FILE^DICN  (,IX)^DIK  ^DIR  
Registration 2 KVA^VADPT  PAUSE^VALM1  

Caller Graph

Caller Graph Total: 11

Package Total Caller Graph
Outpatient Pharmacy 11 PSOAUTOC  PSOCAN  PSOCAN1  PSOCAN3  PSOCAN3N  PSOCAN4  PSOHLDC  PSOORED1  
PSOORFI6  PSOORUTL  PSOUTL  

Entry Points

Name Comments DBIA/ICR reference
DRGDRG ;Checks for drug/drug interaction, duplicate drug and class
DELREF ;
LOG
AUTOD ;reinstates Rxs dc'd by date of death
VERIFY ;Put in non-verify file
REINS
RMB(IDX) ;remove Rx if found in array BBRX() (Bingo Board)
SUS ;Adds rec to suspense
ACT
KILL
HLD
REF
NVER ;Called from PSOCAN3, needs DA defined

External References

Name Field # of Occurrence
DD^%DT ACT+9, ACT+10
NOW^%DTC LOG+3
^DIC DRGDRG+4
FILE^DICN SUS+2, VERIFY+2, AUTOD+12
^DIK SUS+1, AUTOD+11
IX^DIK AUTOD+5, AUTOD+14
^DIR ACT+26
$$STATUS^PSOBPSUT ACT+24, ACT+29
^PSOBUILD ACT+1
CAN^PSOCAN ACT+2
AREC^PSOCAN1 REINS+6, SUS+5
REF^PSOCAN4 REF+5
^PSOCMOPA HLD+8
REINS^PSOCMOPA ACT+14
POST^PSODRG DRGDRG+8
SET^PSODRG DRGDRG+8
EN^PSOHLSN1 SUS+5, VERIFY+4, AUTOD+8, AUTOD+17, AUTOD+21, AUTOD+23, NVER+2
$$TRIC^PSOREJP1 ACT+17
SUBMIT^PSOREJU3 ACT+18
$$FIND^PSOREJUT ACT+23, ACT+28
Q^PSORXL ACT+26
SPR^PSOUTL REF+10
KVA^VADPT KILL+2
PAUSE^VALM1 REINS+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ACT+0
Function Call: WRITE
  • Prompt: "="
  • Line Location: ACT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ACT+2
Function Call: WRITE
  • Prompt: !,"Prescription #"_RX_" REINSTATED!"
  • Line Location: ACT+15
Function Call: WRITE
  • Prompt: !?3,"Prescription #",RX_": "
  • Line Location: ACT+20
Function Call: WRITE
  • Prompt: !?5,"Either print the label using the reprint option "
  • Line Location: ACT+30
Function Call: WRITE
  • Prompt: !?7,"or check later to see if the label has been printed."
  • Line Location: ACT+31
Function Call: WRITE
  • Prompt: !?5,"Placing Rx on suspense. Please wait..."
  • Line Location: ACT+32
Function Call: WRITE
  • Prompt: !
  • Line Location: DRGDRG+9
Routine Call
  • DIC
  • Line Location:
    • DRGDRG+4
Routine Call
  • DIR
  • Line Location:
    • ACT+26

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls
^PS(52.4 - [#52.4] Classic Fileman Calls
^PS(52.5 - [#52.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" REINS+2
^PS(52.4 - [#52.4] AUTOD+5*
^PS(52.5 - [#52.5] SUS+1, SUS+3*, AUTOD+11, AUTOD+13*
^PSDRUG - [#50] REINS+3, ACT+1
^PSRX - [#52] REINS+1, REINS+2, REINS+3, REINS+5, REINS+7, ACT+1, ACT+2, ACT+5, ACT+6, ACT+7
, ACT+8, SUS+1, SUS+4*, DRGDRG+1, DRGDRG+3, DRGDRG+4, DRGDRG+8, VERIFY+3*, HLD, HLD+1*
, HLD+4, HLD+5, HLD+6!, HLD+7, REF, REF+3, REF+5, REF+6, REF+8!, REF+9*
, REF+11*, REF+12*, DELREF+3, AUTOD+1, AUTOD+2, AUTOD+5*, AUTOD+7!, AUTOD+14*, AUTOD+16!, AUTOD+18*
, AUTOD+19*, AUTOD+22!, LOG, LOG+1, LOG+3*, LOG+5*, LOG+6*
^PSRX("AD" HLD+6!, REF+8!
^PSRX("AH" HLD+1!, AUTOD+19*
^PSRX("APSOD" REINS+5, AUTOD+1!, AUTOD+7!, AUTOD+16!, AUTOD+22!, LOG+4!
^XUSEC("PSORPH" REINS+6

Label References

Name Line Occurrences
ACT REINS+5
AUTOD REINS+5
DELREF REF+1
DRGDRG ACT+2
LOG AUTOD+8, AUTOD+17, AUTOD+21, AUTOD+23
SUS ACT+32
VERIFY REINS+6

Naked Globals

Name Field # of Occurrence
^("DDSTA" AUTOD+2
^(0 REINS+3, ACT+1, ACT+6, ACT+8, REF, DELREF+3, AUTOD+13
^(2 ACT+7
^(3 SUS+4, REF+11*, LOG+5*, LOG+6*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% KILL!, LOG+3, LOG+4!
ACNT KILL!, LOG!*, LOG+2*, LOG+3, LOG+4!
ACOM SUS+5*, HLD+1*, KILL!, AUTOD+6*, AUTOD+8!, AUTOD+15*, AUTOD+17!, AUTOD+20*, AUTOD+21!, AUTOD+23*!
, LOG+3
ACT SUS+1*, KILL!
ALL KILL!
>> BBRX RMB+7
>> BBRX( RMB+2, RMB+6*!
BCNUM KILL!
BINGCRT RMB+7!
CMOP HLD~, HLD+8!, KILL!
CMOP( HLD+8
CMOP("L" HLD+8
CMOP("S" HLD+8
CNT KILL!
DA REINS+1, REINS+2, REINS+3, REINS+5, REINS+7, ACT+1, ACT+2*, ACT+3, ACT+5, ACT+6
, ACT+7, ACT+8, SUS+1*, SUS+4*, SUS+5, DRGDRG+1, DRGDRG+3, DRGDRG+4, DRGDRG+8, VERIFY+1
, VERIFY+3*, VERIFY+4, HLD, HLD+1, HLD+4, HLD+5, HLD+6, HLD+7, REF, REF+3
, REF+5, REF+6, REF+8, REF+9, REF+11, REF+12, KILL!, DELREF+3, AUTOD+1, AUTOD+2
, AUTOD+5!*, AUTOD+7, AUTOD+8*, AUTOD+11*, AUTOD+12*, AUTOD+13, AUTOD+14!*, AUTOD+16, AUTOD+17, AUTOD+18
, AUTOD+19, AUTOD+21, AUTOD+22, AUTOD+23, LOG, LOG+1, LOG+3, LOG+4, LOG+5, LOG+6
, NVER+2, RMB+2, RMB+5
DA(1 REF+9*, REF+10!
DAYS360 KILL!
DD SUS+2!, VERIFY+2!, AUTOD+12!
DEAD KILL!
DIC SUS+2*, DRGDRG+4*!, VERIFY+1*, VERIFY+2!, AUTOD+12*
DIC("DR" SUS+2*, VERIFY+1*
DIC(0 SUS+2*, DRGDRG+4*, VERIFY+1*, AUTOD+12*
DIK SUS+1*, AUTOD+5*!, AUTOD+11*, AUTOD+14*!
DINUM VERIFY+1*, VERIFY+2!
DIR ACT+26!
DIR("?" ACT+25*
DIR("A" ACT+25*
DIR("B" ACT+25*
DIR(0 ACT+25*
DIRUT ACT+26, KILL!
DLAYGO VERIFY+1*, VERIFY+2!
DO SUS+2!, VERIFY+2!, AUTOD+12!
>> DODD AUTOD+2*, AUTOD+5, AUTOD+13, AUTOD+19
DODR REINS~, REINS+5*, ACT+32, ACT+33!, AUTOD+1!
>> DODS AUTOD+2*, AUTOD+3
DR KILL!
DRG ACT+1*, ACT+2, KILL!
DRUG KILL!
DT REINS+1, ACT+22, ACT+27, ACT+32, DRGDRG+1, VERIFY+1, AUTOD+20
DTOUT DRGDRG+4, KILL!
DUOUT KILL!
DUZ REINS+6, VERIFY+1, LOG+3
EN KILL!
FDT ACT+7*, ACT+8*, ACT+9, ACT+22, ACT+27, ACT+32, SUS+2, KILL!
>> FILE AUTOD+3*, AUTOD+4, AUTOD+9, AUTOD+18
HOLD DRGDRG+5!, DRGDRG+9!, KILL!
HOLD( DRGDRG+5*, DRGDRG+9
HOLDRX ACT+1*, ACT+2!
I ACT*, KILL!
IDX RMB~, RMB+2, RMB+6
IFN HLD+5*, HLD+6!, REF*, REF+3, REF+6, REF+8, REF+11*, REF+13!, DELREF+3
II KILL!
IN KILL!
INCOM KILL!
IT KILL!
JJ KILL!
K RMB+1~, RMB+4*
LC KILL!
LFD SUS+4*, SUS+5, KILL!, AUTOD+13*, AUTOD+15, AUTOD+17!
LINE KILL!
LL ACT+6*, KILL!
LPRT ACT+6*, ACT+10, KILL!
LREF ACT+6*, ACT+12, ACT+21, KILL!
LSI KILL!
NAME DRGDRG+5*, DRGDRG+9, KILL!
NDF KILL!
NODE REF+10*!
NOEXP KILL!
NSF KILL!
OUT KILL!
PCNT KILL+1!
PDA HLD~, HLD+7*
PHST SUS+5*!, VERIFY+4*!, AUTOD+6*, AUTOD+8!, AUTOD+17*!
PLINE KILL+1!
>> POERR KILL
POP KILL+1!
PPL ACT+26*, KILL+1!
PS KILL+1!
>> PSCAN( REINS+5*, REINS+7*, ACT+2, DRGDRG+5, DRGDRG+8
PSCNODE DELREF+1~, DELREF+3*, DELREF+4, DELREF+5
PSDTEST HLD~, HLD+6*, HLD+7*, HLD+9*
PSFROM KILL+1!
PSI KILL+1!
PSINV KILL+1!
PSOCAN KILL+1!
PSOCMOP KILL+1!
PSODFN VERIFY+1, KILL+1!, AUTOD+16, AUTOD+22, LOG+4
PSODRG KILL+1!
PSODRG("QFLG" DRGDRG+6*
PSODRUG KILL+1!
PSOLBL REF+4~, REF+6*
>> PSONEW("OLD V AL" , DRGDRG+6
PSONODEL REF+4~*, REF+5, REF+6*, REF+7
PSONOOR KILL+1!
PSONVC NVER+1~, NVER+2*
PSONVCC NVER+1~, NVER+2*
PSONVCP NVER+1~, NVER+2*
PSOOPT KILL+1!
>> PSOPAR REINS+6
>> PSORENW("OIRXN" DRGDRG+8*, DRGDRG+9!
PSORFDEL REF+1!, REF+8!, DELREF+2*, DELREF+5*
>> PSORX("DFLG" ACT+2
PSOSD KILL+1!
PSOSD( DRGDRG+5!, DRGDRG+9*
>> PSOSITE SUS+2
PSOTRIC ACT+17~*, ACT+18, ACT+24, ACT+29
PSOY DRGDRG+7!*
PSOY(0 DRGDRG+7*
PSPOP KILL+1!
PSRXDA VERIFY+1*, VERIFY+3, KILL+1!
PSS KILL+1!
PSVC KILL+1!
>> PSXSYS ACT+14
RDL DELREF+1~, DELREF+3*
REA ACT+2*, DRGDRG+8*, HLD+1, KILL+2!
RELDT ACT+7*, ACT+8*, ACT+9, ACT+12, KILL+2!
RF ACT+5*, REF+10!, KILL+2!, LOG+1*, LOG+4!
RFCNT ACT+5*, ACT+7, ACT+8, ACT+12, ACT+17, ACT+18, ACT+21, ACT+24, ACT+29, SUS+3
, KILL+2!, LOG+1*, LOG+3, LOG+4!
RFDATE KILL+2!
RFDT HLD+5*, HLD+6!
RFL KILL+2!
RFL1 KILL+2!
RFLL KILL+2!
RP KILL+2!
RX ACT+1, ACT+2*, ACT+12, ACT+15, ACT+20, DRGDRG+5, KILL+2!
RX0 SUS+1*, SUS+2, KILL+2!
RX1 REINS+7*!
RXCNT KILL+2!
RXDA KILL+2!
RXIEN ACT+3~*, ACT+17, ACT+18, ACT+23, ACT+24, ACT+26, ACT+28, ACT+29
RXN SUS+1*, SUS+2, SUS+4, KILL+2!, AUTOD+5*, AUTOD+8!, AUTOD+11*, AUTOD+12, AUTOD+14
RXNUM KILL+2!
RXP SUS+2*, KILL+2!
RXREC KILL+2!
RXREF KILL+2!
RXS SUS+1*, KILL+2!, AUTOD+11*
RXSP KILL!
SDATE KILL+2!
SPCANC KILL+2!
SS KILL+2!
ST SUS+5*!, VERIFY+4*!, AUTOD+6*, AUTOD+8!, AUTOD+17*!
ST4 RMB+1~, RMB+2*, RMB+4
ST5 RMB+1~, RMB+4*, RMB+5
ST6 RMB+1~, RMB+3*, RMB+5*, RMB+6
STA DRGDRG+2*, DRGDRG+3, DRGDRG+9!, AUTOD+3*, AUTOD+5, AUTOD+14, AUTOD+17, AUTOD+18, AUTOD+20
STAT DRGDRG+3*, DRGDRG+5, DRGDRG+9!, KILL+2!
SUB KILL+2!, LOG*
SUSD HLD~, HLD+5*, HLD+6!, HLD+7, REF, REF+8, REF+11, REF+12, REF+13!
VCOM VERIFY+4*!
WARN KILL!
X SUS+2*, DRGDRG+4*, VERIFY+1*, KILL+2!, AUTOD+12*
XFDT ACT+9*, ACT+12, ACT+21, KILL+2!
XFLAG ACT+14!
XLPDT ACT+10*, ACT+12, ACT+21, KILL+2!
XRELDT ACT+9*, ACT+12, ACT+21, KILL+2!
Y REINS+2*, REINS+3, ACT+9*, ACT+10*, ACT+26, SUS+3, DRGDRG+4, DRGDRG+6, DRGDRG+7, KILL+2!
, AUTOD+12
Y(0 DRGDRG+5, DRGDRG+7
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