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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSOP2

Package: Outpatient Pharmacy

Routine: PSOP2


Information

PSOP2 ;BIR/SAB - medication profile long or short ;02/25/94

Source Information

Source file <PSOP2.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Outpatient Pharmacy 1 DIR^PSOP1  
VA FileMan 1 ^DIC  

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 PSOP  PSOP1  

Entry Points

Name Comments DBIA/ICR reference
DATE
DRUG
CLSS
PEND ;list pending orders
HD1 ;W @IOF W !,?29,"PENDING ORDERS",!,PSOPLINE
NVA ;non-va meds

External References

Name Field # of Occurrence
^DIC PEND+8
DIR^PSOP1 PEND+3, PEND+10, PEND+11, PEND+13, NVA+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Drug: ",$S($P(PSOPEND(EEEE),"^",2)="DD":$P($G(^PSDRUG(+PPDIS,0)),"^"),1:$P($G(^PS(50.7,+PPOI,0)),"^")_" "_$P($G(^PS(50.606,+$P($G(^(0)),"^",2),0)),"^")),!
  • Line Location: PEND+6
Function Call: WRITE
  • Prompt: !
  • Condition for execution: PCOUNT>1
  • Line Location: PEND+11
Function Call: WRITE
  • Prompt: ?6,$G(^PS(52.41,PENDREX,"SIG",AAAA,0))
  • Line Location: PEND+11
Function Call: WRITE
  • Prompt: !,?29,"PENDING ORDERS",!,PSOPLINE
  • Line Location: HD1+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD1+2
Function Call: WRITE
  • Prompt: !,"Patient: "_$P($G(^DPT(DFN,0)),"^"),?70,"Page: "_PAGE,!?21,$S($G(NVA):"Non-VA MEDS (Not Dispensed by VA)",1:"Pending Outpatient Orders"),!,PSOPLINE
  • Line Location: HD1+2
Function Call: WRITE
  • Prompt: !!,PSOPLINE,!?(80-$L("Non-VA MEDS (Not Dispensed by VA)"))/2,"Non-VA MEDS (Not Dispensed by VA)",!
  • Line Location: NVA+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NVA+6
Function Call: WRITE
  • Prompt: !?2,"Order Check(s):"
  • Line Location: NVA+23
Function Call: WRITE
  • Prompt: !?2,"Order Check(s):"
  • Line Location: NVA+24
Function Call: WRITE
  • Prompt: !?2,"Order Check(s):"
  • Line Location: NVA+25
Function Call: WRITE
  • Prompt: !?5,"Override Reason: "
  • Line Location: NVA+27
Function Call: WRITE
  • Prompt: ?22,^PS(55,DFN,"NVA",PPP,"OCK",NVAP,"OVR",NVAPR,0),!
  • Line Location: NVA+29
Function Call: WRITE
  • Prompt: !?2,"Statement/Explanation/Comments: "
  • Line Location: NVA+32
Function Call: WRITE
  • Prompt: $P(^PS(55,DFN,"NVA",PPP,"DSC",NVAP,0),"^"),!?34
  • Line Location: NVA+34
Function Call: WRITE
  • Prompt: !
  • Line Location: NVA+35
Routine Call
  • DIC
  • Line Location:
    • PEND+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] HD1+2
^PS(50.606 - [#50.606] PEND+6, NVA+8
^PS(50.7 - [#50.7] PEND+6, NVA+8
^PS(52.41 - [#52.41] PEND+1, PEND+2, PEND+5, PEND+11, PEND+12
^PS(55 - [#55] NVA+1, NVA+3, NVA+23, NVA+25, NVA+27, NVA+29, NVA+32, NVA+34
^PSDRUG - [#50] DRUG, CLSS, PEND+6, NVA+8
^PSRX - [#52] DATE+1, DATE+2, DRUG, DRUG+3, DRUG+4, CLSS, CLSS+3, CLSS+4
^TMP($J DATE+2*, DRUG+4*, CLSS+4*
^VA(200 - [#200] NVA+21, NVA+30

Label References

Name Line Occurrences
HD1 PEND+4, PEND+10, PEND+12, NVA+7, NVA+15, NVA+22, NVA+24, NVA+25, NVA+26, NVA+28
, NVA+31, NVA+33

Naked Globals

Name Field # of Occurrence
^("STA" DRUG+3, CLSS+3
^(0 DATE+1, DATE+2, DRUG, CLSS, PEND+2, PEND+5, PEND+6, NVA+8, NVA+25

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AAAA PEND+11*, PEND+12
>> CLS CLSS+1
>> DFN PEND+1, HD1+2, NVA+1, NVA+3, NVA+23, NVA+25, NVA+27, NVA+29, NVA+32, NVA+34
DIC PEND+8!*
DIC(0 PEND+8*
>> DRG DRUG*, DRUG+2, DRUG+4, CLSS*, CLSS+2, CLSS+4
>> DRS DRUG+1
>> DTS DATE
>> EDT DATE+1
>> EEEE PEND+4*, PEND+5, PEND+6, PEND+7, PEND+8
IOF HD1+2, NVA+6
IOSL PEND+10, PEND+11, NVA+6, NVA+7, NVA+15, NVA+22, NVA+24, NVA+25, NVA+26, NVA+28
, NVA+31, NVA+33
IOST PEND+3, PEND+10, PEND+11, PEND+13, NVA+6, NVA+7, NVA+15, NVA+22, NVA+24, NVA+25
, NVA+26, NVA+28, NVA+31, NVA+33
>> J DATE+1, DATE+2, DRUG, DRUG+3, DRUG+4, CLSS, CLSS+3, CLSS+4
NVA HD1+2, NVA+3*, NVA+35!
NVAOR NVA+3*, NVA+5, NVA+8, NVA+10, NVA+11, NVA+13, NVA+14, NVA+16, NVA+17, NVA+18
, NVA+19, NVA+20, NVA+21, NVA+35!
NVAP NVA+25*, NVA+27, NVA+29, NVA+34*, NVA+35!
NVAPR NVA+29*, NVA+35!
>> PAGE HD1+1*, HD1+2, HD1+3*
>> PCNT NVA+3*
>> PCOUNT PEND+11*
>> PENDREX PEND+5*, PEND+11, PEND+12
>> PLS HD1+1, HD1+3, NVA+9
>> PPCOUNT PEND+4*, PEND+6*, PEND+12*
>> PPDIS PEND+5*, PEND+6
>> PPOI PEND+5*, PEND+6
>> PPP PEND+1*, PEND+2, NVA+3*, NVA+23, NVA+25, NVA+27, NVA+29, NVA+32, NVA+34
>> PPPCNT PEND+1*, PEND+2*, PEND+3
>> PPPSTAT PEND+1*
PQT PEND+3, PEND+4, PEND+10, PEND+11, PEND+13, NVA+3!, NVA+6
>> PRV NVA+25*, NVA+30
>> PSFR DRUG+2, CLSS+2
>> PSODTCT DRUG+3, DRUG+4, CLSS+3, CLSS+4
>> PSOPEND( PEND+2*, PEND+4, PEND+5, PEND+6, PEND+7, PEND+8
>> PSOPLINE HD1+2, NVA+2
>> PSTO DRUG+2, CLSS+2
>> SDT DATE+1
TRCL CLSS+1, CLSS+2*, CLSS+3!, CLSS+4!
TRDR DRUG+1, DRUG+2*, DRUG+3!, DRUG+4!
TRDT DATE, DATE+1*, DATE+2!
X DATE+2*, PEND+8!*
Y PEND+8!, PEND+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All