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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSAVER1

Package: Drug Accountability

Routine: PSAVER1


Information

PSAVER1 ;BIR/JMB-Verify Invoices - CONT'D ;7/23/97

Source Information

Source file <PSAVER1.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Drug Accountability 8 END^PSAPROC  SITES^PSAUTL1  VERDISP^PSAUTL4  (ASKDRUG,DUOU,OU,PHARM,QTY,RECD,REORDER,STOCK)^PSAVER2  (PRINT,SETLINE,STATUS)^PSAVER3  (LCKCHK,VERLOCK,VERUNLCK)^PSAVER4  (GETLOC,MASTER)^PSAVER5  ^PSAVER6  
VA FileMan 2 ^DIC  ^DIR  
Kernel 1 $$FMTE^XLFDT  

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  PSAVER2  

Entry Points

Name Comments DBIA/ICR reference
EDIT
SEL ;Select line items to be edit
HEADER ;Header with screen hold
CORR
LINES
VIEW
FIELDS
PROCESS
CHECK
CHG
NEWDRUG ;If this invoice will add new drugs to location/vault, store in an
HDR ;Header for screen that displays invoice data to be edited.
CHGYN ;Extended help for 'Do you want to change the invoice's status to Verified'

External References

Name Field # of Occurrence
^DIC LINES
^DIR EDIT+8, HEADER+2, CORR+5, VIEW+4, FIELDS+11
END^PSAPROC CHECK+2, CHECK+13
SITES^PSAUTL1 CORR+12
VERDISP^PSAUTL4 VIEW, VIEW+5
ASKDRUG^PSAVER2 FIELDS+1
DUOU^PSAVER2 FIELDS+4
OU^PSAVER2 FIELDS+3
PHARM^PSAVER2 CORR+14, CORR+15
QTY^PSAVER2 FIELDS+2
RECD^PSAVER2 CORR+7
REORDER^PSAVER2 FIELDS+6
STOCK^PSAVER2 FIELDS+5
PRINT^PSAVER3 CHECK+2, CHECK+13
SETLINE^PSAVER3 PROCESS+4
STATUS^PSAVER3 CHG
LCKCHK^PSAVER4 CORR+1
VERLOCK^PSAVER4 CORR+3
VERUNLCK^PSAVER4 CORR+8, CORR+16, FIELDS+12, PROCESS+4, CHECK+3
GETLOC^PSAVER5 CHECK+7, CHECK+8
MASTER^PSAVER5 CHECK+6
^PSAVER6 SEL+5
$$FMTE^XLFDT EDIT+5, HDR+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!?18,"<<< EDIT INVOICES TO BE VERIFIED SCREEN >>>",!!?2,"Choose the invoices from the list you want to edit.",!,PSASLN
  • Line Location: EDIT+0
Function Call: WRITE
  • Prompt: !,PSASLN
  • Line Location: EDIT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: @IOF,!?18,"<<< EDIT INVOICES TO BE VERIFIED SCREEN >>>",!!,PSASLN
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,?5,PSAMSG,!
  • Line Location: CORR+5
Function Call: WRITE
  • Prompt: !,"** The invoice's status has not been changed to Verified!"
  • Line Location: CORR+8
Function Call: WRITE
  • Prompt: !!,$P($G(^PSD(58.8,PSAMV,0)),"^")
  • Line Location: CORR+15
Function Call: WRITE
  • Prompt: !,"** The invoice's status has not been changed to Verified!"
  • Line Location: CORR+16
Function Call: WRITE
  • Prompt: !
  • Line Location: LINES+0
Function Call: WRITE
  • Prompt: !,"Invalid line number."
  • Line Location: LINES+3
Function Call: WRITE
  • Prompt: PSASLN,!
  • Line Location: VIEW+0
Function Call: WRITE
  • Prompt: "5. Stock Level",!,"6. Reorder Level",!
  • Line Location: VIEW+2
Function Call: WRITE
  • Prompt: PSASLN
  • Line Location: VIEW+5
Function Call: WRITE
  • Prompt: !
  • Line Location: FIELDS+10
Function Call: WRITE
  • Prompt: !,"** The invoice's status has not been changed to Verified!"
  • Line Location: FIELDS+12
Function Call: WRITE
  • Prompt: !,"** The invoice's status has not been changed to Verified!"
  • Line Location: PROCESS+4
Function Call: WRITE
  • Prompt: !!,"** The invoice has not been placed in a Verified status!"
  • Line Location: CHECK+1
