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

Package: Outpatient Pharmacy

Routine: PSOVER1


Information

PSOVER1 ;BHAM ISC/SAB - verify one rx ;3/9/05 12:53pm

Source Information

Source file <PSOVER1.m>

Entry Points

Name Comments DBIA/ICR reference
REDO ;
EDIT ;
PROF
EXPIRE
ORDCHK ;
VERIFY ;
VERY
KILL
OUT ;
DELETE
QUIT
UPSUS
CLEAN ;cleans up tmp("psorxdc") global
KV1 ;
KV
NVA ;
REMOTE ;
NOALRGY ;
ORDCK ;
FULLEDT
DRIDOSE(DA,RX0) ;where DA is RXIEN and RX0 is zero node of file 52 for the RXIEN
CHECK(PSONV) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+7
Function Call: WRITE
  • Prompt: !,"CHANGE",!
  • Line Location: EDIT+20
Function Call: WRITE
  • Prompt: !,$C(7),"This patient has no other prescriptions on file",!!
  • Line Location: PROF+0
Function Call: WRITE
  • Prompt: !!,$P(^DPT(DFN,0),"^"),?40,"ID#:"_VA("PID")
  • Line Location: PROF+1
Function Call: WRITE
  • Prompt: " RX#: "_$S($D(INT):$P(INT,"^"),$D(^PSRX(PSONV)):$P(^PSRX(PSONV,0),"^"),1:"")
  • Condition for execution: $D(INT)!$D(PSONV)
  • Line Location: PROF+1
Function Call: WRITE
  • Prompt: !,$P(^DPT(DFN,0),"^"),?40,"ID#:"_VA("PID")
  • Line Location: VERIFY+2
Function Call: WRITE
  • Prompt: " RX#: "_$S($D(INT):$P(INT,"^"),$D(^PSRX(PSONV)):$P(^PSRX(PSONV,0),"^"),1:"")
  • Condition for execution: $D(INT)!$D(PSONV)
  • Line Location: VERIFY+2
Function Call: WRITE
  • Prompt: !,PSODRUG("NAME"),!
  • Condition for execution: $D(PSODRUG("NAME"))
  • Line Location: VERIFY+2
Function Call: WRITE
  • Prompt: !!,"Rx: "_$P(^PSRX(DA,0),"^")_" not Verified!!",!
  • Line Location: VERY+3
Function Call: WRITE
  • Prompt: "SIG: "_$P(^PSRX(PSONV,"SIG"),"^"),!
  • Line Location: VERY+5
Function Call: WRITE
  • Prompt: ^PSRX(PSONV,"SIG1",I,0),!
  • Line Location: VERY+7
Function Call: WRITE
  • Prompt: !
  • Line Location: CLEAN+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CLEAN+10
Function Call: WRITE
  • Prompt: !!,"Remote data not available - Only local order checks processed.",!
  • Line Location: REMOTE+10
Function Call: WRITE
  • Prompt: !,PSOSCPT(SCRIPT)
  • Line Location: DRIDOSE+13
Function Call: WRITE
  • Prompt: !
  • Line Location: DRIDOSE+16

FileMan Files Accessed Via FileMan Db Call

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