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

Package: Drug Accountability

Routine: PSASIG


Information

PSASIG ;BIR/JMB-Transfer Signature Sheet ;7/23/97

Source Information

Source file <PSASIG.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Drug Accountability 4 BDATE^PSAPV  TO^PSATRAN  SITES^PSAUTL1  ^PSAUTL3  
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
VA Fileman 2 NOW^%DTC  ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Drug Accountability 2 PSA TRANSFER SIGNATURE SHEET  PSATRAN  

Entry Points

Name Comments DBIA/ICR reference
RQUE
HDR ;Header
TEMP ;Entry point for printing immediately after transfer is entered. It is
EXIT
TQUE
PRINT
REPRINT ;Entry point for Transfer Signature Sheets. It prompts for the

External References

Name Field # of Occurrence
NOW^%DTC TQUE+1, RQUE+1
^%ZIS TEMP+4, REPRINT+8
^%ZISC EXIT+4
^%ZTLOAD TEMP+7, REPRINT+12
^DIR EXIT+3, HDR+3
BDATE^PSAPV REPRINT+7
TO^PSATRAN REPRINT+6
SITES^PSAUTL1 TQUE+3, TQUE+4
^PSAUTL3 REPRINT+4
$$FMTE^XLFDT PRINT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: TEMP+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EXIT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EXIT+3
Function Call: WRITE
  • Prompt: !,"There are no active pharmacy locations."
  • Line Location: REPRINT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: REPRINT+8
Function Call: WRITE
  • Prompt: !,?20,"(Full Name)",?55,"(Full Name)",!,PSADLN
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,PSARPDT,?20,"DRUG ACCOUNTABILITY/INVENTORY INTERFACE",?72,"Page: ",PSAPG
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !?18,"DRUG TRANSFER BETWEEN PHARMACIES SIGNATURE SHEET"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !!!,"TRANSFERRED TO: "
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: $P(PSATON,"(IP)",1)_"(IP)",!?17,$P(PSATON,"(IP)",2)
  • Condition for execution: $L(PSATON)>63
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: PSATON
  • Condition for execution: $L(PSATON)<74
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !,PSASLN
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !,"TRANSFER DATE",?23,"QTY",?30,"DRUG",?68,"NEW BALANCE",!,PSASLN
  • Line Location: HDR+12
Routine Call
  • DIR
  • Line Location:
    • EXIT+3
    • HDR+3
Routine Call
  • %ZIS
  • Line Location:
    • TEMP+4
    • REPRINT+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" TQUE+1, RQUE+1
^PSD(58.8 - [#58.8] TQUE+3, TQUE+4
^PSD(58.81 - [#58.81] RQUE+3, RQUE+4, PRINT
^PSDRUG - [#50] PRINT+3
^TMP("PSASIG" TQUE+2, TQUE+6, EXIT+5!
^VA(200 - [#200] PRINT+1

Label References

Name Line Occurrences
EXIT TEMP+4, TEMP+5, REPRINT+4, REPRINT+5, REPRINT+8, REPRINT+9, RQUE+5
HDR TQUE+5, RQUE+2, PRINT+2
PRINT TQUE+6, RQUE+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% TQUE+1, EXIT+5!, RQUE+1
%ZIS TEMP+4*, EXIT+5!, REPRINT+8*
DIR EXIT+3!, EXIT+5!, HDR+3!
DIR("A" EXIT+3*
DIR(0 EXIT+3*, HDR+3*
DTOUT EXIT+5!
IO("Q" TEMP+5, EXIT+4!, REPRINT+9
IOF EXIT, EXIT+3, HDR+4, HDR+5, HDR+6
IOSL PRINT+2
IOST EXIT, EXIT+1, HDR+1, HDR+4, HDR+5
>> POP TEMP+4, REPRINT+8
PSABAL EXIT+5!, PRINT+1*, PRINT+3
PSABEG EXIT+5!, RQUE
PSACHK EXIT+5!, REPRINT+4*, REPRINT+5
PSACNT EXIT+5!, REPRINT+3*, REPRINT+4*
PSACOMB TQUE+3, TQUE+4, EXIT+5!
PSADA TQUE+6*, EXIT+5!, RQUE+3*, RQUE+4, PRINT
PSADLN TQUE*, EXIT+5!, RQUE*, PRINT+5
PSADRG EXIT+5!, PRINT*, PRINT+3
PSADT EXIT+5!, RQUE*, RQUE+3*
PSAEND EXIT+5!, RQUE+3
PSAFIRST TQUE*, TQUE+6*, EXIT+5!, RQUE+1*, RQUE+2*, HDR+1, HDR+5
PSAFROM TQUE+2*, TQUE+3, TQUE+6, EXIT+5!, REPRINT+6*, RQUE+3
PSAFROMN TQUE+3*, EXIT+5!, REPRINT+6*, HDR+10
PSAKK EXIT+2*, EXIT+5!, HDR+2*
PSALOC TQUE+3*, TQUE+4*, EXIT+6!, REPRINT+5, REPRINT+6
PSALOC("" REPRINT+4
PSALOCA EXIT+6!
PSALOCN EXIT+6!, REPRINT+6
PSANODE EXIT+6!, RQUE+4*, PRINT*, PRINT+1
PSAOUT TQUE*, TQUE+2, TQUE+5, TQUE+6, EXIT+1, EXIT+6!, REPRINT+3*, REPRINT+4, RQUE*, RQUE+3
, PRINT+2, HDR+1*
PSAPG TQUE+3*, EXIT+6!, RQUE*, HDR+4, HDR+5, HDR+6*, HDR+8
PSAQTY EXIT+6!, PRINT+1*, PRINT+2*, PRINT+3
PSAREPRT EXIT+6!, REPRINT+3*, RQUE*, HDR+7
PSARPDT TQUE+1*, EXIT+6!, RQUE+1*, HDR+8
PSASAVE EXIT+6!, REPRINT+11*
PSASEL EXIT+6!
PSASLN TQUE*, EXIT+6!, RQUE*, HDR+11, HDR+12
PSASS EXIT+2*, EXIT+6!, HDR+2*
PSATO TQUE+2*, TQUE+4, TQUE+6, EXIT+6!, RQUE+4
PSATON TQUE+4*, EXIT+6!, HDR+11
PSATRAN EXIT+6!, REPRINT+3*
PSATRDT EXIT+6!, PRINT*, PRINT+3
PSAWHO EXIT+6!, PRINT+1*, PRINT+4
Y TQUE+1*, EXIT+6!, RQUE+1*, HDR+1
ZTDESC TEMP+6*, EXIT+6!, REPRINT+10*
>> ZTQUEUED EXIT+4
>> ZTREQ EXIT+4*
ZTRTN TEMP+6*, EXIT+6!, REPRINT+10*
ZTSAVE EXIT+6!
ZTSAVE( REPRINT+11*
ZTSAVE("^TMP(""PSASIG"",$J," TEMP+7*, REPRINT+12*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All