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

Package: Controlled Substances

Routine: PSDOPT


Information

PSDOPT ;BIR/JPW,LTL,BJW - Outpatient Rx Entry ;2/5/04 12:15pm

Source Information

Source file <PSDOPT.m>

Call Graph

Call Graph

Call Graph Total: 18

Package Total Call Graph
Controlled Substances 5 ^PSDNBAL  ^PSDOPT0  (,PSDORIG,PSDPRTL,PSDRFL)^PSDOPT1  (,PSDKLL,RTSDTC)^PSDOPT2  ^PSDSET  
VA FileMan 5 ^DIC  $$EXTERNAL^DILFD  Y^DIQ  EN^DIQ1  ^DIR  
Kernel 4 $$UP^XLFSTR  $$VERSION^XPDUTL  EN^XQH  SIG^XUSESIG  
Outpatient Pharmacy 2 ^PSOFUNC  FINAL^PSOLSET  
Registration 2 KVAR^VADPT  PID^VADPT6  

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

Package Total Caller Graph
Controlled Substances 6 PSD OUTPATIENT  PSDACT1  PSDOPT0  PSDOPT1  PSDOPT2  PSDPND  

Entry Points

Name Comments DBIA/ICR reference
ASKD ;ask disp site
CHKD
ASKPH ;ask releasing RPH
ASKP ;ask rx #
BC1 ;
CHK ;displays and checks if ok
CLLDIR
PROCESS ;process selection
END
CHKEY ;check if user has access
CLLDIR2
DISPLAY ;disp data
MSG
VER ;Current Outpatient Version, and Rx status added 6/17/98
CHKRF ;Dave B (PSD*3*30) if its deleted, show status.
ASK12
CMOPMSG
KLLALL ;Kill all

External References

Name Field # of Occurrence
^DIC ASKD+5, ASKPH+4
$$EXTERNAL^DILFD CHKRF+5, CHKRF+6
Y^DIQ BC1+8
EN^DIQ1 ASKP+20
^DIR ASKP+5, CLLDIR+10, PROCESS+19
^PSDNBAL DISPLAY+13
^PSDOPT0 BC1+12
^PSDOPT1 PROCESS+20
PSDORIG^PSDOPT1 PROCESS+10
PSDPRTL^PSDOPT1 PROCESS+10
PSDRFL^PSDOPT1 PROCESS+10
^PSDOPT2 BC1+11
PSDKLL^PSDOPT2 PSDOPT+16
RTSDTC^PSDOPT2 CLLDIR+3
^PSDSET PSDOPT+17
^PSOFUNC BC1+4
FINAL^PSOLSET END
KVAR^VADPT END+3
PID^VADPT6 BC1+9
$$UP^XLFSTR ASKP+7
$$VERSION^XPDUTL VER+1
EN^XQH PSDOPT+19
SIG^XUSESIG PSDOPT+20

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Please contact your Pharmacy Coordinator for access",!,"to log Outpatient Prescriptions. Either the PSJ RPHARM",!,"or PSD TECH ADV security key required.",!!
  • Line Location: PSDOPT+18
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKD+5
Function Call: WRITE
  • Prompt: !!,"There are no stocked drugs for this Pharmacy Vault!!",!!
  • Line Location: CHKD+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKPH+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKP+4
Function Call: WRITE
  • Prompt: !,"INVALID PRESCRIPTION NUMBER"
  • Line Location: ASKP+10
Function Call: WRITE
  • Prompt: !!,"Sorry, someone else is editing this prescription. Please try again later."
  • Line Location: ASKP+13
Function Call: WRITE
  • Prompt: !?7,$C(7)," INVALID STATION NUMBER !!",!
  • Line Location: ASKP+21
Function Call: WRITE
  • Prompt: !?7,$C(7)," INVALID PRESCRIPTION NUMBER"
  • Line Location: ASKP+23
Function Call: WRITE
  • Prompt: !?7,$C(7)," NON-EXISTENT PRESCRIPTION"
  • Line Location: ASKP+24
Function Call: WRITE
  • Prompt: !!,"Sorry, someone else is editing this prescription. Please try again later."
  • Line Location: ASKP+27
Function Call: WRITE
  • Prompt: !?7,$C(7)," IMPROPER BARCODE FORMAT"
  • Line Location: ASKP+32
Function Call: WRITE
  • Prompt: !?7,$C(7)," PRESCRIPTION HAS BEEN DELETED."
  • Line Location: BC1+2
Function Call: WRITE
  • Prompt: !!,PSDRN," is not currently stocked in ",PSDSN,".",!!,"** No action taken. **",!!
  • Line Location: BC1+10
Function Call: WRITE
  • Prompt: !,"Error somewhere"
  • Line Location: CLLDIR+16
