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

Package: Outpatient Pharmacy

Routine: PSOVEXRX


Information

PSOVEXRX ;BIRM/KML - PHARMACY TELEPHONE REFILLS ; July 31, 2023@18:05:28

Source Information

Source file <PSOVEXRX.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Outpatient Pharmacy 5 (ASK,PROCESSX,PT,PTC,REFILL)^PSOBBC  (,FINAL)^PSOLSET  PROFILE^PSORX1  $$TITRX^PSOUTL  ($$TILDECHK,PSOBLD,SETVEN)^PSOVEXR1  
VA FileMan 3 FILE^DIE  $$GET1^DIQ  ^DIR  
MailMan 1 ^XMD  
Order Entry Results Reporting 1 RENEW^ORAREN  
Pharmacy Data Management 1 (PSOL,PSOUL)^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: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSO PROCESS TELEPHONE REFILLS  

Entry Points

Name Comments DBIA/ICR reference
START ;
PSOX
PSO6
PSO3 ; avoid skipping renewal requests.
PSO5 ; Mark the node as processed.
PSO7(PSORXIEN,PSOTILDE) ; Add skipped prescriptions due to tilde error to the report
; input = PSORXIEN - ien of RX in PRESCRIPTION file (#52)
; input = PSOTILDE - string representing the results of Tilde check
; first piece = 1 or 0; where 1 means it's an RX with a Tilde in the dosage form
; second piece = 1 or 0; where 1 means it's a controlled substance RX
;
PSO7X ;
PSO12 ; refill not processed.
END
ULK ; unlock a record.
RENEWCHK ; Checks ^PS(52.444 node for renewal information
BFDRNCHK ; There is data in global - is it date or renewal request
SUMM ; display summary of refills processed

External References

Name Field # of Occurrence
FILE^DIE PSO5+3, PSO12+4, RENEWCHK+8, RENEWCHK+9
$$GET1^DIQ PSOX+2, PSOX+4, END+2, END+9, END+10
^DIR START+15, PSOXPSOX+10, PSO7X+5, PSO12+11, SUMM+6
RENEW^ORAREN RENEWCHK+6
ASK^PSOBBC START+20
PROCESSX^PSOBBC PSO6+9, END
PT^PSOBBC PSO6+10
PTC^PSOBBC PSO6+11
REFILL^PSOBBC PSO6+16, PSO6+19
^PSOLSET START+16
FINAL^PSOLSET END+11
PROFILE^PSORX1 PSO6+12
$$TITRX^PSOUTL PSO6+22
$$TILDECHK^PSOVEXR1 PSO3+11
PSOBLD^PSOVEXR1 PSOVEXRX+8
SETVEN^PSOVEXR1 PSOVEXRX+11
PSOL^PSSLOCK PSO3+15
PSOUL^PSSLOCK ULK+3
^XMD END+6, END+9, END+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No telephone refills were processed."
  • Line Location: PSOVEXRX+12
Function Call: WRITE
  • Prompt: !,"Looking for refill requests for inactive Outpatient divisions..."
  • Line Location: START+6
Function Call: WRITE
  • Prompt: ".none found.",!
  • Line Location: START+13
Function Call: WRITE
  • Prompt: !?5,$P($G(^PS(59,+$G(PSOVX),0)),"^")
  • Line Location: START+14
Function Call: WRITE
  • Prompt: !!!?20,"Division: "_$P(^PS(59,PSOSITE,0),"^"),!!
  • Line Location: START+17
Function Call: WRITE
  • Prompt: !!,"There are no telephone refills to process for the selected division."
  • Line Location: START+19
Function Call: WRITE
  • Prompt: !
  • Line Location: PSOX+0
Function Call: WRITE
  • Prompt: !?7,$C(7),"No telephone refills were processed."
  • Line Location: PSOX+0
Function Call: WRITE
  • Prompt: !?7,$C(7),"No telephone refills were processed."
  • Line Location: PSOX+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PSOX+6
Function Call: WRITE
  • Prompt: !,"There are no requests for your selected division."
  • Line Location: PSOX+11
Function Call: WRITE
  • Prompt: !?7,$C(7),$C(7),$C(7),"Not from this institution.",!
  • Line Location: PSO6+3
Function Call: WRITE
  • Prompt: !,$C(7),"Rx data is not on file!",!
  • Line Location: PSO6+6
Function Call: WRITE
  • Prompt: !,$C(7),"Rx has already been deleted."
  • Line Location: PSO6+7
Function Call: WRITE
  • Prompt: !,$C(7),"Rx has already been entered."
  • Line Location: PSO6+8
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: PSO6+10
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: PSO6+11
Function Call: WRITE
  • Prompt: !!,"There are NO telephone refills to process."
  • Line Location: PSO3+17
Function Call: WRITE
  • Prompt: !,LN,!,"Prescription: RX # "_$P(^PSRX(PSORXIEN,0),U)_" Processed",!
  • Line Location: PSO5+8
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: PSO7+19
Function Call: WRITE
  • Prompt: !,TXT(XX)
  • Line Location: PSO7+20
Function Call: WRITE
  • Prompt: !
  • Line Location: PSO7+21
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: PSO7+32
Function Call: WRITE
  • Prompt: !,TXT(XX)
  • Line Location: PSO7+33
Function Call: WRITE
  • Prompt: !
  • Line Location: PSO7X+2
Function Call: WRITE
  • Prompt: !,"Prescription REFILL, RX # "_$P(^PSRX(PSORXIEN,0),U)_", was not processed. ",!," PLEASE TAKE APPROPRIATE ACTION."
  • Line Location: PSO12+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PSO12+11
Function Call: WRITE
  • Prompt: !!,"Your Outpatient Site parameters have been deleted because you selected an",!,"inactive Outpatient Site!",!
  • Line Location: END+11
Function Call: WRITE
  • Prompt: !,LN,!,$C(7),"Prescription Renewal Request, RX # "_$P(^PSRX(PSORXIEN,0),U)_", was not sent to the provider. ",!," PLEASE TAKE APPROPRIATE ACTION."
  • Line Location: RENEWCHK+11
Function Call: WRITE
  • Prompt: !!!,"TELEPHONE REFILL/RENEW SUMMARY",!!
  • Line Location: SUMM+9
Routine Call
  • DIE
  • Line Location:
    • PSO5+3
    • PSO12+4
    • RENEWCHK+8
    • RENEWCHK+9
Routine Call
  • DIR
  • Line Location:
    • START+15
    • PSOX
    • PSOX+10
    • PSO7X+5
    • PSO12+11
    • SUMM+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(59 - [#59] GET1^DIQ
^PS(59.7 - [#59.7] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.444 - [#52.444] START+8, START+9, START+10, START+12, START+19, PSOX+11, PSO6PSO3+2, PSO3+5, PSO3+6
PSO3+7, PSO3+9, PSO5+2, RENEWCHK+5
^PS(59 - [#59] START+5, START+14, START+17, END+11
^PSRX - [#52] START+11, PSO6+6, PSO6+7, PSO6+10, PSO6+18, PSO3+4, PSO3+12, PSO5+8, PSO7+11, PSO7+25
PSO12+5, RENEWCHK+11
^TMP("PSOFILLED" START+3!, PSO3+6*
^TMP($J START+3!, PSO7+9, PSO7+10*, PSO7+11*, PSO7+12*, PSO7+13*, PSO7+14*, PSO7+15*, PSO7+16*, PSO7+17*
, PSO7+18*, PSO7+23, PSO7+24*, PSO7+25*, PSO7+26*, PSO7+27*, PSO7+28*, PSO7+29*, PSO7+30*, PSO7+31*
END+7, END+9, END+10

Label References

Name Line Occurrences
BFDRNCHK PSO3+9
END PSO6+1, PSO6+2
PSO12 PSO5+5
PSO3 PSO6+2
PSO5 PSO6PSO3+12
PSO6 PSO6+3, PSO6+4, PSO6+6, PSO6+7, PSO6+8, PSO6+10, PSO6+11, PSO6+23
PSO7 PSO3+11
PSO7X PSO7+8
RENEWCHK PSO3+14
START PSOVEXRX+9
SUMM PSOVEXRX+10
ULK PSO6+1, PSO6+2, PSO6+3, PSO6+6, PSO6+7, PSO6+8, PSO6+10, PSO6+11, PSO6+23

Naked Globals

Name Field # of Occurrence
^("I" START+5, END+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR START+2~, PSOX!, PSOX+10!, PSO7X+5!, PSO12+12!, END+12!, SUMM+6!
DIR("?" PSOX+7*, PSOX+8*, PSOX+9*, PSO7X+3*, PSO7X+4*, PSO12+6*, PSO12+7*, PSO12+8*, PSO12+9*, PSO12+10*
SUMM+3*, SUMM+4*, SUMM+5*
DIR("A" START+15*, PSOX*, PSOX+5*, PSO7X+2*, PSO12+11*, SUMM+1*
DIR("B" PSOX*, PSOX+5*, PSO12+11*, SUMM+2*
DIR("T" START+15*, PSOX*, PSOX+5*, PSO7X+2*, PSO12+11*
DIR(0 START+15*, PSOX*, PSOX+5*, PSO7X+2*, PSO12+11*, SUMM+2*
DIRUT PSOXPSOX+4, END+12!, SUMM+7
DT START+5, PSO5+3, END+11, RENEWCHK+8
DTIME START+15, PSOXPSOX+5, PSO7X+2, PSO12+11
DUOUT PSO3+11, END+12!
DUZ END+2, END+8
FDA PSO5+1!, PSO12+1!, RENEWCHK+1!
FDA( PSO5+3*, PSO12+4*, RENEWCHK+8*, RENEWCHK+9*
IENS PSO5+1!, PSO5+3*, PSO12+1!, PSO12+3*, PSO12+4, RENEWCHK+1!, RENEWCHK+8*, RENEWCHK+9*
LAST PSO7+6~, PSO7+9*, PSO7+10*, PSO7+11, PSO7+12, PSO7+13, PSO7+14, PSO7+15, PSO7+16, PSO7+17
, PSO7+18, PSO7+23*, PSO7+24*, PSO7+25, PSO7+26, PSO7+27, PSO7+28, PSO7+29, PSO7+30, PSO7+31
LN START+2~, PSOX+13*, PSO6+10, PSO6+11, PSO5+8, PSO7+19, PSO7+32, RENEWCHK+11
PRINT PSOVEXRX+12, START+2~, SUMM+8*, SUMM+9
PSO648 START+2~, PSO3+9*, PSO3+12, PSO3+13, BFDRNCHK+2*, BFDRNCHK+4*
PSOANS START+1~, START+19*, PSOX*, PSOX+1*, PSOX+4*, PSO6PSO6+1, PSO6+2, PSO3+2, PSO3+3*
PSO3+11*, PSO3+13, PSO12+12*
PSOANS2 START+1~, PSOX+3*, PSOX+10*, PSOX+11, PSO3+4, END+2, END+9, END+10
PSOBBC START+2~, END+12!
PSOBBC("DFLG" START+18*, PSO6+10, PSO6+11, PSO6+22*, PSO5+5, PSO5+8
PSOBBC("DONE" PSO6+8, PSO6+21*
PSOBBC("IRXN" PSO6+5*, PSO6+6, PSO6+7, PSO6+8, PSO6+10, PSO6+21, PSO6+22, PSO3+2!
PSOBBC("OIRXN" PSO6+5*
PSOBBC("PSOVEXRX" PSO6+18*, PSO6+20!
PSOBBC("QFLG" START+18*, START+20, PSO6+9
PSOBBC1 START+2~, END+12!
PSOBBC1("FROM" START+18*
PSOCNT PSOVEXRX+12, START+2~, PSOX+13*, PSO3+8*, PSO3+17
PSOCNT1 START+2~, START+4*, PSOX+12*, RENEWCHK+10*
PSODFN START+1~, PSO6+10, RENEWCHK+5*, RENEWCHK+6
PSOISITE START+2~, START+11*, START+12
PSOKPK START+2~, PSO6+15*, PSO5+4*
PSOMSG PSO3+15!, PSO3+16!
PSONO START+1~, PSOX+11*
PSONRF START+1~, START+4*, PSO12+2*, END+3
PSONRFLG START+1~, START+4*, PSO5+6, PSO5+7*, PSO12+2*
PSOPAR START+1~, START+16
PSOPP PSO3+1~, PSO3+2!
PSOPROVP START+1~, RENEWCHK+3*, RENEWCHK+6
PSOPTRAD START+1~, PSOX+2*, PSOX+5
>> PSOQUIT START+16
PSOREFLG START+1~, PSO5+3, PSO5+6, RENEWCHK+2*, RENEWCHK+7*
PSOREN START+1~, PSO3+9*, PSO3+11, RENEWCHK+3, BFDRNCHK+2, BFDRNCHK+4
PSORENEW START+1~, PSO6+4*, PSO3+14, RENEWCHK+3*, RENEWCHK+4, RENEWCHK+6
PSORET PSO7+6~
PSORFY START+1~, START+4*, PSO5+6*, END+3
PSORSULT START+2~, PSO5+8, RENEWCHK+2*, RENEWCHK+6, RENEWCHK+9, RENEWCHK+10, RENEWCHK+11, RENEWCHK+12
PSORX START+2~, PSO6+1*, PSO6+2*, PSO6+3*, PSO6+6*, PSO6+7*, PSO6+8*, PSO6+10*, PSO6+11*, PSO6+23*
PSO3+15*!, ULK+2, ULK+3, ULK+4, ULK+5!
PSORX("FILL D ATE" , ULK+6*
PSORX("MAIL/WINDOW" ULK+6*
PSORX("METHOD OF PICK-UP" , ULK+6*
PSORXEN START+1~, PSO6*, PSO3+5*, PSO3+6, PSO3+7, PSO3+9, PSO3+11, PSO5+2, PSO5+3, PSO12+3
RENEWCHK+5, RENEWCHK+8, RENEWCHK+9
PSORXIEN START+1~, START+10*, START+11, PSOX+1*, PSO6PSO6+1, PSO6+2, PSO6+3, PSO6+5, PSO6+6
PSO6+7, PSO6+8, PSO6+10, PSO6+11, PSO6+18, PSO6+23, PSO3+2*, PSO3+3, PSO3+4, PSO3+5
PSO3+6, PSO3+11, PSO3+12, PSO3+15, PSO5+2*, PSO5+8, PSO7~, PSO7+11, PSO7+25, PSO12+5
RENEWCHK+5*, RENEWCHK+6, RENEWCHK+11
PSORXN START+2~, START+8*, START+9, START+10, START+12
PSOSELSE PSO6+10*!, PSO6+11!, PSO6+12!
PSOSITE START+2~, START+17, START+19, PSOX+2, PSOX+11, PSO6+3, PSO6+18~*, PSO3+4, END+2, END+9
END+10, END+11
>> PSOSYS PSO6+16
PSOTILDE START+2~, PSO3+11*!, PSO7~, PSO7+8
PSOTOTF START+2~, START+4*, PSO7X+1*, END+5, RENEWCHK+11*
PSOTTREN START+2~, START+4*, END+4, RENEWCHK+12*
PSOVEXFL START+2~, START+12*, START+13, START+14, START+15
PSOVEXI START+2~
PSOVEXI( START+5*, START+7, START+11, START+12*, START+14
PSOVEXI(0 START+6, START+13
PSOVX START+1~, START+5*, START+7*, START+8, START+12, START+14*
PSOXFLAG START+1~, PSO3+2!, PSO3+14*, PSO3+16*
QUIT PSOVEXRX+6~, PSOVEXRX+7*, PSOVEXRX+8, PSOVEXRX+9, PSOVEXRX+10, START+15*, START+16*, START+19*, START+20*, PSOX*
PSOX+4*, SUMM+7*
SAVE ULK+1~, ULK+4*
SAVE("FILL DA TE" , ULK+6
SAVE("MAIL/WINDOW" ULK+6
SAVE("METHOD OF PICK-UP" , ULK+6
TXT PSO7+6~
TXT( PSO7+20, PSO7+33
TXT(1 PSO7+11*, PSO7+25*
TXT(2 PSO7+12*, PSO7+26*
TXT(3 PSO7+13*, PSO7+27*
TXT(4 PSO7+14*, PSO7+28*
TXT(5 PSO7+15*, PSO7+29*
TXT(6 PSO7+16*, PSO7+30*
TXT(7 PSO7+17*, PSO7+31*
TXT(8 PSO7+18*
U START+9, PSO6+18, PSO3+6, PSO3+7, PSO3+9, PSO3+11, PSO5+2, PSO5+8, PSO7+11, PSO7+25
PSO12+5, RENEWCHK+5, RENEWCHK+11
>> UNPARK PSO6+22
X PSO6+9!
XMDUZ END+1~, END+2*, END+7~, END+9*, END+10*
XMSUB END+1~, END+2*, END+7~, END+9*, END+10*
XMT END+1~
XMT(1 END+3*
XMT(2 END+3*
XMT(3 END+4*
XMT(4 END+4*
XMT(5 END+5*
XMTEXT END+1~, END+2*, END+7~, END+9*, END+10*
XMY END+1!, END+7!
XMY( END+2*, END+8*
XMY("G.AUTORENEWAL" END+2*, END+9*, END+10*
XX PSO7+6~, PSO7+20*, PSO7+33*
Y START+15, PSOXPSOX+1, PSOX+10, PSO6+9!, PSO12+12, SUMM+8
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