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 |  Local Variables  | All
Print Page as PDF
Routine: PSOERX

Package: Outpatient Pharmacy

Routine: PSOERX


Information

PSOERX ;ALB/BWF - eRx Utilities/RPC's ; 8/3/2016 5:14pm

Source Information

Source file <PSOERX.m>

Call Graph

Call Graph

Call Graph Total: 18

Package Total Call Graph
Outpatient Pharmacy 8 EN^PSOERX1  ($$L,UL)^PSOERX1A  $$PRESOLV^PSOERXA1  UPDSTAT^PSOERXU1  ($$GETREQ,$$RESOLV,RRDELTA)^PSOERXU2  ($$GETDRUG,$$GETPAT,$$GETPROV)^PSOERXU5  DIRE^PSOERXX1  EX^PSOORFI1  
VA FileMan 4 ^%DT  ^DIC  ($$GET1,GETS)^DIQ  ^DIR  
Kernel 3 ($$FMADD,$$FMDIFF,$$FMTE)^XLFDT  $$UP^XLFSTR  DISP^XQORM1  
List Manager 3 EN^VALM  ($$SETFLD,FULL)^VALM1  SET^VALM10  

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

Package Total Caller Graph
Outpatient Pharmacy 7 PSO ERX HOLDING QUEUE  PSO ERX HQ SEARCH  PSO ERX HQ SORT  PSO ERX MESSAGE VIEW  PSO ERX PCV MESSAGE VIEW  PSOERXC1  PSOERXEN  

Entry Points

Name Comments DBIA/ICR reference
EN(SRCH,SORTT,PCV) ; -- main entry point for PSO ERX HOLDING QUEUE
HDR ; -- header code
INIT ; -- init variables and list array
BLDITEM(ERXIEN,CNT) ;
HELP ; -- help code
EXIT ; -- exit code
EX ; early exit logic
EXPND ; -- expand code
SEARCH ;
SORT ;
DIR(SORT,CNT,SLIST) ;
PAT() ;
DOB() ;
RDT() ;
PRVNM() ;
ESTAT() ;
; prompt for erx status
DNAME() ;
MTYPE() ;
MTYPE2 ;
EREFNUM() ;
CHKKEY(DUZ) ;
CHKEXP(IEN,MTYPE) ;

External References

Name Field # of Occurrence
^%DT DOB+4, RDT+4, RDT+10
^DIC PAT+2, PRVNM+3, ESTAT+4
$$GET1^DIQ HDR+3, INIT+24, INIT+34, BLDITEM+17, BLDITEM+38, BLDITEM+41, BLDITEM+42, BLDITEM+55, SEARCH+13, SEARCH+14
, CHKEXP+3, CHKEXP+5
GETS^DIQ BLDITEM+4
^DIR SEARCH+16, DIR+21, DNAME+4, MTYPE+2, MTYPE2+4, EREFNUM+2
EN^PSOERX1 SEARCH+17
$$L^PSOERX1A SEARCH+15
UL^PSOERX1A SEARCH+18
$$PRESOLV^PSOERXA1 INIT+10
UPDSTAT^PSOERXU1 CHKEXP+10
$$GETREQ^PSOERXU2 BLDITEM+27
$$RESOLV^PSOERXU2 BLDITEM+40
RRDELTA^PSOERXU2 BLDITEM+28
$$GETDRUG^PSOERXU5 BLDITEM+48
$$GETPAT^PSOERXU5 BLDITEM+15
$$GETPROV^PSOERXU5 BLDITEM+51
DIRE^PSOERXX1 SEARCH+11, SEARCH+13
EX^PSOORFI1 EX+2
EN^VALM EN+2
$$SETFLD^VALM1 INIT+52, INIT+53, INIT+54, INIT+55, INIT+56, INIT+57, INIT+58
FULL^VALM1 EXIT+5, SEARCH+2, SORT+2, MTYPE2+3
SET^VALM10 INIT+59, INIT+60
$$FMADD^XLFDT HDR+4, INIT+22, INIT+26
$$FMDIFF^XLFDT CHKEXP+10
$$FMTE^XLFDT HDR+4, BLDITEM+45, BLDITEM+63
$$UP^XLFSTR DNAME+6, EREFNUM+4
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,"eRx could not be found."
  • Line Location: SEARCH+11
Function Call: WRITE
  • Prompt: !!,"eRx does not belong to this division.",!
  • Line Location: SEARCH+13
