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

Package: Drug Accountability

Routine: PSAPV


Information

PSAPV ;BIR/JMB-Processor and Verifier ;9/6/97

Source Information

Source file <PSAPV.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 2 (,DD)^%DT  (C,NOW)^%DTC  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Drug Accountability 3 PSA PROCESSOR AND VERIFIER  PSACOST  PSASIG  

Entry Points

Name Comments DBIA/ICR reference
BDATE ;Gets beginning and ending invoice dates
HDR ;Report header
DEV
COMPILE ;Compiles data
PRINT ;Print data
EXIT
DEVICE ;Asks device & queueing info
EDATE

External References

Name Field # of Occurrence
^%DT BDATE+1, EDATE
DD^%DT PRINT+1, PRINT+2
C^%DTC COMPILE+1
NOW^%DTC PRINT+3
^%ZIS DEV+1
^%ZISC EXIT+1
^%ZTLOAD DEV+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You do not hold the key to enter the option."
  • Line Location: PSAPV+6
Function Call: WRITE
  • Prompt: !,"There are no invoices."
  • Line Location: PSAPV+7
Function Call: WRITE
  • Prompt: !!,"The report must be sent to a printer that supports 132 columns.",!
  • Line Location: DEVICE+1
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!"
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"The printout must be sent to a 132 column printer!",!
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !,PSASLN,!
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EXIT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: BDATE+1
Function Call: WRITE
  • Prompt: !!,"Future dates are not permitted.",!
  • Line Location: BDATE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EDATE+0
Function Call: WRITE
  • Prompt: !!,"Ending Date cannot be before the Start Date.",!
  • Line Location: EDATE+2
Function Call: WRITE
  • Prompt: !,PSASLN,@IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !?46,"DRUG ACCOUNTABILITY/INVENTORY INTERFACE",?114,"PAGE "_PSAPG,!?51,"PROCESSOR AND VERIFIER REPORT"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"RUN DATE: "_PSARUN,?52,PSABEGX_" - "_PSAENDX
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?52,PSABEGX_" - "_PSAENDX
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!?24,"| INVOICE",?36,"|",?68,"| DATE",?80,"|",?112,"| DATE"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,"INVOICE#",?24,"| DATE",?36,"| PROCESSOR",?68,"| PROCESSED",?80,"| VERIFIER",?112,"| VERIFIED"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,"========================|===========|===============================|===========|===============================|========="
  • Line Location: HDR+8
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.811 - [#58.811] PSAPV+7, COMPILE+2, COMPILE+3, COMPILE+4, COMPILE+5, COMPILE+6, COMPILE+7, COMPILE+12, COMPILE+13, COMPILE+14
^TMP("PSAPVR" COMPILE+18*, PRINT+5, PRINT+8, PRINT+9, EXIT+1!
^VA(200 - [#200] COMPILE+8, COMPILE+9
^XUSEC("PSA ORDERS" PSAPV+6

Label References

Name Line Occurrences
BDATE PSAPV+8, BDATE+3
EDATE EDATE+2
EXIT PSAPV+7, PSAPV+8, DEV+3
HDR PRINT+4, PRINT+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRINT+3, EXIT+2!
%DT PRINT+1!, PRINT+2!, BDATE+1*, BDATE+3!, EDATE*, EDATE+2!
%DT("A" BDATE+1*, EDATE*
%ZIS DEV!*, EXIT+2!
%ZIS("B" DEV*
DT BDATE+3
DTOUT EXIT+2!, BDATE+2, EDATE+1
DUZ PSAPV+6
IO("Q" DEV!, DEV+3, EXIT+1!
IOF EXIT, HDR+1
IOM DEV*
IOP DEV!
IOSL PRINT+6
IOST HDR+1, HDR+4
POP DEV!, DEV+1
PSABEG DEV+6, COMPILE+1, PRINT+2, EXIT+2!, BDATE+4*, EDATE+2
PSABEGX PRINT+2*, EXIT+2!, HDR+4, HDR+5
PSADATA COMPILE+14*, PRINT+9*, EXIT+2!
PSADATE COMPILE+1*, COMPILE+2*, COMPILE+3, COMPILE+5, EXIT+2!
PSAEND DEV+6, COMPILE+2, PRINT+1, EXIT+2!, EDATE+3*
PSAENDX PRINT+1*, EXIT+2!, HDR+4, HDR+5
PSAIEN COMPILE+3*, COMPILE+4, COMPILE+5, COMPILE+6, COMPILE+7, COMPILE+12, COMPILE+13, COMPILE+14, EXIT+2!
PSAIEN1 COMPILE+4*, COMPILE+5*, COMPILE+6, COMPILE+7, COMPILE+12, COMPILE+13, COMPILE+14, EXIT+2!
PSAIN COMPILE+7*, EXIT+2!
PSAINV COMPILE+7*, COMPILE+18, PRINT+8*, PRINT+9, PRINT+10, EXIT+2!
PSAINVDT COMPILE+7*, COMPILE+15*, COMPILE+18, PRINT+9*, PRINT+10, EXIT+2!
PSALINE COMPILE+10*, COMPILE+12*, COMPILE+13, COMPILE+14, EXIT+3!
PSAORD COMPILE+4*, COMPILE+18, PRINT+5*, PRINT+7, PRINT+8, PRINT+9, EXIT+3!
PSAOUT PSAPV+8*, COMPILE+1*, COMPILE+2, COMPILE+3, COMPILE+5, COMPILE+12, EXIT+3!, BDATE+2*, EDATE+1*
PSAPG PRINT+4*, EXIT+3!, HDR+1, HDR+2*, HDR+3
PSAPROC COMPILE+7*, COMPILE+8*, COMPILE+11, COMPILE+16, COMPILE+18, PRINT+9*, PRINT+10, EXIT+3!
PSAPROCD COMPILE+10*, COMPILE+14*, COMPILE+16*, COMPILE+18, PRINT+9*, PRINT+10, EXIT+3!
PSARUN PRINT+3*, EXIT+3!, HDR+4
PSASLN PRINT+4*, PRINT+12, EXIT+3!, HDR+1
PSAVER COMPILE+7*, COMPILE+9*, COMPILE+11, COMPILE+17, COMPILE+18, PRINT+9*, PRINT+10, EXIT+3!
PSAVERD COMPILE+10*, COMPILE+14*, COMPILE+17*, COMPILE+18, PRINT+9*, PRINT+10, EXIT+3!
X COMPILE+1, PRINT+1!, PRINT+2!, EXIT+3!, BDATE+2, BDATE+3!, EDATE+1, EDATE+2!
X1 COMPILE+1*, EXIT+3!
X2 COMPILE+1*, EXIT+3!
Y PRINT+1*!, PRINT+2*!, PRINT+4!, EXIT+3!, BDATE+2, BDATE+3!, BDATE+4, EDATE+1, EDATE+2!, EDATE+3
ZTDESC DEV+4~, DEV+5*, EXIT+3!
ZTDTH DEV+4~, EXIT+3!
ZTIO DEV+4~, EXIT+3!
>> ZTQUEUED EXIT+1
>> ZTREQ EXIT+1*
ZTRTN DEV+4~, DEV+5*, EXIT+3!
ZTSAVE DEV+4~, EXIT+3!
ZTSAVE("PSABEG" DEV+6*
ZTSAVE("PSAEND" DEV+6*
ZTSK DEV+4~, EXIT+3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All