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 |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: PSONEW

Package: Outpatient Pharmacy

Routine: PSONEW


Information

PSONEW ;BIR/SAB - new rx order main driver ;Jul 24, 2017@15:24

Source Information

Source file <PSONEW.m>

Call Graph

Call Graph

Call Graph Total: 24

Package Total Call Graph
Outpatient Pharmacy 14 ^PSOBUILD  EN^PSOHLSN1  HLDHDR^PSOLMUTL  EN^PSON52  ^PSONEW1  ^PSONEW2  ^PSONEWOC  (AUTO,CHECK)^PSONRXN  
LOCK^PSOORCPY  RV^PSOORFL  BLD^PSOORUT1  MARK^PSOOTMRX  NPSOSD^PSOUTIL  CLEAN^PSOVER1  
VA FileMan 4 $$FIND1^DIC  ^DIE  $$GET1^DIQ  ^DIR  
Order Entry Results Reporting 2 ($$NA,NA)^ORX1  (LK,ULK)^ORX2  
List Manager 1 FULL^VALM1  
Mental Health 1 ORDSET^YSCLTST6  
Pharmacy Data Management 1 ($$L,UL)^PSSLOCK  
Text Integration Utility 1 MAIN^TIUEDIT  

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

Package Total Caller Graph
Outpatient Pharmacy 14 PSO NEW ORDER  PSOBBC  PSOCAN2  PSON52  PSOORCPY  PSOORED1  PSOOREDT  PSOORNE1  
PSOORNE4  PSOORNEW  PSORENW  PSORENW4  PSORN52A  PSOVER1  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
OERR ;backdoor new rx for v7
AGAIN
END
DEL ;
EOJ ;
NOOR ;asks nature of order
COUN ;patient counseling
PRONTE
NOORX
DIR ;ask nature of order
DIRX
NOORE(PSONEW) ;entry point for renew
DAOC ;adds all backdoor order checks to file 100.05.

External References

Name Field # of Occurrence
$$FIND1^DIC NOOR+9, NOOR+12
^DIE DEL+7
$$GET1^DIQ DEL+7, EOJ+7, EOJ+9, EOJ+10, EOJ+15, NOOR+5, DIR+2, DIR+7
^DIR END+1, COUN+3, COUN+5, PRONTE+2, DIR+8
$$NA^ORX1 DIR+2
NA^ORX1 DIR+1
LK^ORX2 OERR+3
ULK^ORX2 END+2
^PSOBUILD END+2
EN^PSOHLSN1 EOJ+6, EOJ+7
HLDHDR^PSOLMUTL AGAIN+2
EN^PSON52 AGAIN+11
^PSONEW1 AGAIN+3
^PSONEW2 AGAIN+9
^PSONEWOC DAOC+1
AUTO^PSONRXN AGAIN+6
CHECK^PSONRXN AGAIN+6
LOCK^PSOORCPY OERR+2
RV^PSOORFL END+3
BLD^PSOORUT1 END+2
MARK^PSOOTMRX AGAIN+16
NPSOSD^PSOUTIL AGAIN+12
CLEAN^PSOVER1 EOJ+3
$$L^PSSLOCK OERR+2
UL^PSSLOCK OERR+3, END+2
MAIN^TIUEDIT EOJ+18, PRONTE+1
FULL^VALM1 AGAIN+3, EOJ+18
ORDSET^YSCLTST6 EOJ+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: AGAIN+2
Function Call: WRITE
  • Prompt: !,$C(7),"RX DELETED",!
  • Line Location: AGAIN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !,$C(7),"RX DELETED",!
  • Line Location: DEL+1
Routine Call
  • DIC
  • Line Location:
    • NOOR+9
    • NOOR+12
Routine Call
  • DIE
  • Line Location:
    • DEL+7
Routine Call
  • DIR
  • Line Location:
    • END+1
    • COUN+3
    • COUN+5
    • PRONTE+2
    • DIR+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
