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

Package: Outpatient Pharmacy

Routine: PSOORED5


Information

PSOORED5 ;BIR/SAB-Rxs without dosing info ;07/20/00

Source Information

Source file <PSOORED5.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Outpatient Pharmacy 8 (ASK,SCH)^PSOBKDED  ($$DCHK,DCHK1)^PSODOSUT  EN^PSOFSIG  SIG^PSOHELP  ($$DUROK,CNON)^PSOORED3  UPD^PSOORED6  (CON,CON1,DUR1,FNM,JFN,NOU,STR,UPD,VER)^PSOOREDX  (QTY,SCH)^PSOSIG  
VA FileMan 4 NOW^%DTC  ^DIC  MIX^DIC1  ^DIR  
Pharmacy Data Management 1 START^PSSJORDF  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
Outpatient Pharmacy 9 PSOBKDED  PSODIR  PSOERXD2  PSOORED1  PSOORED2  PSOORED3  PSOORED4  PSOORFI3  
PSOORNE4  

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC EXS+12
^DIC DQ+1, MRSL+5, CKMRSL+5
MIX^DIC1 SCHASL+5, SCHMI+3
^DIR DUPD+5, DUR+2, JUMP+8
ASK^PSOBKDED ASK
SCH^PSOBKDED SCH
$$DCHK^PSODOSUT CON+10
DCHK1^PSODOSUT CON+9
EN^PSOFSIG EXS+2
SIG^PSOHELP EXS+1
$$DUROK^PSOORED3 CON+6
CNON^PSOORED3 NOU1
UPD^PSOORED6 UPD+1
CON^PSOOREDX CON
CON1^PSOOREDX CON+4
DUR1^PSOOREDX DUR+4
FNM^PSOOREDX JUMP+3
JFN^PSOOREDX JUMP+9
NOU^PSOOREDX NOU
STR^PSOOREDX DUPD+8
UPD^PSOOREDX CON+4
VER^PSOOREDX VER
QTY^PSOSIG EXS+4
SCH^PSOSIG SCH+2
START^PSSJORDF MRSL+1, CKMRSL+1

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
Routine Call
  • DIC
  • Line Location:
    • DQ+1
    • MRSL+5
    • CKMRSL+5
