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

Package: Outpatient Pharmacy

Routine: PSORENW4


Information

PSORENW4 ;BIR/SAB - rx speed renew ;Oct 20, 2022@15:42

Source Information

Source file <PSORENW4.m>

Call Graph

Call Graph

Call Graph Total: 28

Package Total Call Graph
Outpatient Pharmacy 21 ^PSOBUILD  $$CLKEYWRN^PSOCLUTL  ($$SLDEA,PROV)^PSODIR  (DAYS,PTSTAT,QTY,REFILL)^PSODIR1  (CLINIC,FILLDT,ISSDT,MW)^PSODIR2  SET^PSODRG  ($$CHKERX,$$PROVPMT)^PSOERXU1  EN^PSOHLSN1  
(DAOC,NOORE)^PSONEW  DCORD^PSONEW2  LOCK^PSOORCPY  VER1^PSOORNE4  BLD^PSOORUT1  $$LMREJ^PSOREJU1  (CAN,CHECK,DRUG,FILDATE,RXN)^PSORENW0  (KLIB,SETIB,STOP)^PSORENW1  
DSPLY^PSORENW3  EN^PSORN52  ($$CHKRXPRV,$$MAXNUMRF,$$RXDEA,RNPSOSD,SUSDATEK)^PSOUTIL  ($$CSRX,$$TITRX)^PSOUTL  CLEAN^PSOVER1  
Kernel 2 ($$FMADD,$$FMTE)^XLFDT  NS^XQORM4  
VA FileMan 2 $$GET1^DIQ  ^DIR  
List Manager 1 (FULL,PAUSE)^VALM1  
Order Entry Results Reporting 1 (LK,ULK)^ORX2  
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: 2

