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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSOP2

Package: Outpatient Pharmacy

Routine: PSOP2


Information

PSOP2 ;BIR/SAB - medication profile long or short ;May 20, 2020@10:17

Source Information

Source file <PSOP2.m>

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

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+5
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: !?2,"Order Check(s):"
  • Line Location: NVA+26
Function Call: WRITE
  • Prompt: !?5,"Override Reason: "
  • Line Location: NVA+28
Function Call: WRITE
  • Prompt: ?22,^PS(55,DFN,"NVA",PPP,"OCK",NVAP,"OVR",NVAPR,0),!
  • Line Location: NVA+30
Function Call: WRITE
  • Prompt: !?2,"Statement/Explanation/Comments: "
  • Line Location: NVA+33
Function Call: WRITE
  • Prompt: $P(^PS(55,DFN,"NVA",PPP,"DSC",NVAP,0),"^"),!?34
  • Line Location: NVA+35
Function Call: WRITE
  • Prompt: !
  • Line Location: NVA+36

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call