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

Package: Outpatient Pharmacy

Routine: PSOSUPAT


Information

PSOSUPAT ;BIR/RTR - Pull all Rx's from suspense for a patient ;03/01/96

Source Information

Source file <PSOSUPAT.m>

Entry Points

Name Comments DBIA/ICR reference
PAT
BC
NAM
EXIT
TEST
CHKDEAD
DEAD
DIV
CKDIV
BEG
PRF
PSOINST
MAIL
MAILS
RESET ;
; Reset Mail/Window value for all prescriptions in the RXRR array
RESETRX(RX) ;
; Reset fields in RX Suspense and Prescription files
; Input:
; RX: Prescription IEN
PAUSE ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: BC+0
Function Call: WRITE
  • Prompt: " ",$P($G(^DPT(DFN,0)),"^")
  • Line Location: BC+2
Function Call: WRITE
  • Prompt: !,$C(7),"NO PRESCRIPTION RECORD FOR THIS BARCODE."
  • Line Location: BC+4
Function Call: WRITE
  • Prompt: !
  • Line Location: NAM+0
Function Call: WRITE
  • Prompt: !!,"There are no prescriptions left to process - exiting!"
  • Line Location: NAM+12
Function Call: WRITE
  • Prompt: !
  • Line Location: NAM+15
Function Call: WRITE
  • Prompt: !!,"Nothing pulled from suspense!"
  • Line Location: NAM+17
Function Call: WRITE
  • Prompt: !!,"Nothing pulled from suspense!"
  • Line Location: NAM+21
Function Call: WRITE
  • Prompt: !!
  • Line Location: NAM+24
Function Call: WRITE
  • Prompt: $C(7),!!,"Nothing pulled from suspense!"
  • Line Location: NAM+30
Function Call: WRITE
  • Prompt: !!,"LABEL(S) ARE QUEUED TO PRINT",!
  • Line Location: NAM+66
Function Call: WRITE
  • Prompt: !!,"PROFILE(S) ARE QUEUED TO PRINT"
  • Line Location: NAM+70
Function Call: WRITE
  • Prompt: !?10,"PATIENT NAME UNKNOWN"
  • Line Location: CHKDEAD+0
Function Call: WRITE
  • Prompt: !!?10,$C(7),"Rx # ",$P(^PSRX(RXREC,0),"^")," is not a valid choice. (Different Division)"
  • Line Location: CKDIV+0
Function Call: WRITE
  • Prompt: !!,"Rx #"_$P(^PSRX(RXREC,0),"^")_" has expired!"
  • Line Location: BEG+0
Function Call: WRITE
  • Prompt: !!,$C(7),">>> Rx #",$P(^PSRX(+$P(^(0),"^"),0),"^")_" has already been printed from suspense.",!,?5,"Use the reprint routine under the rx option to produce a label."
  • Line Location: BEG+3
Function Call: WRITE
  • Prompt: !,"This prescription will not be pulled but will be left on suspense."
  • Line Location: BEG+12
Function Call: WRITE
  • Prompt: !!,"Rx: "_$P($G(^PSRX(PSOALRX,0)),"^")_" cannot be pulled from suspense.",!,$P($G(PSOMSG),"^",2),!
  • Line Location: BEG+18
Function Call: WRITE
  • Prompt: !!,$C(7),"Non-existent prescription"
  • Line Location: PSOINST+0
Function Call: WRITE
  • Prompt: !!,$C(7),"The prescription is not from this institution."
  • Line Location: PSOINST+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^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