Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Drug Accountability 2 END^PSAPROC  SITES^PSAUTL1  
VA FileMan 2 ^DIE  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Drug Accountability 2 PSAVER  PSAVER1  

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

External References

Name Field # of Occurrence
^%ZIS PSAVER4+9
^%ZISC QUIT
^%ZTLOAD PSAVER4+13
^DIE VERLOCK+9, VERUNLCK+6, LCK1+4, CLCK+4
^DIR LCKCHK+13, LCKCHK+18, LCKCHK+20, LCK2+2, UNLCK+9
END^PSAPROC PRINT+4, HDR+1
SITES^PSAUTL1 HDR+5

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
Routine Call
  • %ZIS
  • Line Location:
    • PSAVER4+9
Routine Call
  • DIE
  • Line Location:
    • VERLOCK+9
    • VERUNLCK+6
    • LCK1+4
    • CLCK+4
Routine Call
  • DIR
  • Line Location:
    • LCKCHK+13
    • LCKCHK+18
    • LCKCHK+20
    • LCK2+2
    • UNLCK+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] HDR+3, HDR+4, HDR+5
^PSD(58.811 - [#58.811] VERLOCK+2, VERLOCK+4, VERLOCK+6, VERLOCK+7, VERLOCK+13, VERUNLCK+3, VERUNLCK+5, VERUNLCK+7, LCKCHK+3, LCKCHK+4
, LCKCHK+5, LCKCHK+6, LCKCHK+12, LCK1+1, LCK1+3, LCK1+5, CLCK+1, CLCK+3, CLCK+5, UNLCK+5
, UNLCK+12
^XTMP("PSALCK" LCKCHK+1, UNLCK+3, UNLCK+4, UNLCK+13!

Label References

Name Line Occurrences
CLCK UNLCK+11
HDR PRINT+2, PRINT+3
LCK1 LCKCHK+14, LCKCHK+24, LCKCHK+29, UNLCK+10
LCK2 LCKCHK+22, LCKCHK+26
MSG LCKCHK+9, UNLCK+1
QUIT PSAVER4+10
UNLCK LCKCHK+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS PSAVER4+8*
DA VERLOCK+1~, VERLOCK+8*, VERUNLCK+4~, VERUNLCK+6*, LCK1+2~, LCK1+4*, CLCK+2~, CLCK+4*
DA(1 VERLOCK+8*, VERUNLCK+6*, LCK1+4*, CLCK+4*
DIC VERLOCK+1~, VERUNLCK+4~, LCK1+2~, CLCK+2~
DIE VERLOCK+1~, VERLOCK+8*, VERUNLCK+4~, VERUNLCK+6*, LCK1+2~, LCK1+4*, CLCK+2~, CLCK+4*
>> DILOCKTM VERLOCK+6, VERUNLCK+5, LCK1+3, CLCK+3
DIR LCKCHK+13!, LCKCHK+18!, LCKCHK+20!, LCK2+2!, UNLCK+6~, UNLCK+9!
DIR("A" LCKCHK+13*, LCKCHK+17*, LCK2+1*, UNLCK+8*
DIR("B" LCKCHK+13*, LCK2+1*
DIR(0 LCKCHK+13*, LCKCHK+16*, LCKCHK+20*, LCK2+1*, UNLCK+7*
DR VERLOCK+1~, VERLOCK+8*, VERUNLCK+4~, VERUNLCK+6*, LCK1+2~, LCK1+4*, CLCK+2~, CLCK+4*
DUOUT LCKCHK+2~, LCKCHK+13, LCKCHK+18, LCKCHK+20, UNLCK+2~, UNLCK+9
DUZ VERLOCK+8, LCKCHK+1, LCKCHK+6, UNLCK+3, UNLCK+4, UNLCK+13
IO("Q" PSAVER4+8!, PSAVER4+10, QUIT!
IOF PSAVER4+6, PRINT+4, HDR+1, HDR+2
IOSL PRINT+3
IOST PRINT+4, HDR+1, HDR+2
>> POP PSAVER4+9
>> PSA VERLOCK+10, VERLOCK+11, VERLOCK+12, VERUNLCK+1*, VERUNLCK+2
PSACNT VERUNLCK+1*, LCKCHK+2~*, LCKCHK+7*, LCKCHK+11*, LCKCHK+12, LCKCHK+14, LCKCHK+15, LCKCHK+20, LCKCHK+21~, LCKCHK+23*
, LCKCHK+24, LCKCHK+27~, LCKCHK+28*, LCKCHK+29
PSACNTR LCKCHK+21~, LCKCHK+23*, LCKCHK+27~
>> PSACOMB HDR+5
PSACT LCKCHK+2~, LCKCHK+10*, LCKCHK+11
>> PSADLN PRINT+1*, HDR+8
>> PSADRGN PRINT+2*, PRINT+3*
PSADUZ LCKCHK+2~
PSAIEN VERLOCK+2, VERLOCK+4, VERLOCK+6, VERLOCK+7, VERLOCK+8, VERLOCK+10, VERLOCK+13, VERUNLCK+2*, VERUNLCK+3, VERUNLCK+5
, VERUNLCK+6, VERUNLCK+7, LCKCHK+2~*, LCKCHK+3*, LCKCHK+4, LCKCHK+5, LCKCHK+6, LCKCHK+7, LCKCHK+11*, LCKCHK+12
, LCKCHK+14*, LCKCHK+24*, LCKCHK+29*, LCK1+1, LCK1+3, LCK1+4, LCK1+5, CLCK+1, CLCK+3, CLCK+4
, CLCK+5, UNLCK+2~*, UNLCK+3*, UNLCK+4, UNLCK+5, UNLCK+12
PSAIEN1 VERLOCK+2, VERLOCK+4, VERLOCK+6, VERLOCK+7, VERLOCK+8, VERLOCK+10, VERLOCK+13, VERUNLCK+2*, VERUNLCK+3, VERUNLCK+5
, VERUNLCK+6, VERUNLCK+7, LCKCHK+2~, LCKCHK+5*, LCKCHK+6, LCKCHK+7, LCKCHK+11*, LCKCHK+12, LCKCHK+14*, LCKCHK+24*
, LCKCHK+29*, LCK1+1, LCK1+3, LCK1+4, LCK1+5, CLCK+1, CLCK+3, CLCK+4, CLCK+5, UNLCK+2~
, UNLCK+4*, UNLCK+5, UNLCK+12
PSALCHK LCKCHK+2~, LCKCHK+8
PSALCHK( LCKCHK+7*, LCKCHK+10, LCKCHK+11, LCKCHK+24, LCKCHK+28, LCKCHK+29
PSALCHK(1 LCKCHK+14
>> PSALOC PRINT+1*, PRINT+2*, PRINT+3, PRINT+5, HDR+3, HDR+4, HDR+5
>> PSALOCK( VERLOCK+10*, VERUNLCK+2
>> PSALOCN HDR+5*, HDR+7
>> PSAMSG VERLOCK+3*, VERLOCK+5*
>> PSANEWD( PRINT+2, PRINT+3, PRINT+5!
PSANUM LCKCHK+21~*, LCKCHK+23
>> PSAOUT PRINT+1*, PRINT+2, PRINT+3, PRINT+4, HDR+1
PSAPC VERUNLCK+1~*
>> PSAPG PRINT+1*, HDR+1, HDR+2, HDR+8*
>> PSASEL VERUNLCK+1
>> PSASLN PRINT+1*, PRINT+3
PSASUP LCKCHK+2~
>> PSATMP VERLOCK+11*, VERLOCK+12*
Y VERUNLCK+1~, LCKCHK+13, LCKCHK+18, LCKCHK+19, LCKCHK+20, LCKCHK+21!, LCKCHK+22!, LCKCHK+25, LCKCHK+26!, UNLCK+9
, UNLCK+10, UNLCK+11, UNLCK+12
>> ZTDESC PSAVER4+12*
ZTDTH PSAVER4+11~, PSAVER4+12*
ZTIO PSAVER4+11~
>> ZTQUEUED QUIT
>> ZTREQ QUIT*
ZTRTN PSAVER4+11~, PSAVER4+12*
ZTSAVE PSAVER4+11~
ZTSAVE("PSANEWD(" PSAVER4+13*
ZTSK PSAVER4+11~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All