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 ;6 June 2019 16:18:07

Source Information

Source file <PSORENW4.m>

Call Graph

Call Graph

Call Graph Total: 26

Package Total Call Graph
Outpatient Pharmacy 20 ^PSOBUILD  $$CLKEYWRN^PSOCLUTL  PROV^PSODIR  (DAYS,PTSTAT,QTY,REFILL)^PSODIR1  (CLINIC,FILLDT,ISSDT,MW)^PSODIR2  ($$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,RNPSOSD,SUSDATEK)^PSOUTIL  $$TITRX^PSOUTL  CLEAN^PSOVER1  
VA FileMan 2 $$GET1^DIQ  ^DIR  
Kernel 1 NS^XQORM4  
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 ;
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, PROCESS+5, PROCESS+7, PROCESS+9, PROCESS+12, PROCESS+14, PROCESS+16
PROCESS+18
^DIR SEL+7, SEL+22, ASK+8, POZ+1
LK^ORX2 SEL+5
ULK^ORX2 SELQ+2
^PSOBUILD SEL+34
$$CLKEYWRN^PSOCLUTL PROCESS+52
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+2
ISSDT^PSODIR2 ASK+1
MW^PSODIR2 ASK+4
$$CHKERX^PSOERXU1 PROCESS+19
$$PROVPMT^PSOERXU1 PROCESS+20
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+34
$$LMREJ^PSOREJU1 PROCESS+4
CAN^PSORENW0 DSPL+10
CHECK^PSORENW0 PROCESS+62
DRUG^PSORENW0 PROCESS+64
FILDATE^PSORENW0 PROCESS+63
RXN^PSORENW0 PROCESS+65
KLIB^PSORENW1 PROCESS+48, PROCESSX+10
SETIB^PSORENW1 PROCESS+27
STOP^PSORENW1 PROCESS+66
DSPLY^PSORENW3 DSPL+5
EN^PSORN52 DSPL+8
$$CHKRXPRV^PSOUTIL PROCESS+10
$$MAXNUMRF^PSOUTIL PROCESS+14, DSPL+3
RNPSOSD^PSOUTIL DSPL+9
SUSDATEK^PSOUTIL PROCESSX+6
$$TITRX^PSOUTL PROCESS+6
CLEAN^PSOVER1 SELQ+2, PROCESSX+4
$$L^PSSLOCK SEL+4
PSOL^PSSLOCK PROCESS+23
PSOUL^PSSLOCK PROCESS+48, PROCESSX+9
UL^PSSLOCK SEL+5, SELQ+2
FULL^VALM1 SEL+10
PAUSE^VALM1 PROCESS+4, PROCESS+6, PROCESS+11, PROCESS+15, PROCESS+23
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: $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)_" - # of Refills requested exceeds maximum allowed ("_MAXNUMRF_") for this Rx"
  • Line Location: PROCESS+16
Function Call: WRITE
  • Prompt: $C(7),!!,"Only providers with DEA# or a VA# can write prescriptions for clozapine.",!
  • Line Location: PROCESS+50
Function Call: WRITE
  • Prompt: $C(7),!!,$$CLKEYWRN^PSOCLUTL,!
  • Line Location: PROCESS+52
Function Call: WRITE
  • Prompt: !!,"Now Renewing Rx # "_PSORENW("ORX #")_" Drug: "_$P($G(^PSDRUG(+$G(PSORENW("DRUG IEN")),0)),"^"),!
  • Line Location: PROCESS+57
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+59
^PSDRUG - [#50] PROCESS+48, PROCESS+57, PROCESS+58
^PSRX - [#52] PROCESS+23, PROCESS+25, PROCESS+26, PROCESS+34, PROCESS+39, PROCESS+41, PROCESS+46, PROCESS+54, PROCESS+55, PROCESS+56
PROCESS+59, 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+31, PROCESS+49
^XUSEC("PSORPH" DSPL+6
^XUSEC("YSCL AUTHORIZED" PROCESS+51

Label References

Name Line Occurrences
ASK INIT+1
INIT SEL+28
POZ PROCESS+48, PROCESS+61, PROCESSX+4
PROCESS SEL+30
PROCESSX PROCESS+58, PROCESS+62, PROCESS+64, PROCESS+65, DSPL+5, DSPL+6, DSPL+7
SELQ SEL+8, SEL+25, SEL+32

Naked Globals

Name Field # of Occurrence
^("OR1" PROCESS+59
^("STA" PROCESS+25
^("TN" PROCESS+25
^(2 PROCESS+25
^(3 PROCESS+25

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