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 Total: 11

Package Total Call Graph
Drug Accountability 5 ^PSAORDP1  SITES^PSAUTL1  (EDIT,NEWDRUG)^PSAVER1  (PRINT,SETLINE,STATUS)^PSAVER3  ^PSAVER4  
Kernel 5 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  SIG^XUSESIG  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Drug Accountability 1 PSA VERIFY INVOICES  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS PRINT+4
^%ZISC PRTINV+3
^%ZTLOAD PRINT+7, BKGJOB+24
^DIR PRINT+3, ENTIRE+12, OKAY+15, HDR+2
^PSAORDP1 PRTINV+2
SITES^PSAUTL1 OKAY+9
EDIT^PSAVER1 EDIT
NEWDRUG^PSAVER1 BKGJOB+13
PRINT^PSAVER3 BKGJOB+18
SETLINE^PSAVER3 BKGJOB+9
STATUS^PSAVER3 BKGJOB+12
^PSAVER4 EXIT
$$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+8
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
  • DIR
  • Line Location:
    • PRINT+3
    • ENTIRE+12
    • OKAY+15
    • HDR+2
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+4

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+14, PSAVER+15, PSAVER+16, PSAVER+17, PSAVER+18, ENTIRE+8, OKAY+4, OKAY+5, OKAY+6
, BKGJOB+2, BKGJOB+4, BKGJOB+5, BKGJOB+6, BKGJOB+7, BKGJOB+13
^XUSEC("PSA ORDERS" PSAVER+7
^XUSEC("PSJ RPHARM" PSAVER+18

Label References

Name Line Occurrences
EDIT ENTIRE+13
ENTIRE PRINT+3, PRINT+4, PRINT+5, OKAY+15
EXIT PSAVER+19, ESIG, PRINT+3, ENTIRE+12, OKAY+15, BKGJOB+25
HDR ENTIRE+7
LOAD ENTIRE+13, BKGJOB+22
PRTINV PRINT+8

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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