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

Package: Outpatient Pharmacy

Routine: PSOCSRL


Information

PSOCSRL ;BIR/BHW-release interface for control substance pkg ;7/22/94

Source Information

Source file <PSOCSRL.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Outpatient Pharmacy 8 REL^PSOBING1  ($$MANREL,IBSEND)^PSOBPSUT  CS^PSOCMOPB  CP^PSOCP  EN^PSOHLSN1  EN^PSOHLUP  ^PSOLSET  IBSSR^PSOUTL  
VA Fileman 3 NOW^%DTC  ^DIE  ^DIR  
Integrated Billing 1 $$SERV^IBARX1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSDOPT1  

Entry Points

Name Comments DBIA/ICR reference
UPDATE
QTY
EX
ORI ;orig
ASK ;confirm
EN(RXP,XTYPE,PSRH) ;
REF ;release ref or par

External References

Name Field # of Occurrence
NOW^%DTC ORI+15, QTY+12
^DIE ORI+16, QTY+15
^DIR ASK+2
$$SERV^IBARX1 EN+6
REL^PSOBING1 ASK+8
$$MANREL^PSOBPSUT ORI+11, QTY+9
IBSEND^PSOBPSUT ORI+21, QTY+19
CS^PSOCMOPB EN+5
CP^PSOCP UPDATE+1, QTY+22
EN^PSOHLSN1 ORI+17, QTY+16
EN^PSOHLUP EN+11
^PSOLSET EN+3
IBSSR^PSOUTL EN+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?5,"Site Parameters must be defined to use the Release option!",!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !?7,$C(7),$C(7),$C(7)," NON-EXISTENT PRESCRIPTION"
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !?7,$C(7),$C(7)," PRESCRIPTION IS A DELETED PERSCRIPTION NUMBER"
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !!?7,$C(7),$C(7),"ORIGINAL PRESCRIPTION WAS LAST RELEASED ON "_Y,!
  • Line Location: ORI+1
Function Call: WRITE
  • Prompt: !,"Original Fill returned to stock on "_$E(RESK,4,5)_"/"_$E(RESK,6,7)_"/"_$E(RESK,2,3),!
  • Line Location: ORI+2
Function Call: WRITE
  • Prompt: $C(7),!!?7,$S($P(XTYPE,"^")=1:"RE",$P(XTYPE,"^")="P":"PARTIAL ",1:"ORIGINAL")_"FILL ON SUSPENSE !",!,$C(7)
  • Line Location: UPDATE+0
Function Call: WRITE
  • Prompt: !?7,"PRESCRIPTION NUMBER "_$P(^PSRX(RXP,0),"^")_" RELEASED"
  • Line Location: UPDATE+2
Routine Call
  • DIE
  • Line Location:
    • ORI+16
    • QTY+15
