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

Package: Drug Accountability

Routine: PSAVER


Information

PSAVER ;BIR/JMB-Verify Invoices ;9/6/97

Source Information

Source file <PSAVER.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Drug Accountability 6 ^PSAORDP1  END^PSAPROC  SITES^PSAUTL1  (EDIT,NEWDRUG)^PSAVER1  (PRINT,SETLINE,STATUS)^PSAVER3  (,LCKCHK,VERLOCK,VERUNLCK)^PSAVER4  
Kernel 5 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  SIG^XUSESIG  
VA FileMan 1 ^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: 1

Package Total Caller Graph
Drug Accountability 1 PSA VERIFY INVOICES  

Entry Points

Name Comments DBIA/ICR reference
ESIG
PRINT ;Asks & prints all invoices the user can verify.
ENTIRE ;Displays a list of all invoices the user can select to be verified.
OKAY ;Verifies correct invoices were selected.
BKGJOB
EDIT
EXIT
HDR ;Header with screen hold
LOAD ;Loads invoices to be edited into an array
PRTINV ;Sends invoices to printer
SEL ;Extended help to 'Select invoices'
SELHELP ;Extended help for 'Select invoices to verify'
PRINTYN ;Extended help for 'Print invoices?'
VERIFY ;Extended help for 'Are you sure...'

External References

Name Field # of Occurrence
^%ZIS PRINT+4
^%ZISC PRTINV+3
^%ZTLOAD PRINT+7, BKGJOB+29
^DIR PRINT+3, ENTIRE+12, OKAY+16, OKAY+19, HDR+2
^PSAORDP1 PRTINV+2
END^PSAPROC EXIT+1
SITES^PSAUTL1 OKAY+9
EDIT^PSAVER1 EDIT+1
NEWDRUG^PSAVER1 BKGJOB+13
PRINT^PSAVER3 BKGJOB+18
SETLINE^PSAVER3 BKGJOB+9
STATUS^PSAVER3 BKGJOB+12
^PSAVER4 EXIT
LCKCHK^PSAVER4 PSAVER+8, ENTIRE+13, BKGJOB+26
VERLOCK^PSAVER4 OKAY+13
VERUNLCK^PSAVER4 OKAY+19, BKGJOB+21
$$FMTE^XLFDT ENTIRE+9, OKAY+7
SIG^XUSESIG ESIG

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You do not hold the key to enter the option."
  • Line Location: PSAVER+7
Function Call: WRITE
  • Prompt: !!,"There are no invoices that need to be verified."
  • Line Location: PSAVER+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: @IOF,!?21,"<<< VERIFY ENTIRE INVOICE SCREEN >>>"
  • Line Location: ENTIRE+2
Function Call: WRITE
  • Prompt: !!?2,"If there are no corrections, you can change the invoices' status",!?2,"to ""Verified"" by selecting them from the list. If you do have"
  • Line Location: ENTIRE+3
Function Call: WRITE
  • Prompt: !?2,"corrections, press the return key then a second list will be",!?2,"displayed. You will be able to choose the invoices from that list",!?2,"and enter corrections.",!!?2,"Choose the invoices from the list you want to verify.",!,PSADLN
  • Line Location: ENTIRE+4
Function Call: WRITE
  • Prompt: !,PSADLN
  • Line Location: ENTIRE+10
Function Call: WRITE
  • Prompt: !
  • Line Location: ENTIRE+12
Function Call: WRITE
  • Prompt: @IOF,!?21,"<<< VERIFY ENTIRE INVOICE SCREEN >>>",!,PSADLN,!
  • Line Location: OKAY+1
Function Call: WRITE
  • Prompt: !?6,"MASTER VAULT: "_$P(^PSD(58.8,+$P(PSAIN,"^",12),0),"^")
  • Line Location: OKAY+11
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: @IOF,!?21,"<<< VERIFY ENTIRE INVOICE SCREEN >>>",!!,PSADLN
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !?5,"Enter the number to the left of the invoice data that you want to verify.",!?5,"The invoices' statuses will be changed to Verified."
  • Line Location: SEL+1
