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

Package: Drug Accountability

Routine: PSAVER3


Information

PSAVER3 ;BIR/JMB-Verify Invoices - CONT'D ;9/5/97

Source Information

Source file <PSAVER3.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
Drug Accountability 3 END^PSAPROC  ADJ^PSAVER2  CS^PSAVER5  
VA Fileman 2 ^DIE  ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Drug Accountability 2 PSAVER  PSAVER1  

Entry Points

Name Comments DBIA/ICR reference
STATUS ;Sets invoice's status to Verified
GOOD ;If no errors found, verify invoice.
HDR ;Prints header
SUPPLY ;If it is a supply, automatically verify it.
VERIFY ;Set line item to verified
PRN ;Entry point to print verification errors
NOTSUP ;If it is not a supply, look for drug, qty, dispense units, dispense
PRINTYN ;Extended help for 'Print verification report'
NEWDRUG ;Store in array if drug is new to location/vault
LNHELP ;Extended help for 'Line Number"
DDQOR ;Extended help for 'Edit field'
PRINT ;Prints verification error list
SETLINE ;Set line as verified if all data is present.
VERIFY1 ;Set adjs if entire invioce was verified
NOVER ;Prints errors

External References

Name Field # of Occurrence
^%ZIS PRINT+5
^%ZISC PRN+11
^%ZTLOAD PRINT+10
^DIE STATUS+5, VERIFY+5
^DIR PRINT+3
END^PSAPROC PRN+10, NOVER+3
ADJ^PSAVER2 VERIFY1+4
CS^PSAVER5 NOTSUP+9, NOTSUP+14
$$FMTE^XLFDT HDR+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !!,"** The invoice has not been placed in a Verified status!",!
  • Line Location: PRN+9
Function Call: WRITE
  • Prompt: "Line# "_PSALINEN_": "
  • Line Location: NOVER+5
Function Call: WRITE
  • Prompt: ?PSATAB,"Master Vault",!
  • Line Location: NOVER+9
Function Call: WRITE
  • Prompt: ?PSATAB,"Pharmacy location",!
  • Line Location: NOVER+11
Function Call: WRITE
  • Prompt: !
  • Line Location: NOVER+13
Function Call: WRITE
  • Prompt: @IOF,!?23,"<<< VERIFICATION ERROR REPORT >>>"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !?20,"DRUG ACCOUNTABILITY/INVENTORY INTERFACE",!?27,"VERIFICATION ERROR REPORT",?72,"Page "_PSAPG,!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,"The following line numbers' status cannot be changed to Verified.",!,"The fields that contain an error or need data are listed with the line item.",!,PSASLN,!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !?5,"Enter the number or range of numbers of the field you want to edit.",!?5,"For example, 1-3 or 1,3"
  • Line Location: DDQOR+1
Function Call: WRITE
  • Prompt: !?5,"Enter the number of the item on the invoice you want to edit.",!?5,"You may enter several line item numbers separated by comas.",!!?5,"Do NOT enter a range of numbers separated by a dash."
  • Line Location: LNHELP+1
Function Call: WRITE
  • Prompt: !?5,"Enter YES to print the Verification Error Report on a printer.",!?5,"Enter NO if you do not want to print the report."
  • Line Location: PRINTYN+1
Routine Call
  • DIE
  • Line Location:
    • STATUS+5
    • VERIFY+5