Routine Call
  • DIC
  • Line Location:
    • PAT+2
    • PRVNM+3
    • ESTAT+4
Routine Call
  • DIR
  • Line Location:
    • SEARCH+16
    • DIR+21
    • DNAME+4
    • MTYPE+2
    • MTYPE2+4
    • EREFNUM+2
Routine Call
  • VALM
  • Line Location:
    • EN+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(52.46 - [#52.46] GET1^DIQ
^PS(52.48 - [#52.48] GET1^DIQ
^PS(52.49 - [#52.49] GET1^DIQ,  GETS^DIQ
^PS(59 - [#59] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS( INIT+30, INIT+33, INIT+36, INIT+41
^PS(52.46 - [#52.46] INIT+29
^PS(52.49 - [#52.49] INIT+27, SEARCH+11, SEARCH+12, CHKEXP+4
^TMP("PSOERX" INIT+4
^XUSEC("PSDRPH" CHKKEY+1
^XUSEC("PSO ERX ADV TECH" CHKKEY+1
^XUSEC("PSO ERX TECH" CHKKEY+1
^XUSEC("PSO ERX VIEW" CHKKEY+1

Label References

Name Line Occurrences
$$ DIR+26
$$DIR SEARCH+5, SORT+3
BLDITEM INIT+31, INIT+35, INIT+42
CHKEXP BLDITEM+13, BLDITEM+14
EN SEARCH+20, SEARCH+21, SORT+6, SORT+7, MTYPE2+6
INIT HDR+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DOB+1~, DOB+2*, RDT+1~, RDT+2*, RDT+6!, RDT+7*
%DT("A" DOB+3*, RDT+3*, RDT+8*
%DT("B" RDT+9*
AUTOST BLDITEM+2~, BLDITEM+57*, BLDITEM+66, BLDITEM+67, BLDITEM+68, BLDITEM+69, BLDITEM+70, BLDITEM+71, BLDITEM+75, BLDITEM+76
, BLDITEM+77
BDATE RDT+1~, RDT+6*, RDT+13
BDOVR INIT+1~, INIT+24*, INIT+25*, INIT+26
CHKSTAT INIT+1~, INIT+9*, INIT+10
CNT INIT+2~, INIT+20*, INIT+27, INIT+29, INIT+30, INIT+31, INIT+33, INIT+35, INIT+36, INIT+41
INIT+42, BLDITEM~, BLDITEM+64*, DIR~, DIR+5, DIR+6
DELTA BLDITEM+1~, BLDITEM+28
DELTA( BLDITEM+29
DIC PAT+1~, PAT+2*, PRVNM+1~, PRVNM+3*, ESTAT+2~, ESTAT+4*
DIC("A" PRVNM+2*, ESTAT+3*
DIC("S" ESTAT+4*
DIC(0 PAT+2*, PRVNM+3*, ESTAT+4*
DIR SEARCH+16!, DIR+1~, DIR+2!, DIR+21!, DNAME+1~, MTYPE+1~, MTYPE2+1~, EREFNUM+1~
DIR("A" DNAME+3*, MTYPE+2*, MTYPE2+4*, EREFNUM+2*
DIR("L" DIR+5*, DIR+7*, DIR+8*, DIR+9*, DIR+10*, DIR+11*, DIR+12*, DIR+13*, DIR+14*, DIR+15*
, DIR+16*, DIR+17*, DIR+18*, DIR+19*, DIR+20*
DIR(0 SEARCH+16*, DIR+3*, DIR+4*, DNAME+2*, MTYPE+2*, MTYPE2+4*, EREFNUM+2*
DONE SEARCH+1~, SEARCH+3*, SEARCH+4, SEARCH+6*, SEARCH+8*, MTYPE2+1~
DT HDR+4, INIT+22, INIT+26, CHKEXP+10
DTLOOP INIT+1~, INIT+43*, INIT+44*, INIT+46, INIT+47, INIT+48, INIT+49, INIT+51
DUZ CHKKEY~, CHKKEY+1
EARY INIT+1~
EARY( INIT+11*, INIT+34, INIT+38, INIT+40
EBDATE INIT+1~, INIT+22*, INIT+26*, INIT+27*, INIT+30, INIT+33, INIT+36, INIT+41
EDATE RDT+1~, RDT+12*, RDT+13
EEDATE INIT+1~, INIT+22*, INIT+27
EF INIT+1~, INIT+3*, INIT+30, INIT+33, INIT+36, INIT+41, BLDITEM+5, BLDITEM+6, BLDITEM+7, BLDITEM+15
, BLDITEM+48, BLDITEM+51, BLDITEM+57, BLDITEM+58, BLDITEM+59, BLDITEM+60, BLDITEM+63
ERX INIT+1~, INIT+49*, INIT+51, INIT+59
ERXDAT INIT+1~, INIT+51*, INIT+53, INIT+54, INIT+55, INIT+56, INIT+57, INIT+58, BLDITEM+1~, BLDITEM+4!
ERXDAT( BLDITEM+5, BLDITEM+6, BLDITEM+7, BLDITEM+15, BLDITEM+48, BLDITEM+51, BLDITEM+57, BLDITEM+58, BLDITEM+59, BLDITEM+60
, BLDITEM+63
ERXDB INIT+1~, INIT+47*, INIT+48, INIT+49, INIT+51
ERXDS INIT+1~, INIT+48*, INIT+49, INIT+51
ERXDT BLDITEM+2~, BLDITEM+63*, BLDITEM+66, BLDITEM+67, BLDITEM+68, BLDITEM+69, BLDITEM+70, BLDITEM+71, BLDITEM+75, BLDITEM+76
, BLDITEM+77
ERXEDT BLDITEM+2~, BLDITEM+63*, BLDITEM+66, BLDITEM+67, BLDITEM+68, BLDITEM+69, BLDITEM+70, BLDITEM+71, BLDITEM+75, BLDITEM+76
, BLDITEM+77
ERXIEN INIT+1~, INIT+30*, INIT+31, INIT+33*, INIT+34, INIT+35, INIT+41*, INIT+42, BLDITEM~, BLDITEM+3
, BLDITEM+13, BLDITEM+14, BLDITEM+15, BLDITEM+27, BLDITEM+28, BLDITEM+38, BLDITEM+40, BLDITEM+41, BLDITEM+42, BLDITEM+48
, BLDITEM+51, BLDITEM+66, BLDITEM+67, BLDITEM+68, BLDITEM+69, BLDITEM+70, BLDITEM+71, BLDITEM+75, BLDITEM+76, BLDITEM+77
SEARCH+1~, SEARCH+12*, SEARCH+13, SEARCH+14, SEARCH+17
ERXIENS BLDITEM+1~, BLDITEM+3*, BLDITEM+4, BLDITEM+5, BLDITEM+6, BLDITEM+7, BLDITEM+15, BLDITEM+48, BLDITEM+51, BLDITEM+57
, BLDITEM+58, BLDITEM+59, BLDITEM+60, BLDITEM+63
ERXISTAT BLDITEM+2~, BLDITEM+60*
ERXLOCK SEARCH+1~, SEARCH+15*, SEARCH+16
ERXQFLG BLDITEM+1~, BLDITEM+24*, BLDITEM+26, BLDITEM+30*
ERXSTAT BLDITEM+2~, BLDITEM+59*, BLDITEM+61, BLDITEM+66, BLDITEM+67, BLDITEM+68, BLDITEM+69, BLDITEM+70, BLDITEM+71, BLDITEM+75
, BLDITEM+76, BLDITEM+77
ESIEN INIT+1~, INIT+10*, INIT+11
EXDS BLDITEM+1~, BLDITEM+48*, BLDITEM+49, BLDITEM+66, BLDITEM+67, BLDITEM+68, BLDITEM+69, BLDITEM+70, BLDITEM+71, BLDITEM+75
, BLDITEM+76, BLDITEM+77
EXPRIEN BLDITEM+1~, BLDITEM+51*, BLDITEM+52, BLDITEM+55
EXPRNM BLDITEM+1~, BLDITEM+55*, BLDITEM+66, BLDITEM+67, BLDITEM+68, BLDITEM+69, BLDITEM+70, BLDITEM+71, BLDITEM+75, BLDITEM+76
, BLDITEM+77
FOUND BLDITEM+1~, BLDITEM+32~, BLDITEM+33*, BLDITEM+34, BLDITEM+35, BLDITEM+36*, CHKEXP+1~, CHKEXP+2*, CHKEXP+6*, CHKEXP+7*
, CHKEXP+8
I SEARCH+1~, SEARCH+4*, SEARCH+5
IEN CHKEXP~, CHKEXP+3, CHKEXP+4, CHKEXP+5, CHKEXP+10
LINE INIT+1~, INIT+20*, INIT+50*, INIT+52, INIT+59, INIT+60*, INIT+61
LINEVAR INIT+1~, INIT+50*, INIT+52*, INIT+53*, INIT+54*, INIT+55*, INIT+56*, INIT+57*, INIT+58*, INIT+59
MANST BLDITEM+2~, BLDITEM+58*, BLDITEM+66, BLDITEM+67, BLDITEM+68, BLDITEM+69, BLDITEM+70, BLDITEM+71, BLDITEM+75, BLDITEM+76
, BLDITEM+77
MSGDT CHKEXP+1~, CHKEXP+3*, CHKEXP+10
MTYPE BLDITEM+1~, BLDITEM+6*, BLDITEM+10, BLDITEM+13, BLDITEM+14, BLDITEM+19, BLDITEM+20, BLDITEM+22, BLDITEM+25, BLDITEM+26
, BLDITEM+31, BLDITEM+36, BLDITEM+38, BLDITEM+74*, BLDITEM+75, CHKEXP~, CHKEXP+6, CHKEXP+9
NEWRX BLDITEM+1~, BLDITEM+40*, BLDITEM+41
NMI BLDITEM+1~, BLDITEM+32~, BLDITEM+35*, BLDITEM+36
NMSTAT CHKEXP+1~, CHKEXP+9*, CHKEXP+10
P5246IEN INIT+1~, INIT+29*, INIT+30
PATIEN BLDITEM+1~, BLDITEM+15*, BLDITEM+16, BLDITEM+17, BLDITEM+38, SEARCH+14*, SEARCH+15, SEARCH+18
PATNM BLDITEM+1~, BLDITEM+38*, BLDITEM+39, BLDITEM+41*, BLDITEM+42*, BLDITEM+43*, BLDITEM+66, BLDITEM+67, BLDITEM+68, BLDITEM+69
, BLDITEM+70, BLDITEM+71, BLDITEM+75, BLDITEM+76, BLDITEM+77
PCV EN~, INIT+25, INIT+34, INIT+40, BLDITEM+19, BLDITEM+20, BLDITEM+22, BLDITEM+25, BLDITEM+26, EXIT+4
>> PSNPINST INIT+27, INIT+30, INIT+33, INIT+36, INIT+41, SEARCH+13
>> PSOC1RE EXIT+4*
PSOLBK HDR+1~, HDR+3*, HDR+4
>> PSOPINST INIT+8
PSOREFSH EN+1~, HDR+5, EXIT+1!
>> PSOSITE HDR+3, INIT+24
PSOSRCH INIT+5*, EXIT+2!, EX+1!
PSOSRCH( INIT+5*, EXIT+1!
PSOSRT INIT+6*, EXIT+2!, EX+1!
PSOSRT( INIT+6*, EXIT+1!
PTDOB BLDITEM+2~, BLDITEM+17*, BLDITEM+18, BLDITEM+45, BLDITEM+46*, BLDITEM+67, BLDITEM+76, BLDITEM+77
PTDOBE BLDITEM+1~, BLDITEM+44*, BLDITEM+45*, BLDITEM+46*, BLDITEM+66, BLDITEM+67, BLDITEM+68, BLDITEM+69, BLDITEM+70, BLDITEM+71
, BLDITEM+75, BLDITEM+76, BLDITEM+77
PTLOOP INIT+1~, INIT+45*, INIT+46*, INIT+47, INIT+48, INIT+49, INIT+51
RELMSG CHKEXP+1~, CHKEXP+4*
RELMSGT CHKEXP+1~, CHKEXP+5*, CHKEXP+6, CHKEXP+7
REQIEN BLDITEM+1~, BLDITEM+27*, BLDITEM+28
RES SEARCH+1~, SEARCH+5*, SEARCH+6, SEARCH+7, SORT+1~, SORT+3*, SORT+4, SORT+5, DIR+22*, DIR+23
, DIR+27
RESTYPE BLDITEM+1~, BLDITEM+7*, BLDITEM+22, BLDITEM+26
RLINE DIR+1~, DIR+23*, DIR+24, DIR+25
RXSTATN BLDITEM+1~, BLDITEM+5*, BLDITEM+8, BLDITEM+9, BLDITEM+10, BLDITEM+13, BLDITEM+14, BLDITEM+19, BLDITEM+25
SEL MTYPE2+1~
SGLOB INIT+1~, INIT+4*, INIT+44, INIT+46, INIT+47, INIT+48, INIT+49, INIT+51, INIT+62, BLDITEM+66
, BLDITEM+67, BLDITEM+68, BLDITEM+69, BLDITEM+70, BLDITEM+71, BLDITEM+75, BLDITEM+76, BLDITEM+77
SLIST DIR~, DIR+20
SLIST(1 DIR+11
SLIST(2 DIR+12
SLIST(3 DIR+13
SLIST(4 DIR+14
SLIST(5 DIR+15
SLIST(6 DIR+16
SLIST(7 DIR+17
SLIST(8 DIR+18
SORT DIR~, DIR+4, DIR+5, DIR+13, DIR+18, DIR+22
SORTT EN~, INIT+6, INIT+45, INIT+46, BLDITEM+65, BLDITEM+66, BLDITEM+67, BLDITEM+68, BLDITEM+69, BLDITEM+70
, BLDITEM+71, BLDITEM+72, EX+1!
SRCH EN~, INIT+5, INIT+12, INIT+19, INIT+40, BLDITEM+19, BLDITEM+20, BLDITEM+25, BLDITEM+26, EX+1!
SRCH(1 INIT+13, BLDITEM+16
SRCH(2 INIT+15, BLDITEM+18
SRCH(3 INIT+22, INIT+26
SRCH(4 INIT+14, BLDITEM+52
SRCH(5 INIT+16, INIT+38, BLDITEM+8, BLDITEM+9, BLDITEM+10, BLDITEM+22, BLDITEM+61
SRCH(6 BLDITEM+49
SRCH(7 INIT+17, BLDITEM+8, BLDITEM+9, BLDITEM+10, BLDITEM+22, BLDITEM+31, BLDITEM+34, BLDITEM+35, BLDITEM+36, BLDITEM+76
SRCHARY SEARCH+1~, SEARCH+5, SEARCH+9, SEARCH+20, SEARCH+21, SORT+6, MTYPE2+6
SRCHARY( SEARCH+7*
SRCHARY(7 MTYPE2+6*
SRCHARY(8 SEARCH+8, SEARCH+10, SEARCH+11, SEARCH+12
SSTWO INIT+1~, INIT+36*, INIT+38, INIT+40, INIT+41
STAG DIR+1~, DIR+25*, DIR+26
STYP SEARCH+20, SORT+1~, SORT+5*, SORT+6, SORT+7
SUBS INIT+1~, INIT+13*, INIT+14*, INIT+15*, INIT+16*, INIT+17*, INIT+18*, INIT+19*, INIT+27, INIT+33
INIT+36, INIT+41
SUBS2 INIT+1~, INIT+15*, INIT+28, INIT+29
SVAL INIT+1~, INIT+13*, INIT+14*, INIT+15*, INIT+16*, INIT+17*, INIT+29, INIT+32, INIT+33, SEARCH+1~
SORT+1~, DIR+1~, DIR+26*, DIR+27
U INIT+13, INIT+14, INIT+15, INIT+16, INIT+17, INIT+22, INIT+53, INIT+54, INIT+55, INIT+56
INIT+57, INIT+58, BLDITEM+16, BLDITEM+35, BLDITEM+36, BLDITEM+49, BLDITEM+52, BLDITEM+61, BLDITEM+66, BLDITEM+67
, BLDITEM+68, BLDITEM+69, BLDITEM+70, BLDITEM+71, BLDITEM+75, BLDITEM+76, BLDITEM+77, SEARCH+7, SORT+4, SORT+5
, DIR+27, RDT+13
>> VALMAR HDR+5, EXIT+1
>> VALMBCK EXIT+4*, SEARCH+9*, SEARCH+11*, SEARCH+13*, SEARCH+16*, SEARCH+19*, SEARCH+22*, MTYPE2+2*
>> VALMCNT INIT+61*
>> VALMEVL INIT+5, INIT+6, EXIT+1, EXIT+2
>> VALMHDR(1 HDR+2*
>> VALMHDR(2 HDR+4*
X INIT+1~, HELP+1*
Y DIR+1~, DIR+21, DIR+22, PAT+1~, PAT+3, PAT+4, DOB+1~, DOB+5, DOB+6, RDT+1~
, RDT+5, RDT+6!, RDT+11, RDT+12, PRVNM+1~, PRVNM+4, PRVNM+5, ESTAT+2~, ESTAT+5, ESTAT+6
, DNAME+1~, DNAME+5, DNAME+6, MTYPE+1~, MTYPE+3, MTYPE+4, MTYPE2+1~, MTYPE2+5, MTYPE2+6, EREFNUM+1~
, EREFNUM+3, EREFNUM+4
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 |  Local Variables  | All