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

Package: Outpatient Pharmacy

Routine: PSOORED4


Information

PSOORED4 ;BIR/SAB - Edit front door dosing ;07/13/00

Source Information

Source file <PSOORED4.m>

Entry Points

Name Comments DBIA/ICR reference
DOSE(PSORXED) ;
ASK
VER
DUPD ;
NOU1
NOU
RTE
SCH
DUR
CON
EX ;
KV
EXQ ;
MP1
VERI ;checks for changes to dosing instructions
JUMP ;jump to fields
HLP ;help text for med route
SCHLP ;
A ;display 51.1 entries only
B
M
X
DICW ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Possible SIG: "
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !?14
  • Condition for execution: $X+$L($P(MIG," ",SG)_" ")>IOM
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: $P(MIG," ",SG)_" "
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !,"Dispense Units Per Dose is Required!!",!
  • Line Location: DUPD+6
Function Call: WRITE
  • Prompt: " ("_SCHEX_")"
  • Line Location: SCH+3
Function Call: WRITE
  • Prompt: !,?10,"Invalid Entry - nothing to delete!!"
  • Line Location: CON+2
Function Call: WRITE
  • Prompt: !!,"Duration is required for the dosage entered prior to the THEN conjunction.",$C(7),!
  • Line Location: CON+9
Function Call: WRITE
  • Prompt: !,"Field Name Must Be At Least 3 Characters in Length",!
  • Line Location: JUMP+1
Function Call: WRITE
  • Prompt: !,"INVALID FIELD NAME. PLEASE TRY AGAIN!",!
  • Line Location: JUMP+3
Function Call: WRITE
  • Prompt: !,AR_". "_$P(FLDNM,"^",2)_": "_$S(NM="ROU"&($G(PSORXED($P(FLDNM,"^"),AR))):$P(^PS(51.2,PSORXED($P(FLDNM,"^"),AR),0),"^"),1:$G(PSORXED($P(FLDNM,"^"),AR)))
  • Line Location: JUMP+4
Function Call: WRITE
  • Prompt: !,"Please enter how patient will use the medication!"
  • Line Location: HLP+1
Function Call: WRITE
  • Prompt: !,"You can choose an entry from the Administration Schedule File (#51.1),",!,"Medication Instruction File (#51) or enter free text."
  • Line Location: SCHLP+1
Function Call: WRITE
  • Prompt: !,"The free text entry cannot contain more than 2 spaces or be greater than 20",!,"characters in length."
  • Line Location: SCHLP+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SCHLP+3
Function Call: WRITE
  • Prompt: !
  • Line Location: B+0
Function Call: WRITE
  • Prompt: " ",$P(^(0),"^",Z+2)
  • Line Location: DICW+2

FileMan Files Accessed Via FileMan Db Call

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