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 ; 7/23/09 1:16pm

Source Information

Source file <PSOHLD.m>

Call Graph

Call Graph

Call Graph Total: 20

Package Total Call Graph
Outpatient Pharmacy 12 ($$LSTRFL,ECMESND)^PSOBPSU1  $$SUBMIT^PSOBPSUT  ^PSOBUILD  (HLD,UNHOLD)^PSOCMOPA  (HOLD,RMP)^PSOHLDA  EN^PSOHLSN1  ^PSOLSET  LOCK^PSOORCPY  
$$PSOET^PSOREJP3  $$HDLG^PSOREJU1  $$FIND^PSOREJUT  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

External References

Name Field # of Occurrence
FILE^DICN RXACT+7
^DIE EN+16, EN+18, EN+23, EN+35, EN+40
$$GET1^DIQ UHLD+11, EN+4, EN+24, EN+36
^DIR EN+6, HLD+26, HLD+27, HLD+28, FLD+10, FLD+12, NOORX
$$NA^ORX1 NOOR+2
NA^ORX1 NOOR+1
$$LSTRFL^PSOBPSU1 RXACT+2
ECMESND^PSOBPSU1 EN+62
$$SUBMIT^PSOBPSUT EN+59
^PSOBUILD EX, AR+2
HLD^PSOCMOPA HLD+14
UNHOLD^PSOCMOPA EN+50
HOLD^PSOHLDA H+1
RMP^PSOHLDA AR+1
EN^PSOHLSN1 UHLD+17, EN+44, HLD+9
^PSOLSET UHLD+3
LOCK^PSOORCPY UHLD+6, HLD+4
$$PSOET^PSOREJP3 EN+64
$$HDLG^PSOREJU1 EN+66
$$FIND^PSOREJUT EN+65
S^PSORXL EN+52
$$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+35
    • EN+40
Routine Call
  • DIR
  • Line Location:
    • EN+6
    • HLD+26
    • HLD+27
    • HLD+28
    • FLD+10
    • FLD+12
    • NOORX

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
^DD(52 HLD+15, HLD+27, FLD, FLD+12
^PSRX - [#52] UHLD+8, UHLD+15, UHLD+16*, UHLD+17*, EN, EN+11, EN+25, EN+26, EN+29, EN+30
, EN+32, EN+45, EN+46*, EN+49, EN+55*, HLD+6, HLD+7, HLD+8*, HLD+9, RELC+1
, RELC+2, RELC+3
^PSRX("AH" EN+45!
^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+35, EN+50, EN+51, EN+52, EN+59
, EN+68
H AR+1
NOOR UHLD+14, HLD+13
RELC EN+51
RXACT EN+42
ULP UHLD+7, UHLD+9, UHLD+10, UHLD+12, UHLD+14, UHLD+15, EN+6, EN+9, EN+35, EN+50
, EN+51, EN+52, EN+59, EN+68, EN+73, 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+29*, EX+1!, D1!
ACTION EN+58~, EN+59, EN+61*, EN+64*, EN+66*, RXACT~, RXACT+3, RXACT+4, RXACT+6
>> BINGCRT EN+24*, EN+36*
>> BINGRTE EN+24*, EN+36*
C EX+1!
COMM UHLD+17*!, EN+44*!, 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+25, EN+26*, EN+40~*, EN+45, EN+61~, 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+25, EN+26!, EN+40*, 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+29*, EN+40~*, 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!
DIR("A" EN+6*, HLD+15*, HLD+27*, HLD+28*, FLD*, FLD+12*, NOOR+5*
DIR("B" NOOR+5*
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*
DIROUT D1!
DIRUT UHLD+14!, EX+1!, HLD+13, HLD+26!, AR!, D1!, FLD+10, FLD+12, NOOR+1!, NOOR+4*
, NOORX
DLAYGO RXACT+1~, RXACT+5*
DO RXACT+1~
DQ EX+1!
DR EN+15*, EN+17*, EN+22*, EN+30*, EN+31*, EN+32*, EN+33*, EN+40~*, EX+1!, RXACT+1~
DT UHLD+15, EN+13, EN+14, EN+20, EN+29, EN+52, HLD+6
DTOUT UHLD+14!, EN+6!, AR, D1!, NOOR+1!, NOORX!
DUOUT UHLD+14!, EN+6!, EX+1!, HLD+26!, AR!, D1!, FLD+10, FLD+12
DUZ UHLD+10, UHLD+12, HLD+3, HLD+17, FLD+2, NOOR+2, NOOR+6, RXACT+6
FDT EN+29*, EN+35!
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+49*, EX+2!
LFD EX+1!
NEW1 EN+48*, EX+1!
NEW11 EN+48*, EX+1!
NOW EX+1!
>> ORN EX, D1
OTHCOM EN+7*, EN+39, EN+40, EN+42, RXACT~, RXACT+5*, RXACT+6
>> PCOMH( EN+53*
PI AR+1*, AR+2!
PPL EX+1!, AR+1
PSDA EN+26, 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+51, 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+44!, NOOR+2*, NOOR+3*, NOOR+4!, NOORX*
>> PSOPAR UHLD+3, EN+52
PSOPLCK UHLD+6*!, UHLD+7!, EX+1!, HLD+4*!, HLD+5!, D1!
>> PSORX("FILL D ATE" , EN+26*, EN+45*, EN+52, EX+2!
>> PSORX("PSOL" EN+68*, EN+69, EN+70*, EN+71*, AR+1
PSORX0 EX+2!
PSOUNHLD EN+10*, EN+26!
>> PSOX1 EN+69*
>> PSOX2 EN+69*, EN+70, EN+71
PSRXN EX+2!
>> PSXSYS EN+50
QTY EX+2!
REASON UHLD+1~, UHLD+11*, UHLD+12, RXACT~, RXACT+3
RFDATE EX+1!
RFDT EX+2!
RFL EN+60~*, EN+62, EN+64, EN+65, EN+66, RXACT+1~, RXACT+2*, RXACT+6
RFN EX+1!, D1!
>> RLDT EN+11*, EN+12, EN+30*, EN+31, EN+32
>> RLDTP1 EN+30*
RSDT EN*, EN+13, EN+20, EN+21, D1!
RTN EX+1!
RX EN+60~*, EN+62, EN+64, EN+65, EN+66, RXACT~, RXACT+2, RXACT+5
RX0 EX+1!
RXF EN*, EN+9, EN+10, EN+24, EN+31, EN+36, EN+40, EN+45, EN+49*, EX+2!
>> RXFL( EN+49*, EN+59, EN+60
RXIEN UHLD+1~, EN+1*, EN+4, EN+10, EN+24, EN+25, EN+29, EN+30, EN+32, EN+36
, EN+40, EN+42, EN+44, EN+45, EN+46, EN+49, EN+51, EN+53, EN+54, EN+55
, EN+59, EN+60, EN+68, EN+70, EN+71
RXN EX+1!
RXP EX+1!
>> RXRH( EN+54*
>> RXRP( EN+55*
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~*
>> VALMBCK UHLD+4*, UHLD+5*, UHLD+6*, UHLD+7*, UHLD+9*, UHLD+10*, UHLD+13*, EN+35*, 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+50, EX+1!, HLD+14!
Y UHLD+9!, UHLD+10!, UHLD+12!, EN+9!, EN+14~*, EN+19, EN+21~*, EN+26, EN+35, 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+25*, EN+45

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