Function Call: WRITE
  • Prompt: !,"All drugs on the invoice are marked as a controlled substance."
  • Line Location: CHECK+5
Function Call: WRITE
  • Prompt: !!,"The invoice status has been changed to Verified!"
  • Line Location: CHG+1
Function Call: WRITE
  • Prompt: @IOF,!?18,"<<< EDIT INVOICES TO BE VERIFIED SCREEN >>>"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!,"Order#: "_PSAORD_" Invoice#: "_PSAINV_" Invoice Date: "_$$FMTE^XLFDT(PSAINVDT),!,PSASLN,!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?5,"Enter YES if the invoice is completely correct. You will not be able",!?5,"to edit it again."
  • Line Location: CHGYN+1
Function Call: WRITE
  • Prompt: !!?5,"Enter NO if you need to edit the invoice again. You can edit it again",!?5,"by selecting the Verify Orders option."
  • Line Location: CHGYN+2
Routine Call
  • DIC
  • Line Location:
    • LINES
Routine Call
  • DIR
  • Line Location:
    • EDIT+8
    • HEADER+2
    • CORR+5
    • VIEW+4
    • FIELDS+11

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] CORR+12, CORR+15, VIEW+2, NEWDRUG+12
^PSD(58.811 - [#58.811] EDIT+3, EDIT+4, CORR+1, CORR+6, LINES+3, LINES+4, PROCESS+1, PROCESS+2, PROCESS+3, PROCESS+5
, CHECK+5*, CHECK+6, CHECK+7*, CHECK+8*, CHECK+11*, CHECK+12*, NEWDRUG+3, NEWDRUG+5, NEWDRUG+6, NEWDRUG+7
, NEWDRUG+8, NEWDRUG+9
^PSDRUG - [#50] NEWDRUG+12

Label References

Name Line Occurrences
CHG CHECK+10
CORR SEL+2
HDR CORR+5, CORR+7, VIEW, VIEW+5
HEADER EDIT+2
NEWDRUG CHG

Naked Globals

Name Field # of Occurrence
^(0 EDIT+4, CORR+6, NEWDRUG+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA(1 LINES*
>> DA(2 LINES*
DIC LINES*!
DIC("A" LINES*
DIC(0 LINES*
DIR EDIT+8!, HEADER+2!, CORR+5!, VIEW+4!, FIELDS+11!
DIR("?" EDIT+7*, VIEW+3*, FIELDS+10*
DIR("??" EDIT+7*, VIEW+3*, FIELDS+11*
DIR("A" EDIT+7*, VIEW+3*, FIELDS+10*
DIR(0 EDIT+7*, HEADER+2*, CORR+5*, VIEW+3*, FIELDS+10*
>> DIRUT EDIT+8, HEADER+2, FIELDS+12
>> DR CORR+14*, CORR+15*
>> DTOUT LINES+1, VIEW+4
>> DUOUT CORR+9, LINES+1, VIEW+4
IOF EDIT, HEADER+3, HDR+1
IOSL EDIT+2
>> PSA EDIT+1*, EDIT+3, EDIT+5, SEL+2*, CORR+2, CORR+5, CORR+9, CORR+16, FIELDS+12, PROCESS+4
, CHECK+3
>> PSA50IEN FIELDS+4*
>> PSACHG FIELDS+12*, FIELDS+13*, PROCESS+4*
>> PSACHO VIEW+1*, VIEW+2*, VIEW+3
>> PSACNT EDIT+1*, EDIT+4*, EDIT+7
>> PSACOMB CORR+12
>> PSACS PROCESS*, PROCESS+6*, CHECK+4, CHECK+7, CHECK+8
>> PSADATA LINES+4*, LINES+5, PROCESS+3*, PROCESS+5*, PROCESS+6
>> PSADD NEWDRUG+11*, NEWDRUG+12
>> PSADJ NEWDRUG+8*, NEWDRUG+9, NEWDRUG+10
>> PSADRG FIELDS+4
>> PSAEDIT( EDIT+1, EDIT+3, CORR+2
>> PSAERR PROCESS*, CHECK+2, CHECK+13
>> PSAFLD FIELDS*, FIELDS+1, FIELDS+2, FIELDS+3, FIELDS+4, FIELDS+5, FIELDS+6
>> PSAFLDS VIEW+5*, FIELDS
>> PSAHOLD( CHECK+1!
>> PSAIEN EDIT+3*, EDIT+4, CORR+2*, CORR+6, LINES, LINES+3, LINES+4, FIELDS+13, PROCESS+1, PROCESS+2
, PROCESS+3, PROCESS+5, CHECK+1, CHECK+3, CHECK+5, CHECK+6, CHECK+7, CHECK+8, CHECK+11, CHECK+12
, NEWDRUG+3, NEWDRUG+5, NEWDRUG+6, NEWDRUG+7, NEWDRUG+8, NEWDRUG+9
>> PSAIEN1 EDIT+3*, EDIT+4, CORR+2*, CORR+6, LINES, LINES+3, LINES+4, FIELDS+13, PROCESS+1, PROCESS+2
, PROCESS+3, PROCESS+5, CHECK+1, CHECK+3, CHECK+5, CHECK+6, CHECK+7, CHECK+8, CHECK+11, CHECK+12
, NEWDRUG+3, NEWDRUG+5, NEWDRUG+6, NEWDRUG+7, NEWDRUG+8, NEWDRUG+9
>> PSAIN CORR+6*, CORR+10, CORR+11, CORR+15, LINES+5, PROCESS+1*
>> PSAINV EDIT+4*, EDIT+5, CORR+6*, HDR+2
>> PSAINVDT EDIT+4*, EDIT+5, CORR+6*, HDR+2
>> PSAKK HEADER+1*
>> PSALINE LINES+2*, LINES+3, LINES+4, PROCESS*, PROCESS+2*, PROCESS+3, PROCESS+5, NEWDRUG+3*, NEWDRUG+5*, NEWDRUG+6
, NEWDRUG+7, NEWDRUG+8, NEWDRUG+9
>> PSALINEN LINES+2*
>> PSALINES PROCESS*, PROCESS+5*, CHECK, CHECK+9
PSALN0 NEWDRUG+2!, NEWDRUG+6*, NEWDRUG+11
>> PSALNCNT PROCESS*, PROCESS+3*, CHECK, CHECK+4, CHECK+7, CHECK+9, CHECK+11
PSALND NEWDRUG+2!
>> PSALNERR PROCESS+3*, PROCESS+5
PSALNP NEWDRUG+2!, NEWDRUG+10*, NEWDRUG+11
>> PSALNSU PROCESS*
PSALNV NEWDRUG+2!, NEWDRUG+10*, NEWDRUG+11
>> PSALOC CORR+10*, CORR+11, CORR+12, LINES+5*, VIEW+2, CHECK+1, NEWDRUG+4, NEWDRUG+6*, NEWDRUG+12
>> PSALOCK( CORR+5!, CORR+9!, CORR+16!, FIELDS+12!, PROCESS+4!, CHECK+3!
>> PSALOCN CORR+12*, CORR+13
>> PSAMSG CORR+3*, CORR+4, CORR+5
>> PSAMV CORR+10*, CORR+15, NEWDRUG+3*, NEWDRUG+6
>> PSANDC LINES+5*
>> PSANEWD( NEWDRUG+12*
>> PSAORD EDIT+3*, EDIT+5, CORR+6*, PROCESS+1*, HDR+2
>> PSAOUT SEL+2, CORR+7, CORR+8, CORR+9*, CORR+11, CORR+16*, LINES, LINES+1*, VIEW+4*, FIELDS
, FIELDS+12*, PROCESS*, PROCESS+2, PROCESS+4*
>> PSAPC SEL+2*
>> PSAPCF FIELDS*
>> PSAPHARM NEWDRUG+3*, NEWDRUG+6
>> PSARTN1 CHG+2*
PSASEL EDIT+9*, SEL+2, CORR~, CORR+2*, CORR+5*, CORR+9*, CORR+16*, FIELDS+12*, PROCESS+4*, CHECK+3*
PSASEL1 CORR~*, CORR+5!, CORR+9!, CORR+16!, FIELDS+12!, PROCESS+4!, CHECK+3!
>> PSASET VIEW+5*, FIELDS+4
>> PSASLN EDIT, EDIT+6, HEADER+3, VIEW, VIEW+5, HDR+2
>> PSASS HEADER+1*
PSASTOP EDIT+1*, EDIT+2, EDIT+6!, HEADER+2*
>> PSASUP LINES+4*, PROCESS*, CHECK+11
>> PSATMP EDIT+1*, SEL+1*
PSAVBKG SEL+1!
PSAVBKG( FIELDS+13*, CHECK+3!
PSAVBKG(0 SEL+3
>> PSAVSN LINES+5*
>> X CORR+16
>> Y EDIT+9, LINES+1, LINES+2, VIEW+5, FIELDS+12, FIELDS+13
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All