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

Package: Outpatient Pharmacy

Routine: PSOPRK


Information

PSOPRK ;BIR/EJW - park/unpark functionality ; May 17, 2023@18:30:42

Source Information

Source file <PSOPRK.m>

Call Graph

Call Graph

Call Graph Total: 23

Package Total Call Graph
Outpatient Pharmacy 16 ($$LSTRFL,ECMESND)^PSOBPSU1  $$SUBMIT^PSOBPSUT  ^PSOBUILD  (,EN,UNPARK)^PSOCMOPA  EN^PSOHLSN1  ^PSOLSET  LOCK^PSOORCPY  (CHKLBL,GETRELDT,PARK,RMP)^PSOPRKA  
^PSOREF0  $$PSOET^PSOREJP3  $$HDLG^PSOREJU1  $$FIND^PSOREJUT  GETPARK^PSORPC01  S^PSORXL  $$MAXNUMRF^PSOUTIL  $$TITRX^PSOUTL  
VA FileMan 4 ^DIC  FILE^DICN  ^DIE  ^DIR  
Kernel 1 $$NOW^XLFDT  
List Manager 1 FULL^VALM1  
Pharmacy Data Management 1 ($$L,PSOL,PSOUL,UL)^PSSLOCK  

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

Package Total Caller Graph
Outpatient Pharmacy 11 PSO PARK  PSO UNPARK  PSOHLD  PSOHLDA  PSOORED2  PSOORED3  PSOORED6  PSOOREDT  
PSOPRKA  PSOREF0  PSORXL1  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
UNPARK ;
EN
UMSG
EX ;
; If called from edit (changed to or from Park), don't unlock/kill
PARK(DA)
AR ;
D1
PRK(DA) ; - Rx Park update
; Recheck DEA code in case called from somewhere else
ULP ;
KILLPARK(RX) ; KILL PARK level and APARK xref
RXACT(RX,ACTION,REASON,OTHCOM,SUS) ; Adds PARK/UNPARK info to the Rx Activity Log
MW ; WHEN UNPARKING, DON'T PROMPT FOR PARK
MWX
MWP(PSODA,PREVMWP,REFILL) ; UNHOLD;EDIT ROUTE - CHECK TO SEE IF SHOULD ALSO PROMPT FOR PARK
REFCK ;

External References

Name Field # of Occurrence
^DIC UMSG+13
FILE^DICN RXACT+7, RXACT+18
^DIE EN+10, EN+15, EN+28
^DIR MW+6, MWP+17
$$LSTRFL^PSOBPSU1 RXACT+2
ECMESND^PSOBPSU1 UMSG+29
$$SUBMIT^PSOBPSUT UMSG+26
^PSOBUILD EX+4, AR+3
^PSOCMOPA REFCK+5
EN^PSOCMOPA PARK+22
UNPARK^PSOCMOPA UMSG+7
EN^PSOHLSN1 UNPARK+13, UMSG+3, PARK+17
^PSOLSET UNPARK+2
LOCK^PSOORCPY UNPARK+5, PARK+12
CHKLBL^PSOPRKA REFCK+4
GETRELDT^PSOPRKA REFCK+3
PARK^PSOPRKA PRK+5
RMP^PSOPRKA AR+1, AR+2
^PSOREF0 UMSG+16
$$PSOET^PSOREJP3 UMSG+31
$$HDLG^PSOREJU1 UMSG+33
$$FIND^PSOREJUT UMSG+32
GETPARK^PSORPC01 PARK+4, MWP+8
S^PSORXL UMSG+18
$$MAXNUMRF^PSOUTIL UMSG+14
$$TITRX^PSOUTL UMSG+9
$$L^PSSLOCK UNPARK+5, PARK+12
PSOL^PSSLOCK UNPARK+6, PARK+13
PSOUL^PSSLOCK UNPARK+9, EX+4, D1
UL^PSSLOCK ULP+1
FULL^VALM1 UNPARK+10, PARK+21
$$NOW^XLFDT RXACT+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),$C(7)
  • Line Location: UNPARK+3
Function Call: WRITE
  • Prompt: $C(7),$C(7)
  • Line Location: UNPARK+4
Function Call: WRITE
  • Prompt: $C(7),$C(7)
  • Line Location: PARK+6