Routine Call
  • DIR
  • Line Location:
    • ASK+2

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" ORI+1
^PS(52.5 - [#52.5] ORI+5, QTY+2
^PS(55 - [#55] EN+11
^PS(59 - [#59] EN+6
^PS(59.7 - [#59.7] EN+8
^PSDRUG - [#50] ORI+13*, QTY+11*
^PSRX - [#52] EN+10, EN+11, EN+12, EN+13, ORI+1, ORI+2, ORI+3, ORI+4, ORI+7, ORI+14
, REF+1*, UPDATE+1, UPDATE+2, QTY, QTY+1, QTY+2, QTY+3, QTY+5, QTY+11, QTY+21
, QTY+22, QTY+23, ASK+2, ASK+5, ASK+6, ASK+7
^PSRX("ACP" QTY+21!
^XUSEC("PSORPH" EN+9

Label References

Name Line Occurrences
ASK ORI+8, QTY+6
EX EN+2, EN+6, EN+10, EN+12, EN+13, ORI+1, ORI+2, ORI+4, ORI+22, QTY+1
QTY REF+1
REF EN+14
UPDATE ORI+4, QTY+2

Naked Globals

Name Field # of Occurrence
^("STA" EN+13
^(0 ORI+7, QTY+3
^(2 ORI+2, ORI+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ORI+15, EX!, QTY+14
BINGDIV ASK+5*, ASK+8!
BINGNAM ASK+5*, ASK+6*, ASK+7*, ASK+8!
BINGRO ASK+5*, ASK+8!
BINGRPR ASK+6*, ASK+7*, ASK+8!
BNGPDV ASK+6*, ASK+8!
BNGRDV ASK+7*, ASK+8!
DA ORI+15*, ORI+16!, EX!, QTY+13*, QTY+15!
DA(1 QTY+13*
DIC EX!
DIE ORI+15*, ORI+16!, EX!, QTY+12*, QTY+15!
DIR EX+1!, ASK+1!, ASK+2!
DIR("A" ASK+1*, ASK+2*
DIR("B" ASK+1*
DIR(0 ASK+1*
DIRUT EX!, ASK+3
>> DISGROUP ASK+8
DR ORI+15*, ORI+16!, EX!, QTY+14*, QTY+15!
DTOUT EX+1!
DUOUT EX+1!
IFN REF+1!, EX!, QTY+3!, QTY+11*, QTY+22, QTY+23, QTY+24, QTY+25!
ISUF ORI+1!, ORI+4, ORI+5*, REF+1!, EX!, UPDATE, QTY+1!, QTY+2*, QTY+22
J EX!
LBL ORI+7*, ORI+16!, EX+1!, QTY+5*
LBLP ORI+1!, ORI+4, ORI+7*, ORI+8, ORI+11!, REF+1!, EX+1!, QTY!, QTY+1!, QTY+5*
, QTY+6, QTY+9!
NCPDP EN+1~
OUT EX!
PSIN EN+8*, ORI+4, EX!, QTY+1
PSOCPN ORI+3*, EX!, QTY*
PSOCPRX EX!, UPDATE+1*, QTY+22*
>> PSOCSUB EN+4*
PSODISPP QTY+16!*
PSOIBFL EN+6, EX!
PSOIBLP EX!
PSOIBSS EN+6*, EX!
PSOIBST EX!
>> PSOPAR EN+2, EN+3
>> PSOSITE EN+6
PSOUT ORI+4, ORI+8, EX+1!, QTY+1, QTY+6, ASK+3*
PSRH EN~, EN+9, ORI+15, EX!, QTY+14
QDRUG ORI+3*, ORI+13, EX!, QTY*, QTY+11
QTY ORI+3*, ORI+13, EX!, QTY+11*
REC EX!
RESK ORI+2*, EX!
RX2 EX!
RXFD ORI+4*, ORI+5, EX!, QTY+2*
RXP EN~, EN+5, EN+10, EN+11, EN+12, EN+13, ORI+1, ORI+2, ORI+3, ORI+4
, ORI+5, ORI+7, ORI+11, ORI+14, ORI+15, ORI+17, ORI+21, REF+1, EX!, UPDATE+1
, UPDATE+2, QTY, QTY+1, QTY+2, QTY+3, QTY+5, QTY+9, QTY+11, QTY+12, QTY+13
, QTY+16, QTY+19, QTY+21, QTY+22, QTY+23, ASK+2, ASK+5, ASK+6, ASK+7
SUPN ORI+5*, EX!, QTY+2*
X EX!
XFLAG EN+5!
XTYPE EN~, EN+14, REF+1, EX!, UPDATE, QTY+1, QTY+2, QTY+3, QTY+5, QTY+9
, QTY+11, QTY+12, QTY+13, QTY+14, QTY+16, QTY+19, QTY+21, QTY+22, QTY+23, QTY+24
, ASK+1, ASK+5, ASK+6, ASK+7
Y EN+6*, ORI+1*, EX!, ASK+3, ASK+5, ASK+6, ASK+7
>> YY QTY+22*
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