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
Print Page as PDF
Routine: PSAVER4

Package: Drug Accountability

Routine: PSAVER4


Information

PSAVER4 ;;BIR/JMB-Verify Invoices - CONT'D ;9/8/97

Source Information

Source file <PSAVER4.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ;Sends invoices to printer
QUIT
HDR ;Prints the header to the New Drug Report on the screen & paper.
VERLOCK ;==> PSA*3*60 (RJS-VMP)Sets invoice's status to Verifying
VERUNLCK ; VERIFY CANCELED RESET INVOICE TO PROCESSED
LCKCHK ; CHECK FOR LOCKED INVOICES
LCK1 ; RESET ORDER STATUS TO PROCESSED
LCK2 ; DOUBLE CHECK WITH USER BEFORE RESETTING INVOICE STATUS
CLCK ; RESET ORDER STATUS TO COMPLETED <*71 RJS
UNLCK ; RESET ORDER STATUS TO PROCESSED
MSG ; SHOW LOCK WARNING

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"The verified invoices contain new drugs for the assigned pharmacy location.",!,"A report will print by pharmacy location listing the new drugs. Use the"
  • Line Location: PSAVER4+6
Function Call: WRITE
  • Prompt: !,"Balance Adjustment option to enter an adjustment that reflects the total",!,"dispense units on hand for each new drug.",!!,"It is suggested that you send the report to a print."
  • Line Location: PSAVER4+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PSAVER4+8
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!"
  • Line Location: PSAVER4+9
Function Call: WRITE
  • Prompt: !,PSADRGN,!,PSASLN,!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: @IOF,!?28,"<<< NEW DRUG REPORT >>>"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !?20,"DRUG ACCOUNTABILITY/INVENTORY INTERFACE",!?28,"<<< NEW DRUG REPORT >>>",?72,"Page "_PSAPG
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?34,"MASTER VAULT",!!,$P($G(^PSD(58.8,PSALOC,0)),"^")
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,PSADLN
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,?5,"Order Status has been reset to PROCESSED for",!,?8,"Order#: ",$P(^PSD(58.811,PSAIEN,0),"^")," Invoice#: ",$P(^PSD(58.811,PSAIEN,1,PSAIEN1,0),"^")
  • Line Location: LCK1+1
Function Call: WRITE
  • Prompt: !,?5,"Order Status has been reset to COMPLETED for",!,?8,"Order#: ",$P(^PSD(58.811,PSAIEN,0),"^")," Invoice#: ",$P(^PSD(58.811,PSAIEN,1,PSAIEN1,0),"^"),!
  • Line Location: CLCK+1
Function Call: WRITE
  • Prompt: !
  • Line Location: UNLCK+10
Function Call: WRITE
  • Prompt: !
  • Line Location: UNLCK+11
Function Call: WRITE
  • Prompt: !!,?5,"Order#: ",$P(^PSD(58.811,PSAIEN,0),"^")," Invoice#: ",$P(^PSD(58.811,PSAIEN,1,PSAIEN1,0),"^")," HES BEEN SKIPPED",!
  • Line Location: UNLCK+12
Function Call: WRITE
  • Prompt: !!,?3,"The following Invoices currently have a status of LOCKED VERIFYING."
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: !,?3,"These Invoices are either currently being Verified by you in another"
  • Line Location: MSG+2
Function Call: WRITE
  • Prompt: !,?3,"session, or it may not have completed the Verify process correctly.",!
  • Line Location: MSG+3
Info |  Source |  Entry Points |  Interaction Calls