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

Package: Drug Accountability

Routine: PSAOP2


Information

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

Source Information

Source file <PSAOP2.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Drug Accountability 3 OP^PSADA  ^PSAOP4  PSAWARN^PSAPSI  
Kernel 3 ^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  
VA Fileman 3 ^%DT  (COMMA,NOW)^%DTC  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Drug Accountability 1 PSA OP ALL DRUGS  

Entry Points

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

External References

Name Field # of Occurrence
^%DT LOOK+4
COMMA^%DTC 5+7, 5+10, 5+11, PNTQ
NOW^%DTC LOOK+4
^%ZIS DEV
^%ZISC Q, STOP+1
^%ZTLOAD DEV+2
$$S^%ZTLOAD HEADER+1
^DIR LOOK+2, LOOK+5, LOOK+7, HEADER
OP^PSADA LOOK, LOOK+2
^PSAOP4 STOP+2
PSAWARN^PSAPSI PSAOP2+10

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
Routine Call
  • DIR
  • Line Location:
    • LOOK+2
    • LOOK+5
    • LOOK+7
    • HEADER
Routine Call
  • %ZIS
  • Line Location:
    • DEV

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" 4+3, 5+1
^PSD(58.8 - [#58.8] LOOK+3, LOOK+6, 3+4, 4+3
^PSD(58.88 - [#58.88] DONE+2
^PSDRUG - [#50] DONE+2, 3+3, 5+4, 5+5
^PSDRUG("B" 4+1
^PSRX - [#52] 1, 2, 3, 3+2, 3+5, 3+7, 3+11
^PSRX("AR" 3+1
^TMP("PSA" 3+9*, 3+10, 3+11*, 3+13*, 3+14*, DONE+2*, 4, 4+3, 5, Q+1!
, STOP+2
^TMP($J Q+1!

Label References

Name Line Occurrences
1 2
2 3
3 3+1, 3+2, 3+4, 3+5, 3+15
4 4+3, PNTQ+2
5 5+12, 5+13
DONE PROCESS+1
HEADER DONE+1, 4+2
LOOP PROCESS
PNTQ 5
Q PSAOP2+11, LOOK+1, LOOK+2, LOOK+3, DEV+1, DEV+2, 4+2, STOP+3
STOP LOOK+7, 4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV!*
>> DATA 3+10*, 3+11, 5*, 5+2
DAYS 4+5!, 5*, 5+12, PNTQ
DIR LOOK+2!, LOOK+5!, LOOK+7!, HEADER!
DIR("?" LOOK+2*
DIR("A" LOOK+2*, LOOK+5*, LOOK+7*
DIR("B" LOOK+2*, LOOK+5*, LOOK+7*
DIR(0 LOOK+2*, LOOK+5*, LOOK+7*, HEADER*
>> DIRUT LOOK+2, LOOK+7
IO("Q" DEV!, DEV+2, STOP+1!
IOF LUP+1, HEADER+2, STOP
IOP DEV!
IOSL 4+2
IOST LOOP+1, HEADER, STOP
PDADISPU Q!
PNTDATA 4+5!, Q!
PNTDATE Q!
PNTPRICE 5+10*, 5+12, Q!
PNTQTY 5+7*, 5+12, PNTQ+1!, Q!
POP DEV!, DEV+1, Q!
PRINTDT 5+1*, 5+12, Q!
PSA Q!
PSACNT Q!
PSADAILY LOOK+8*, 5+12, Q!
PSADATE 4+5!, 5*, 5+1, Q!
>> PSADISPU 5+5*, 5+12
PSADR Q!
PSADREC Q!
PSADRUG LOOK+4*, LUP+1*, 3+2*, 3+3, 3+4, 4+1*, 4+3, 5+4, 5+5, Q!
PSADRUGN 3+3*, 3+9, 3+10, 3+11, 3+13, 3+14, DONE+3*, 4*, 4+1, 4+3
, 4+4, 5, Q+1!
PSADT LOOK+4*, LOOK+5, PROCESS*, 1*, 2, 3, 3+1, 3+9, 3+10, 3+11
, 3+13, 3+14, Q+1!
PSADT(1 LOOK+4*, LOOK+5
PSADT(2 LOOK+5*
PSADT(22 LOOK+5*, PROCESS, 4+3
PSADT(3 LOOK+5*
PSAG Q+1!
PSAHOW PROCESS*, LOOP+1, 1, 2, 3, 3+11, 3+13, 3+14, Q+1!
PSAIEN 1!, 2*, 3, 3+1, 3+2, 3+5, 3+7, 3+11, 3+13, Q+1!
PSALN PSAOP2+12*, PNTQ, HEADER+2, HEADER+3, Q+1!
PSALOC LOOK+1, LOOK+2!, LOOK+3, LOOK+6, 3+4, DONE+2, 4+3, Q+1!
PSALOCN LOOK+1, LOOK+3, HEADER+2, Q+1!
PSAN LOOK+5*, Q+1!
PSAN(1 LOOK+5*
PSAOP LOOK+6*, Q+1!
PSAOSIT Q!
PSAOUT LOOK+2*, LOOK+4*, LOOK+5*, LOOK+7*, DEV+1*, 4+2, HEADER*, HEADER+1*, Q+1!
PSAP LOOK+5*, Q+1!
PSAP(1 LOOK+5*
PSAPG LOOK+4*, HEADER, HEADER+2*, Q!
PSAPRICE 5+4*, 5+9, 5+10, 5+11, PNTQ+1!, Q+1!
PSAPRICE(2 5+9*, PNTQ
PSAQ Q+1!
PSAQP 5+11*, 5+12!
PSAQTY 3+7*, 3+11, 5+2*, 5+7, 5+8, 5+9, 5+11, PNTQ+1!, Q+1!
PSAQUIT PSAOP2+10!
PSAR LOOK+5*, Q+1!
PSAR(1 LOOK+5*
PSAREC Q+1!
PSARELDT Q+1!
PSARX 2!, 3*, 3+1, 3+7, 3+11, 3+14, Q+1!
PSAS LOOK+6*, 3+5, Q+1!
PSAT Q+1!
PSATTLP 4+5!, Q+1!
TTLQTY 5+8*, PNTQ, PNTQ+1!, Q+1!
U LOOK+6
>> X LOOK+4*
>> X2 5+7*, 5+10*, 5+11*, PNTQ*
>> XX DONE+2*
>> XXX DONE+2*
>> Y LOOK+2, LOOK+4, LOOK+5, LOOK+8, DEV, 4+3*, 5+1*, 5+7*, 5+10*, 5+11*
, PNTQ*, HEADER
ZTDESC DEV+2!*
ZTDTH DEV+2!
ZTIO DEV+2!
>> ZTQUEUED STOP+1
>> ZTREQ STOP+1*
ZTRTN DEV+2!*
ZTSAVE DEV+2!
ZTSAVE("PSA*" DEV+2*
ZTSK DEV+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All