Package Total Caller Graph
Kernel 1 ^ORD(101  
Outpatient Pharmacy 1 PSO SPEED RENEW  

Entry Points

Name Comments DBIA/ICR reference
SEL
SELQ ;
RXCS(RXIEN) ; Return the CS Federal Schedule associated with Rx# RXIEN
DRGCS(DRGIEN) ; Return the CS Federal Schedule associated with Drug File entry DRGIEN
PROCESS ; Process one order at a time
DSPL
PROCESSX ;
INIT ;
ASK ;upfront questions
POZ ;

External References

Name Field # of Occurrence
$$GET1^DIQ SEL+16, SEL+17, SEL+19, SEL+21, SEL+36, SEL+37, RXCS+2, DRGCS+3, PROCESS+5, PROCESS+7
, PROCESS+9, PROCESS+12, PROCESS+15, PROCESS+23, PROCESS+25, PROCESS+27, PROCESS+29, PROCESS+34
^DIR SEL+7, SEL+22, ASK+8, POZ+1
LK^ORX2 SEL+5
ULK^ORX2 SELQ+2
^PSOBUILD SEL+50
$$CLKEYWRN^PSOCLUTL PROCESS+65
$$SLDEA^PSODIR PROCESS+17
PROV^PSODIR ASK+11
DAYS^PSODIR1 ASK+6
PTSTAT^PSODIR1 ASK+5
QTY^PSODIR1 DSPL+7
REFILL^PSODIR1 ASK+7
CLINIC^PSODIR2 ASK+10
FILLDT^PSODIR2 ASK+3
ISSDT^PSODIR2 ASK+1
MW^PSODIR2 ASK+2
SET^PSODRG PROCESS+17
$$CHKERX^PSOERXU1 PROCESS+30
$$PROVPMT^PSOERXU1 PROCESS+31
EN^PSOHLSN1 PROCESSX+13, PROCESSX+14
DAOC^PSONEW PROCESSX+19
NOORE^PSONEW INIT+2
DCORD^PSONEW2 DSPL+10
LOCK^PSOORCPY SEL+4
VER1^PSOORNE4 DSPL+6
BLD^PSOORUT1 SEL+50
$$LMREJ^PSOREJU1 PROCESS+4
CAN^PSORENW0 DSPL+10
CHECK^PSORENW0 PROCESS+75
DRUG^PSORENW0 PROCESS+77
FILDATE^PSORENW0 PROCESS+76
RXN^PSORENW0 PROCESS+78
KLIB^PSORENW1 PROCESS+61, PROCESSX+10
SETIB^PSORENW1 PROCESS+40
STOP^PSORENW1 PROCESS+79
DSPLY^PSORENW3 DSPL+5
EN^PSORN52 DSPL+8
$$CHKRXPRV^PSOUTIL PROCESS+10
$$MAXNUMRF^PSOUTIL PROCESS+25, DSPL+3
$$RXDEA^PSOUTIL PROCESS+17
RNPSOSD^PSOUTIL DSPL+9
SUSDATEK^PSOUTIL PROCESSX+6
$$CSRX^PSOUTL PROCESS+13, PROCESS+33
$$TITRX^PSOUTL PROCESS+6
CLEAN^PSOVER1 SELQ+2, PROCESSX+4
$$L^PSSLOCK SEL+4
PSOL^PSSLOCK PROCESS+36
PSOUL^PSSLOCK PROCESS+61, PROCESSX+9
UL^PSSLOCK SEL+5, SELQ+2
FULL^VALM1 SEL+10, PROCESS+14
PAUSE^VALM1 SEL+38, PROCESS+4, PROCESS+6, PROCESS+11, PROCESS+22, PROCESS+26, PROCESS+33, PROCESS+36
$$FMADD^XLFDT PROCESS+33
$$FMTE^XLFDT PROCESS+34
NS^XQORM4 SEL+20

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$GET1^DIQ(50,PSDRGIEN,.01)
  • Line Location: SEL+19
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+34
Function Call: WRITE
  • Prompt: $C(7),!," Cannot renew Rx # "_$$GET1^DIQ(52,ORD,.01)_", Rx is in "_PSOSTA_" status."
  • Line Location: SEL+37
Function Call: WRITE
  • Prompt: $C(7),!!,"Rx# "_$$GET1^DIQ(52,PSORXIEN,.01)_" has OPEN/UNRESOLVED 3rd Party Payer Rejects!"
  • Line Location: PROCESS+5
Function Call: WRITE
  • Prompt: $C(7),!!,"Rx# "_$$GET1^DIQ(52,PSORXIEN,.01)_" is marked as 'Titration Rx' and cannot be renewed."
  • Line Location: PROCESS+7
Function Call: WRITE
  • Prompt: $C(7),!!,"Rx# "_$$GET1^DIQ(52,PSORXIEN,.01)_" - "_$P(PSOCHECK,"^",3)
  • Line Location: PROCESS+12
Function Call: WRITE
  • Prompt: $C(7),!!,"Rx# "_$$GET1^DIQ(52,PSORXIEN,.01)_" - "_$P(PSOCHECK,"^",3)
  • Line Location: PROCESS+23
Function Call: WRITE
  • Prompt: $C(7),!!,"Rx# "_$$GET1^DIQ(52,PSORXIEN,.01)_" - # of Refills requested exceeds maximum allowed ("_MAXNUMRF_") for this Rx"
  • Line Location: PROCESS+27
Function Call: WRITE
  • Prompt: $C(7),!!,"Rx# "_$$GET1^DIQ(52,PSORXIEN,.01)_" - Rx is for a CS Drug and the Issue Date entered ("_$$FMTE^XLFDT(PSORENW("ISSUE DATE"))_") is",!,"greater than 6 months."
  • Line Location: PROCESS+34
Function Call: WRITE
  • Prompt: $C(7),!!,"Only providers with DEA# or a VA# can write prescriptions for clozapine.",!
  • Line Location: PROCESS+63
Function Call: WRITE
  • Prompt: $C(7),!!,$$CLKEYWRN^PSOCLUTL,!
  • Line Location: PROCESS+65
Function Call: WRITE
  • Prompt: !!,"Now Renewing Rx # "_PSORENW("ORX #")_" Drug: "_$P($G(^PSDRUG(+$G(PSORENW("DRUG IEN")),0)),"^"),!
  • Line Location: PROCESS+70
Function Call: WRITE
  • Prompt: !,$C(7),"Rx NOT RENEWED. RENEWED RX DELETED",!
  • Line Location: PROCESSX+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK+1
Routine Call
  • DIR
  • Line Location:
    • SEL+7
    • SEL+22
    • ASK+8
    • POZ+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] GET1^DIQ
