Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 3 DD^%DT  $$GET1^DIQ  ^DIWP  
Inpatient Medications 2 PSJ^PSJ53P1  IN^PSJBLDOC  
Outpatient Pharmacy 2 HD^PSODDPR2  CLASSES^PSODDPR3  
Pharmacy Data Management 1 (PSS431,PSS436)^PSS55  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Outpatient Pharmacy 4 PSODDPR2  PSODDPR4  PSODDPR8  PSODDPRE  

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

External References

Name Field # of Occurrence
DD^%DT GETDATA+29
$$GET1^DIQ WRITE+11, WRITE+12
^DIWP MYWRITE+4
PSJ^PSJ53P1 PSODDPR7+24, GETDATA+25
IN^PSJBLDOC IMO+10
HD^PSODDPR2 WRITE+1, WRITE2+1, IV55+1, IV55+14, IV55+20, IV531+1, IV531+11, IV531+22, NOCAN+13, DUPCP
DUPCP+3, DUPCP+7, DUPCP+14, DUPCP+16, DUPCP+20, DUPCP+38, DUPCP+45
CLASSES^PSODDPR3 DUPCP+39
PSS431^PSS55 PSODDPR7+23, GETDATA+14
PSS436^PSS55 PSODDPR7+22, GETDATA+1

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.606 - [#50.606] DUPCP+11, DUPCP+22
^PS(50.7 - [#50.7] DUPCP+11, DUPCP+22
^PS(52.41 - [#52.41] DUPCP+8, DUPCP+9
^PS(53.1 - [#53.1] WRITE+7, WRITE+8
^PS(55 - [#55] DUPCP+18, DUPCP+19
^PSDRUG - [#50] DUPCP+5, DUPCP+12, DUPCP+23
^PSRX - [#52] DUPCP+3, DUPCP+5
^TMP("PSODAOC" NOCAN+18*, DUPCP+30*, DUPCP+33*, DUPCP+34*, DUPCP+35*, DUPCP+36*, DUPCP+37*, DUPCP+44*
^TMP("PSORXDC" NOCAN+10, NOCAN+11, DUPCL+5, DUPCL+6
^TMP("PSORXDD" NOCAN+12, DUPCL+7
^TMP($J PSODDPR7+21, PSODDPR7+22, PSODDPR7+23, PSODDPR7+24, PSODDPR7+29!, CLINIC+1!, CLINIC+2, CLINIC+7!, GETDATA+2, GETDATA+3
GETDATA+4, GETDATA+5, GETDATA+6, GETDATA+7, GETDATA+8, GETDATA+9, GETDATA+10, GETDATA+11, GETDATA+15, GETDATA+16
GETDATA+17, GETDATA+18, GETDATA+19, GETDATA+20, GETDATA+21, GETDATA+26, GETDATA+27, GETDATA+28, GETDATA+29, GETDATA+30
GETDATA+31, GETDATA+32, GETDATA+33, GETDATA+34, GETDATA+35, WRITE+15, IV55+4, IV55+5, IV55+6, IV55+8
IV55+9, IV55+16, IV55+18, IV55+19, IV531+3, IV531+4, IV531+6, IV531+13, IV531+15, NOCAN+4
NOCAN+5, NOCAN+8, NOCAN+9, NOCAN+16, DUPCL+1, DUPCL+3, DUPCL+4, DUPCP+15, DUPCP+26, DUPCP+28
DUPCP+41, DUPCP+42, DUPCP+43
^UTILITY($J MYWRITE+4!, MYWRITE+5, NOCAN+1!

Label References

Name Line Occurrences
CLINIC PSODDPR7+30, DUP+6, DUPCP+27
DUPCL NOCAN+16
DUPCP NOCAN+17
GETDATA CLINIC+6
IV531 WRITE+15
IV55 WRITE+15
MYWRITE IV55+15, IV531+12
WRITE GETDATA+12, GETDATA+22, GETDATA+36

Naked Globals

Name Field # of Occurrence
^( NOCAN+5, DUPCL+1
^(0 DUPCP+11, DUPCP+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADD PSODDPR7+14~, DUP+3~, IV55+2*, IV55+4*, IV55+5, IV55+6, IV55+8, IV55+9, IV531+2*, IV531+3*
IV531+4, IV531+6
ADDNAM PSODDPR7+14~, DUP+3~, IV55+5*, IV55+6, IV55+10, IV55+11, IV531+5*, IV531+6, IV531+7, IV531+8
ADDS PSODDPR7+14~, DUP+3~, IV55+10*, IV55+11*, IV55+15, IV531+7*, IV531+8*, IV531+12
AFLG PSODDPR7+14~, DUP+3~, IV55+2*, IV55+10, IV55+11, IV55+12*, IV55+15, IV531+2*, IV531+7, IV531+8
IV531+9*, IV531+12
BOTTLE PSODDPR7+14~, DUP+3~, IV55+7*, IV55+8*, IV55+10, IV55+11, IV531+4*, IV531+5*, IV531+7, IV531+8
CLINTYP NOCAN+2~, DUPCP+27*, DUPCP+28*, DUPCP+29
CT NOCAN+2~, NOCAN+3*, NOCAN+4*, NOCAN+5, NOCAN+15~, NOCAN+16*, DUPCL+1
DDTH NOCAN+1!, NOCAN+16!
DDTH( DUPCP+32*
DFN IMO~, IMO+10
DIWF NOCAN+1!*
DIWL MYWRITE~, MYWRITE+2*, MYWRITE+5, NOCAN+1*
DIWR MYWRITE~, MYWRITE+3*, NOCAN+1*
DN MYWRITE+1~
DNM PSODDPR7+15~, DUPCP+8*
DOCPL NOCAN+1!, NOCAN+15!
DOCPL( DUPCL+9*, DUPCP
DOSAGE PSODDPR7+14~, DUP+3~, CLINIC+5*, GETDATA+5*, GETDATA+18*, GETDATA+30*, WRITE+17
>> DRG PSODDPR7+20
DRGDRG PSODDPR7+15~, PSODDPR7+21*, DUP+4~, DUP+5*, CLINIC+4*, GETDATA+2, GETDATA+15, GETDATA+26, DUPCP+27*
DRGNAME PSODDPR7+14~, DUP+3~, DUP+6*, CLINIC+4*, GETDATA+2*, GETDATA+15*, GETDATA+26*, WRITE+6, IV55+6, IV531+6
DUPCP+26~*
DUPCPF NOCAN+2~, DUPCP+27*
DUPRX0 PSODDPR7+15~, DUPCP+9*, DUPCP+11, DUPCP+12, DUPCP+19*, DUPCP+22, DUPCP+23
DURATION DUP+4~, GETDATA+35*
FILENODE PSODDPR7+14~, PSODDPR7+21*, PSODDPR7+22, PSODDPR7+23, PSODDPR7+24, PSODDPR7+28*, DUP+3~, CLINIC+2*, CLINIC+4*, GETDATA+1
GETDATA+14, GETDATA+24, WRITE+15
INFUSE PSODDPR7+14~, DUP+3~, CLINIC+5*, GETDATA+11*, GETDATA+21*, IV55+21, IV55+23, IV531+18, IV531+19
IOSL WRITE2+1, NOCAN+13, DUPCPDUPCP+3, DUPCP+7, DUPCP+14, DUPCP+16, DUPCP+20, DUPCP+38
IVDATA PSODDPR7+14~, DUP+3~, IV531+4*, IV531+5, IV531+15*, IV531+16
>> LIST IMO+10, NOCAN+4, NOCAN+5, NOCAN+16, DUPCL+1, DUPCP+15, DUPCP+26, DUPCP+41, DUPCP+42, DUPCP+43
NVAQ DUPCP+19~
>> ON PSODDPR7+13, NOCAN+5*, NOCAN+6, NOCAN+7, NOCAN+8, NOCAN+9, NOCAN+10, NOCAN+11, NOCAN+12, DUPCL+1*
DUPCL+2, DUPCL+3, DUPCL+4, DUPCL+5, DUPCL+6, DUPCL+7, DUPCL+8, DUPCL+9, DUPCP*, DUPCP+2
DUPCP+3, DUPCP+5, DUPCP+6, DUPCP+8, DUPCP+13, DUPCP+15, DUPCP+17, DUPCP+18, DUPCP+19, DUPCP+24
DUPCP+26, DUPCP+27, DUPCP+28, DUPCP+29, DUPCP+30, DUPCP+32, DUPCP+33, DUPCP+34, DUPCP+35, DUPCP+36
ORDDATE PSODDPR7+15~, DUP+4~, CLINIC+5*, GETDATA+9*, GETDATA+29*, WRITE+18
ORDID PSODDPR7+14~, PSODDPR7+21*, PSODDPR7+22, PSODDPR7+23, PSODDPR7+24, PSODDPR7+28*, DUP+3~, CLINIC+2*, GETDATA+1, GETDATA+3
GETDATA+4, GETDATA+5, GETDATA+6, GETDATA+7, GETDATA+8, GETDATA+9, GETDATA+10, GETDATA+11, GETDATA+14, GETDATA+16
GETDATA+17, GETDATA+18, GETDATA+19, GETDATA+20, GETDATA+21, GETDATA+25, GETDATA+26, GETDATA+27, GETDATA+28, GETDATA+29
GETDATA+30, GETDATA+31, GETDATA+32, GETDATA+33, GETDATA+34, GETDATA+35, WRITE+7, WRITE+8, WRITE+11, WRITE+15
IV55+4, IV55+5, IV55+6, IV55+8, IV55+9, IV55+16, IV55+18, IV55+19, IV531+3, IV531+4
IV531+6, IV531+13, IV531+15, DUPCP+27*
ORT NOCAN+15~, DUPCL+8*, DUPCL+9, DUPCP*
PDRG PSODDPR7+15~, IMO+10, NOCAN+5*, DUPCL+1*
PSOCDRG PSODDPR7+15~, PSODDPR7+17*, PSODDPR7+20*, PSODDPR7+26
PSOCLIN PSODDPR7+14~, DUP+4~
PSOCLIN( PSODDPR7+26*, PSODDPR7+27, PSODDPR7+30, CLINIC+4
PSOCLINI PSODDPR7+14~, PSODDPR7+21*, PSODDPR7+28*, DUP+4~, CLINIC+2*, CLINIC+3, CLINIC+4
>> PSOCLNS( PSODDPR7+18, PSODDPR7+20
PSOCNT MYWRITE+1~, MYWRITE+5*
PSOCON PSODDPR7+14~, PSODDPR7+17*, PSODDPR7+20*, PSODDPR7+21, PSODDPR7+26, PSODDPR7+28*, PSODDPR7+30*, DUP+3~, DUP+6*, CLINIC+2
CLINIC+4, GETDATA+2, GETDATA+15, DUPCP+27*
>> PSODCTH( NOCAN+6
>> PSODFN PSODDPR7+22, PSODDPR7+23, GETDATA+1, GETDATA+14, DUPCP+18, DUPCP+19
>> PSODLQT WRITE+1, IV55+1, IV55+14, IV55+20, IV531+1, IV531+11, IV531+22, NOCAN+13, NOCAN+14, DUPCP
DUPCP+3, DUPCP+7, DUPCP+14, DUPCP+16, DUPCP+20, DUPCP+38, DUPCP+45
>> PSODRUG("IEN" NOCAN+18, DUPCP+37
>> PSODRUG("NAME" NOCAN+13
PSODRUGX WRITE+5~, WRITE+6*, WRITE+12*, WRITE+13
>> PSODUPC( WRITE+2*, WRITE+16*, WRITE+17*, WRITE+18*, WRITE+19*, WRITE+20*, WRITE+21*, WRITE+22*, IV55+13*, IV55+22*
IV55+24*, IV531+10*, IV531+17*, IV531+20*
>> PSODUPF WRITE+2, WRITE+13, WRITE+16, WRITE+17, WRITE+18, WRITE+19, WRITE+20, WRITE+21, WRITE+22, WRITE2+1
IV55+1, IV55+13, IV55+14, IV55+15, IV55+20, IV55+21, IV55+22, IV55+23, IV55+24, IV531+1
IV531+10, IV531+11, IV531+12, IV531+17, IV531+18, IV531+19, IV531+20, IV531+22
PSODUPT NOCAN+2~, DUPCP+1*, DUPCP+2*, DUPCP+6*, DUPCP+13*, DUPCP+17*, DUPCP+24*, DUPCP+33, DUPCP+34, DUPCP+35
DUPCP+36
PSOIENX WRITE+10~, WRITE+11*, WRITE+12
>> PSONULN NOCAN+13
RDIRX PSODDPR7+15~, DUPCP+16*
RXDAT DUPCP+13~, DUPCP+15*, DUPCP+16
RXREC PSODDPR7+15~, NOCAN+5*, NOCAN+8, NOCAN+9, NOCAN+10, NOCAN+11, NOCAN+12, DUPCL+1*, DUPCL+3, DUPCL+4
DUPCL+5, DUPCL+6, DUPCL+7, DUPCP+8*, DUPCP+9
SCHEDULE PSODDPR7+14~, DUP+3~, CLINIC+5*, GETDATA+4*, GETDATA+17*, GETDATA+28*, WRITE+16
SFLG PSODDPR7+14~, DUP+3~, IV55+21, IV55+23, IV55+25*, IV531+2*, IV531+18, IV531+19, IV531+21*
SOL PSODDPR7+14~, DUP+3~, IV55+2*, IV55+16*, IV55+18, IV55+19, IV531+2*, IV531+13*, IV531+15
SOLNAM PSODDPR7+14~, DUP+3~
SOLUTION PSODDPR7+14~, DUP+3~, IV55+17*, IV55+18*, IV55+21, IV55+23, IV531+14*, IV531+15*, IV531+16*, IV531+18
IV531+19
SORT PSODDPR7+14~, PSODDPR7+16*, PSODDPR7+22, PSODDPR7+23, PSODDPR7+24, PSODDPR7+29, DUP+3~, DUP+5*, CLINIC+1, CLINIC+7
GETDATA+1, GETDATA+3, GETDATA+4, GETDATA+5, GETDATA+6, GETDATA+7, GETDATA+8, GETDATA+9, GETDATA+10, GETDATA+11
GETDATA+14, GETDATA+16, GETDATA+17, GETDATA+18, GETDATA+19, GETDATA+20, GETDATA+21, GETDATA+25, GETDATA+26, GETDATA+27
GETDATA+28, GETDATA+29, GETDATA+30, GETDATA+31, GETDATA+32, GETDATA+33, GETDATA+34, GETDATA+35, WRITE+15, IV55+4
IV55+5, IV55+6, IV55+8, IV55+9, IV55+16, IV55+18, IV55+19, IV531+3, IV531+4, IV531+6
IV531+13, IV531+15, DUPCP+27*
SORT2 PSODDPR7+14~, PSODDPR7+28*, PSODDPR7+30*, DUP+4~, CLINIC+4
ST NOCAN+15~, DUPCP+3*, DUPCP+5
STA NOCAN+15~, DUPCP+4*, DUPCP+5
STARTDT PSODDPR7+14~, DUP+3~, CLINIC+5*, GETDATA+6*, GETDATA+7*, GETDATA+10*, GETDATA+19*, GETDATA+31*, GETDATA+32*, WRITE+18
WRITE+19
STARTDTF PSODDPR7+15~, DUP+4~, CLINIC+5*, GETDATA+7*, GETDATA+32*, WRITE+19
STAT NOCAN+15~, DUPCP+5*
STATUS PSODDPR7+14~, PSODDPR7+17*, PSODDPR7+22*, PSODDPR7+23*, PSODDPR7+24*, PSODDPR7+25*, PSODDPR7+26, DUP+3~, CLINIC+5*, GETDATA+3*
GETDATA+16*, GETDATA+27*, WRITE+13
STOPDT PSODDPR7+14~, DUP+3~, CLINIC+5*, GETDATA+8*, GETDATA+10, GETDATA+20*, GETDATA+33*, GETDATA+34*, WRITE+21
STOPDTF PSODDPR7+15~, DUP+4~, CLINIC+5*, GETDATA+10*, GETDATA+34*, WRITE+21
STRENGTH PSODDPR7+14~, DUP+3~, IV55+7*, IV55+9*, IV55+10, IV55+11, IV531+4*, IV531+5*, IV531+6, IV531+7
IV531+8
SUB NOCAN+2~, NOCAN+3*, NOCAN+4*, NOCAN+5, NOCAN+16*, DUPCL+1
>> SV PSODDPR7+18, PSODDPR7+20, PSODDPR7+26, PSODDPR7+27, PSODDPR7+30, CLINIC+4
TCT NOCAN+3!
TCTI NOCAN+3!
TCTL NOCAN+3!
TCTP NOCAN+3!
U WRITE+7
VOLUME PSODDPR7+14~, DUP+3~, IV55+17*, IV55+19*, IV55+21, IV55+23, IV531+14*, IV531+15*, IV531+16*, IV531+18
IV531+19
X MYWRITE~, DUPCP+40~, DUPCP+42*, DUPCP+43*, DUPCP+44
Y GETDATA+29*!
>> ZCT DUP+2, DUP+6, WRITE+2, WRITE+16, WRITE+17, WRITE+18, WRITE+19, WRITE+20, WRITE+21, WRITE+22
IV55+13, IV55+22, IV55+24, IV531+10, IV531+17, IV531+20, DUPCP+27*, DUPCP+40*, DUPCP+41*, DUPCP+42
DUPCP+43
ZHDR NOCAN+3!, NOCAN+13*, NOCAN+14
>> ZPSODCTH NOCAN+18, DUPCP+37
>> ZPSODCTH( DUPCP+29*, DUPCP+30, DUPCP+33*, DUPCP+34*, DUPCP+35*, DUPCP+36*
>> ZVA PSODDPR7+18, PSODDPR7+20, PSODDPR7+26, PSODDPR7+27, PSODDPR7+30, CLINIC+4
ZZCT DUPCP+40~*, DUPCP+41*, DUPCP+42, DUPCP+43, DUPCP+44
ZZOC NOCAN+2~, NOCAN+3*
ZZOCTD NOCAN+2~*, DUPCP+29*, DUPCP+30, DUPCP+33*, DUPCP+34*, DUPCP+35*, DUPCP+36*
ZZQ NOCAN+3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All