Function Call: WRITE
  • Prompt: !,"This fill has already been posted.",$C(7)
  • Line Location: PROCESS+12
Function Call: WRITE
  • Prompt: !,"This fill has already been released.",$C(7)
  • Line Location: PROCESS+13
Function Call: WRITE
  • Prompt: !,"This fill has already been posted & released, no further action required.",$C(7)
  • Line Location: PROCESS+14
Function Call: WRITE
  • Prompt: !!,?20,"View Controlled Substances Rx # ",RXNUM,!,?28,RPDT,!,LN,!!
  • Line Location: DISPLAY+1
Function Call: WRITE
  • Prompt: "Location: ",?10,PSDSN,?55
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: PSDRN(1)
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: !,"Drug: ",?10,PSDRN,?55,"Quantity: ",QTY
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: !,"The Quantity is not strictly numeric. This will cause the new balance to be",!,"calculated incorrectly.",!
  • Line Location: DISPLAY+7
Function Call: WRITE
  • Prompt: !,"Patient: ",?10,PATN_" ("_VA("BID")_")",?55,PSDRN(1)," Date: ",?65,$E(DAT,4,5)_"/"_$E(DAT,6,7)_"/"_$E(DAT,2,3),!
  • Line Location: DISPLAY+8
Function Call: WRITE
  • Prompt: !!,?5,"Your balance is ",BAL,".",!,?5,"You may not dispense lower than your balance.",!!
  • Line Location: DISPLAY+9
Function Call: WRITE
  • Prompt: !!,?15,"Old Balance: ",BAL,?40,"New Balance: ",BAL-QTY,!!
  • Line Location: DISPLAY+16
Function Call: WRITE
  • Prompt: $C(7),!!,"No action taken. This transaction has not been recorded.",!!
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: !,"This RX has a status of '"_$S(PSDSTA=11:"EXPIRED",PSDSTA=12:"DISCONTINUED",PSDSTA=13:"DELETED",PSDSTA=14:"DISCONTINUED BY PROVIDER",PSDSTA=15:"DISCONTINUED (EDIT)",1:"Unknown Procedure")_$S(PSDSTA=12:"'.",1:"', no action can be taken.")
  • Line Location: CHKRF+1
Function Call: WRITE
  • Prompt: !!,"Below is a list of actions taken on the prescription.",!!,"DATE/TIME",?22,"PERSON",?45,"ACTIVITY",!
  • Line Location: CHKRF+3
Function Call: WRITE
  • Prompt: "="
  • Line Location: CHKRF+3
Function Call: WRITE
  • Prompt: "="
  • Line Location: CHKRF+3
Function Call: WRITE
  • Prompt: !,"Comment: ",$G(DELREAS)
  • Line Location: CHKRF+8
Function Call: READ
  • Formatting: !
  • Prompt: "Do you wish to continue? NO // "
  • Variable: AN
  • Timeout: DTIME
  • Line Location: ASK12+0
Function Call: WRITE
  • Prompt: !,"Answer 'N'o, and you will prompted for another prescription."
  • Line Location: ASK12+1
Function Call: WRITE
  • Prompt: !,?10,"This is a CMOP fill and has been transmitted, dispensed or ",!?10,"retransmitted.",!
  • Line Location: CMOPMSG+0
Routine Call
  • DIC
  • Line Location:
    • ASKD+5
    • ASKPH+4