Function Call: WRITE
  • Prompt: $C(7),$C(7)
  • Line Location: PARK+7
Function Call: WRITE
  • Prompt: $C(7),$C(7)
  • Line Location: PARK+8
Function Call: WRITE
  • Prompt: $C(7),$C(7)
  • Line Location: PARK+9
Routine Call
  • DIC
  • Line Location:
    • UMSG+13
Routine Call
  • DIE
  • Line Location:
    • EN+10
    • EN+15
    • EN+28
Routine Call
  • DIR
  • Line Location:
    • MW+6
    • MWP+17

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN+8, EN+13
^DD(52 RXACT+10, RXACT+14
^DD(52.1 RXACT+15
^PS(52.41 - [#52.41] UMSG+10
^PSDRUG - [#50] PARK+2, PARK+9, PRK+3, MWP+10, MWP+11
^PSRX - [#52] UNPARK+7, UNPARK+8, UNPARK+11, UNPARK+12*, EN, EN+1, EN+5, EN+16, EN+20, EN+22
, EN+25, EN+32*, EN+33*, UMSG, UMSG+4, UMSG+6, UMSG+22*, PARK+2, PARK+9, PARK+11
, PARK+14, PARK+15, PARK+16*, PARK+17, PRK+3, KILLPARK+1!, RXACT+11, MWP+10, MWP+11
^PSRX("APARK" KILLPARK+1!
^XUSEC("PSO TECH ADV" UNPARK+9, PARK+10
^XUSEC("PSORPH" UNPARK+9, PARK+10

Label References

Name Line Occurrences
D1 PARK+14, PARK+19, PARK+22
EX UNPARK+2, UNPARK+11, EN+3, EN+28, EN+30, UMSG+7, UMSG+8, UMSG+18, UMSG+26, UMSG+35
KILLPARK UNPARK+13, EN+29, EN+31, UMSG+4
MW EN+30
PRK AR+2
REFCK UMSG+8
RXACT UMSG+1
ULP UNPARK+6, UNPARK+9, UNPARK+11, EN+3, EN+28, EN+30, UMSG+7, UMSG+8, UMSG+18, UMSG+26
, UMSG+35, UMSG+40, PARK+13, PARK+14, PARK+19, PARK+22, AR+4
UMSG EN+29

Naked Globals

Name Field # of Occurrence
^( EN
^("STA" UNPARK+7, PARK+14
^(2 UNPARK+12, PARK+15, PARK+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EX+5!
ACT EN+20*, EX+5!, D1!
ACTION UMSG+25~, UMSG+26, UMSG+28*, UMSG+31*, UMSG+33*, RXACT~, RXACT+3, RXACT+4, RXACT+10
>> BPMW RXACT+3, RXACT+10
C EX+5!
>> CLOZPAT UMSG+14
COMM UNPARK+12*, UNPARK+13!, UMSG+2~, UMSG+3*!, PARK+17*!, RXACT+1~, RXACT+3*, RXACT+4*, RXACT+5*, RXACT+6
, RXACT+10*, RXACT+16*, RXACT+17
D0 EX+5!
DA UNPARK+6, UNPARK+7, UNPARK+8, UNPARK+9, UNPARK+11, UNPARK+12, UNPARK+13, EN, EN+1, EN+2
, EN+4~*, EN+5, EN+16, EN+17*, EN+22, EN+25, EN+29, EN+31, EN+32, EN+33
, UMSG, UMSG+1, UMSG+4, UMSG+6, UMSG+28~, UMSG+37, EX+5!, PARK~, PARK+2, PARK+9
, PARK+11, PARK+13, PARK+14, PARK+15, PARK+16, PARK+17, AR+1, AR+2*, D1!, PRK~
, PRK+3, PRK+5, RXACT+1~, REFCK+3, REFCK+4
DA(1 EN+4*, EN+5, EN+16, EN+17!, RXACT+5*
DD RXACT+1~
DI EX+5!
DIC UMSG+11~, UMSG+13*, UMSG+15!, EX+5!, RXACT+1~, RXACT+5*, MWP+12!
DIC("DR" RXACT+6*, RXACT+17*
DIC(0 UMSG+13*, RXACT+5*
DIE EN+4~*, EN+20*, EX+5!
DIK EX+5!
DINUM RXACT+1~
DIR UNPARK+10!, EX+5!, D1!, MW+2!, MWX!, MWP+12!
DIR("A" MW+4*, MWP+14*, MWP+15*
DIR("B" MW+5*, MWP+16*
DIR(0 MW+4*, MWP+14*, MWP+15*
DIROUT D1!
DIRUT UNPARK+10!, EX+5!, D1!, MW+7, MWP+18
DLAYGO RXACT+1~, RXACT+5*
DO RXACT+1~
DQ EX+5!
DR EN+9*, EN+14*, EN+22*, EN+23*, EN+25*, EN+26*, EX+2!, EX+3!, EX+5!, RXACT+1~
DT UNPARK+11, EN+7, EN+8, EN+12, EN+20, EN+21, UMSG+18, PARK+14, RXACT+3, RXACT+4
DTOUT UNPARK+10!, D1!
DUOUT UNPARK+10!, EX+5!, D1!
DUZ UNPARK+9, PARK+10, RXACT+6, RXACT+17
FDT EN+20*, EN+21*, EN+28!
FLD EX+5!, D1!
HRX EX+6!
I EN*, EX+5!
IR EX+5!
JJ UMSG+6*, UMSG+11~, UMSG+14*, UMSG+15!, EX+6!
LBLP REFCK+1~, REFCK+2*, REFCK+5, REFCK+6
LFD EX+5!
NEW1 UMSG+5*, EX+5!
NEW11 UMSG+5*, EX+5!
NOW EX+5!
>> ORN EX+4, D1
OTHCOM RXACT~, RXACT+5*, RXACT+6
PARK MWP+1~, MWP+5*, MWP+9*, MWP+10*, MWP+11*, MWP+15
>> PCOMH( UMSG+19*
PI AR+2*, AR+3!
PPL EX+5!, AR+2
PREVMWP MWP~, MWP+3*, MWP+4, MWP+20, MWP+21
PREVMWP1 MWP+1~, MWP+4*, MWP+16
PRKMW EN+30~, EN+32, EN+33, UMSG+16, MW+3*, MW+8*, MWP+13*, MWP+19*, MWP+20, MWP+21
PSDA EN+17, EX+5!, AR+2!
PSL EX+5!
PSNP EX+5!
>> PSOBEDT UNPARK+3, PARK+6
>> PSOCMOP REFCK+6
PSODA MWP~, MWP+10, MWP+11
>> PSODFN UNPARK+5, PARK+12, ULP+1
PSODRUG PARK+1~, PRK+2~, MWP+1~
PSODRUG("DEA" PARK+2*, PARK+8, PRK+3*, PRK+4, MWP+11*
PSODRUG("IEN" UMSG+14
PSOFILLDT RXACT+1~, RXACT+11*, RXACT+12
PSOFLDNM RXACT+1~, RXACT+14*, RXACT+15*, RXACT+16
PSOFROM PARK+22*!
PSOFRPK EN+29, EX+3, RXACT+9, MW+1, MWP+2!, MWP+21*
PSOHRL EX+5!
PSOLIST EX+6!
>> PSOLST( EX+4, D1
PSOMSG UNPARK+6!, EX+5!, PARK+13!, D1!
>> PSONACT UNPARK+4, PARK+7
PSONOOR UMSG+2~*, UMSG+3
PSOOLDFILLDT UNPARK+1~, EN+1*, RXACT+12, RXACT+13
>> PSOPAR UNPARK+2, UMSG+18
PSOPARKX PARK+3~, MWP+7~
PSOPARKX(0 PARK+5, MWP+9
PSOPLCK UNPARK+5*!, UNPARK+6!, EX+5!, PARK+12*!, PARK+13!, D1!
PSOREF UMSG+16~
PSOREF("IRXN" UMSG+16*
PSOREF("MAIL/WINDOW" UMSG+16*
>> PSOREJCT UNPARK+3
>> PSORX("FILL D ATE" , EN+17*, UMSG+4*, UMSG+18, EX+6!
>> PSORX("PATIEN T STATUS" , UMSG+12
>> PSORX("PSOL" UMSG+35*, UMSG+36, UMSG+37*, UMSG+38*, AR+1, AR+2
PSORX0 EX+6!
PSOTOPK EX+2, RXACT+9, MWP+2!, MWP+20*
PSOUNPRK EN+4*, EN+17!
>> PSOX1 UMSG+36*
>> PSOX2 UMSG+36*, UMSG+37, UMSG+38
PSPRK EX+6!
PSRXN EX+6!
>> PSXSYS UMSG+7
QTY EX+6!
REASON RXACT~
REFCK UMSG+8~*, REFCK+6*
REFILL MWP~
RESULTS PARK+3~, PARK+4*, MWP+7~, MWP+8*
RFDATE EX+5!
RFDT EX+6!
RFL UMSG+27~*, UMSG+29, UMSG+31, UMSG+32, UMSG+33, RXACT+1~, RXACT+2*, RXACT+6, RXACT+11, RXACT+15
, RXACT+17
RFN EX+5!, D1!
>> RLDT EN+5*, EN+6, EN+22*, EN+23, EN+25
>> RLDTP1 EN+22*
RSDT EN*, EN+7, EN+12, EN+13, D1!, REFCK+1~, REFCK+2*, REFCK+4, REFCK+5, REFCK+6
RTN EX+5!
RX UMSG+27~*, UMSG+29, UMSG+31, UMSG+32, UMSG+33, KILLPARK~, KILLPARK+1, RXACT~, RXACT+2, RXACT+5
, RXACT+11
RX0 UMSG+12, UMSG+14, EX+5!
RXF EN*, EN+1, EN+3, EN+4, EN+23, EN+32, EN+33, UMSG+4, UMSG+6*, EX+6!
, REFCK+4
>> RXFL( UMSG+6*, UMSG+26, UMSG+27
RXIEN UNPARK+1~, EN+2*, EN+4, EN+16, EN+17, EN+20, UMSG+3, UMSG+4, UMSG+6, UMSG+8
, UMSG+9, UMSG+10, UMSG+16, UMSG+19, UMSG+20, UMSG+22, UMSG+26, UMSG+27, UMSG+35, UMSG+37
, UMSG+38
RXN EX+5!
RXP EX+5!
>> RXRH( UMSG+20*
>> RXRP( UMSG+22*
RXS EX+5!
ST EX+5!, PARK+18*, PARK+20!
STA UNPARK+7*, UNPARK+8, UNPARK+9!, EX+6!, PARK+14*, PARK+18, PARK+19
SUS RXACT~, RXACT+3
SUSPT EX+5!
TD EN+8~*, EN+13~*
U EN+1, RXACT+11, RXACT+14, RXACT+15, MW+7, MWP+18
>> VALMBCK UNPARK+3*, UNPARK+4*, UNPARK+5*, UNPARK+6*, UNPARK+8*, UNPARK+9*, EN+28*, EN+30*, PARK+5*, PARK+6*
, PARK+7*, PARK+8*, PARK+9*, PARK+10*, PARK+11*, PARK+12*, PARK+13*, PARK+15*, PARK+20*
>> VALMSG UNPARK+3*, UNPARK+4*, UNPARK+5*, UNPARK+6*, UNPARK+8*, UNPARK+9*, UNPARK+12*, UMSG*, UMSG+9*, UMSG+10*
, UMSG+14*, PARK+5*, PARK+6*, PARK+7*, PARK+8*, PARK+9*, PARK+10*, PARK+11*, PARK+12*, PARK+13*
, PARK+15*, PARK+20*
X UMSG+11~, UMSG+12*, UMSG+15!, EX+5!, D1!, RXACT+1~, RXACT+7*, MW+7, MWX!, MWP+18
, MWP+22!
XFLAG UMSG+7, EX+5!, PARK+22!
Y UNPARK+9!, EN+3!, EN+8~*, EN+11, EN+13~*, EN+17, EN+28, UMSG+11~, UMSG+14, UMSG+15!
, EX+5!, PARK+20!, D1!, RXACT+1~, MW+7!, MW+8, MWX!, MWP+18!, MWP+19, MWP+22!
Y(0 UNPARK+7*, PARK+14*, PARK+20
>> ZD( EN+16*, EN+17, UMSG+4
ZZ RXACT+13~*, RXACT+16
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