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

Package: Outpatient Pharmacy

Routine: PSODDPR7


Information

PSODDPR7 ; BIR/OG ; Enhanced order checks - IMO Utilities ;Nov 17, 2021@14:00

Source Information

Source file <PSODDPR7.m>

Entry Points

Name Comments DBIA/ICR reference
DUP ;
CLINIC ;
GETDATA ;
WRITE ;
WRITE2 ;
IMO(DFN) ;Inpatient Meds ordered in outpatient pharmacy (IMO) - determine IMO drugs to be added to the profile drugs submitted to FDB.
; In: DFN - Patient IED
; Output: ^TMP( file of inpatient meds drugs; example of each type of order:
; ^TMP(540771229,"PSOPEPS","IN","PROFILE","C2;6;PROFILE;6")="16579^4010153^65^SIMVASTATIN 40MG TAB^10711^I"
; ^TMP(540771229,"PSOPEPS","IN","PROFILE","C4;1597;PROFILE;7")="11664^4006819^1848^CIMETIDINE 300MG/5ML SOL (OZ)^10746^I"
IV55 ;
IV531 ;
MYWRITE(X,DIWL,DIWR) ;Continue writing on the same line
NOCAN ;shows duplicate therapeutic when cancel duplicate class parameter is set to 'no'
DUPCL ;
DUPCP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: CLINIC+8
Function Call: WRITE
  • Prompt: !,$J("Other Additives: ",23)
  • Line Location: IV55+15
Function Call: WRITE
  • Prompt: !?23,SOLUTION_" "_VOLUME_" "_INFUSE
  • Line Location: IV55+23
Function Call: WRITE
  • Prompt: !,$J("Other Additives: ",23)
  • Line Location: IV531+12
Function Call: WRITE
  • Prompt: !?23,SOLUTION_" "_VOLUME_" "_INFUSE
  • Line Location: IV531+19
Function Call: WRITE
  • Prompt: ?DIWL,^UTILITY($J,"W",DIWL,PSOCNT,0)
  • Line Location: MYWRITE+5
Function Call: WRITE
  • Prompt: !,PSONULN,!,"*** THERAPEUTIC DUPLICATION(S) *** "_PSODRUG("NAME")_" with",!
  • Line Location: NOCAN+13
Function Call: WRITE
  • Prompt: !?2,"Local Rx #"_$P(^PSRX($P(ON,";",2),0),"^")_" ("_STAT_") for "_$P(^PSDRUG($P(^PSRX($P(ON,";",2),0),"^",6),0),"^")
  • Line Location: DUPCP+5
Function Call: WRITE
  • Prompt: $P(^PS(50.7,$P(DUPRX0,"^",8),0),"^")_" "_$P(^PS(50.606,$P(^(0),"^",2),0),"^")
  • Line Location: DUPCP+11
Function Call: WRITE
  • Prompt: $P(^PSDRUG($P(DUPRX0,"^",9),0),"^")
  • Line Location: DUPCP+12
Function Call: WRITE
  • Prompt: !?2,"Remote Rx #"_RDIRX_" ("_$P(RXDAT,"^",4)_") for "_$P(RXDAT,"^",3)
  • Line Location: DUPCP+16
Function Call: WRITE
  • Prompt: $P(^PS(50.7,$P(DUPRX0,"^"),0),"^")_" "_$P(^PS(50.606,$P(^(0),"^",2),0),"^")
  • Line Location: DUPCP+22
Function Call: WRITE
  • Prompt: $P(^PSDRUG($P(DUPRX0,"^",2),0),"^")
  • Line Location: DUPCP+23

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(50.7 - [#50.7] GET1^DIQ
^PS(53.1 - [#53.1] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call