Routine Call
  • DIR
  • Line Location:
    • ASKP+5
    • CLLDIR+10
    • PROCESS+19

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^DIC(4 - [#4] Classic Fileman Calls
52.3 EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PSDOPT+22, CHKRF+4
^DD(58.81 BC1+8
^PSD(58.8 - [#58.8] CHKD, BC1+10, DISPLAY+9, DISPLAY+11
^PSD(58.81 - [#58.81] BC1+11
^PSDRUG - [#50] BC1+7
^PSRX - [#52] ASKP+3, ASKP+10, ASKP+13, ASKP+24, ASKP+26, ASKP+27, ASKP+31, BC1+2, BC1+4, BC1+7
, CLLDIR+13, PROCESS+5, END+1, VER+2, CHKRF+3, CHKRF+4
^PSRX("B" ASKP+9
^VA(200 - [#200] PSDOPT+19, ASKPH+3
^XMB(1 - [#4.3] ASKP+19
^XUSEC("PSD TECH ADV" PSDOPT+18
^XUSEC("PSJ RPHARM" PSDOPT+18, CHKEY+1
^XUSEC("PSORPH" ASKPH+3

Label References

Name Line Occurrences
ASK12 ASK12+1
ASKP ASKP+10, ASKP+13, ASKP+16, ASKP+21, ASKP+23, ASKP+24, ASKP+26, ASKP+27, ASKP+32, BC1+2
, BC1+3, CLLDIR+16, PROCESS+8, PROCESS+11, PROCESS+12, PROCESS+14, PROCESS+16, PROCESS+19, PROCESS+20
ASKPH ASKP+6
BC1 ASKP+31
CHKD ASKD+2
CHKRF ASKP+16, ASKP+26
CLLDIR2 CLLDIR+4, CLLDIR+5
CMOPMSG PROCESS+6, PROCESS+7
DISPLAY PROCESS+15
END PSDOPT+19, PSDOPT+20, ASKD+5, CHKD, ASKPH+4, ASKP+6, BC1+10, BC1+11, PROCESS+15, PROCESS+19
MSG BC1+11, PROCESS+19, DISPLAY+9, DISPLAY+14
PROCESS CLLDIR+13, CLLDIR+14, CLLDIR+15
VER ASKP+9, ASKP+26, BC1+1

Naked Globals

Name Field # of Occurrence
^(0 BC1+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!
%H END!
%I END!
>> ACTIVITY CHKRF+5*, CHKRF+8
>> AN ASK12*, ASK12+1, ASK12+2
BAL END!, DISPLAY+9*, DISPLAY+16
C BC1+8~*, END!
CNT CLLDIR*, CLLDIR+8*, END!, CLLDIR2*
DA ASKD+3!, ASKP+19*, ASKP+21!, ASKP+22!, PROCESS+17!, END!
DAT CLLDIR+13*, CLLDIR+14*, CLLDIR+15*, END!, DISPLAY+8
>> DATA CHKRF+4*, CHKRF+6, CHKRF+7
>> DATE CHKRF+4*, CHKRF+8
DD END!
>> DELDUZ CHKRF+6*, CHKRF+8
DELREAS CHKRF+7!*, CHKRF+8
DFN BC1+7*, BC1+8, END!
DIC ASKD+3!*, ASKD+5!, ASKPH+1*, ASKPH+4!, ASKP+19*, ASKP+20!, END!
DIC("A" ASKD+4*, ASKPH+2*
DIC("B" ASKD+4*, ASKPH+3*
DIC("S" ASKD+3*, ASKPH+1*
DIC(0 ASKD+3*, ASKPH+1*
DIE END!
DIK END!
DINUM END!
DIQ ASKP+20!*
DIR ASKP+4!, ASKP+5!, PROCESS+17!, PROCESS+19!, END!
DIR("?" ASKP+5*, PROCESS+18*
DIR("A" ASKP+4*, PROCESS+17*
DIR("B" PROCESS+17*
DIR(0 ASKP+5*, CLLDIR*, CLLDIR+8*, CLLDIR+9, PROCESS+17*, CLLDIR2*
DIROUT END!
DIRUT CLLDIR+10, PROCESS+17!, PROCESS+19, END!
DLAYGO END!
DO END!
DR ASKP+19*, ASKP+20!, END!
DT PSDOPT+21
DTIME ASK12
>> DTOUT ASKP+6
>> DUOUT ASKP+6
DUZ PSDOPT+18, PSDOPT+19, PSDOPT+21, ASKPH+3, CHKEY+1
IOM CHKRF+3
J BC1+3!, BC1+4*
JJ END!
LN PSDOPT+21~*, END!, DISPLAY+1
NEW PSDOPT+21*, ASKP+4!, PROCESS+2*, PROCESS+3*, PROCESS+4*, PROCESS+6, PROCESS+7, END!, DISPLAY+3
NEW(1 PROCESS+2*, PROCESS+3*, PROCESS+4*, PROCESS+6, PROCESS+7, DISPLAY+3
NEW(2 PROCESS+2*, PROCESS+3*, PROCESS+4*, DISPLAY+3
NODE END!
NODE6 END!
>> NUMBER PROCESS+5*, PROCESS+6, PROCESS+7
PATN BC1+8*, END+2!, DISPLAY+8
PHARM END+2!
PHARMN END+2!
PRF END+2!
PSD ASKP+21!, ASKP+22!
PSD(1 ASKP+19*, ASKP+20
PSD(4 ASKP+21
PSDA CLLDIR+11*, CLLDIR+13, CLLDIR+14, CLLDIR+15, PROCESS+1, PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+7, PROCESS+10
, END+2!
PSDATE END+2!
PSDERR CLLDIR+10!*, CLLDIR+12
>> PSDFLNO PROCESS+1*
PSDHOLDX VER+1*!
PSDNEXT ASKP+16, ASKP+26, CHKRF+9*, ASK12+2*, ASK12+3!
>> PSDON DISPLAY+10*, DISPLAY+11
PSDOUT PSDOPT+21*, ASKP+4*, BC1+11, PROCESS+8, PROCESS+11, PROCESS+15, END+2!, CHKEY+1*, DISPLAY+9*, DISPLAY+12~
, DISPLAY+14, CMOPMSG*
PSDPOST ASKP+1!, CLLDIR+13*, CLLDIR+14*, CLLDIR+15*, PROCESS+12, PROCESS+13, PROCESS+14
PSDQUIT PROCESS+16!, END+2!, DISPLAY+14*, DISPLAY+15
PSDR BC1+7*, BC1+10, END+2!, DISPLAY+9
PSDREL ASKP+1!, CLLDIR+13*, CLLDIR+14*, CLLDIR+15*, PROCESS+12, PROCESS+13, PROCESS+14
>> PSDRET("PR" CLLDIR+8
>> PSDRET("RF" CLLDIR+3, CLLDIR+4, CLLDIR+5, PROCESS+7
PSDRN BC1+7*, BC1+10, END+2!, DISPLAY+4
PSDRN(1 DISPLAY+3*, DISPLAY+8
PSDRPH ASKPH+4*, END+2!
PSDRX ASKP+3, ASKP+4!, ASKP+8*, ASKP+9*, ASKP+10, ASKP+13!, ASKP+23*, ASKP+24, ASKP+26, ASKP+27!
, ASKP+31, BC1+1, BC1+2, BC1+4, BC1+7, BC1+11, CLLDIR+13, PROCESS+5, END+1, END+2!
, CHKRF+3, CHKRF+4
PSDRXIN ASKP+4!, ASKP+8, ASKP+9*, ASKP+26*, BC1+1*, BC1+6!, VER+2
PSDS ASKD+1*, ASKD+6*, CHKD, BC1+10, END+2!, DISPLAY+9
PSDSEL ASKP+1!
PSDSEL("OR" CLLDIR, CLLDIR+13
PSDSEL("PR" CLLDIR+7, CLLDIR+8, CLLDIR+15
PSDSEL("RF" CLLDIR+1, CLLDIR+2, CLLDIR+3, CLLDIR+4, CLLDIR+14
>> PSDSITE PSDOPT+17, ASKD+1, ASKD+2, ASKD+4, ASKD+6*, DISPLAY+10
PSDSN ASKD+1*, ASKD+6*, BC1+10, END+2!, DISPLAY+2
PSDSTA ASKP+16, ASKP+26, BC1+2, BC1+3, BC1+4, BC1+6!, VER+1!, VER+2*, CHKRF+1, CHKRF+9
PSDT END+2!
PSDUZ PSDOPT+21*, END+2!
>> PSDXXX ASKP+16*
PSOCSUB END+2!
PSOVR ASKP+16, ASKP+26, BC1+6!, VER+1*, VER+2
QTY BC1+7*, CLLDIR+14*, CLLDIR+15*, END+2!, DISPLAY+4, DISPLAY+7, DISPLAY+9, DISPLAY+16
RF END+2!
RPDT PSDOPT+22*, END+2!, DISPLAY+1
RX0 BC1+3!, BC1+4*
RX2 BC1+3!, BC1+4*
RXNUM ASKP+4!, BC1+7*, END+2!, DISPLAY+1
ST BC1+3!, BC1+5
ST0 BC1+3!
>> STATUS PROCESS+5*
U PSDOPT+19, ASKD+1, ASKD+2, ASKD+4, ASKD+6, ASKPH+3, ASKP+19, BC1+7, BC1+8, CLLDIR+13
, CLLDIR+14, CLLDIR+15, DISPLAY+10
>> VA("BID" END+3!, DISPLAY+8
>> VA("PID" END+3!
X PSDOPT+20~, ASKP+6, ASKP+7*, ASKP+8, ASKP+9, ASKP+10, ASKP+13, ASKP+16, ASKP+19, ASKP+20*
, ASKP+21, ASKP+23, ASKP+24, ASKP+26, ASKP+27, PROCESS+5*, END+2!, VER+1*, CHKRF+3*, CHKRF+4*
, CHKRF+5
X1 PSDOPT+20~, CLLDIR+2*, CLLDIR+3, CLLDIR+4, CLLDIR+5, CLLDIR+8*, CLLDIR2
>> X3 CHKRF+4*
XQH PSDOPT+19~*
>> XX CLLDIR+14*, CLLDIR+15*
>> XXX CLLDIR+14*, CLLDIR+15*, PROCESS+1, PROCESS+3, PROCESS+4
Y PSDOPT+21*, PSDOPT+22, ASKD+5, ASKD+6, ASKPH+4, BC1+8*, PROCESS+19, END+2!, CHKRF+4*
Y(0 CLLDIR+11, CLLDIR+13, CLLDIR+14, CLLDIR+15
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