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

Package: Outpatient Pharmacy

Routine: PSOPRF


Information

PSOPRF ;BHAM ISC/SAB - PRINTS A PROFILE ;11/18/92

Source Information

Source file <PSOPRF.m>

Entry Points

Name Comments DBIA/ICR reference
Q
QOLD
DQ
START
SD
PPP
DRNME
ISSD
RXPNO
CHK
PRT
HD
SIG ;Format Sig
PEND ;Print Pending Orders
NVA ;displays non-va meds

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?Z+15,"****** NO RX DATA ******",!
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !!,"NAME: "_$P(^DPT(DFN,0),"^"),!
  • Line Location: PPP+1
Function Call: WRITE
  • Prompt: "END***************"
  • Line Location: RXPNO+1
Function Call: WRITE
  • Prompt: !,?Z+1,RXPNO,?Z+15,DRNME,?Z+55,$E(ISSD,4,5),"/",$E(ISSD,6,7)," ",$E(RFL,1,5)," ",?Z+67,$J(RFS,2)," ",$J(RXF,2)," ",?Z+73,$J(QTY,12)," ",?Z+86,STA," ",?Z+88,$E(PHYS,1,20)
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: !,?Z+19,FSIG(TTTT)
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: !,?Z+17,"PRESCRIPTION PROFILE AS OF ",$E(DT,4,5),"/",$E(DT,6,7),"/",($E(DT,1,3)+1700),!!,?Z+20,"NAME: "_$P(^DPT(DFN,0),"^")
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>(Z+63)
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: ?Z+31,$P(MESS," ",B)," "
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !!,"THIS PATIENT HAS PRESCRIPTIONS AT OTHER FACILITIES"
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !!?Z+20,"PHARMACIST: ___________________________ DATE: ____________"
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !!?Z+52," DATES ",?Z+67,"REFS ",?Z+86,"S"
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !?Z+1,"RX # ",?Z+15,"DRUG/STRENGTH/SIG",?Z+55,"ISSD LAST ",?Z+67,"AL AC",?Z+77,"QTY",?Z+86,"T",?Z+93,"PROVIDER"
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !?Z+1,$E(LINE,1,12),?Z+15,$E(LINE,1,35),?Z+55,"----- -----",?Z+67,"-- --",?Z+73,"------------",?Z+86,"-",?Z+88,$E(LINE,1,20)
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !!,?48,"PENDING ORDERS",!,LINE,!
  • Line Location: PEND+4
Function Call: WRITE
  • Prompt: !?8,$G(FSIG(FSIGZZ))
  • Line Location: PEND+10
Function Call: WRITE
  • Prompt: !!?48,"Non-VA MEDS (Not dispensed by VA)",!,LINE
  • Line Location: NVA+2
Function Call: WRITE
  • Prompt: !
  • Line Location: NVA+11
Info |  Source |  Entry Points |  Interaction Calls