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 ;03/06/95

Source Information

Source file <PSORENW4.m>

Call Graph

Call Graph

Call Graph Total: 24

Package Total Call Graph
Outpatient Pharmacy 19 ^PSOBUILD  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  
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

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

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
POZ ;
DSPL
PROCESS ; Process one order at a time
PROCESSX
INIT ;
ASK ;upfront questions
SEL
SELQ

External References

Name Field # of Occurrence
$$GET1^DIQ PROCESS+4, PROCESS+6, PROCESS+8, PROCESS+11, PROCESS+13, PROCESS+15, PROCESS+17
^DIR SEL+6, ASK+8, POZ+1
LK^ORX2 SEL+5
ULK^ORX2 SELQ
^PSOBUILD SEL+12
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+18
$$PROVPMT^PSOERXU1 PROCESS+19
EN^PSOHLSN1 PROCESSX+12, PROCESSX+13
DAOC^PSONEW PROCESSX+18
NOORE^PSONEW INIT+2
DCORD^PSONEW2 DSPL+10
LOCK^PSOORCPY SEL+4
VER1^PSOORNE4 DSPL+6
BLD^PSOORUT1 SEL+12
$$LMREJ^PSOREJU1 PROCESS+3
CAN^PSORENW0 DSPL+10
CHECK^PSORENW0 PROCESS+61
DRUG^PSORENW0 PROCESS+63
FILDATE^PSORENW0 PROCESS+62
RXN^PSORENW0 PROCESS+64
KLIB^PSORENW1 PROCESS+47, PROCESSX+9
SETIB^PSORENW1 PROCESS+26
STOP^PSORENW1 PROCESS+65
DSPLY^PSORENW3 DSPL+5
EN^PSORN52 DSPL+8
$$CHKRXPRV^PSOUTIL PROCESS+9
$$MAXNUMRF^PSOUTIL PROCESS+13, DSPL+3
RNPSOSD^PSOUTIL DSPL+9
SUSDATEK^PSOUTIL PROCESSX+5
$$TITRX^PSOUTL PROCESS+5
CLEAN^PSOVER1 SELQ, PROCESSX+3
$$L^PSSLOCK SEL+4
PSOL^PSSLOCK PROCESS+22
PSOUL^PSSLOCK PROCESS+47, PROCESSX+8
UL^PSSLOCK SEL+5, SELQ
FULL^VALM1 SEL+7
PAUSE^VALM1 PROCESS+3, PROCESS+5, PROCESS+10, PROCESS+14, PROCESS+22

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"Rx# "_$$GET1^DIQ(52,PSORXIEN,.01)_" has OPEN/UNRESOLVED 3rd Party Payer Rejects!"
  • Line Location: PROCESS+4
Function Call: WRITE
  • Prompt: $C(7),!!,"Rx# "_$$GET1^DIQ(52,PSORXIEN,.01)_" is marked as 'Titration Rx' and cannot be renewed."
  • Line Location: PROCESS+6
Function Call: WRITE
  • Prompt: $C(7),!!,"Rx# "_$$GET1^DIQ(52,PSORXIEN,.01)_" - "_$P(PSOCHECK,"^",3)
  • Line Location: PROCESS+11
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+15
Function Call: WRITE
  • Prompt: $C(7),!!,"Only providers with DEA# or a VA# can write prescriptions for clozapine.",!
  • Line Location: PROCESS+49
Function Call: WRITE
  • Prompt: $C(7),!!,"Provider must hold YSCL AUTHORIZED key to write prescriptions for clozapine.",!
  • Line Location: PROCESS+51
Function Call: WRITE
  • Prompt: !!,"Now Renewing Rx # "_PSORENW("ORX #")_" Drug: "_$P($G(^PSDRUG(+$G(PSORENW("DRUG IEN")),0)),"^"),!
  • Line Location: PROCESS+56
Function Call: WRITE
  • Prompt: !,$C(7),"Rx NOT RENEWED. RENEWED RX DELETED",!
  • Line Location: PROCESSX+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK+1
Routine Call
  • DIR
  • Line Location:
    • SEL+6
    • ASK+8
    • POZ+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.7 - [#50.7] PROCESS+58
^PSDRUG - [#50] PROCESS+47, PROCESS+56, PROCESS+57
^PSRX - [#52] PROCESS+22, PROCESS+24, PROCESS+25, PROCESS+33, PROCESS+38, PROCESS+40, PROCESS+45, PROCESS+53, PROCESS+54, PROCESS+55
, PROCESS+58, DSPL+3, DSPL+12, PROCESSX+13, PROCESSX+17
^PSRX("B" DSPL+12
^TMP("PSODAOC" PROCESSX+15, PROCESSX+16!, PROCESSX+19!
^TMP("PSORXN" PROCESSX+11, PROCESSX+12, PROCESSX+19!
^VA(200 - [#200] PROCESS+30, PROCESS+48
^XUSEC("PSORPH" DSPL+6
^XUSEC("YSCL AUTHORIZED" PROCESS+50

Label References

Name Line Occurrences
ASK INIT+1
INIT SEL+8
POZ PROCESS+47, PROCESS+60, PROCESSX+3
PROCESS SEL+9
PROCESSX PROCESS+57, PROCESS+61, PROCESS+63, PROCESS+64, DSPL+5, DSPL+6, DSPL+7
SELQ SEL+6, SEL+10

Naked Globals

Name Field # of Occurrence
^("OR1" PROCESS+58
^("STA" PROCESS+24
^("TN" PROCESS+24
^(2 PROCESS+24
^(3 PROCESS+24

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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