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

Package: Outpatient Pharmacy

Routine: PSODIR1


Information

PSODIR1 ;IHS/DSD - ASKS DATA FOR RX ORDER ENTRY CONT. ;7 Jan 2020 16:58:09

Source Information

Source file <PSODIR1.m>

Entry Points

Name Comments DBIA/ICR reference
PTSTAT(PSODIR) ;
PTSTATEN
TPBB ;
TPBSC ;
PTSTATX ;
SIG(PSODIR) ;
SIGX ;
QTY(PSODIR) ;
QTYA
QTYX ;
COPIES(PSODIR) ;
COPIESX ;
DAYS(PSODIR) ;
DAYSEN
DAYSX ;
REFILL(PSODIR) ;
REFILLX ;
REFOR ;
DIR ;
DIRX ;
JUMP ;
JUMPX ;
SIGOK ;review and decide on oerr sig
PSTPB

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Could not find a 'NON-VA' Patient Status in the RX PATIENT STATUS file (#53)!"
  • Line Location: PTSTATEN+4
Function Call: WRITE
  • Prompt: !,"Eligibility: "_$P(VAEL(1),"^",2)_$S(+VAEL(3):" SC%: "_$P(VAEL(3),"^",2),1:"")
  • Line Location: TPBB+1
Function Call: WRITE
  • Prompt: !,?10,$P(VAEL(1,N),"^",2)
  • Line Location: TPBB+2
Function Call: WRITE
  • Prompt: !
  • Line Location: TPBB+5
Function Call: WRITE
  • Prompt: $C(7)," Required"
  • Line Location: TPBB+12
Function Call: WRITE
  • Prompt: !!,"Cannot select 'NON-VA' Rx Patient Status!",!
  • Line Location: TPBB+15
Function Call: WRITE
  • Prompt: !,$C(7)," Greater than Maximum dose of "_PSODRUG("MAXDOSE")_" per day"
  • Line Location: QTYA+18
Function Call: WRITE
  • Prompt: !!,"Digitally Signed Order - QTY cannot be increased",!
  • Line Location: QTYA+20
Function Call: WRITE
  • Prompt: !
  • Line Location: QTYA+21
Function Call: WRITE
  • Prompt: !!,"Digitally Signed Order - Days Supply cannot be increased",!
  • Line Location: DAYSEN+31
Function Call: WRITE
  • Prompt: !
  • Line Location: DAYSEN+32
Function Call: WRITE
  • Prompt: !,$C(7),"Invalid number of REFILLS for amount of DAYS SUPPLY.",!,"REFILL EDIT FORCED."
  • Line Location: DAYSEN+42
Function Call: WRITE
  • Prompt: !,VALMSG,!
  • Line Location: REFILL+26
Function Call: WRITE
  • Prompt: !,"No refills allowed on Schedule 2 drugs...",!
  • Line Location: REFILL+31
Function Call: WRITE
  • Prompt: !,"SIG: "
  • Line Location: SIGOK+2
Function Call: WRITE
  • Prompt: !,"New orders entered through this option must have a Patient Status of 'NON-VA'!",!
  • Line Location: PSTPB+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] GET1^DIQ
^PS(55 - [#55] GET1^DIQ
^YSCL(603.01 - [#603.01] FIND1^DIC,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call