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

Package: Outpatient Pharmacy

Routine: PSOERXC1


Information

PSOERXC1 ;ALB/BWF - eRx Utilities/RPC's ; 6/1/2018 5:14pm

Source Information

Source file <PSOERXC1.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Outpatient Pharmacy 7 (CHKEXP,EN)^PSOERX  EN^PSOERX1  ($$L,UL)^PSOERX1A  $$CSFILTER^PSOERXUT  DIRE^PSOERXX1  ^PSOLSET  EX^PSOORFI1  
VA FileMan 4 ^%DT  ^DIC  $$GET1^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 PATIENT CENTRIC VIEW  PSO ERX PCV SEARCH QUEUE  PSO ERX PCV SELECT BY NUMBER  PSO ERX PCV SELECT PATIENT  PSO ERX PCV SORT ENTRIES  PSOERX  PSOERXEN  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
EN(SRCH,SORTT,PCVSTAT) ; -- main entry point for PSO ERX PATIENT CENTRIC VIEW
HDR ; -- header code
INIT ; -- init variables and list array
CENTSRCH ;
CENTSORT ;
ASKCSSORT() ;
SBN ;NOTES: KEEPS UNLOCKING REGARDLESS OF THE USER COMING BACK FROM AN ACTUAL LOCK. MAY NEED TO CONSIDER A TAG THAT DETERMINES WHETHER OR NOT TO
PATDATA ;
DIR(SORT,CNT,SLIST) ;
PAT() ;
DOB() ;
EREFNUM() ;
BLDITEM(ERXIEN,PATCNT,STAT) ;
CHKSTAT(FILSTAT,ERXSTAT,ERXISTAT) ;
EX ; early exit logic
HELP ; -- help code
EXIT ; -- exit code
EXPND ; -- expand code

External References

Name Field # of Occurrence
^%DT DOB+4
^DIC PAT+2
$$GET1^DIQ HDR+3, INIT+15, INIT+29, INIT+36, INIT+37, INIT+40, INIT+42, INIT+46, INIT+47, INIT+59
INIT+73, CENTSRCH+14, CENTSRCH+15, BLDITEM+3, BLDITEM+4, BLDITEM+5, BLDITEM+14, BLDITEM+16, CHKSTAT+3
^DIR CENTSRCH+17, ASKCSSORT+5, SBN+8, PATDATA+4, PATDATA+9, DIR+17, EREFNUM+2
CHKEXP^PSOERX BLDITEM+8, BLDITEM+10
EN^PSOERX SBN+9, PATDATA+10
EN^PSOERX1 CENTSRCH+18
$$L^PSOERX1A CENTSRCH+16, SBN+7, PATDATA+8
UL^PSOERX1A CENTSRCH+19, SBN+10, PATDATA+11
$$CSFILTER^PSOERXUT INIT+41, BLDITEM+2
DIRE^PSOERXX1 CENTSRCH+12, CENTSRCH+14
^PSOLSET INIT+8
EX^PSOORFI1 EX+3
EN^VALM EN+2
$$SETFLD^VALM1 INIT+109, INIT+110, INIT+111, INIT+112, INIT+113, INIT+114, INIT+115, INIT+116, INIT+117, INIT+118
INIT+119, INIT+120
FULL^VALM1 CENTSRCH+2, CENTSORT+2, SBN+3, PATDATA+3
SET^VALM10 INIT+34, INIT+121
$$FMADD^XLFDT HDR+4, INIT+11, INIT+15
$$FMDIFF^XLFDT INIT+72
$$FMTE^XLFDT HDR+4, INIT+37
$$UP^XLFSTR EREFNUM+4
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"eRx could not be found."
  • Line Location: CENTSRCH+12
Function Call: WRITE
  • Prompt: !!,"eRx does not belong to this division.",!
  • Line Location: CENTSRCH+14
Function Call: WRITE
  • Prompt: !!,"Do you want to group by controlled substance? ",!
  • Line Location: ASKCSSORT+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Routine Call
  • DIC
  • Line Location:
    • PAT+2
Routine Call
  • DIR
  • Line Location:
    • CENTSRCH+17
    • ASKCSSORT+5
    • SBN+8
    • PATDATA+4
    • PATDATA+9
    • DIR+17
    • EREFNUM+2