Function Call: WRITE
  • Prompt: !?5,"Enter the number to the left of the invoice data you want to verify.",!?5,"The line items will be displayed for you to select the ones you want"
  • Line Location: SELHELP+1
Function Call: WRITE
  • Prompt: !?5,"to correct."
  • Line Location: SELHELP+2
Function Call: WRITE
  • Prompt: !?5,"Enter YES to print all of the processed invoices you can verify.",!?5,"Enter NO to bypass printing the invoices and continue with verification."
  • Line Location: PRINTYN+1
Function Call: WRITE
  • Prompt: !!?5,"Enter YES if the list contains invoices to be verified.",!!?5,"Enter NO if the list contains at least one invoice that should not be"
  • Line Location: VERIFY+1
Function Call: WRITE
  • Prompt: !?5,"verified. You will be returned to the original list so you can choose",!?5,"the invoices to be verified again."
  • Line Location: VERIFY+2
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+4
Routine Call
  • DIR
  • Line Location:
    • PRINT+3
    • ENTIRE+12
    • OKAY+16
    • OKAY+19
    • HDR+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] OKAY+9, OKAY+11, BKGJOB+13
^PSD(58.811 - [#58.811] PSAVER+8, PSAVER+9, PSAVER+15, PSAVER+16, PSAVER+17, PSAVER+18, PSAVER+19, ENTIRE+8, ENTIRE+13, ENTIRE+14
, OKAY+4, OKAY+5, OKAY+6, BKGJOB+2, BKGJOB+4, BKGJOB+5, BKGJOB+6, BKGJOB+7, BKGJOB+13, BKGJOB+26
^XUSEC("PSA ORDERS" PSAVER+7
^XUSEC("PSJ RPHARM" PSAVER+19

Label References

Name Line Occurrences
EDIT ENTIRE+13, ENTIRE+14
ENTIRE PRINT+3, PRINT+4, PRINT+5, OKAY+16, OKAY+19
EXIT PSAVER+20, ESIG, PRINT+3, ENTIRE+12, OKAY+16, OKAY+19, BKGJOB+31
HDR ENTIRE+7
LOAD ENTIRE+13, ENTIRE+14, BKGJOB+27
PRTINV PRINT+8

Naked Globals

Name Field # of Occurrence
^(0 PSAVER+19, ENTIRE+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS PRINT+4*, EXIT+2!
DA EXIT+2!
DD EXIT+2!
DIC EXIT+2!
DIE EXIT+2!
DIK EXIT+2!
DIR PRINT+3!, ENTIRE+12!, OKAY+19!, EXIT+2!, HDR+2!
DIR("?" PRINT+1*, ENTIRE+11*, OKAY+18*
DIR("??" PRINT+2*, ENTIRE+11*, OKAY+18*
DIR("A" PRINT+1*, ENTIRE+11*, OKAY+17*
DIR("B" PRINT+1*, OKAY+17*
DIR(0 PRINT+1*, ENTIRE+11*, OKAY+16*, OKAY+17*, HDR+2*
DIRUT PRINT+3, OKAY+16, OKAY+19, EXIT+2!, HDR+2
DO EXIT+2!
DR EXIT+2!
DTOUT ENTIRE+12, EXIT+2!
DUOUT ENTIRE+12, EXIT+2!
DUZ PSAVER+7, PSAVER+19
IO("Q" PRINT+5
IOF ENTIRE+2, OKAY+1, HDR+3
IOSL ENTIRE+7
>> POP PRINT+4, BKGJOB+29
PSA ENTIRE+5*, ENTIRE+6*, ENTIRE+8, ENTIRE+9, OKAY+2*, OKAY+3, BKGJOB*, BKGJOB+1, BKGJOB+12, BKGJOB+17
, BKGJOB+20, EXIT+2!, PRTINV+1*, PRTINV+2
PSA10 EXIT+2!
PSA50IEN EXIT+2!
PSAA EXIT+2!
PSABEFOR EXIT+2!
PSACHG EXIT+2!
PSACHO EXIT+2!
PSACNT PSAVER+14*, PSAVER+19*, PSAVER+20, ENTIRE+5*, ENTIRE+8*, ENTIRE+11, OKAY+2*, OKAY+6*, OKAY+7, OKAY+17
, EXIT+2!, LOAD+1*, LOAD+2*
PSACOMB OKAY+9, EXIT+2!
PSACS BKGJOB+3*, EXIT+2!
PSACSLN EXIT+2!
PSACTRL EXIT+2!
PSADATA BKGJOB+7*, BKGJOB+8, EXIT+3!
PSADD EXIT+3!
PSADJ EXIT+3!
PSADJD EXIT+3!
PSADJFLD EXIT+3!
PSADJN EXIT+3!
PSADJO EXIT+3!
PSADJOP EXIT+3!
PSADJOV EXIT+3!
PSADJP EXIT+3!
PSADJPP EXIT+3!
PSADJPV EXIT+3!
PSADJQ EXIT+3!
PSADJQP EXIT+3!
PSADJQV EXIT+3!
PSADJSUP EXIT+3!
PSADLN ENTIRE+1*, ENTIRE+4, ENTIRE+10, OKAY+1, EXIT+3!, HDR+3
PSADRG EXIT+3!
PSADRGN EXIT+4!
PSADUOU EXIT+4!
PSAEDIT EXIT+4!, LOAD+1!
PSAEDIT( LOAD+2*
PSAEDIT(0 BKGJOB+31
PSAERR BKGJOB+3*, BKGJOB+17*, EXIT+4!
PSAFLD EXIT+4!
PSAFLDS EXIT+4!
PSAGAIN EXIT+2!
PSAHOLD EXIT+4!
PSAIEN PSAVER+14*, PSAVER+15*, PSAVER+16, PSAVER+17, PSAVER+18, PSAVER+19, ENTIRE+8*, OKAY+3*, OKAY+4, OKAY+5
, OKAY+6, BKGJOB+1*, BKGJOB+2, BKGJOB+4, BKGJOB+5, BKGJOB+6, BKGJOB+7, BKGJOB+11, BKGJOB+12, BKGJOB+13
, BKGJOB+15, BKGJOB+17, EXIT+4!
PSAIEN1 PSAVER+17*, PSAVER+18, PSAVER+19, ENTIRE+8*, OKAY+3*, OKAY+4, OKAY+5, BKGJOB+1*, BKGJOB+2, BKGJOB+4
, BKGJOB+5, BKGJOB+6, BKGJOB+7, BKGJOB+11, BKGJOB+12, BKGJOB+13, BKGJOB+15, BKGJOB+17, EXIT+4!
PSAIN OKAY+5*, OKAY+6, OKAY+8, OKAY+9, OKAY+11, BKGJOB+4*, BKGJOB+8, BKGJOB+13, EXIT+4!
PSAINV ENTIRE+8*, ENTIRE+9, OKAY+6*, OKAY+7, BKGJOB+4*, BKGJOB+14, BKGJOB+16, EXIT+4!, PRTINV+2*
PSAINVDT ENTIRE+8*, ENTIRE+9, OKAY+6*, OKAY+7, EXIT+4!
PSAISIT EXIT+4!
PSAISITN EXIT+4!
PSAKK EXIT+4!, HDR+1*
PSAL EXIT+4!
PSALCK EXIT+7!
PSALEN EXIT+4!
PSALINE BKGJOB+3*, BKGJOB+5*, BKGJOB+6, BKGJOB+7, EXIT+4!
PSALINEN EXIT+4!
PSALINES EXIT+5!
PSALN EXIT+5!
PSALN0 EXIT+5!
PSALNCNT BKGJOB+3*, BKGJOB+7*, EXIT+5!
PSALND EXIT+5!
PSALNERR BKGJOB+3*, EXIT+5!
PSALNP EXIT+5!
PSALNSU BKGJOB+3*, EXIT+5!
PSALNV EXIT+5!
PSALOAD EXIT+5!, LOAD+1*, LOAD+2*
PSALOC OKAY+9*, BKGJOB+8*, EXIT+5!
PSALOCA EXIT+5!
PSALOCK EXIT+6!
PSALOCN OKAY+9*, OKAY+10, EXIT+5!
PSAMENU EXIT+5!
PSAMSG OKAY+13*, OKAY+14, EXIT+6!
PSAMV EXIT+5!
PSAMVA EXIT+5!
PSAMVIEN EXIT+5!
PSAMVN EXIT+5!
PSAN10 EXIT+5!
PSANAME EXIT+5!
PSANDC EXIT+5!
PSANEW EXIT+5!
PSANEWD EXIT+5!
PSANEWD(0 EXIT
PSANO EXIT+6!
PSANODE EXIT+6!
PSANOVER EXIT+6!
PSANOVER( BKGJOB+11, BKGJOB+15
PSANUM EXIT+6!
PSAONE EXIT+6!
PSAONEMV EXIT+6!
PSAORD ENTIRE+8*, ENTIRE+9, OKAY+6*, OKAY+7, BKGJOB+4*, BKGJOB+14, BKGJOB+16, EXIT+6!, PRTINV+2*
PSAORDU EXIT+6!
PSAOSIT EXIT+6!
PSAOSITN EXIT+6!
PSAOU EXIT+6!, EXIT+7!
PSAOUT ESIG*, BKGJOB, BKGJOB+5, BKGJOB+10, BKGJOB+22*, EXIT+6!, PRTINV+1*
PSAPC OKAY+2*, BKGJOB*, EXIT+6!
PSAPCF EXIT+6!
PSAPCL EXIT+6!
PSAPG EXIT+6!
PSAPHARM EXIT+6!
PSAPRICE EXIT+6!
PSAPRINT EXIT+6!
PSAQTY EXIT+6!
PSAREA EXIT+7!
PSAREC EXIT+7!
PSARECD EXIT+7!
PSAREORD EXIT+7!
PSARTN1 EDIT*, EXIT*, EXIT+1, EXIT+8!
PSASAVE EXIT+7!
PSASEL ENTIRE+15*, OKAY+2, OKAY+15*, OKAY+16, BKGJOB, BKGJOB+19, BKGJOB+20~*, EXIT+7!
PSASET EXIT+7!
PSASLN ENTIRE+1*, EXIT+7!
PSASS EXIT+8!, HDR+1*
PSASTOCK EXIT+7!
PSASTOP ENTIRE+5*, ENTIRE+6, ENTIRE+7, ENTIRE+10!, HDR+2*
PSASUB EXIT+7!
PSASUP PSAVER+14*, BKGJOB+1*, EXIT+7!
PSASUPP EXIT+7!
PSATAB EXIT+7!
PSATEMP EXIT+7!
PSATMP OKAY+2*, OKAY+15!, BKGJOB+19~*, EXIT+7!
PSAUPC EXIT+7!
PSAVAULT EXIT+7!
PSAVBKG BKGJOB!, BKGJOB+31!, EXIT+7!
PSAVBKG( BKGJOB+12*
PSAVBKG(0 BKGJOB+28
PSAVER EXIT+7!, LOAD+3!
PSAVER( PSAVER+19*, ENTIRE+6, ENTIRE+8, OKAY+3, BKGJOB+1, BKGJOB+12!, BKGJOB+17*, LOAD+2, PRTINV+1, PRTINV+2
PSAVSN EXIT+7!
X EXIT+8!
X1 ESIG, EXIT+8!
Y PRINT+3, ENTIRE+13, ENTIRE+14, ENTIRE+15, OKAY+19, EXIT+8!
ZTDESC PRINT+7*, BKGJOB+29*, EXIT+8!
ZTDTH PRINT+7*, BKGJOB+29*, EXIT+8!
ZTIO BKGJOB+29*, EXIT+8!
ZTRTN PRINT+7*, BKGJOB+29*, EXIT+8!
ZTSAVE PRINT+6!, BKGJOB+29!, EXIT+8!
ZTSAVE("PSASEL" BKGJOB+29*
ZTSAVE("PSAVBKG(" BKGJOB+29*
ZTSAVE("PSAVER(" PRINT+7*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All