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

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