Routine Call
  • DIR
  • Line Location:
    • DUPD+5
    • DUR+2
    • JUMP+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(51 - [#51] Classic Fileman Calls
^PS(51.1 - [#51.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.7 - [#50.7] RTE+1
^PS(51.2 - [#51.2] RTE+5, RTE+22, JUMP+5
^PS(55 - [#55] LAN+2
^PSDRUG - [#50] LAN+4, LAN+6, LAN+8, LAN+9
^PSRX - [#52] EXS+8*, EXS+9, EXS+10*, EXS+11*, EXS+12*, EXS+13*, EXS+14*, EXS+15*, EXS+16*, EXS+17*
, EXS+18*, EXS+19*, EXS+20*
^TMP( MRSL+2!*, MRSL+4*, MRSL+5!, CKMRSL+2!*, CKMRSL+4*, CKMRSL+5!
^TMP("PSJMR" MRSL+1, MRSL+3, MRSL+4, MRSL+5!, CKMRSL+1, CKMRSL+3, CKMRSL+4, CKMRSL+5!

Label References

Name Line Occurrences
$$SCHASL SCH+2
$$SCHMI SCHASL+8
@( JUMP+1, JUMP+2, JUMP+4, JUMP+8, JUMP+9
ASK CON+9
CKMRSL RTE+21
CON CON+2, CON+4
DQ RTE+8
DUPD ASK+4, ASK+5, VER+2, DUPD+7
DUR CON+6
EX VER+2, DUPD+6, RTE+18, RTE+19, SCH+1, DUR+3, CON+1, CON+4, CON+9, CON+10
, EXS+20, EXE+1, JUMP+10
EX1 EX+2
EXE ASK, VER+2, DUPD+6, NOU+1, RTE+18, RTE+19, SCH+1, DUR+3, CON+1
EXS EXE
JUMP ASK+1, VER+1, DUPD+5, NOU, RTE+17, SCH, DUR+2, CON
KV DOSE+1, DUPD+2, RTE+5, DUR, JUMP+6
MRSL RTE+12
NOU1 DUPD+1
RTE NOU1, NOU1+1, NOU1+2, NOU+1, RTE+8, DQ+1
SCH RTE, RTE+20, RTE+22, SCH+2

Naked Globals

Name Field # of Occurrence
^(0 EXS+8*, EXS+11*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EXS+12
A EXS+9*, EXS+12*, EXS+13, EXS+14, EXS+15!
>> AR JUMP+5*
>> AR1 JUMP+5*, JUMP+8
>> COPY CON+4, EXS+6, JUMP+7
D EXS+8*, SCHASL+3!, SCHASL+5*, SCHASL+6!, SCHMI+3!*, SCHMI+4!
DIC DQ+1*, SCHASL+3!*, SCHASL+6!, SCHMI+3!*, SCHMI+4!, MRSL+5~*, CKMRSL+5~*
DIC("A" MRSL+5*
DIC("S" DQ+1*
DIC("T" CKMRSL+5*
DIC("W" SCHASL+4*, SCHMI+3*
DIC(0 DQ+1*, SCHASL+3*, SCHMI+3*, MRSL+5*, CKMRSL+5*
DIR CON+9!, KV!
DIR("A" DUPD+2*, DUR*, JUMP+7*, JUMP+8*
DIR("B" DUPD+4*!, DUR+1*!
DIR(0 DUPD+2*, DUR*, JUMP+8*
DIRUT ASK, CON+4, KV!, JUMP+8
DOSE EX1!, LAN+8
DOSE( LAN+7
DOSE("LD" DUPD+1
DOSEOR DOSE+1!, EX1!
DRET RTE+1, RTE+2, RTE+20*, RTE+22!
DTIME RTE+9
DTOUT VER+2, DUPD+6, NOU+1, RTE+10*, RTE+18, RTE+19, SCH+1, SCH+2, DUR+3, CON+1
, EX, KV!, SCHASL+6, SCHASL+7, SCHMI+4, SCHMI+6
DUOUT VER+2, DUPD+6, NOU+1, RTE+11*, RTE+18, RTE+19, SCH+1, SCH+2, DUR+3, CON+1
, EX, KV!, EXE!, SCHASL+6, SCHASL+7, SCHMI+4, SCHMI+6
DUPD DOSE+1!, DUPD+1!, DUPD+4, NOU1, EX1!
DUR DUR+1, EX1!
DURA EX1!
DUZ EXS+12
ENT DOSE+1*, ASK+4, ASK+5, VER+2, VER+3, DUPD+1, DUPD+2, DUPD+3, DUPD+4, NOU1+1
, NOU1+2, NOU+1, NOU+4, RTE, RTE+1, RTE+2, RTE+5, RTE+20, RTE+22, RTF+1
, SCH+3, SCH+5, DUR+1, CON+2, CON+3, CON+6, CON+9*, EXS+2, EXS+16, EXS+17
, EX*, EX1!, EXE*, LAN+7, LAN+9
ENTBKP DOSE+1!*, EX, EXE
ENTS EX1!
ERTE RTE+20!, RTE+22*, RTF+1*, EX1!
EXP DUR!
FIELD DOSE+1!, VER+1*, DUPD+5*, NOU*, RTE+17*, SCH*, DUR+2*, CON*, JUMP+1, JUMP+2
, JUMP+4, JUMP+8, JUMP+9
FLDNM JUMP+4!, JUMP+5, JUMP+9
I EXS+9*, EXS+14*, EXS+15!, EXS+17*, EXS+18, EXS+19, LAN+8*, LAN+9, LAN+10!, MRSL+3~*
, MRSL+4, CKMRSL+3~*, CKMRSL+4
>> II LAN+2, LAN+3, LAN+5, LAN+6
>> INS1 EXS+1
JUMP ASK+1!
MRCNT MRSL+1~*, MRSL+2, CKMRSL+1~*, CKMRSL+2
MRDFV RTE+5~*, RTE+7, RTE+13, RTE+16!
MRQ RTE+5~*, RTE+8, RTE+14*, RTE+16!, MRSL+6*
MRSLS RTE+5~, RTE+8, RTE+16!, MRSL+7*
MRTP MRSL+2~*, MRSL+4, MRSL+5, CKMRSL+2~*, CKMRSL+4, CKMRSL+5
MRX RTE+5~, RTE+9*, RTE+11, RTE+12, RTE+13*, RTE+14, RTE+15, RTE+16!
NM JUMP+4!, JUMP+5
NOUN NOU1+1, NOU+1!, NOU+2*, NOU+3*, EX1!
>> OLENT DOSE+1*
>> OR0 LAN+2
>> OTHDOS( LAN+3
PSOCKCON CON+9*, CON+10!, CON+11!
>> PSODFN LAN+2
>> PSODIR("DFLG" RTE+18*, RTE+19*
PSODLBD4 CON+8~*
>> PSODRUG("IEN" LAN+1, LAN+4, LAN+6, LAN+8, LAN+9
>> PSODRUG("OI" RTE+1, MRSL+1, CKMRSL+1
>> PSOEDDOS CON+11
>> PSOFROM EXS+6, JUMP+7
PSONDEF NOU1~, NOU+2, NOU+3
>> PSONEW("DFLG" EX*
>> PSONEW("DOSE ORDERED" , LAN+2
>> PSONEW("DOSE" LAN+5, LAN+6
>> PSONEW("ODOSE" LAN+6*
>> PSOORRNW EXS+3
>> PSOREEDT EXS+3, EXS+6, EX+2
PSORTE EX1!
>> PSORX("DFLG" CON+9, CON+10*
>> PSORX("EDIT" ASK+5, NOU1+1, NOU1+2, RTE, EX+2, EXE
PSORXED DOSE1~, CON+6, CON+11, EXS+2, EXS+4, EX+2
PSORXED( JUMP+5
PSORXED("CONJUNCTION" CON+2, CON+3*, CON+9, EXS+18, EX+3!
PSORXED("DFLG" CON+9, CON+10*
PSORXED("DOSE ORDERED" , DUPD+1!, DUPD+4, EXS+17, EX+3!
PSORXED("DOSE" DUPD+1, DUPD+3*, EXS+17, EXS+19, EX+3!
PSORXED("DURATION" DUR+1, EXS+18, EX+3!
PSORXED("ENT" DOSE+1, SCH+5*, EXS+2*, JUMP+5
PSORXED("INS" EXS+1
PSORXED("IRXN" EXS+8, EXS+9, EXS+10, EXS+11, EXS+12, EXS+13, EXS+14, EXS+15, EXS+16, EXS+17
, EXS+18, EXS+19, EXS+20
PSORXED("NOUN" DUPD+2, NOU1+1*, NOU1+2, NOU+1!, NOU+4*, EXS+17, EX+3!
PSORXED("ODOSE" EX+3!, LAN+7*, LAN+9*
PSORXED("QTY" EXS+4, EXS+5*
PSORXED("ROUTE" RTE*, RTE+1*, RTE+2*, RTE+5, RTE+20*, RTE+22, RTF+1*, EXS+18, EX+3!
PSORXED("SCHEDULE" SCH+3*, EXS+18, EX+3!, JUMP+1
PSORXED("SIG" EXS+1*
PSORXED("UNITS" EXS+17
PSORXED("VERB" ASK+4*, ASK+5, VER+2!, VER+3*, EXS+18, EX+3!
PSOSAVX CON+8*, CON+11, CON+12!
PSOSCH SCH+4!, EX1!
>> PSOSIGFL CON+4*, EXS+7, EX+2
QI LAN+2!, LAN+4*, LAN+6
QII LAN+2!, LAN+4, LAN+6*, LAN+8!, LAN+9*, LAN+10!
>> QTY EXS+4*
QTYHLD EXS+4!*, EXS+5, EXS+6!
QUIT ASK+2!
ROU DOSE+1!, ASK*!, ASK+2!, EX1!
RTE RTE+3!, RTE+5, RTE+20!, RTE+22*, RTF+1*, EX1!
SCH SCH+2*, SCH+3, SCH+4!, EX1!
SCHA SCHASL~, SCHASL+3, SCHASL+8
SCHEA SCHASL+1~*, SCHASL+6*, SCHASL+8*
SCHEM SCHMI+1~*, SCHMI+4*
SCHEX SCH+3, SCH+4!
SCHFL1 SCHASL+1~*, SCHASL+6*, SCHASL+8
SCHFL2 SCHMI+1~*, SCHMI+4*, SCHMI+7
SCHM SCHMI~, SCHMI+3, SCHMI+7
SIG EXS+15!, EX+3!
SIG( EXS+8
SIG(0 EXS+2
>> SIGOK EXS+2*
STRE DOSE+1!, EX1!
U VER+1, DUPD+5, NOU, RTE+17, DQ+1, SCH, DUR+2, CON, SCHASL+6, SCHMI+4
, MRSL+2, MRSL+4, CKMRSL+2, CKMRSL+4
UNITN EX1!
UNITS DOSE+1!
VERB ASK+4, VER+2!, VER+3*, EX1!
X DOSE+1!, VER+1, VER+2, VER+3, DUPD+5, DUPD+7, NOU, NOU+1, NOU+2, NOU+3
, NOU+4, RTE+6*, RTE+15*, RTE+17, RTE+19, RTE+20, RTE+22, DQ+1, RTF+1, SCH
, SCH+4!, DUR+2, CON, CON+2, CON+3, CON+4, CON+8, EXS+1*, EX1!, JUMP+2
, JUMP+4!, SCHASL+3!*, SCHMI+3!*, MRSL+7*, CKMRSL+7*
Y DOSE+1!, DQ+1, RTF+1, SCH+2, SCH+4!, CON+3, CON+4, EX1!, LAN+7, SCHASL+3!
, SCHASL+6, SCHMI+3!, SCHMI+4, MRSL+6, MRSL+7, CKMRSL+6, CKMRSL+7
Y(0 DQ+1, RTF+1
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