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

Package: Outpatient Pharmacy

Routine: PSOHLD


Information

PSOHLD ;BIR/SAB - hold unhold functionality ; OCT 04, 2023@11:10:12

Source Information

Source file <PSOHLD.m>

Call Graph

Call Graph

Call Graph Total: 22

Package Total Call Graph
Outpatient Pharmacy 14 ($$LSTRFL,ECMESND)^PSOBPSU1  $$SUBMIT^PSOBPSUT  ^PSOBUILD  (HLD,UNHOLD)^PSOCMOPA  (HOLD,RMP)^PSOHLDA  EN^PSOHLSN1  ^PSOLSET  LOCK^PSOORCPY  
PRK^PSOPRK  $$PSOET^PSOREJP3  $$HDLG^PSOREJU1  $$FIND^PSOREJUT  GETPARK^PSORPC01  S^PSORXL  
VA FileMan 4 FILE^DICN  ^DIE  $$GET1^DIQ  ^DIR  
Kernel 1 $$NOW^XLFDT  
List Manager 1 FULL^VALM1  
Order Entry Results Reporting 1 ($$NA,NA)^ORX1  
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: 5

Package Total Caller Graph
Outpatient Pharmacy 4 PSO HOLD  PSO UNHOLD  PSOHLDA  PSORXL  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
UHLD ; Rx Unhold
EN
EX
HLD ;
AR
D1
H ; - Rx HOLD update
FLD
NOOR ;ask nature of order
NOORX
ULP ;
RELC ;
RXACT(RX,ACTION,REASON,OTHCOM,SUS) ; Adds HOLD/UNHOLD comments to the Rx Activity Log
MWPR ;

External References

Name Field # of Occurrence
FILE^DICN RXACT+7
^DIE EN+16, EN+18, EN+23, EN+28, EN+29, EN+40, EN+43, EN+45, EN+51
$$GET1^DIQ UHLD+11, EN+4, EN+30, EN+31, EN+46, EN+47, MWPR+7
^DIR EN+6, HLD+26, HLD+27, HLD+28, FLD+10, FLD+12, NOORX, MWPR+11
$$NA^ORX1 NOOR+2
NA^ORX1 NOOR+1
$$LSTRFL^PSOBPSU1 RXACT+2
ECMESND^PSOBPSU1 EN+74
$$SUBMIT^PSOBPSUT EN+71
^PSOBUILD EX, AR+2
HLD^PSOCMOPA HLD+14
UNHOLD^PSOCMOPA EN+61
HOLD^PSOHLDA H+1
RMP^PSOHLDA AR+1
EN^PSOHLSN1 UHLD+17, EN+55, HLD+9
^PSOLSET UHLD+3
LOCK^PSOORCPY UHLD+6, HLD+4
PRK^PSOPRK EN+67
$$PSOET^PSOREJP3 EN+76
$$HDLG^PSOREJU1 EN+78
$$FIND^PSOREJUT EN+77
GETPARK^PSORPC01 MWPR+2
S^PSORXL EN+63
$$L^PSSLOCK UHLD+6, HLD+4
PSOL^PSSLOCK UHLD+7, HLD+5
PSOUL^PSSLOCK UHLD+9, UHLD+10, UHLD+12, EX, D1
UL^PSSLOCK ULP+1
FULL^VALM1 UHLD+14, HLD+13
$$NOW^XLFDT RXACT+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),$C(7)
  • Line Location: UHLD+4
Function Call: WRITE
  • Prompt: $C(7),$C(7)
  • Line Location: UHLD+5
Function Call: WRITE
  • Prompt: !!,"HOLD COMMENTS: "
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: ?15,$E(HLDCOM,1,65),!
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: $C(7),$C(7)
  • Line Location: HLD+1
Function Call: WRITE
  • Prompt: $C(7),$C(7)
  • Line Location: HLD+2
