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

Package: Drug Accountability

Routine: PSARDCU1


Information

PSARDCU1 ;BIRM/MFR - Return Drug - Utilities (Cont.) ;07/01/08

Source Information

Source file <PSARDCU1.m>

Entry Points

Name Comments DBIA/ICR reference
ITEM(PHARMLOC,BATCH,ITEM,QUIT) ; - Add/Edit Item
DRUG ; - Drug
MFR ; - Manufacturer
NDC ; - NDC
ORDUNT ; - Order Unit
DSPUNT ; - Dispense Unit
DUOU ; - Number of Dispense Units per Order Unit
NUMOU ; - Number of Order Units Returned
NUMDU ; - Number of Dispense Units Returned
UPC ; - UPC
EXPDT ; - Expiration Date
REASON ; - Return Reason
UPDINV ; - Update Inventory?
CONF ; - Confirm?
END
GOTO(INPUT,HOME) ; - Directed up-arrow
LOAD() ; - Load existing item information
CHKREQ() ; - Checking for required fields
SAVE() ; - Saves Item
AUDIT() ; - Activity Log/Inventory Update
LOGACT(FIELD,OLDVALUE,NEWVALUE,TYPE,COMM) ; - Log an activity for the return item

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This is a required response. Enter '^' to exit"
  • Line Location: DRUG+6
Function Call: WRITE
  • Prompt: " Deleted!"
  • Line Location: MFR+6
Function Call: WRITE
  • Prompt: !,"ORDER UNIT: ",PSAOUNAM
  • Line Location: ORDUNT+4
Function Call: WRITE
  • Prompt: !,"This is a required response. Enter '^' to exit"
  • Line Location: ORDUNT+8
Function Call: WRITE
  • Prompt: !,"DISPENSE UNIT: ",PSADSPUN
  • Line Location: DSPUNT+3
Function Call: WRITE
  • Prompt: " Deleted!"
  • Line Location: DSPUNT+8
Function Call: WRITE
  • Prompt: " ??",$C(7)
  • Line Location: DSPUNT+11
Function Call: WRITE
  • Prompt: !,"NUMBER OF "_PSADUNAM_"(S) PER "_PRPT_": ",PSADUOU
  • Line Location: DUOU+5
Function Call: WRITE
  • Prompt: !!,"CURRENT DISPENSE QUANTITY ON FILE: ",PSAQTYDU," ",PRPT_"(S)",!
  • Line Location: NUMDU+4
Function Call: WRITE
  • Prompt: " Deleted!"
  • Line Location: UPC+5
Function Call: WRITE
  • Prompt: " Deleted!"
  • Line Location: EXPDT+6
Function Call: WRITE
  • Prompt: !,"This is a required response. Enter '^' to exit"
  • Line Location: REASON+4
Function Call: WRITE
  • Prompt: !!?5,"Cannot update inventory. There is no inventory"
  • Line Location: UPDINV+7
Function Call: WRITE
  • Prompt: !?5,"information for this Drug/Pharmacy Location.",!,$C(7)
  • Line Location: UPDINV+8
Function Call: WRITE
  • Prompt: !
  • Line Location: CONF+1
Function Call: WRITE
  • Prompt: " ??",$C(7)
  • Line Location: GOTO+21
Function Call: WRITE
  • Prompt: !!?5,"The following required field(s) are missing:",$C(7),!
  • Line Location: CHKREQ+2
Function Call: WRITE
  • Prompt: !
  • Line Location: CHKREQ+7
Function Call: WRITE
  • Prompt: !!,"Saving..."
  • Line Location: SAVE+3
Function Call: WRITE
  • Prompt: "OK"
  • Line Location: SAVE+19

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls,  GET1^DIQ
^DIC(51.5 - [#51.5] Classic Fileman Calls,  GET1^DIQ
58.3511 GET1^DID,  GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call