200.051 FIND1^DIC
^PSDRUG - [#50] GET1^DIQ
^PSRX - [#52] GET1^DIQ
^PS(59 - [#59] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DILOCKTM" DEL+5
^PS(59 - [#59] DEL+5, DEL+8
^PSRX("B" EOJ+1
^TMP("PSODAOC" EOJ+14, EOJ+17!, DAOC+1!
^TMP("PSORXDC" EOJ+4!
^TMP("PSORXN" EOJ+5, EOJ+6, EOJ+17!
^XTMP("YSCLTRN" EOJ+11
^XUSEC("PSORPH" NOOR+16

Label References

Name Line Occurrences
AGAIN END+1
COUN NOOR+9, NOOR+12
DAOC EOJ+16
DEL AGAIN+7, AGAIN+8, AGAIN+9
DIR NOOR+11, NOOR+14
END AGAIN+4, AGAIN+5, AGAIN+7, AGAIN+8, AGAIN+9, AGAIN+10
EOJ END
NOOR AGAIN+8, NOORE+1
NOORX NOOR+7, NOOR+16, COUN+2
PRONTE COUN+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACNT EOJ+4!
ACOM EOJ+4!
ANQDATA EOJ+2!
C EOJ+2!
COPY OERR+1!
CRIT EOJ+4!
DA DEL+3*, NOOR+15!
DEF EOJ+4!
DF DIR+5*, DIR+8!
>> DFN EOJ+11
DIE DEL+3*, DEL+7!, NOOR+15!
DIK NOOR+15!
DIR END+1!, NOOR+12!, NOOR+15!, COUN+2!, COUN+5!, PRONTE!, PRONTE+1!, PRONTE+2!, NOORX!, DIR+1!
, DIR+6!
DIR("A" END+1*, PRONTE+2*, DIR+6*
DIR("B" END+1*, COUN+3*, COUN+5*, PRONTE+2*, DIR+6*
DIR(0 END+1*, COUN+3*, COUN+5*, PRONTE+2*, DIR+7*
DIRUT END+1!, NOOR+11, NOOR+12!, NOOR+14, NOOR+15!, COUN+2!, COUN+4, COUN+5!, PRONTE!, PRONTE+1!
, NOORX!, DIR+1!, DIR+4*, DIR+6!, DIR+8, NOORE+1
DR DEL+6*, DEL+7, NOOR+15!
DRET OERR+1!, EOJ+4!
DT EOJ+11
DTOUT END+1!, NOOR+12!, NOOR+15!, COUN+2!, COUN+5!, NOORX!, DIR+1!, DIR+6!
DUOUT END+1!, NOOR+15!, COUN+2!, COUN+5!, PRONTE!, PRONTE+1!, NOORX!
DUR OERR+1!, EOJ+4!
DUZ NOOR+9, NOOR+12, NOOR+16, DIR+2, DIR+7
F1 EOJ+4!
GG EOJ+4!
I1 EOJ+4!
IEN EOJ+4!
INDT EOJ+4!
LAST EOJ+4!
LSI EOJ+2!
MAX EOJ+2!
MIN EOJ+2!
MSG EOJ+4!
NDF EOJ+2!
NIEN EOJ+4!
OR0 AGAIN+1~, NOOR+7, NOOR+8
ORD AGAIN+3!, END+1!
ORN EOJ+10~*, EOJ+11
POERR AGAIN!, AGAIN+5, AGAIN+7, AGAIN+9
POERR("DFLG" AGAIN+5*, AGAIN+7*, AGAIN+9*
PSDRUG END+1!
PSOCKCON OERR+1~, EOJ+19!
PSOCLOZO EOJ+9~*, EOJ+10
PSOCOU AGAIN!, EOJ+2!, COUN+3*, COUN+4, COUN+5
PSOCOUU AGAIN!, EOJ+2!, COUN+4*, COUN+5!*
PSODAOC OERR+1~, EOJ+15*, EOJ+17!
>> PSODFN OERR+2, OERR+3, END+2, EOJ+18
PSODRUG AGAIN!, EOJ+2!
PSODRUG("IEN" NOOR+5
PSODRUG("OI" NOOR+8
PSOEDIT OERR+1!
PSOFLAG EOJ+2!
>> PSOFROM AGAIN+2*
PSOHI EOJ+2!
PSOHZ AGAIN+1~*
PSOI NOOR+8*, NOOR+9, NOOR+15!
PSOLO EOJ+2!
>> PSOLOGDT EOJ+10, EOJ+11
PSOLSTDR AGAIN+1~*
PSOMAILX EOJ+2!, COUN+1*
PSOMTFLG OERR+1!
PSONEW AGAIN+11, AGAIN+12, END+1!, EOJ+2!, NOORE~
PSONEW("DFLG" AGAIN+2*, AGAIN+5, AGAIN+7, AGAIN+8, AGAIN+9, NOOR+11*, NOOR+14*, NOORE+1*
PSONEW("IRXN" AGAIN+16
PSONEW("MAIL EXEMPTION" , COUN+1
PSONEW("NOO" NOORE+2*
PSONEW("OLD L AST RX#" , DEL+3, DEL+4
PSONEW("QFLG" AGAIN+2*, AGAIN+4, AGAIN+7
PSONEW("RX #" , AGAIN+6, EOJ+1
PSONEW("SAND" NOOR+5*
>> PSONOBCK DIR+2
PSONODF DIR+5*, DIR+6, DIR+8!
PSONOEDT AGAIN+2*, EOJ+2!
PSONOODF NOOR+1~, NOOR+2*, NOOR+10*, DIR+2
PSONOOR AGAIN!, EOJ+2!, NOOR+9*, NOOR+12*, NOOR+15*, DIR+2*, DIR+3*, DIR+4!, DIR+5, DIR+6
, DIR+8*, NOORE+2
PSONOTE EOJ+18, EOJ+19!, PRONTE!, PRONTE+3*
>> PSOPAR AGAIN+6, DEL+2
PSOPLCK OERR+2*!, OERR+3!
PSOPRC EOJ+4!
PSOQUIT AGAIN!, AGAIN+2*
PSOREEDT OERR+1!
>> PSORX("DETX" EOJ+4!
>> PSORX("DFLG" AGAIN!*
>> PSORX("EDIT" EOJ+2!, COUN+2
>> PSORX("FN" AGAIN!, AGAIN+10, END+1, END+4!
>> PSORX("NAME" END+1
>> PSORX("RXDEA" EOJ+4!
PSOSAND NOOR+5!
>> PSOSIGFL NOOR+8, COUN+2
>> PSOSITE DEL+3, DEL+5, DEL+7, DEL+8
PSOTITRX OERR+1!
PSOX AGAIN+6*, DEL+4*, DEL+6, DEL+7, DEL+9!
PSOY DEL+3*, DEL+4, DEL+5, DEL+6, DEL+8, DEL+9!
PSRDI DAOC+1!
QUIT OERR+1!
REF EOJ+2!
RET EOJ+17!
RORD EOJ+4!
RXN EOJ+5*, EOJ+6, EOJ+7, EOJ+9, EOJ+10, EOJ+11, EOJ+15*, EOJ+17!
RXN1 EOJ+6*, EOJ+17!
SER EOJ+2!
SIG EOJ+2!
SPEED OERR+1!, COUN+4, PRONTE+1
STA EOJ+4!
>> TIUDA EOJ+18
>> VALMBCK OERR+2*, OERR+3*, AGAIN+5*, AGAIN+7*, AGAIN+9*, AGAIN+13*, END+4*, NOOR+14*
VALMCNT AGAIN~
>> VALMSG OERR+2*, OERR+3*
X OERR+3*, END+2*, DEL+7!, NOORX!
Y OERR+3, END+1, DEL+7!, NOOR+12, NOOR+15, COUN+3, COUN+5, PRONTE+3, NOORX!, DIR+3*
, DIR+8
ZNEW EOJ+2!, EOJ+15*, EOJ+17!
ZRXN EOJ+5*, EOJ+15, EOJ+17!
ZZCOPY EOJ+19!

Marked Items

Name Field # of Occurrence
$T(MAIN^TIUEDIT PRONTE+1
$T(NA^ORX1 DIR+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 |  Local Variables |  Marked Items  | All