Routine Call
  • VALM
  • Line Location:
    • EN+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^PS(52.45 - [#52.45] GET1^DIQ
^PS(52.46 - [#52.46] GET1^DIQ
^PS(52.49 - [#52.49] GET1^DIQ
^PS(59 - [#59] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.46 - [#52.46] INIT+24
^PS(52.49 - [#52.49] INIT+17, INIT+20, INIT+25, INIT+27, INIT+31, INIT+38, INIT+39, CENTSRCH+12, CENTSRCH+13
^TMP("CENTRIC" INIT+6!, INIT+34, INIT+35, INIT+50, INIT+60*, INIT+61, INIT+123!, BLDITEM+18, BLDITEM+19*
^TMP("PSOERXC1" INIT+6!, INIT+10, INIT+123!
^TMP("RDATE" INIT+6!, INIT+48*, INIT+49*, INIT+72, INIT+123!
^XTMP("PSOERXLOCK" INIT+73

Label References

Name Line Occurrences
$$ DIR+22
$$ASKCSSORT CENTSORT+8
$$CHKSTAT BLDITEM+13
$$DIR CENTSRCH+6, CENTSORT+4
BLDITEM INIT+21, INIT+26, INIT+32
EN CENTSRCH+21, CENTSRCH+22, CENTSORT+7, CENTSORT+10
INIT HDR+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% SBN+12!, PATDATA+12!
%DT DOB+1~, DOB+2*
%DT("A" DOB+3*
B INIT+2~, INIT+75*, INIT+76
BDATE INIT+1~, INIT+11*, INIT+14, INIT+16
BDOVR INIT+2~, INIT+15*
CCR INIT+2~, INIT+69*, INIT+91*, INIT+92*, INIT+93*, INIT+101
CNT INIT+2~, INIT+12*, DIR~, DIR+5, DIR+6
COUNT INIT+1~, INIT+50*, INIT+51*, INIT+52*, INIT+53*, INIT+54*, INIT+56*, INIT+58*, INIT+59*, INIT+60
INIT+61*, INIT+63, INIT+64*, INIT+65, INIT+66, INIT+67, INIT+68, INIT+69, INIT+70, INIT+71
INIT+76
CSCNT INIT+3~, INIT+71*, INIT+97, INIT+101
CSPREFIX INIT+3~, INIT+97*, INIT+98*, INIT+99*, INIT+100*, INIT+101, EXIT+2!
DIC PAT+1~, PAT+2*
DIC(0 PAT+2*
DIR CENTSRCH+17!, SBN+8!, PATDATA+2~, PATDATA+9!, DIR+1~, DIR+2!, DIR+17!, EREFNUM+1~
DIR("A" EREFNUM+2*
DIR("B" ASKCSSORT+3*
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(0 CENTSRCH+17*, ASKCSSORT+2*, SBN+8*, PATDATA+4*, PATDATA+9*, DIR+3*, DIR+4*, EREFNUM+2*
DIRECT INIT+2~, INIT+98*, INIT+99*, INIT+100*, INIT+102*, INIT+104
DOB INIT+1~, INIT+37*, INIT+99, BLDITEM+1~, BLDITEM+16*, BLDITEM+17
DOB2 INIT+1~, INIT+37*, INIT+101
DONE CENTSRCH+1~, CENTSRCH+3*, CENTSRCH+5, CENTSRCH+7*, CENTSRCH+9*
DRGCSCH BLDITEM+1~
DT HDR+4, INIT+11, INIT+13, INIT+15, INIT+72
EBDATE INIT+1~
EDATE INIT+1~, INIT+13*, INIT+17, INIT+38
EDAYS INIT+2~, INIT+72*, INIT+80, INIT+100
EDAYS2 INIT+2~, INIT+80*, INIT+101
EDLOOP INIT+2~, INIT+103*, INIT+104*, INIT+106, INIT+108
ERXCSFLG BLDITEM+1~
ERXESTAT BLDITEM+1~, BLDITEM+5*, BLDITEM+8, BLDITEM+10, BLDITEM+11, BLDITEM+13
ERXIEN INIT+1~, INIT+20*, INIT+21, INIT+25*, INIT+26, INIT+31*, INIT+32, INIT+39*, INIT+40, INIT+41
INIT+42, INIT+46, INIT+47, INIT+59, CENTSRCH+13*, CENTSRCH+14, CENTSRCH+15, CENTSRCH+18, BLDITEM~, BLDITEM+2
, BLDITEM+3, BLDITEM+4, BLDITEM+5, BLDITEM+8, BLDITEM+10, BLDITEM+14
ERXISTAT CHKSTAT~, CHKSTAT+8
ERXLOCK CENTSRCH+16*, CENTSRCH+17, SBN+2~, SBN+7*, SBN+8, PATDATA+8*, PATDATA+9
ERXPAT SBN+2~
ERXSTAT INIT+1~, INIT+42*, INIT+43, INIT+44, INIT+51, INIT+52, INIT+53, INIT+54, INIT+55, INIT+58
, BLDITEM+1~, BLDITEM+4*, BLDITEM+13, CHKSTAT~, CHKSTAT+4, CHKSTAT+5, CHKSTAT+6, CHKSTAT+7
ESCODE INIT+3~, INIT+44*, INIT+45, BLDITEM+1~, BLDITEM+11*, BLDITEM+12
FILSTAT CHKSTAT~, CHKSTAT+3, CHKSTAT+6, CHKSTAT+7, CHKSTAT+8
G INIT+2~, INIT+62*, INIT+63, INIT+64
GLOB INIT+2~, INIT+10*, INIT+101, INIT+104, INIT+106, INIT+108
HOLD INIT+1~, INIT+68*, INIT+89*, INIT+90*, INIT+101
I CENTSRCH+1~, CENTSRCH+5*, CENTSRCH+6
IPR INIT+1~, INIT+67*, INIT+87*, INIT+88*, INIT+101
IWCHECK CHKSTAT+1~, CHKSTAT+3*, CHKSTAT+4, CHKSTAT+5
LASTUSER INIT+2~, INIT+73*, INIT+101
LINE INIT+2~, INIT+33*, INIT+34*, INIT+107*, INIT+109, INIT+121, INIT+122
LINEVAR INIT+2~, INIT+107*, INIT+109*, INIT+110*, INIT+111*, INIT+112*, INIT+113*, INIT+114*, INIT+115*, INIT+116*
INIT+117*, INIT+118*, INIT+119*, INIT+120*, INIT+121
MTYPE INIT+2~, INIT+46*, INIT+58, BLDITEM+1~, BLDITEM+3*, BLDITEM+8, BLDITEM+10
NEW INIT+1~, INIT+65*, INIT+83*, INIT+84*, INIT+101
OTH INIT+2~, INIT+70*, INIT+94*, INIT+95*, INIT+96*, INIT+101
P5246IEN INIT+3~, INIT+24*, INIT+25
PATCNT INIT+2~, INIT+12*, INIT+17, INIT+20, INIT+21, INIT+24, INIT+25, INIT+26, INIT+27, INIT+31
INIT+32, BLDITEM~, BLDITEM+19*
PATIEN INIT+1~, INIT+33*, INIT+35*, INIT+36, INIT+37, INIT+38, INIT+39, INIT+48, INIT+49, INIT+50
INIT+60, INIT+61, INIT+72, INIT+73, INIT+101, CENTSRCH+15*, CENTSRCH+16, CENTSRCH+19, SBN+2~, SBN+6*
SBN+7, SBN+9, SBN+10, PATDATA+2~, PATDATA+7*, PATDATA+8, PATDATA+10, PATDATA+11, BLDITEM+1~, BLDITEM+14*
, BLDITEM+15, BLDITEM+16, BLDITEM+18, BLDITEM+19
PATINFO INIT+2~, INIT+108*, INIT+109, INIT+110, INIT+111, INIT+112, INIT+113, INIT+114, INIT+115, INIT+116
INIT+117, INIT+118, INIT+119, INIT+120
PATLOOP INIT+2~, INIT+105*, INIT+106*, INIT+108, INIT+121
PCVSTAT EN~, INIT+21, INIT+26, INIT+32, CENTSORT+10
PNAME INIT+1~, INIT+36*, INIT+98, INIT+101
>> PSNPINST INIT+17, INIT+20, INIT+25, INIT+27, INIT+31, INIT+40, CENTSRCH+14
PSOC1RE EN+1~, HDR+5!, CENTSRCH+4*, CENTSORT+3*, EX+2*, EXIT+3*
>> PSOCSERX ASKCSSORT+1
>> PSOINST INIT+7, INIT+9
PSOLBK HDR+1~, HDR+3*, HDR+4
PSOPRMPT EX+1!, EXIT+1!
>> PSOSITE HDR+3, INIT+15
PSOSRCH INIT+4*, EX+1!
PSOSRCH( INIT+4*
PSOSRT INIT+5*, EX+1!
PSOSRT( INIT+5*
RDATE INIT+1~, INIT+47*, INIT+48, INIT+49
RES CENTSRCH+1~, CENTSRCH+6*, CENTSRCH+7, CENTSRCH+8, CENTSORT+1~, CENTSORT+4*, CENTSORT+5, CENTSORT+6, DIR+18*, DIR+19
, DIR+23
RESP PATDATA+2~, PATDATA+6*, PATDATA+7
RET CHKSTAT+1~, CHKSTAT+2*, CHKSTAT+4, CHKSTAT+5, CHKSTAT+6, CHKSTAT+7, CHKSTAT+8
RLINE DIR+1~, DIR+19*, DIR+20, DIR+21
RXDATE INIT+1~, INIT+14*, INIT+15*, INIT+17*, INIT+20, INIT+25, INIT+27, INIT+31
RXDATE2 INIT+1~, INIT+16*, INIT+38*, INIT+39
RXSTAT INIT+1~, INIT+27*, INIT+28, INIT+29, INIT+31
RXSTATE INIT+2~, INIT+29*, INIT+30
SLIST DIR~, DIR+16
SLIST(1 DIR+11
SLIST(2 DIR+12
SLIST(3 DIR+13
SORT DIR~, DIR+4, DIR+5, DIR+14, DIR+18
SORTBYCS INIT+97, CENTSORT+8*, CENTSORT+9, EXIT+2!
SORTT EN~, INIT+5, INIT+98, INIT+99, INIT+100, EX+1!
SRCH EN~, INIT+4, SBN+2~, SBN+9, PATDATA+2~, PATDATA+10, EX+1!
SRCH(1 INIT+18, INIT+19, SBN+9*, PATDATA+10*, BLDITEM+15
SRCH(2 INIT+22, INIT+23, BLDITEM+17
SRCHARY CENTSRCH+1~, CENTSRCH+6, CENTSRCH+10, CENTSRCH+21, CENTSRCH+22, CENTSORT+7
SRCHARY( CENTSRCH+8*
SRCHARY(3 CENTSRCH+9, CENTSRCH+11, CENTSRCH+12, CENTSRCH+13
STAG DIR+1~, DIR+21*, DIR+22
STAT INIT+28, BLDITEM~, BLDITEM+13
STYP CENTSRCH+21, CENTSORT+1~, CENTSORT+6*, CENTSORT+7, CENTSORT+10
SVAL INIT+3~, INIT+19*, INIT+20, INIT+23*, INIT+24, CENTSRCH+1~, CENTSORT+1~, DIR+1~, DIR+22*, DIR+23
TOTAL INIT+1~, INIT+74*, INIT+77*, INIT+78, INIT+79*, INIT+81*, INIT+82*, INIT+101
U INIT+19, INIT+23, INIT+51, INIT+52, INIT+53, INIT+54, INIT+56, INIT+58, INIT+59, INIT+63
INIT+64, INIT+65, INIT+66, INIT+67, INIT+68, INIT+69, INIT+70, INIT+71, INIT+73, INIT+76
INIT+101, INIT+109, INIT+110, INIT+111, INIT+112, INIT+113, INIT+114, INIT+115, INIT+116, INIT+117
INIT+118, INIT+119, INIT+120, CENTSRCH+8, CENTSORT+5, CENTSORT+6, DIR+23, BLDITEM+15
>> VALMAR HDR+5, SBN+6, PATDATA+1, PATDATA+7, EXIT+1
>> VALMBCK CENTSRCH+4*, CENTSRCH+10*, CENTSRCH+12*, CENTSRCH+14*, CENTSRCH+17*, CENTSRCH+20*, CENTSORT+3*, CENTSORT+5*, SBN+5*, SBN+8*
SBN+11*, PATDATA+1*, PATDATA+5*, PATDATA+9*, PATDATA+13*
>> VALMBG PATDATA+4
>> VALMCNT INIT+34*, INIT+122*
>> VALMEVL INIT+4, INIT+5
>> VALMHDR(1 HDR+2*
>> VALMHDR(2 HDR+4*
>> VALMLST PATDATA+4
>> VALMSG PATDATA+1*
VAR INIT+2~, INIT+76*, INIT+77
WAIT INIT+1~, INIT+66*, INIT+85*, INIT+86*, INIT+101
>> X HELP+1*
>> XQORNOD(0 SBN+4
Y ASKCSSORT+6, SBN+2~, SBN+4*, SBN+5, SBN+6, PATDATA+2~, PATDATA+5, PATDATA+6, DIR+1~, DIR+17
, DIR+18, PAT+1~, PAT+3, PAT+4, DOB+1~, DOB+5, DOB+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