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 |  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 ;05-Jun-2014 08:45;DU

Source Information

Source file <PSORENW4.m>

Call Graph

Call Graph Total: 25

Package Total Call Graph
Outpatient Pharmacy 17 ^PSOBUILD  PROV^PSODIR  (DAYS,PTSTAT,QTY,REFILL)^PSODIR1  (CLINIC,FILLDT,ISSDT,MW)^PSODIR2  EN^PSOHLSN1  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  (RNPSOSD,SUSDATEK)^PSOUTIL  
CLEAN^PSOVER1  
IHS Changes To Pharmacy 3 REMMSG^APSPFUNC  $$SCREEN^APSPMULT  $$AWP^APSQDAWP  
VA Fileman 2 $$GET1^DIQ  ^DIR  
Order Entry Results Reporting 1 (LK,ULK)^ORX2  
Pharmacy Data Management 1 ($$L,PSOL,PSOUL,UL)^PSSLOCK  
Registration 1 (FULL,PAUSE)^VALM1  

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
REMMSG^APSPFUNC PROCESS+10
$$SCREEN^APSPMULT PROCESS+49
$$AWP^APSQDAWP PROCESS+30
$$GET1^DIQ PROCESS+2, PROCESS+3, PROCESS+4
^DIR SEL+5, ASK+8, POZ+1
LK^ORX2 SEL+4
ULK^ORX2 SELQ
^PSOBUILD SEL+11
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
EN^PSOHLSN1 PROCESSX+12, PROCESSX+13
NOORE^PSONEW INIT+2
DCORD^PSONEW2 DSPL+10
LOCK^PSOORCPY SEL+3
VER1^PSOORNE4 DSPL+6
BLD^PSOORUT1 SEL+11
$$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+43, PROCESS+49, PROCESSX+9
SETIB^PSORENW1 PROCESS+13
STOP^PSORENW1 PROCESS+66
DSPLY^PSORENW3 DSPL+5
EN^PSORN52 DSPL+8
RNPSOSD^PSOUTIL DSPL+9
SUSDATEK^PSOUTIL PROCESSX+5
CLEAN^PSOVER1 SELQ, PROCESSX
$$L^PSSLOCK SEL+3
PSOL^PSSLOCK PROCESS+5
PSOUL^PSSLOCK PROCESS+43, PROCESS+49, PROCESSX+8
UL^PSSLOCK SEL+4, SELQ
FULL^VALM1 SEL+6
PAUSE^VALM1 PROCESS+2, PROCESS+4, PROCESS+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"Rx "_$$GET1^DIQ(52,$P(PSOLST(ORN),"^",2),.01)_" has OPEN/UNRESOLVED 3rd Party Payer Rejects!"
  • Line Location: PROCESS+4
Function Call: WRITE
  • Prompt: $C(7),!!,"Only providers with DEA# or a VA# can write prescriptions for clozapine.",!
  • Line Location: PROCESS+45
Function Call: WRITE
  • Prompt: $C(7),!!,"Provider must hold YSCL AUTHORIZED key to write prescriptions for clozapine.",!
  • Line Location: PROCESS+47
Function Call: WRITE
  • Prompt: !!,"Now Renewing Rx # "_PSORENW("ORX #")_" Drug: "_$P($G(^PSDRUG(+$G(PSORENW("DRUG IEN")),0)),"^"),!
  • Line Location: PROCESS+58
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK+1
Routine Call
  • DIR
  • Line Location:
    • SEL+5
    • 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+60
^PSDRUG - [#50] PROCESS+43, PROCESS+58, PROCESS+59
^PSRX - [#52] PROCESS+5, PROCESS+9, PROCESS+11, PROCESS+12, PROCESS+20, PROCESS+29, PROCESS+31, PROCESS+32, PROCESS+34, PROCESS+36
, PROCESS+41, PROCESS+52, PROCESS+53, PROCESS+54, PROCESS+60, DSPL+12, PROCESSX+13
^PSRX("B" DSPL+12
^TMP("PSORXN" PROCESSX+11, PROCESSX+12, PROCESSX+14!
^VA(200 - [#200] PROCESS+17, PROCESS+44
^XUSEC("PSORPH" DSPL+6
^XUSEC("YSCL AUTHORIZED" PROCESS+46

Label References

Name Line Occurrences
ASK INIT+1
INIT SEL+7
POZ PROCESS+43, PROCESSX+3
PROCESS SEL+8
PROCESSX PROCESS+59, PROCESS+62, PROCESS+64, PROCESS+65, DSPL+5, DSPL+6, DSPL+7
SELQ SEL+5, SEL+9

Naked Globals

Name Field # of Occurrence
^("OR1" PROCESS+60
^("STA" PROCESS+11
^("TN" PROCESS+11
^(2 PROCESS+11
^(3 PROCESS+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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