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

Package: Outpatient Pharmacy

Routine: PSOORED5


Information

PSOORED5 ;BIR/SAB-Rxs without dosing info ;1 Oct 2019 12:31:04

Source Information

Source file <PSOORED5.m>

Entry Points

Name Comments DBIA/ICR reference
DOSE1(PSORXED) ;for new rxs
DOSE ;pre-poe rx
ASK
VER
DUPD ;
NOU1
NOU
RTE
DQ ;
RTF ;
SCH
DUR ;
CON
EXS ;Entry point for EXE to rebuild SIG PSO*7.0*450
EX
EX1
KV
EXE
UPD ;updates dosing array
JUMP ;
LAN ;
SCHASL(SCHA) ;
SCHMI(SCHM) ;
MRSL ;;check for OI med route short list ;*525
CKMRSL ;;check for med route short list leading letters ;*525

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Dispense Units Per Dose is Required!!",!
  • Line Location: DUPD+7
Function Call: WRITE
  • Prompt: !,"NOUN: "_$G(NOUN)
  • Line Location: NOU1+1
Function Call: WRITE
  • Prompt: !,"NOUN: "_PSORXED("NOUN",ENT)
  • Line Location: NOU1+2
Function Call: WRITE
  • Prompt: !,"ROUTE: "_MRDFV_"//"
  • Line Location: RTE+7
Function Call: WRITE
  • Prompt: X_" "_$G(ERTE)
  • Line Location: RTE+22
Function Call: WRITE
  • Prompt: X_" "_$G(ERTE)
  • Line Location: RTE+29
Function Call: WRITE
  • Prompt: " "_$P(Y(0),"^",2)
  • Line Location: RTE+30
Function Call: WRITE
  • Prompt: " "_$P(Y(0),"^",2)
  • Line Location: DQ+1
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+7
Function Call: WRITE
  • Prompt: $C(7),!!,"All Dosing Instructions must be entered before Jumping to other Fields!",!!
  • Line Location: JUMP+1
Function Call: WRITE
  • Prompt: !,"Field Name Must Be At Least 3 Characters in Length",!
  • Line Location: JUMP+2
Function Call: WRITE
  • Prompt: !,"INVALID FIELD NAME. PLEASE TRY AGAIN!",!
  • Line Location: JUMP+4
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+5
Function Call: WRITE
  • Prompt: !,"Now searching ADMINISTRATION SCHEDULE (#51.1) file...",!
  • Line Location: SCHASL+5
Function Call: WRITE
  • Prompt: !,"Now searching MEDICATION INSTRUCTION (#51) file...",!
  • Line Location: SCHMI+3
Function Call: WRITE
  • Prompt: !,?10,I_" "_$P(^TMP("PSJMR",$J,I),U)_" "_$P(^TMP("PSJMR",$J,I),U,2)
  • Line Location: MRSL+4

FileMan Files Accessed Via FileMan Db Call

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