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

Package: Drug Accountability

Routine: PSAOP2


Information

PSAOP2 ;BIR/LTL-Outpatient Dispensing (All Drugs) ;7/23/97

Source Information

Source file <PSAOP2.m>

Entry Points

Name Comments DBIA/ICR reference
LOOK
DEV
LUP ;Starting point
PROCESS
LOOP ;
1
2
3
DONE ;All dispensing data retrieved, print it.
4
5
PNTQ
HEADER
Q
STOP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$G(PSALOCN)
  • Line Location: LOOK+1
Function Call: WRITE
  • Prompt: !!,"There are no drugs in ",PSALOCN,!!
  • Line Location: LOOK+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR ACTION TAKEN!"
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LUP+1
Function Call: WRITE
  • Prompt: !,"Processing ",$S(PSAHOW="AL":"dispensing",PSAHOW="AJ":"returns",PSAHOW="AM":"partials",1:"returns")
  • Line Location: LOOP+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: 3+0
Function Call: WRITE
  • Prompt: !,PSADRUGN,?36,"has not been dispensed since: "
  • Line Location: 4+3
Function Call: WRITE
  • Prompt: Y,"."
  • Line Location: 4+3
Function Call: WRITE
  • Prompt: !,PSADRUGN
  • Line Location: 4+4
Function Call: WRITE
  • Prompt: !,$G(DAYS),?3,PRINTDT,?23,PNTQTY,?40,PNTPRICE,"/",PSADISPU,?63,PSAQP
  • Line Location: 5+12
Function Call: WRITE
  • Prompt: !,PSALN,!,DAYS," DAY TOTALS: "
  • Line Location: PNTQ+0
Function Call: WRITE
  • Prompt: Y
  • Line Location: PNTQ+0
Function Call: WRITE
  • Prompt: Y
  • Line Location: PNTQ+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: ?2,"DAILY DISPENSING TOTALS FOR ",$E($G(PSALOCN),1,30),?70,"PAGE: ",PSAPG,!,PSALN,!
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: " DATE",?23,"TOTAL",?45,"$/DISP",?67,"TOTAL",!," DISPENSED",?23,"DISP",?46,"UNIT",?68,"COST",!,PSALN
  • Line Location: HEADER+3
Info |  Source |  Entry Points |  Interaction Calls