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

Package: Drug Accountability

Routine: PSARDCUT


Information

PSARDCUT ;BIRM/MFR - Return Drug - Utilities ;07/01/08

Source Information

Source file <PSARDCUT.m>

Entry Points

Name Comments DBIA/ICR reference
PHLOC() ;Select Pharmacy location
DTTM(DATE,SEC) ; Converts FM to MM/DD/YY@HHMM(SS) (w/ or /out seconds)
LOGACT(PHLOC,BATCH,ITEM,TYPE,COMM) ; - Log an EDIT activity for the return item
DTRNG(BGN,END) ; Date Range Selection
STASEL() ; Status Selection
STAVAL(X,PSARY) ;Checks for valid combinations of statuses
; Input - X user input to be validated
; - PSARY array contains the valid statues
; Output - Return 1 valid or 0 invalid flag
UPDINV(PHLOC,BATCH,ITEM,DRUG,QTY,DISPLAY) ; - Update Drug Inventory
MONTH ; Monthly Activity update (Unsure if this should be done. So, not being called right now)
DEFCTMF() ; - Returns the default Contractor/Manufacturer (if there is only 1 active)
TOTCRE(PHLOC,BATCH) ; - Return Batch Total Estimated^Actual Credit
LIST(PHLOC,BATCH) ; - Items List
LMHDR(PHLOC,BATCH,LOCNAM) ; - Header for Batch/Item screens
EXCEL() ; - Returns whether to capture data for Excel report.
; Output: EXCEL = 1 - YES (capture data) / 0 - NO (DO NOT capture data)
EXCHLP ; - 'Do you want to capture data...' prompt
EXCMSG ;Display the message about capturing to an Excel file format
CHKEY() ; Check for keys to use Return Drug options

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Choose one pharmacy location:",!
  • Line Location: PHLOC+21
Function Call: WRITE
  • Prompt: !
  • Line Location: DTRNG+10
Function Call: WRITE
  • Prompt: !,"Select one or multiple (separated by comma) of the following:"
  • Line Location: STASEL+3
Function Call: WRITE
  • Prompt: !,"Updating Inventory "_$S($G(DISPLAY):"("_$$GET1^DIQ(50,DRUG,.01)_")",1:"")_"..."
  • Line Location: UPDINV+4
Function Call: WRITE
  • Prompt: "Failed."
  • Line Location: UPDINV+6
Function Call: WRITE
  • Prompt: "Failed."
  • Line Location: UPDINV+10
Function Call: WRITE
  • Prompt: "Failed."
  • Line Location: UPDINV+14
Function Call: WRITE
  • Prompt: "Failed."
  • Line Location: UPDINV+23
Function Call: WRITE
  • Prompt: "OK"
  • Line Location: UPDINV+42
Function Call: WRITE
  • Prompt: !?10,XX,!?10," #",?13,"RETURN DRUG (NDC)",?49,"DISP QTY",?58,"UNIT",!?10,XX,!
  • Line Location: LIST+10
Function Call: WRITE
  • Prompt: $C(13)
  • Line Location: LIST+13
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+14
Function Call: WRITE
  • Prompt: !
  • Line Location: EXCEL+5
Function Call: WRITE
  • Prompt: !!," Enter: 'Y' - To capture detail report data to transfer"
  • Line Location: EXCHLP+1
Function Call: WRITE
  • Prompt: !," to an Excel document"
  • Line Location: EXCHLP+2
Function Call: WRITE
  • Prompt: !," '<CR>' - To skip this option"
  • Line Location: EXCHLP+3
Function Call: WRITE
  • Prompt: !," '^' - To quit this option"
  • Line Location: EXCHLP+4
Function Call: WRITE
  • Prompt: !!?5,"Before continuing, please set up your terminal to capture the"
  • Line Location: EXCMSG+1
Function Call: WRITE
  • Prompt: !?5,"detail report data. On some terminals, this can be done by"
  • Line Location: EXCMSG+2
Function Call: WRITE
  • Prompt: !?5,"clicking on the 'Tools' menu above, then click on 'Capture"
  • Line Location: EXCMSG+3
Function Call: WRITE
  • Prompt: !?5,"Incoming Data' to save to Desktop. This report may take a"
  • Line Location: EXCMSG+4
Function Call: WRITE
  • Prompt: !?5,"while to run."
  • Line Location: EXCMSG+5
Function Call: WRITE
  • Prompt: !!?5,"Note: To avoid undesired wrapping of the data saved to the"
  • Line Location: EXCMSG+6
Function Call: WRITE
  • Prompt: !?5," file, please enter '0;256;999' at the 'DEVICE:' prompt.",!
  • Line Location: EXCMSG+7
Function Call: WRITE
  • Prompt: !!,"Please contact your Pharmacy Coordinator for access to this option."
  • Line Location: CHKEY+2
Function Call: WRITE
  • Prompt: !,"The PSARET security key is required!",$C(7),!
  • Line Location: CHKEY+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] GET1^DIQ
58.351 GET1^DIQ
58.3511 GET1^DIQ
^PSD(58.8 - [#58.8] GET1^DIQ
^PSD(58.81 - [#58.81] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call