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

Package: Drug Accountability

Routine: PSAOUT


Information

PSAOUT ;BHM/DB/PWC - Return Drugs to Manufacturer ;23 FEB 04

Source Information

Source file <PSAOUT.m>

Entry Points

Name Comments DBIA/ICR reference
1 ;Select Drug
FOUND ;Might have match
OK
PROCEED ;On to the next series of questions
CON
QTY
OU
FIND
PSTRAN
UPDT
NDC ;DRUG LOOKUP USING THE NDC INDEX
INDEX ;DRUG FILE LOOKUP USING "C" INDEX
DONE
RPT ;print report
BGNDT
ENDDT
START ;
LOOP ;Loop through "AC" xref
LOC
DRG
IEN
PRINT ;Print data
BEGIN
EORPT
Q
NONDRUG
ASKD
HDR

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Scan Drug barcode or enter a drug name : "
  • Variable: AN
  • Timeout: DTIME
  • Line Location: 1+2
Function Call: WRITE
  • Prompt: "??"
  • Line Location: 1+2
Function Call: WRITE
  • Prompt: !!,"Sorry, I could not find a match. Please enter the drug name.",!!
  • Line Location: 1+10
Function Call: WRITE
  • Prompt: " ",$G(PSADRUGN)
  • Line Location: FOUND+1
Function Call: WRITE
  • Prompt: !!,"Sorry, Controlled Substances cannot be selected through this option."
  • Line Location: FOUND+2
Function Call: WRITE
  • Prompt: !,"ok, try again,",!
  • Line Location: OU+2
Function Call: WRITE
  • Prompt: !,"Updating Destruction holding file."
  • Line Location: OU+3
Function Call: WRITE
  • Prompt: !,"Updating Drug Accountability Transaction file."
  • Line Location: FIND+4
Function Call: WRITE
  • Prompt: !,"If you are returning the items to the manufacturer at this time, the program",!,"will add today's date to the item to show when it was actually returned.",!
  • Line Location: RPT+1
Function Call: WRITE
  • Prompt: !!,"Ending Date cannot be before the Start Date."
  • Line Location: ENDDT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ENDDT+3
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED.",!
  • Line Location: ENDDT+3
Function Call: WRITE
  • Prompt: @IOF,!!!,?25,"Items to be Returned Report",?70,"Page : ",$G(PG)
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !,?24,PSABEG(1)," thru ",PSAEND(1)
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,?40-($L(PSALOCM)/2),PSALOCM
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,"Printed on: ",PSADT(1),?50,"Printed by: ",$P($G(^VA(200,DUZ,0)),"^"),!
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: "- "
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,?50,"Total Dispense"
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !,"Drug Name",?30,"Containers",?50,"Units / Cost",?66,"Entered by",!
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: BEGIN+8
Function Call: WRITE
  • Prompt: ?38,$J($P(PSADATA,"^",1),2)," (",$P(PSADATA,"^",8),")",?50,$J($P(PSADATA,"^",3),3)
  • Line Location: BEGIN+9
Function Call: WRITE
  • Prompt: ?55,$J(($P(PSADATA,"^",3)*$P(PSADATA,"^",9)),5,2)
  • Line Location: BEGIN+10
Function Call: WRITE
  • Prompt: ?64,PSANAME
  • Line Location: BEGIN+13
Function Call: WRITE
  • Prompt: " (",$E(DATA,4,5),"/",$E(DATA,6,7),"/",$E(X2,3,4),")"
  • Line Location: BEGIN+14
Function Call: WRITE
  • Prompt: !
  • Line Location: BEGIN+16
Function Call: WRITE
  • Prompt: !!,"End of report"
  • Line Location: EORPT+0
Function Call: WRITE
  • Prompt: !,"The item could not be found in the drug file.",!
  • Line Location: NONDRUG+0
Function Call: READ
  • Variable: AN
  • Timeout: DTIME
  • Line Location: ASKD+0
Function Call: WRITE
  • Prompt: !,PSADRUGN," //"
  • Line Location: ASKD+0
Function Call: WRITE
  • Prompt: " ok, press ENTER to confirm.",!
  • Line Location: ASKD+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls,  FIND^DIC
^DIC(51.5 - [#51.5] Classic Fileman Calls
^PSD(58.81 - [#58.81] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call