Routine Call
  • DIE
  • Line Location:
    • EN+16
    • EN+18
    • EN+23
    • EN+28
    • EN+29
    • EN+40
    • EN+43
    • EN+45
    • EN+51
Routine Call
  • DIR
  • Line Location:
    • EN+6
    • HLD+26
    • HLD+27
    • HLD+28
    • FLD+10
    • FLD+12
    • NOORX
    • MWPR+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] Classic Fileman Calls,  GET1^DIQ
52.1 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN+14, EN+21, EN+26
^DD(52 HLD+15, HLD+27, FLD, FLD+12
^PSDRUG - [#50] MWPR+6
^PSRX - [#52] UHLD+8, UHLD+15, UHLD+16*, UHLD+17*, EN, EN+11, EN+32, EN+33, EN+36, EN+37
, EN+39, EN+56, EN+57*, EN+60, EN+66*, HLD+6, HLD+7, HLD+8*, HLD+9, RELC+1
, RELC+2, RELC+3, MWPR+6
^PSRX("AH" EN+56!
^VA(200 - [#200] NOOR+2, NOOR+6
^XUSEC("PSO TECH ADV" UHLD+10, HLD+3
^XUSEC("PSORPH" UHLD+10, UHLD+12, HLD+3, HLD+17, FLD+2

Label References

Name Line Occurrences
AR HLD+27
D1 HLD+6, HLD+11, HLD+13, HLD+14, HLD+26, AR
EX UHLD+3, UHLD+14, UHLD+15, EN+6, EN+9, EN+40, EN+41, EN+45, EN+61, EN+62
, EN+63, EN+67, EN+71, EN+80
H AR+1
MWPR EN+24, EN+42
NOOR UHLD+14, HLD+13
RELC EN+62
RXACT EN+53
ULP UHLD+7, UHLD+9, UHLD+10, UHLD+12, UHLD+14, UHLD+15, EN+6, EN+9, EN+40, EN+41
, EN+45, EN+61, EN+62, EN+63, EN+67, EN+71, EN+80, EN+85, HLD+5, HLD+6
, HLD+11, HLD+13, HLD+14, HLD+26, AR, AR+3

Naked Globals

Name Field # of Occurrence
^( EN
^("STA" UHLD+8, HLD+6
^(2 UHLD+16, UHLD+17, HLD+7, HLD+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EX+1!
ACT EN+36*, EX+1!, D1!
ACTION EN+70~, EN+71, EN+73*, EN+76*, EN+78*, RXACT~, RXACT+3, RXACT+4, RXACT+6
>> BINGCRT EN+31*, EN+47*
>> BINGRTE EN+31*, EN+47*
C EX+1!
COMM UHLD+17*!, EN+55*!, HLD+9*!, FLD+11*, FLD+12*, RXACT+1~, RXACT+3*, RXACT+4*, RXACT+5*, RXACT+6
D0 EX+1!
DA UHLD+7, UHLD+8, UHLD+9, UHLD+10, UHLD+11, UHLD+12, UHLD+15, UHLD+16, UHLD+17, EN
, EN+1, EN+10~*, EN+11, EN+32, EN+33*, EN+51~*, EN+56, EN+73~, EX+1!, HLD+5
, HLD+6, HLD+7, HLD+8, HLD+9, AR+1*, D1!, FLD~, RELC+1, RELC+2, RELC+3
, RXACT+1~
DA(1 EN+10*, EN+11, EN+32, EN+33!, EN+51*, RXACT+5*
DD RXACT+1~
DI EX+1!
DIC EX+1!, RXACT+1~, RXACT+5*
DIC("DR" RXACT+6*
DIC(0 RXACT+5*
DIE EN+10~*, EN+36*, EN+51~*, EX+1!
DIK EX+1!
DINUM RXACT+1~
DIR UHLD+14!, EN+6!, EX+1!, HLD+15!, HLD+26!, HLD+27!, HLD+28!, AR!, D1!, FLD!
, FLD+12!, NOOR+1!, NOORX!, MWPR+1!, MWPR+11!
DIR("A" EN+6*, HLD+15*, HLD+27*, HLD+28*, FLD*, FLD+12*, NOOR+5*, MWPR+4*, MWPR+6*
DIR("B" NOOR+5*, MWPR+10*
DIR("L" HLD+19*, HLD+20*, HLD+21*, HLD+22*, HLD+23*, HLD+24*, FLD+4*, FLD+5*, FLD+6*, FLD+7*
, FLD+8*, FLD+9*
DIR(0 EN+6*, HLD+15*, HLD+18*, HLD+27*, HLD+28*, FLD*, FLD+3*, FLD+12*, NOOR+6*, MWPR+4*
, MWPR+6*, MWPR+9
DIROUT D1!
DIRUT UHLD+14!, EN+24!, EN+41!, EN+42, EX+1!, HLD+13, HLD+26!, AR!, D1!, FLD+10
, FLD+12, NOOR+1!, NOOR+4*, NOORX, MWPR+1!
DLAYGO RXACT+1~, RXACT+5*
DO RXACT+1~
DQ EX+1!
DR EN+15*, EN+17*, EN+22*, EN+27*, EN+29*, EN+37*, EN+38*, EN+39*, EN+43*, EN+44*
, EN+51~*, EX+1!, RXACT+1~
DT UHLD+15, EN+13, EN+14, EN+20, EN+25, EN+36, EN+63, HLD+6
DTOUT UHLD+14!, EN+6!, AR, D1!, NOOR+1!, NOORX!, MWPR+1!, MWPR+11!
DUOUT UHLD+14!, EN+6!, EX+1!, HLD+26!, AR!, D1!, FLD+10, FLD+12, MWPR+1!, MWPR+11!
DUZ UHLD+10, UHLD+12, HLD+3, HLD+17, FLD+2, NOOR+2, NOOR+6, RXACT+6
DV MWPR+1~, MWPR+7*, MWPR+8*, MWPR+9*, MWPR+10
FDT EN+36*, EN+40!, EN+45!
FLD EX+1!, D1!
FLD( HLD+27*, HLD+28*, FLD+12*, FLD+13*
FLD(99 HLD+26*, HLD+27, FLD+10*, FLD+12
HLDCOM EN+3~, EN+4*, EN+5*
HRX EX+2!
I EN*, EN+5*, EX+1!
IR EX+1!
JJ EN+60*, EX+2!
LFD EX+1!
MWPR EN+38~*, EN+39*, EN+41
NEW1 EN+59*, EX+1!
NEW11 EN+59*, EX+1!
NOW EX+1!
>> ORN EX, D1
OTHCOM EN+7*, EN+50, EN+51, EN+53, RXACT~, RXACT+5*, RXACT+6
>> PCOMH( EN+64*
PI AR+1*, AR+2!
PPL EX+1!, AR+1
PSDA EN+33, AR+1!
PSHLD EX+2!
PSL EX+1!
PSNP EX+1!
>> PSOBEDT UHLD+4, HLD+1
>> PSODFN UHLD+6, HLD+4, ULP+1
>> PSOFROM UHLD+2*
PSOHRL EN+62, EX+1!, RELC+1*, RELC+2*, RELC+3*
PSOHT RELC+1*, RELC+4!
PSOHTX RELC+1*, RELC+2, RELC+3, RELC+4!
PSOLIST EX+2!
>> PSOLST( EX, D1
PSOMSG UHLD+7!, EX+1!, HLD+5!, D1!
>> PSONACT UHLD+5, HLD+2
PSONOOR EN+55!, NOOR+2*, NOOR+3*, NOOR+4!, NOORX*
>> PSOPAR UHLD+3, EN+63
PSOPARKX MWPR+1~
PSOPARKX(0 MWPR+5
PSOPLCK UHLD+6*!, UHLD+7!, EX+1!, HLD+4*!, HLD+5!, D1!
>> PSORX("FILL D ATE" , EN+33*, EN+56*, EN+63, EX+2!
>> PSORX("PSOL" EN+80*, EN+81, EN+82*, EN+83*, AR+1
PSORX0 EX+2!
PSOTOPK EN+30*, EN+46*, EN+67, EX+2!
PSOUNHLD EN+10*, EN+33!
>> PSOX1 EN+81*
>> PSOX2 EN+81*, EN+82, EN+83
PSRXN EX+2!
>> PSXSYS EN+61
QTY EX+2!
REASON UHLD+1~, UHLD+11*, UHLD+12, RXACT~, RXACT+3
RESULTS MWPR+1~, MWPR+2*
RFDATE EX+1!
RFDT EX+2!
RFL EN+72~*, EN+74, EN+76, EN+77, EN+78, RXACT+1~, RXACT+2*, RXACT+6
RFN EX+1!, D1!
>> RLDT EN+11*, EN+12, EN+37*, EN+38, EN+39
>> RLDTP1 EN+37*
RSDT EN*, EN+13, EN+20, EN+21, EN+25, EN+26, D1!
RTN EX+1!
RX EN+72~*, EN+74, EN+76, EN+77, EN+78, RXACT~, RXACT+2, RXACT+5
RX0 EX+1!
RXF EN*, EN+9, EN+10, EN+30, EN+31, EN+38, EN+46, EN+47, EN+51, EN+56
, EN+60*, EX+2!, MWPR+7
>> RXFL( EN+60*, EN+71, EN+72
RXIEN UHLD+1~, EN+1*, EN+4, EN+10, EN+30, EN+31, EN+32, EN+36, EN+37, EN+39
, EN+46, EN+47, EN+51, EN+53, EN+55, EN+56, EN+57, EN+60, EN+62, EN+64
, EN+65, EN+66, EN+67, EN+71, EN+72, EN+80, EN+82, EN+83, MWPR+6, MWPR+7
RXN EX+1!
RXP EX+1!
>> RXRH( EN+65*
>> RXRP( EN+66*
RXS EX+1!
ST EX+1!, HLD+10*, HLD+12!
STA UHLD+8*, UHLD+9!, UHLD+10!, UHLD+12!, EX+2!, HLD+6*, HLD+10, HLD+11
SUS RXACT~, RXACT+3
SUSPT EX+1!
TD EN+14~*, EN+21~*, EN+26~*
>> VALMBCK UHLD+4*, UHLD+5*, UHLD+6*, UHLD+7*, UHLD+9*, UHLD+10*, UHLD+13*, EN+40*, EN+41*, EN+45*
, HLD+1*, HLD+2*, HLD+3*, HLD+4*, HLD+5*, HLD+7*, HLD+12*, AR*
>> VALMSG UHLD+4*, UHLD+5*, UHLD+6*, UHLD+7*, UHLD+9*, UHLD+10*, UHLD+13*, UHLD+16*, HLD+1*, HLD+2*
, HLD+3*, HLD+4*, HLD+5*, HLD+7*, HLD+12*
X EN+7, EX+1!, D1!, RXACT+1~, RXACT+7*
XFLAG EN+61, EX+1!, HLD+14!
Y UHLD+9!, UHLD+10!, UHLD+12!, EN+9!, EN+14~*, EN+19, EN+21~*, EN+26~*, EN+29, EN+33
, EN+40, EN+43, EN+45, EX+1!, HLD+12!, HLD+26, HLD+27, HLD+28, D1!, FLD+10
, FLD+12, NOORX, RXACT+1~
Y(0 UHLD+8*, HLD+6*, HLD+12, FLD+11
>> ZD( EN+32*, EN+56

Marked Items

Name Field # of Occurrence
$T(NA^ORX1 NOOR+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 |  Marked Items  | All