Routine Call
  • DIR
  • Line Location:
    • PRINT+3
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(51.5 - [#51.5] SETLINE+22
^PSD(58.8 - [#58.8] SETLINE+29, SETLINE+30, NEWDRUG+2, NEWDRUG+4
^PSD(58.811 - [#58.811] SETLINE+2, SETLINE+3, SETLINE+4, SETLINE+5, SETLINE+6, SETLINE+7, SETLINE+16, SETLINE+27, NEWDRUG+3*, NEWDRUG+5*
, NOTSUP+10*, NOTSUP+15*, PRN+3, PRN+5, NOVER+2, STATUS+4, STATUS+5, VERIFY+4, VERIFY+5, VERIFY1+1
, VERIFY1+2, VERIFY1+3, VERIFY1+4
^PSDRUG - [#50] SETLINE+23, SETLINE+28, NEWDRUG+2, NEWDRUG+3, NEWDRUG+4, NEWDRUG+5, NOTSUP+4, NOTSUP+5, NOTSUP+8, NOTSUP+13
, VERIFY+1
^PSDRUG("C" SETLINE+19

Label References

Name Line Occurrences
GOOD NOTSUP+19
HDR NOVER+3, NOVER+4
NOVER PRN+7
SUPPLY SETLINE+15
VERIFY SUPPLY+1, GOOD+1
VERIFY1 SUPPLY+1, GOOD+1

Naked Globals

Name Field # of Occurrence
^(0 NOTSUP+10, NOTSUP+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS PRINT+5*
DA STATUS+3*, VERIFY+3!*, VERIFY1+1*, VERIFY1+2, VERIFY1+3, VERIFY1+4
DA(1 STATUS+3*, VERIFY+3*
DA(2 VERIFY+3*
DIE STATUS+3*, STATUS+6!, VERIFY+3*, VERIFY+6!
DIR PRINT+3!
DIR("?" PRINT+2*
DIR("??" PRINT+2*
DIR("A" PRINT+1*
DIR("B" PRINT+1*
DIR(0 PRINT+1*
>> DR STATUS+3*, VERIFY+3*
DT VERIFY+3
>> DTOUT PRINT+3
>> DUOUT PRINT+3
DUZ STATUS+3, VERIFY+3, VERIFY1+3
IO("Q" PRINT+6
IOF PRN+10, HDR+1, HDR+2
IOSL NOVER+3, NOVER+4
IOST PRN+10, NOVER+3, NOVER+4, HDR+1, HDR+2
>> POP PRINT+5
>> PSAA SETLINE+4*
>> PSACSLN VERIFY+1*, VERIFY+2*
>> PSADATA SETLINE+2*, SETLINE+13, SETLINE+16, SETLINE+22, NOTSUP+2, NOTSUP+3, NOTSUP+6, NOTSUP+10*, NOTSUP+15*
>> PSADJ SETLINE+1*, SETLINE+5*, SETLINE+6, SETLINE+7, VERIFY1+4*
>> PSADJN SETLINE+1*, SETLINE+7*, SETLINE+8, SETLINE+9, SETLINE+10, SETLINE+11, SETLINE+12
PSADRG SETLINE+1!, SETLINE+9*, SETLINE+10*, SETLINE+13*, SETLINE+15, SETLINE+19, SETLINE+23, SETLINE+28, SETLINE+29, SETLINE+30
, NEWDRUG+1, NEWDRUG+2, NEWDRUG+3, NEWDRUG+4, NEWDRUG+5, NOTSUP+2, NOTSUP+4, NOTSUP+5, NOTSUP+8, NOTSUP+13
, VERIFY+1
>> PSADUOU SETLINE+20*, SETLINE+28*, NOTSUP+5
>> PSAERR SUPPLY+1, NOTSUP+18*, NOTSUP+19, PRN+1*, HDR+4, HDR+5
PSAHOLD GOOD+5!
PSAHOLD( NEWDRUG+3*, NEWDRUG+5*, GOOD+2, GOOD+3, GOOD+4
>> PSAIEN SETLINE+2, SETLINE+3, SETLINE+4, SETLINE+5, SETLINE+6, SETLINE+7, SETLINE+16, SETLINE+27, NEWDRUG+3, NEWDRUG+5
, NOTSUP+2, NOTSUP+3, NOTSUP+4, NOTSUP+5, NOTSUP+6, NOTSUP+9, NOTSUP+10, NOTSUP+11, NOTSUP+14, NOTSUP+15
, NOTSUP+16, NOTSUP+18, GOOD+3, GOOD+4, PRN+2*, PRN+3, PRN+4, PRN+5, PRN+6, PRN+8
, NOVER+1, NOVER+2, STATUS+3, STATUS+4, STATUS+5, VERIFY+3, VERIFY+4, VERIFY+5, VERIFY1+1, VERIFY1+2
, VERIFY1+3, VERIFY1+4
>> PSAIEN1 SETLINE+2, SETLINE+3, SETLINE+4, SETLINE+5, SETLINE+6, SETLINE+7, SETLINE+16, SETLINE+27, NEWDRUG+3, NEWDRUG+5
, NOTSUP+2, NOTSUP+3, NOTSUP+4, NOTSUP+5, NOTSUP+6, NOTSUP+9, NOTSUP+10, NOTSUP+11, NOTSUP+14, NOTSUP+15
, NOTSUP+16, NOTSUP+18, GOOD+3, GOOD+4, PRN+4*, PRN+5, PRN+6, NOVER+1, NOVER+2, STATUS+3
, STATUS+4, STATUS+5, VERIFY+3, VERIFY+4, VERIFY+5, VERIFY1+1, VERIFY1+2, VERIFY1+3, VERIFY1+4
>> PSAIN NEWDRUG+2, NEWDRUG+3, NEWDRUG+4, NEWDRUG+5, NOTSUP+9, NOTSUP+11, NOTSUP+14, NOTSUP+16, PRN+5*, HDR+4
>> PSAINV PRN+5*
>> PSAL GOOD+2*, GOOD+3, GOOD+4
>> PSALEN NOVER+1*, NOVER+3, NOVER+4
>> PSALINE SETLINE+2, SETLINE+3, SETLINE+4, SETLINE+5, SETLINE+6, SETLINE+7, SETLINE+16, NEWDRUG+3, NEWDRUG+5, NOTSUP+2
, NOTSUP+3, NOTSUP+4, NOTSUP+5, NOTSUP+6, NOTSUP+9, NOTSUP+10, NOTSUP+11, NOTSUP+14, NOTSUP+15, NOTSUP+16
, NOTSUP+18, PRN+1*, PRN+6*, NOVER+1, NOVER+2, VERIFY+3, VERIFY1+1, VERIFY1+2, VERIFY1+3, VERIFY1+4
>> PSALINEN NOVER+2*, NOVER+5
>> PSALNERR NOTSUP+18*
>> PSALNSU SETLINE+9*, SETLINE+15, SUPPLY+1
>> PSALOC SETLINE+27*, SETLINE+29, SETLINE+30
>> PSANAME GOOD+3*, GOOD+4
>> PSANDC SETLINE+16*, SETLINE+19
>> PSANEWD( GOOD+4*
>> PSANO NOVER+1*, NOVER+6, NOVER+7, NOVER+8, NOVER+9, NOVER+10, NOVER+11, NOVER+12
>> PSANOVER( NOTSUP+2*, NOTSUP+3*, NOTSUP+4*, NOTSUP+5*, NOTSUP+6*, NOTSUP+9*, NOTSUP+11*, NOTSUP+14*, NOTSUP+16*, NOTSUP+18
, PRN+2, PRN+4, PRN+6, PRN+8!, NOVER+1
>> PSANOVER(0 PRINT+8
>> PSAORD PRN+3*, HDR+4
PSAOU SETLINE+1!, SETLINE+11*, SETLINE+21, SETLINE+22*, SETLINE+23*, SETLINE+24*, NOTSUP+6
>> PSAOUT PRINT+3*, PRN+1*, PRN+2, PRN+4, PRN+6, NOVER+3
>> PSAPG PRN+1*, NOVER+3, NOVER+4, HDR+2, HDR+3*
>> PSAPRINT SUPPLY+1, PRN+1*
PSAQTY SETLINE+1!, SETLINE+12*, SETLINE+13*, NOTSUP+3
>> PSAREA VERIFY1+4*
>> PSAREORD SETLINE+20*, SETLINE+30*
>> PSASAVE PRINT+9*
>> PSASLN HDR+4, HDR+5
>> PSASTOCK SETLINE+20*, SETLINE+29*
>> PSASUB SETLINE+18*, SETLINE+19*, SETLINE+23, SETLINE+25, SETLINE+28, NOTSUP+5
>> PSASUP SETLINE+9*, SETLINE+15
>> PSATAB NOVER+2*, NOVER+6, NOVER+7, NOVER+8, NOVER+9, NOVER+10, NOVER+11, NOVER+12
>> PSATEMP SETLINE+16*, SETLINE+18, SETLINE+20, SETLINE+24
>> Y PRINT+4
>> ZTDESC PRINT+7*
>> ZTRTN PRINT+7*
>> ZTSAVE( PRINT+9*
>> ZTSAVE("PSANOVER(" PRINT+8*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All