Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls