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

Package: Outpatient Pharmacy

Routine: PSORENW0


Information

PSORENW0 ;IHS/DSD/JCM-renew main driver continuation ;15 May 2019 18:14:18

Source Information

Source file <PSORENW0.m>

Call Graph

Call Graph

Call Graph Total: 26

Package Total Call Graph
Outpatient Pharmacy 15 CAN^PSOCAN  NOOR^PSOCAN4  DOSCK^PSODOSUT  (POST,SET)^PSODRG  DCORD^PSONEW2  DE^PSOORFI2  (EN,VER1)^PSOORNE4  ^PSOPTPST  
PROFILE^PSOREF1  INST2^PSORENW  (,KLIB,OERR,STOP)^PSORENW1  (DSPLY,INIT)^PSORENW3  EN^PSORN52  (CHKPRV,NEXT,RENFDT,RNPSOSD,STATUS,SUSDATEK)^PSOUTIL  CLEAN^PSOVER1  
VA FileMan 7 NOW^%DTC  $$FIND1^DIC  FILE^DICN  ^DIE  ^DIK  $$GET1^DIQ  ^DIR  
Kernel 2 ($$FMTE,$$NOW)^XLFDT  $$SETUP1^XQALERT  
List Manager 1 FULL^VALM1  
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: 6

Package Total Caller Graph
Outpatient Pharmacy 6 PSOBBC  PSON52  PSOORCPY  PSOORRNW  PSORENW  PSORENW4  

Entry Points

Name Comments DBIA/ICR reference
PROCESS ;
DSPL
ANQ
PROCESSX
CHECK ;
CHECKX
CHKDIV ;
CHKDIVX
DRUG ;
RXN ;
RETRY
RXNX
FILDATE ;
EDIT ;
EDITX
DELETE ;
CAN ;
DIR ;
DIRX
NEWPT ;
NEWPTX
EN(PSORENW)
CDOSE ;Validate Dosage field on Renewal, Copy, Edit
ALERT ; send an alert to the TWO approving team members

External References

Name Field # of Occurrence
NOW^%DTC ANQ
$$FIND1^DIC DSPL+4, DSPL+9, ANQ
FILE^DICN ANQ+7
^DIE ANQ+9
^DIK DELETE+3
$$GET1^DIQ PROCESS+6, DSPL+9, CHECK+20, CHECK+35, CHKDIV+2, DRUG+4, EN+4, ALERT+6
^DIR PROCESSX+2, CHECK+10, CHECK+22, CHECK+37, RETRY+6, EDIT+4, DIR+3, EN+2
CAN^PSOCAN CAN+5
NOOR^PSOCAN4 CHECK+23, CHECK+38
DOSCK^PSODOSUT DRUG+7
POST^PSODRG DRUG+7
SET^PSODRG DRUG+6
DCORD^PSONEW2 DSPL+8
DE^PSOORFI2 CHECK+23, CHECK+38
EN^PSOORNE4 EDIT+6
VER1^PSOORNE4 DSPL+4
^PSOPTPST NEWPT+3
PROFILE^PSOREF1 NEWPT+4
INST2^PSORENW PROCESS+2
^PSORENW1 PROCESS+1
KLIB^PSORENW1 EN+6
OERR^PSORENW1 PROCESS+11
STOP^PSORENW1 PROCESS+11
DSPLY^PSORENW3 DSPL
INIT^PSORENW3 EDIT+6
EN^PSORN52 DSPL+6
CHKPRV^PSOUTIL CHECK+42
NEXT^PSOUTIL FILDATE+2
RENFDT^PSOUTIL FILDATE+4
RNPSOSD^PSOUTIL DSPL+7
STATUS^PSOUTIL CHECK+18
SUSDATEK^PSOUTIL PROCESSX+3
CLEAN^PSOVER1 PROCESSX+1, PROCESSX+6
PSOL^PSSLOCK EN+2
PSOUL^PSSLOCK PROCESSX+1, EN+7
FULL^VALM1 EDIT+6
$$FMTE^XLFDT ALERT+5
$$NOW^XLFDT ALERT+5
$$SETUP1^XQALERT ALERT+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Now Renewing Rx # "_PSORENW("ORX #")_" Drug: "_$$GET1^DIQ(50,+$G(PSORENW("DRUG IEN")),.01),!
  • Line Location: PROCESS+6
Function Call: WRITE
  • Prompt: !
  • Line Location: CHECK+10
Function Call: WRITE
  • Prompt: !
  • Line Location: CHECK+11
Function Call: WRITE
  • Prompt: !,$C(7),"Cannot renew Rx # ",$P(PSORENW("RX0"),"^")
  • Line Location: CHECK+16
Function Call: WRITE
  • Prompt: !,$C(7),"Cannot renew Rx # "_PSORENW("ORX #")_", Max number of renewals reached."
  • Line Location: CHECK+31
Function Call: WRITE
  • Prompt: !?5,$C(7),"RX # ",$P(PSORENW("RX0"),"^")," is for (",$$GET1^DIQ(59,$P(PSORENW("RX2"),"^",9),.01),") division."
  • Line Location: CHKDIV+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: $C(7),!!,$P(PSOMSG,"^",2)
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,"OVERRIDE ALERTS HAVE BEEN SENT TO THE APPROVING TEAM MEMBERS",!!
  • Line Location: ALERT+9
Routine Call
  • DIC
  • Line Location:
    • DSPL+4
    • DSPL+9
    • ANQ
Routine Call
  • DIE
  • Line Location:
    • ANQ+9
Routine Call
  • DIR
  • Line Location:
    • PROCESSX+2
    • CHECK+10
    • CHECK+22
    • CHECK+37
    • RETRY+6
    • EDIT+4
    • DIR+3
    • EN+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
200.051 FIND1^DIC
^PSDRUG - [#50] GET1^DIQ
^PSRX - [#52] FIND1^DIC,  GET1^DIQ
^PS(52.5 - [#52.5] Classic Fileman Calls
^PS(52.52 - [#52.52] Classic Fileman Calls,  FIND1^DIC
^PS(59 - [#59] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" FILDATE+5
^DPT - [#2] ALERT+3
^PS(52.5 - [#52.5] DELETE+2
^PSDRUG - [#50] DRUG+2, DRUG+3
^PSRX - [#52] CDOSE+4, CDOSE+7, CDOSE+8
^PSRX("B" RETRY

Label References

Name Line Occurrences
ALERT ANQ+11
ANQ ANQ
CAN DSPL+8
CDOSE CHECK+5
CHECK PROCESS+7
CHECKX CHECK+1, CHECK+6, CHECK+28, CHECK+40
CHKDIV CHECK+40
CHKDIVX CHKDIV+1, CHKDIV+3
DIR CHKDIV+4
DRUG PROCESS+9
DSPL DSPL+3, DSPL+5
EDIT DSPL+1
EDITX EDIT+5
FILDATE PROCESS+8
NEWPT PROCESS+3
NEWPTX NEWPT+3
PROCESS EN+5
PROCESSX PROCESS+7, PROCESS+9, PROCESS+10, DSPLDSPL+2, DSPL+4
RETRY RETRY
RXN PROCESS+10

Naked Globals

Name Field # of Occurrence
^("SIG" CDOSE+8
^(0 CDOSE+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ANQANQ+6, ANQ+10!
ACOM CHECK+13!, CHECK+14!, CHECK+19, CHECK+32*, CHECK+39!
ANQDATA ANQANQ+3, ANQ+10!
ANQREM ANQ+10!
BBRN PROCESSX+4!
BBRN1 DSPL+9*, PROCESSX+4!
>> BINGCRT DSPL+9*
>> BINGRTE DSPL+9*
DA ANQ+7!, ANQ+8*, ANQ+9!, DELETE+1!, DELETE+2*, CAN+1!, CAN+2*, CAN+4, CAN+6!
DD ANQ+6!, ANQ+7!
DIC ANQ+6*, ANQ+7!, DELETE+3!
DIC(0 ANQ+6*
DIE ANQ+8*, ANQ+9!
DIK DELETE+1!, DELETE+2*, DELETE+3!
DIR PROCESSX+2!, CHECK+10!, CHECK+13!, CHECK+14!, RETRY+6!, EDIT+1!, EDIT+4!, DIR+3!, EN+2!
DIR("?" PROCESSX+2*, CHECK+10*, RETRY+6*, EDIT+3*, DIR+2*, EN+2*
DIR("A" PROCESSX+2*, CHECK+10*, CHECK+21*, CHECK+36*, RETRY+6*, EDIT+3*, DIR+1*, EN+2*
DIR("B" CHECK+21*, CHECK+36*, EDIT+2*, DIR+1*
DIR(0 PROCESSX+2*, CHECK+10*, CHECK+21*, CHECK+36*, RETRY+6*, EDIT+2*, DIR+1*, EN+2*
DIRUT CHECK+13!, CHECK+14!, CHECK+22, CHECK+23, CHECK+37, CHECK+38, EDIT+4, EDITX!, DIR+4, DIRX!
DLAYGO ANQ+6*, ANQ+7!
DO ANQ+6!, ANQ+7!
DR ANQ+7!, ANQ+8*, ANQ+9!
DRG CHECK+13~, CHECK+20*, CHECK+21, CHECK+35*, CHECK+36
DT FILDATE+5
DTOUT PROCESSX+2!, EDITX!, DIRX!
DUOUT PROCESSX+2!, CHECK+13!, CHECK+14!, EDITX!, DIRX!
DUZ DSPL+4
DUZ("AG" EDIT+2
MSG CAN+1!, CAN+3*, CAN+6!
NEWDOSE DSPL+5!
>> OR0 CHECK+34
>> ORN PROCESSX+1
>> ORO ANQ+5
PHI PROCESSX+4!
>> POERR PROCESSXCHECK+3, CHECK+9, CHECK+27, CHECK+32, RETRY+7
>> POERR("DFLG" PROCESSX+1*
PRC PROCESSX+4!
PS52 ANQ+8~*
PSCAN CAN+6!
PSCAN( CAN+4*
>> PSCDATE ALERT+5*, ALERT+6
>> PSCLPAT ALERT+2, ALERT+3, ALERT+6, ALERT+7
>> PSEXDT EDIT+2
PSO1PH ANQ~*, ANQ+2~, ANQ+3*, ANQ+8
PSO2PH ANQ~*, ANQ+2~, ANQ+3*, ANQ+4, ANQ+8, ALERT+5
PSOBARCD EN+5*!
>> PSOBBC("OIRXN" EN+1
PSOBBCLK PROCESSX*, EN+5!, EN+7, EN+8!
PSODFN PROCESS+3, CHECK+1, NEWPT+1~, NEWPT+2*
PSODRUG PROCESSX+4!
PSODRUG("OI" DRUG+4*
PSODRUG("OIN" DRUG+4*
PSOEDT DSPL!, PROCESSX+5!, EDITX*
>> PSOFDR PROCESS+11, DSPL+1, RETRY+2, RETRY+5, RETRY+7, CAN+3
>> PSOLAST4 ALERT+3*, ALERT+6
PSOLM DSPL!, PROCESSX+5!
>> PSOLST( PROCESSX+1
PSOMSG EN+2!, EN+3, EN+5!
>> PSONEW("STATUS" DRUG+10, DRUG+11!
>> PSONOOR DRUG+8*
PSONOSIG CHECK+5~, CHECK+6, CDOSE+4*, CDOSE+9*
PSOOCPRX CHECK+5~*, CDOSE+2, CDOSE+4, CDOSE+7, CDOSE+8
PSOOKZ CDOSE+3~, CDOSE+6*, CDOSE+7*, CDOSE+8*, CDOSE+9
PSOOLP CDOSE+3~, CDOSE+4*, CDOSE+7*
PSOOLPD CHECK+5~, CHECK+8, CHECK+9, CDOSE+4*
PSOOLPF CHECK+5~, CHECK+6, CHECK+8, CHECK+9, CDOSE+4*, CDOSE+5
>> PSOORRNW CHECK+25
>> PSOPAR DSPL+4
PSOPROV ANQ+2~, ANQ+3*, ANQ+4, ANQ+5*, ANQ+8
>> PSOQFLG NEWPT+1*, NEWPT+3*
PSOQUIT PROCESSX+4!, EDIT+6!
PSOREA CHECK+17*, CHECK+18!
PSOREASN ANQ~*, ANQ+2~, ANQ+3*, ANQ+8
PSOREMRK ANQ~*, ANQ+2~, ANQ+3*, ANQ+8
PSORENRX EN+1*, EN+2, EN+4, EN+7, EN+8!
PSORENW DSPL+4, DSPL+6, PROCESSX+3, PROCESSX+4!, FILDATE+2, FILDATE+4, EDIT+6, EN~
PSORENW("DFLG" PROCESS+4*, PROCESS+7, PROCESS+9, PROCESS+10, DSPLDSPL+2, DSPL+4, PROCESSXPROCESSX+5*, CHECK+2*
CHECK+7*, CHECK+14, CHECK+15*, CHECK+26*, CHECK+28, CHECK+33*, CHECK+40, CHKDIV+3*, DRUG+7*, RETRY
RETRY+7*, EDIT+4*, EDIT+5, EDIT+6*, DIR+4*, NEWPT+3*
PSORENW("DRUG IEN" , PROCESS+6, DRUG+2
PSORENW("ENT" DSPL+5
PSORENW("FILL DATE" , PROCESS+4*, FILDATE+3, FILDATE+5*
PSORENW("FROM" PROCESSX+5
PSORENW("IRXN" ANQ+8, FILDATE+1*, FILDATE+6!
PSORENW("MAIL/WINDOW" PROCESS+5*
PSORENW("NOO" DRUG+8
PSORENW("NRX #" , DSPL+9, RXN+3*, RETRYRETRY+1, RETRY+2, RETRY+3, RETRY+4, RETRY+5, RETRY+8
RETRY+9*
PSORENW("OIRXN" CHECK+5, CHECK+14, CHECK+20, CHECK+35, DRUG+4, FILDATE+1, DELETE+2, CAN+2
PSORENW("OLD FILL DATE" , PROCESSX+3
PSORENW("ORX #" , PROCESS+6, CHECK+30, CHECK+31, CHECK+32, RXN+2, RXN+3, RETRY+1, RETRY+3, RETRY+4
RETRY+5, RETRY+7, CAN+4
PSORENW("PSODFN" PROCESS+3, CHECK+1, NEWPT+2
PSORENW("QFLG" DSPL+1*, DSPL+3, PROCESSX+5*, EDITX*
PSORENW("RX0" CHECK+2, CHECK+3, CHECK+8, CHECK+9, CHECK+16, CHECK+26, CHECK+27, CHKDIV+2
PSORENW("RX2" CHKDIV+1, CHKDIV+2
PSORENW("RX3" FILDATE+3
PSORENW("STA" CHECK+17
PSORENW("STATUS" DRUG+10*
PSORENWD DRUG+2*, DRUG+11!
>> PSORERR PROCESSX*
PSORNALL EDIT+6*!
>> PSORNSPD CHECK+10, CHECK+11
>> PSORNW("FILL DATE" , PROCESS+4, FILDATE+5
>> PSORNW("MAIL/WINDOW" PROCESS+5
PSORWRIT PROCESSX~
>> PSORX("BAR CO DE" , PROCESS+3, CHECK+1
>> PSORX("CLINIC" PROCESSX+4!
>> PSORX("DFLG" PROCESS+9, PROCESSXDRUG+3, DRUG+5*, DRUG+7
>> PSORX("FILL D ATE" , FILDATE+5*
>> PSORX("FN" DSPL+2, DSPL+3, PROCESSX+4!, EDIT+6!, EDIT+7
>> PSORX("INTERVENE" DRUG+9!
>> PSORX("PROVID ER NAME" , PROCESSX+4!
PSOS CHECK+13~*, CHECK+14*
>> PSOSD CHECK+14
>> PSOSD( CHECK+14
>> PSOSITE CHKDIV+1
PSOSTAT CHECK+17*, CHECK+18!
>> PSOSYS CHKDIV+3, CHKDIV+4
PSOUSER ANQ~*, ANQ+2~, ALERT+5
>> PSOWRIT PROCESSX*
PSOX CHECK+13*, CHECK+14*, CHECK+28!, RXN+1!, RXN+2*, RXN+3, RETRY+8*, RETRY+9, RXNX!
PSOY CHECK+13*, CHECK+14*, CHECK+17, CHECK+25, CHECK+28!, DRUG+1!, DRUG+2*, DRUG+3, DRUG+11!
PSOY(0 DRUG+2*
REA CAN+1!, CAN+2*, CAN+6!
RSLT ALERT+1~, ALERT+8*
>> SPEED CHECK+32
>> VALMBCK PROCESSX+2*, CHECK+3*, CHECK+9*, CHECK+27*, CHECK+32*, RETRY+7*, EDITX*
>> VALMSG CHECK+3*, CHECK+9*, CHECK+27*, CHECK+32*, DRUG+5*, RETRY+2*, RETRY+5*, RETRY+7*
X ANQ+6*, ANQ+10!, EDIT+1!, EDITX!, DIRX!
>> XQA( ANQ+4*, ALERT+5*
>> XQAARCH ALERT+4*
>> XQADATA ALERT+2*
>> XQAFLG ALERT+4*
>> XQAID ALERT+7*
>> XQAMSG ALERT+6*
Y ANQ+8, ANQ+10!, CHECK+22, CHECK+37, FILDATE+5*!, EDIT+1!, EDIT+6, EDITX!, DIR+4, DIRX!
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