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

Package: Outpatient Pharmacy

Routine: PSOSUPRX


Information

PSOSUPRX ;BIR/RTR - Suspense pull early ;3/1/96

Source Information

Source file <PSOSUPRX.m>

Entry Points

Name Comments DBIA/ICR reference
ST
LU
EXIT
CHKDEAD
DEAD
BEG
QUES ;
; Ask Routing, method of pickup, and whether to continue. Also update RX and RX Suspense records with new values. Save off old
; values in case we need to reset them later.
PRF
LIST
NEXT
WIND ;
UNLK ;Unlock prescription
PRTQUES(RX,RFL) ;
; Prompt if the user wants to continue when a label has been printed already
; Input:
; RX - Prescription (#52) file IEN
; RFL - Fill Number
; Output:
; 0 - Do not continue (user said No)
; 1 - Continue (user said Yes)
; -1 - Up-arrow, time-out, invalid parameter or any other non-YES/NO response

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: ST+1
Function Call: WRITE
  • Prompt: !
  • Line Location: LU+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LU+4
Function Call: WRITE
  • Prompt: !
  • Line Location: LU+4
Function Call: WRITE
  • Prompt: !,$P($G(PSOMSG),"^",2),!
  • Line Location: LU+7
Function Call: WRITE
  • Prompt: !?10,"PATIENT UNKNOWN"
  • Line Location: CHKDEAD+0
Function Call: WRITE
  • Prompt: !,">>> Rx #",$P(^PSRX(+$P(^(0),"^"),0),"^")," ALREADY PRINTED FROM SUSPENSE.",!,?5,"USE THE REPRINT OPTION TO REPRINT LABEL.",!
  • Line Location: BEG+0
Function Call: WRITE
  • Prompt: !,"Rx # "_$P(^PSRX(RXREC,0),"^")_" has expired!"
  • Line Location: BEG+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: BEG+1
Function Call: WRITE
  • Prompt: !,"This prescription will not be pulled but will be left on suspense."
  • Line Location: BEG+13
Function Call: WRITE
  • Prompt: !!,"LABEL QUEUED TO PRINT",!
  • Line Location: BEG+20
Function Call: WRITE
  • Prompt: !
  • Line Location: QUES+3
Function Call: WRITE
  • Prompt: !!?5,"Nothing pulled from suspense!",!
  • Line Location: QUES+3
Function Call: WRITE
  • Prompt: $C(7),!!?5,"Nothing pulled from suspense!",!
  • Line Location: QUES+7
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: !!,"Label for Rx#",$P($G(^PSRX(RX,0)),"^")," Fill#",RFL," has already been printed"
  • Line Location: PRTQUES+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] Classic Fileman Calls
^PS(52.5 - [#52.5] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call