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

Package Total Call Graph
Outpatient Pharmacy 10 EN^PSOERX1  ($$L,UL)^PSOERX1A  $$PRESOLV^PSOERXA1  $$ASKCSSORT^PSOERXC1  UPDSTAT^PSOERXU1  ($$GETREQ,$$RESOLV,RRDELTA)^PSOERXU2  ($$GETDRUG,$$GETPAT,$$GETPROV)^PSOERXU5  $$CSFILTER^PSOERXUT  
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: 11

Package Total Caller Graph
Outpatient Pharmacy 10 PSO ERX HOLDING QUEUE  PSO ERX HQ SEARCH  PSO ERX HQ SORT  PSO ERX MESSAGE VIEW  PSO ERX PCV MESSAGE VIEW  PSOERPC0  PSOERPC1  PSOERRX1  
PSOERXC1  PSOERXEN  
Kernel 1 ^ORD(101  

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, INIT+52, BLDITEM+20, BLDITEM+41, BLDITEM+44, BLDITEM+45, BLDITEM+58, SEARCH+13
, SEARCH+14, CHKEXP+3, CHKEXP+5
GETS^DIQ BLDITEM+6
^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
$$ASKCSSORT^PSOERXC1 SORT+7
UPDSTAT^PSOERXU1 CHKEXP+10
$$GETREQ^PSOERXU2 BLDITEM+30
$$RESOLV^PSOERXU2 BLDITEM+43
RRDELTA^PSOERXU2 BLDITEM+31
$$GETDRUG^PSOERXU5 BLDITEM+51
$$GETPAT^PSOERXU5 BLDITEM+18
$$GETPROV^PSOERXU5 BLDITEM+54
$$CSFILTER^PSOERXUT BLDITEM+4
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+48, BLDITEM+66
$$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+16, BLDITEM+17
EN SEARCH+20, SEARCH+21, SORT+9, SORT+10, SORT+11, 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+60*, BLDITEM+70, BLDITEM+71, BLDITEM+74, BLDITEM+75, BLDITEM+76, BLDITEM+77, BLDITEM+82, BLDITEM+83
, BLDITEM+84
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+67*, DIR~, DIR+5, DIR+6
CSERX BLDITEM+2~, BLDITEM+10*, BLDITEM+68, BLDITEM+73
CSPREFIX BLDITEM+2~, BLDITEM+68*, BLDITEM+70, BLDITEM+71, BLDITEM+73*, BLDITEM+74, BLDITEM+75, BLDITEM+76, BLDITEM+77, BLDITEM+82
, EXIT+6!
DELTA BLDITEM+1~, BLDITEM+31
DELTA( BLDITEM+32
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!, SORT+4!, 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+7, BLDITEM+8, BLDITEM+9, BLDITEM+10
, BLDITEM+18, BLDITEM+51, BLDITEM+54, BLDITEM+60, BLDITEM+61, BLDITEM+62, BLDITEM+63, BLDITEM+66
ERX INIT+1~, INIT+49*, INIT+51, INIT+52, INIT+59
ERXDAT INIT+1~, INIT+51*, INIT+53, INIT+54, INIT+55, INIT+56, INIT+57, INIT+58, BLDITEM+1~, BLDITEM+6!
ERXDAT( BLDITEM+7, BLDITEM+8, BLDITEM+9, BLDITEM+10, BLDITEM+18, BLDITEM+51, BLDITEM+54, BLDITEM+60, BLDITEM+61, BLDITEM+62
, BLDITEM+63, BLDITEM+66
ERXDB INIT+1~, INIT+47*, INIT+48, INIT+49, INIT+51
ERXDS INIT+1~, INIT+48*, INIT+49, INIT+51
ERXDT BLDITEM+2~, BLDITEM+66*, BLDITEM+70, BLDITEM+71, BLDITEM+74, BLDITEM+75, BLDITEM+76, BLDITEM+77, BLDITEM+82, BLDITEM+83
, BLDITEM+84
ERXEDT BLDITEM+2~, BLDITEM+66*, BLDITEM+70, BLDITEM+71, BLDITEM+74, BLDITEM+75, BLDITEM+76, BLDITEM+77, BLDITEM+82, BLDITEM+83
, BLDITEM+84
ERXIEN INIT+1~, INIT+30*, INIT+31, INIT+33*, INIT+34, INIT+35, INIT+41*, INIT+42, BLDITEM~, BLDITEM+4
, BLDITEM+5, BLDITEM+16, BLDITEM+17, BLDITEM+18, BLDITEM+30, BLDITEM+31, BLDITEM+41, BLDITEM+43, BLDITEM+44, BLDITEM+45
, BLDITEM+51, BLDITEM+54, BLDITEM+70, BLDITEM+71, BLDITEM+74, BLDITEM+75, BLDITEM+76, BLDITEM+77, BLDITEM+82, BLDITEM+83
, BLDITEM+84, SEARCH+1~, SEARCH+12*, SEARCH+13, SEARCH+14, SEARCH+17
ERXIENS BLDITEM+1~, BLDITEM+5*, BLDITEM+6, BLDITEM+7, BLDITEM+8, BLDITEM+9, BLDITEM+10, BLDITEM+18, BLDITEM+51, BLDITEM+54
, BLDITEM+60, BLDITEM+61, BLDITEM+62, BLDITEM+63, BLDITEM+66
ERXISTAT BLDITEM+2~, BLDITEM+63*
ERXLOCK SEARCH+1~, SEARCH+15*, SEARCH+16
ERXQFLG BLDITEM+1~, BLDITEM+27*, BLDITEM+29, BLDITEM+33*
ERXSTAT BLDITEM+2~, BLDITEM+62*, BLDITEM+64, BLDITEM+70, BLDITEM+71, BLDITEM+74, BLDITEM+75, BLDITEM+76, BLDITEM+77, BLDITEM+82
, BLDITEM+83, BLDITEM+84
ESIEN INIT+1~, INIT+10*, INIT+11
EXDS BLDITEM+1~, BLDITEM+51*, BLDITEM+52, BLDITEM+70, BLDITEM+71, BLDITEM+74, BLDITEM+75, BLDITEM+76, BLDITEM+77, BLDITEM+82
, BLDITEM+83, BLDITEM+84
EXPRIEN BLDITEM+1~, BLDITEM+54*, BLDITEM+55, BLDITEM+58
EXPRNM BLDITEM+1~, BLDITEM+58*, BLDITEM+70, BLDITEM+71, BLDITEM+74, BLDITEM+75, BLDITEM+76, BLDITEM+77, BLDITEM+82, BLDITEM+83
, BLDITEM+84
FOUND BLDITEM+1~, BLDITEM+35~, BLDITEM+36*, BLDITEM+37, BLDITEM+38, BLDITEM+39*, 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+61*, BLDITEM+70, BLDITEM+71, BLDITEM+74, BLDITEM+75, BLDITEM+76, BLDITEM+77, BLDITEM+82, BLDITEM+83
, BLDITEM+84
MSGDT CHKEXP+1~, CHKEXP+3*, CHKEXP+10
MTYPE BLDITEM+1~, BLDITEM+8*, BLDITEM+13, BLDITEM+16, BLDITEM+17, BLDITEM+22, BLDITEM+23, BLDITEM+25, BLDITEM+28, BLDITEM+29
, BLDITEM+34, BLDITEM+39, BLDITEM+41, BLDITEM+81*, BLDITEM+82, CHKEXP~, CHKEXP+6, CHKEXP+9
NEWRX BLDITEM+1~, BLDITEM+43*, BLDITEM+44
NMI BLDITEM+1~, BLDITEM+35~, BLDITEM+38*, BLDITEM+39
NMSTAT CHKEXP+1~, CHKEXP+9*, CHKEXP+10
P5246IEN INIT+1~, INIT+29*, INIT+30
PATIEN BLDITEM+1~, BLDITEM+18*, BLDITEM+19, BLDITEM+20, BLDITEM+41, SEARCH+14*, SEARCH+15, SEARCH+18
PATNM BLDITEM+1~, BLDITEM+41*, BLDITEM+42, BLDITEM+44*, BLDITEM+45*, BLDITEM+46*, BLDITEM+70, BLDITEM+71, BLDITEM+74, BLDITEM+75
, BLDITEM+76, BLDITEM+77, BLDITEM+82, BLDITEM+83, BLDITEM+84
PCV EN~, INIT+25, INIT+34, INIT+40, BLDITEM+22, BLDITEM+23, BLDITEM+25, BLDITEM+28, BLDITEM+29, EXIT+5
>> PSNPINST INIT+27, INIT+30, INIT+33, INIT+36, INIT+41, SEARCH+13
>> PSOC1RE EXIT+5*
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+3!, EX+1!, MTYPE2+1~
PSOSRCH( INIT+5*, EXIT+1!
PSOSRT INIT+6*, EXIT+3!, EX+1!, MTYPE2+1~
PSOSRT( INIT+6*, EXIT+1!
PTDOB BLDITEM+2~, BLDITEM+20*, BLDITEM+21, BLDITEM+48, BLDITEM+49*, BLDITEM+71, BLDITEM+83, BLDITEM+84
PTDOBE BLDITEM+1~, BLDITEM+47*, BLDITEM+48*, BLDITEM+49*, BLDITEM+70, BLDITEM+71, BLDITEM+74, BLDITEM+75, BLDITEM+76, BLDITEM+77
, BLDITEM+82, BLDITEM+83, BLDITEM+84
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+30*, BLDITEM+31
RES SEARCH+1~, SEARCH+5*, SEARCH+6, SEARCH+7, SORT+1~, SORT+3*, SORT+5, SORT+6, DIR+22*, DIR+23
, DIR+27
RESTYPE BLDITEM+1~, BLDITEM+9*, BLDITEM+25, BLDITEM+29
RLINE DIR+1~, DIR+23*, DIR+24, DIR+25
RXSTATN BLDITEM+1~, BLDITEM+7*, BLDITEM+11, BLDITEM+12, BLDITEM+13, BLDITEM+16, BLDITEM+17, BLDITEM+22, BLDITEM+28
SEL MTYPE2+1~
SGLOB INIT+1~, INIT+4*, INIT+44, INIT+46, INIT+47, INIT+48, INIT+49, INIT+51, INIT+62, BLDITEM+70
, BLDITEM+71, BLDITEM+74, BLDITEM+75, BLDITEM+76, BLDITEM+77, BLDITEM+82, BLDITEM+83, BLDITEM+84
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
SORTBYCS BLDITEM+68, BLDITEM+73, EXIT+6!, SORT+7*, SORT+8
SORTT EN~, INIT+6, INIT+45, INIT+46, BLDITEM+69, BLDITEM+70, BLDITEM+71, BLDITEM+72, BLDITEM+75, BLDITEM+76
, BLDITEM+77, BLDITEM+78, EX+1!, MTYPE2+1~
SRCH EN~, INIT+5, INIT+12, INIT+19, INIT+40, BLDITEM+22, BLDITEM+23, BLDITEM+28, BLDITEM+29, EX+1!
, SORT+10, MTYPE2+1~
SRCH(1 INIT+13, BLDITEM+19
SRCH(2 INIT+15, BLDITEM+21
SRCH(3 INIT+22, INIT+26
SRCH(4 INIT+14, BLDITEM+55
SRCH(5 INIT+16, INIT+38, BLDITEM+11, BLDITEM+12, BLDITEM+13, BLDITEM+25, BLDITEM+64
SRCH(6 BLDITEM+52
SRCH(7 INIT+17, BLDITEM+11, BLDITEM+12, BLDITEM+13, BLDITEM+25, BLDITEM+34, BLDITEM+37, BLDITEM+38, BLDITEM+39, BLDITEM+83
SRCHARY SEARCH+1~, SEARCH+5, SEARCH+9, SEARCH+20, SEARCH+21, SORT+9, MTYPE2+1~, 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+6*, SORT+9, SORT+10, SORT+11
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+19, BLDITEM+38, BLDITEM+39, BLDITEM+52, BLDITEM+55, BLDITEM+64, BLDITEM+70, BLDITEM+71
, BLDITEM+74, BLDITEM+75, BLDITEM+76, BLDITEM+77, BLDITEM+82, BLDITEM+83, BLDITEM+84, SEARCH+7, SORT+5, SORT+6
, DIR+27, RDT+13
>> VALMAR HDR+5, EXIT+1
>> VALMBCK EXIT+5*, 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+3
>> 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