^PSRX - [#52] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.7 - [#50.7] PROCESS+72
^PSDRUG - [#50] PROCESS+15, PROCESS+61, PROCESS+70, PROCESS+71
^PSRX - [#52] SEL+31, PROCESS+36, PROCESS+38, PROCESS+39, PROCESS+47, PROCESS+52, PROCESS+54, PROCESS+59, PROCESS+67, PROCESS+68
, PROCESS+69, PROCESS+72, DSPL+3, DSPL+12, PROCESSX+14, PROCESSX+18
^PSRX("B" DSPL+12
^TMP("PSODAOC" PROCESSX+16, PROCESSX+17!, PROCESSX+20!
^TMP("PSORXN" PROCESSX+12, PROCESSX+13, PROCESSX+20!
^VA(200 - [#200] PROCESS+44, PROCESS+62
^XUSEC("PSORPH" DSPL+6
^XUSEC("YSCL AUTHORIZED" PROCESS+64

Label References

Name Line Occurrences
$$DRGCS RXCS+3, PROCESS+16
ASK INIT+1
INIT SEL+44
POZ PROCESS+61, PROCESS+74, PROCESSX+4
PROCESS SEL+46
PROCESSX PROCESS+71, PROCESS+75, PROCESS+77, PROCESS+78, DSPL+5, DSPL+6, DSPL+7
SELQ SEL+8, SEL+41, SEL+48

Naked Globals

Name Field # of Occurrence
^("OR1" PROCESS+72
^("STA" PROCESS+38
^("TN" PROCESS+38
^(2 PROCESS+38
^(3 PROCESS+38

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BBFLG DSPL!, DSPL+12*
BBRN DSPL+12*, PROCESSX+7!
BBRN1 DSPL+12*, PROCESSX+7!
BBRX DSPL!
BBRX(1 DSPL+12*
BINGCRT DSPL!, DSPL+12*
BINGRTE DSPL!, DSPL+12*
>> CLOZPAT PROCESS+25, DSPL+3
DEA DSPL+1*, DSPL+11!
DIR SEL+6!, SEL+8!, SEL+20~, SEL+50!, PROCESS+4!, PROCESS+6!, PROCESS+11!, PROCESS+22!, PROCESS+26!, PROCESS+33!
, PROCESS+36!, ASK+8!, ASK+9!, POZ+1!
DIR("A" SEL+7*, SEL+22*, ASK+8*, POZ+1*
DIR("B" ASK+8*
DIR(0 SEL+7*, SEL+22*, ASK+8*, POZ+1*
DIRUT SEL+6!, SEL+8!, SEL+10!, SEL+50!, ASK+8!, ASK+9!, POZ+1!
DOSE PROCESS+54*, PROCESS+55, PROCESS+56, PROCESS+57, PROCESS+58, PROCESS+60!
DRET SELQ+1!, PROCESS+37!
DRGCS DRGCS+1~, DRGCS+3*, DRGCS+4
DRGIEN RXCS+1~, RXCS+2*, RXCS+3, DRGCS~, DRGCS+2, DRGCS+3
DSMSG SEL+50!
DT PROCESS+33
DTOUT SEL+8!, SEL+50!, POZ+1!
DUOUT SEL+6!, SEL+8!, SEL+50!
DUZ DSPL+6
ERXIEN PROCESS+29~, PROCESS+30*, PROCESS+31
ERXORN PROCESS+29~*, PROCESS+30
ERXPROC PROCESS+29~, PROCESS+31*
I PROCESS+39*, PROCESS+54~*, PROCESS+59
IEN SEL+50!
LST SEL+7*, SEL+10*, SEL+12, SEL+18*, SEL+26, SEL+28, SEL+29, SEL+30, SEL+32*, SEL+45
, SEL+50!
MAXNUMRF PROCESS+1~, PROCESS+25*, PROCESS+26, PROCESS+27
MXRFLS DSPL+2~, DSPL+3*, DSPL+4
ORD SEL+12*, SEL+18, SEL+25*, SEL+28*, SEL+29, SEL+30, SEL+32, SEL+35*, SEL+36, SEL+37
, SEL+45*, SEL+50!
ORDLN SEL+14~*, SEL+16, SEL+21
ORN SEL+12*, SEL+14, SEL+30*, SEL+31, SEL+32, SEL+45*, SEL+46, SEL+50!, PROCESS+2, PROCESS+29
, PROCESS+61, PROCESSX+9
ORSV SEL+50!
ORUB SEL+20~*
PHI SEL+6!, SELQ+1!, PROCESS+37!, PROCESS+68*, PROCESSX+2!
PHI( PROCESS+69*
>> POERR SEL+47*, PROCESSX+4
>> POERR("DFLG" SEL+47*, PROCESSX+4*
PRC SEL+6!, SELQ+1!, PROCESS+37!, PROCESSX+2!
>> PROVIEN PROCESS+9*, PROCESS+10, PROCESS+17
PSDRGIEN SEL+14~, SEL+16*, SEL+17, SEL+19
PSDY DSPL*, DSPL+11!
PSOACT SEL+50!
PSOARENW PROCESSX+19*!
PSOCHECK PROCESS+1~, PROCESS+10*, PROCESS+11, PROCESS+12, PROCESS+13, PROCESS+18*, PROCESS+21*, PROCESS+22, PROCESS+23
>> PSOCNT SEL+3, SEL+7
PSOCO SEL+50!
PSOCU SEL+50!
>> PSODAOC PROCESSX+18*
>> PSODFN SEL+4, SEL+5, SELQ+2
PSODIR SEL+50!
PSODIR("CS" DSPL+1*, DSPL+11!
PSODIR("DFLG" SEL+44*
PSODIR("FIELD" SEL+44*
PSODRIEN PROCESS+14~, PROCESS+15*, PROCESS+16, PROCESS+17
PSODRUG SEL!, PROCESS+14~, PROCESSX+2!, PROCESSX+7!
PSODRUG("DEA" DSPL+1, ASK+7*!
PSODRUG("IEN" DSPL+3
PSODRUG("OI" PROCESS+72*
PSODRUG("OIN" PROCESS+72*
PSOEDT DSPL!, PROCESSX+8!
>> PSOERR SEL+12*, SEL+13*, SEL+22*
PSOFDR SEL+6!
>> PSOFROM PROCESS+37*
PSOIBOLD SEL+1~, PROCESS+40*
PSOID SEL+50!, ASK+1
PSOLCNT SEL+25*, SEL+30*, SEL+32*, SEL+41, SELQ+1!
PSOLM DSPL!, PROCESSX+8!
>> PSOLST( SEL+14, SEL+31, SEL+32, SEL+46, PROCESS+2, PROCESS+29, PROCESS+61, PROCESSX+9
PSOMSG SEL+50!, PROCESS+4!, PROCESS+6!, PROCESS+11!, PROCESS+22!, PROCESS+26!, PROCESS+33!, PROCESS+36!
PSON PROCESS+61~*!, PROCESS+63*, PROCESS+65*
>> PSONEW("# OF REFILLS" , ASK+3!
>> PSONEW("DAYS SUPPLY" , ASK+3!
PSONO SEL+50!
PSOOELSE SEL+10!*, SEL+48, SEL+50!
PSOOPT SEL+44*, SEL+50!
>> PSOPAR SEL+2, DSPL+6
PSOPLCK SEL+4*!, SEL+5!
PSOQTY SEL+50!, DSPL+7, ASK+9*
>> PSOQUIT SEL+47*
PSORDLOK PROCESSX+5!*, PROCESSX+9, PROCESSX+11!
PSORENW SEL+50!, DSPL+6, DSPL+7, DSPL+8, PROCESSX+6, INIT+2, ASK+1, ASK+2, ASK+3, ASK+5
, ASK+6, ASK+7, ASK+10, ASK+11
PSORENW("# OF REFILLS" , PROCESS+26, DSPL, DSPL+4*, DSPL+11*
PSORENW("CLINIC" PROCESS+45*
PSORENW("CONJUNCTION" PROCESS+57*
PSORENW("COSI GNING PROVIDER" , PROCESS+43*
PSORENW("DAYS SUPPLY" , PROCESS+25, DSPL, DSPL+3
PSORENW("DEA" PROCESS+17*, PROCESS+18, PROCESS+20
PSORENW("DFLG" SEL+44*, SEL+47*, PROCESS+71, PROCESS+75, PROCESS+77, PROCESS+78, DSPL+5, DSPL+6, DSPL+7, PROCESSX+1
, PROCESSX+5, PROCESSX+8*, PROCESSX+17, INIT+1, INIT+2, ASK+1, ASK+2, ASK+3, ASK+5, ASK+6
, ASK+7, ASK+8*, ASK+10, ASK+11*
PSORENW("DOSE ORDERED" , PROCESS+56*
PSORENW("DOSE" PROCESS+55*, PROCESSX+3!
PSORENW("DRUG IEN" , PROCESS+50*, PROCESS+61, PROCESS+70, PROCESSX+3!
PSORENW("DURATION" PROCESS+57*, PROCESSX+3!
PSORENW("ENT" PROCESS+52, PROCESS+53*, PROCESS+55*, PROCESS+56, PROCESS+57, PROCESS+58, PROCESS+59, DSPL+11!, PROCESSX+3!
PSORENW("FILL DATE" , ASK+4
PSORENW("FROM" PROCESSX+8
PSORENW("INS" PROCESS+52*, PROCESSX+3!
PSORENW("ISSU E DATE" , PROCESS+33, PROCESS+34, ASK+1*
PSORENW("MAIL/WINDOW" PROCESS+66*
PSORENW("NOUN" PROCESS+58*, PROCESSX+3!
PSORENW("NRX #" , DSPL+12
PSORENW("ODOSE" PROCESS+59*
PSORENW("OIRXN" PROCESS+37*, PROCESS+38, PROCESS+39, PROCESS+40, PROCESS+47, PROCESS+52, PROCESS+54, PROCESS+59, PROCESS+67, PROCESS+68
, PROCESS+69, PROCESS+72, DSPL+3
PSORENW("OLD FILL DATE" , PROCESSX+6
PSORENW("ORX #" , PROCESS+49*, PROCESS+70
PSORENW("PATI ENT STATUS" , PROCESS+25
PSORENW("PROVIDER" PROCESS+9, PROCESS+41, PROCESS+42*, PROCESS+44, PROCESS+62, PROCESS+64
PSORENW("PSODFN" PROCESS+48*
PSORENW("QFLG" SEL+44*, PROCESSX+8*
PSORENW("QTY" PROCESS+51*
PSORENW("REMARKS" PROCESS+46*
PSORENW("ROUTE" PROCESS+56*, PROCESSX+3!
PSORENW("RX0" PROCESS+38*, PROCESS+42, PROCESS+45, PROCESS+46, PROCESS+48, PROCESS+49, PROCESS+50, PROCESS+51, PROCESS+71
PSORENW("RX2" PROCESS+38*
PSORENW("RX3" PROCESS+38*, PROCESS+43
PSORENW("SCHEDULE" PROCESS+57*, PROCESSX+3!
PSORENW("SIG" PROCESS+47*, PROCESSX+3!
PSORENW("STA" PROCESS+38*
PSORENW("TN" PROCESS+38*
PSORENW("UNITS" PROCESS+56*, PROCESSX+3!
PSORENW("VERB" PROCESS+58*, PROCESSX+3!
PSORNSPD SEL+6!, SEL+10*, SELQ+1!
PSORNW SEL+50!
PSORNW("FILL DATE" , ASK+4*
PSORNW("MAIL/WINDOW" PROCESS+66
>> PSORX PROCESS+17
>> PSORX("CLINIC" PROCESSX+7!
>> PSORX("CS" PROCESS+16*
>> PSORX("DFLG" SEL+44*, SEL+47*, SEL+50!, PROCESS+73*, PROCESSX+17
>> PSORX("EDIT" SEL+6!
>> PSORX("FILL D ATE" , SEL+50!
>> PSORX("ISSUE DATE" , SEL+50!
>> PSORX("PROVID ER NAME" , PROCESS+44*, PROCESSX+7!
PSORXED PROCESSX+2!
PSORXIEN PROCESS+1~, PROCESS+2*, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+7, PROCESS+9, PROCESS+10, PROCESS+12, PROCESS+13
, PROCESS+15, PROCESS+17, PROCESS+23, PROCESS+25, PROCESS+27, PROCESS+33, PROCESS+34, PROCESS+36, PROCESS+37
PSOSKIP SELQ+1!
PSOSKIP( SEL+32*, SEL+35
PSOSKIP(0 SEL+33
PSOSPRNW SEL+1~*, SELQ+1!
PSOSTA SEL+36*, SEL+37, SELQ+1!
PSOY RXCS+1~, PROCESS+14~, PROCESS+15*
PSOY(0 PROCESS+15*
PSRF DSPL*, DSPL+11!
REF SEL+50!
REFL SEL+50!
RET PROCESS+37!
RPH SEL+50!
RTE SELQ+1!
RXIEN RXCS~, RXCS+2
RXN PROCESSX+12*, PROCESSX+13, PROCESSX+14, PROCESSX+18*, PROCESSX+20!
RXN1 PROCESSX+13*, PROCESSX+14, PROCESSX+20!
SIG PROCESSX+2!
SIG( PROCESS+39*
SIGOK PROCESS+38*, PROCESS+39, PROCESSX+2!
SPEED SEL+10*, SEL+50!
ST SEL+50!
T PROCESS+67!, PROCESS+68*, PROCESS+69*
U SEL+21, SEL+31, SEL+32, PROCESS+29
>> VALMBCK SEL+2*, SEL+3*, SEL+4*, SEL+5*, SEL+8*, SEL+48*, SEL+49*
VALMCNT SEL+3~
>> VALMSG SEL+2*, SEL+3*, SEL+4*, SEL+5*, PROCESS+73*
X SEL+5*, SELQ+1!, SELQ+2*
Y SEL+5, SEL+10, SEL+20~, SEL+21*, SEL+22, ASK+9!
Y("1" SEL+20*
ZRXN PROCESSX+12~*, PROCESSX+18, PROCESSX+20!
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