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 |  Local Variables  | All
Print Page as PDF
Routine: PSORESK1

Package: Outpatient Pharmacy

Routine: PSORESK1


Information

PSORESK1 ;BHAM ISC/SAB - return to stock continued ;06/03/97 10:12

Source Information

Source file <PSORESK1.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Outpatient Pharmacy 2 RXED^PSOCPA  ^PSOFUNC  
VA FileMan 1 NOW^%DTC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Outpatient Pharmacy 2 PSORESK  PSORXDL  

Entry Points

Name Comments DBIA/ICR reference
HP
STAT
CP
ACT
CMOP ;original released by CMOP? Called by PSORESK
CMOP1 ; REFILL released by CMOP? Called by PSORESK

External References

Name Field # of Occurrence
NOW^%DTC CP, ACT+3
RXED^PSOCPA CP+1
^PSOFUNC STAT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Wand the barcode number of the Rx or manually key in",!,"the number below the barcode or the Rx number."
  • Line Location: HP+0
Function Call: WRITE
  • Prompt: !,"The barcode number format is - 'NNN-NNNNNNN'",!!,"Press 'ENTER' to process Rx or ""^"" to quit"
  • Line Location: HP+1
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"Rx status of "_ST_" and cannot be returned to stock.",!
  • Line Location: STAT+1
Function Call: WRITE
  • Prompt: !!,"Attempting to remove copay charges",!
  • Line Location: CP+1
Function Call: WRITE
  • Prompt: !!,"Reason must be entered. Rx "_$P(^PSRX(RXP,0),"^")_" not returned to stock.",!
  • Line Location: CP+2
Function Call: WRITE
  • Prompt: !!,$C(7),"Rx # "_$P(^PSRX(RXP,0),"^")_":",?20," Was dispensed by the CMOP and may not be returned"
  • Line Location: CMOP+2
Function Call: WRITE
  • Prompt: !,?20," to stock at this facility."
  • Line Location: CMOP+3
Function Call: WRITE
  • Prompt: !!,"REFILL # "_TYPE_":",?20," Was dispensed by the CMOP and may not be returned"
  • Line Location: CMOP1+2
Function Call: WRITE
  • Prompt: !,?20," to stock at this facility."
  • Line Location: CMOP1+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(59 - [#59] CP+1
^PSRX - [#52] STAT, CP+1, CP+2, ACT, ACT+3*, CMOP+1, CMOP+2, CMOP1+1
^PSRX("AR" CMOP+2, CMOP1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % CP, ACT+3
>> COM ACT+1*, ACT+2*, ACT+3
>> COPAYFLG CP+2
DA ACT+4!
DUZ ACT+3
>> I ACT*
>> IFN ACT*, ACT+3*
>> J STAT*
>> PSO CP+1*
>> PSOCPRX CP+1*
>> PSODA CP+1*
>> PSODT CP*
>> PSOPAR7 CP+1*
>> PSOPFS ACT+2
>> PSOSITE CP+1
>> PSOWHERE ACT+1
PSXREL CMOP+1*, CMOP+2, CMOP+4!, CMOP1+1*, CMOP1+2, CMOP1+4!
RX0 STAT*, STAT+1!
>> RX2 STAT*
>> RXP STAT, CP+1, CP+2, ACT, ACT+3, CMOP+1, CMOP+2, CMOP1+1, CMOP1+2
ST STAT+1!
>> TYPE ACT+3, CMOP1+1, CMOP1+2
>> XTYPE ACT+3, CMOP1+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Local Variables  | All