Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSDOPT

Package: Controlled Substances

Routine: PSDOPT


Information

PSDOPT ;BIR/JPW,LTL,BJW - Outpatient Rx Entry ;Feb 2, 2004@12:15

Source Information

Source file <PSDOPT.m>

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

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: !!,"Label not reprinted for this Rx that was returned to stock."
  • Line Location: PROCESS+6
Function Call: WRITE
  • Prompt: !,"This fill has already been posted.",$C(7)
  • Line Location: PROCESS+15
Function Call: WRITE
  • Prompt: !,"This fill has already been released.",$C(7)
  • Line Location: PROCESS+16
Function Call: WRITE
  • Prompt: !,"This fill has already been posted & released, no further action required.",$C(7)
  • Line Location: PROCESS+17
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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call