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

Package Total Call Graph
Outpatient Pharmacy 6 (CHKEXP,EN)^PSOERX  EN^PSOERX1  ($$L,UL)^PSOERX1A  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: 6

Package Total Caller Graph
Outpatient Pharmacy 6 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  PSOERXEN  

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 ;
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+41, INIT+45, INIT+46, INIT+70
CENTSRCH+14, CENTSRCH+15, BLDITEM+2, BLDITEM+3, BLDITEM+4, BLDITEM+13, BLDITEM+15, CHKSTAT+3
^DIR CENTSRCH+17, SBN+8, PATDATA+4, PATDATA+9, DIR+16, EREFNUM+2
CHKEXP^PSOERX BLDITEM+7, BLDITEM+9
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
DIRE^PSOERXX1 CENTSRCH+12, CENTSRCH+14
^PSOLSET INIT+8
EX^PSOORFI1 EX+3
EN^VALM EN+2
$$SETFLD^VALM1 INIT+106, INIT+107, INIT+108, INIT+109, INIT+110, INIT+111, INIT+112, INIT+113, INIT+114, INIT+115
INIT+116, INIT+117
FULL^VALM1 CENTSRCH+2, CENTSORT+2, SBN+3, PATDATA+3
SET^VALM10 INIT+34, INIT+118
$$FMADD^XLFDT HDR+4, INIT+11, INIT+15
$$FMDIFF^XLFDT INIT+69
$$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: !!
  • Line Location: HELP+1
Routine Call
  • DIC
  • Line Location:
    • PAT+2
Routine Call
  • DIR
  • Line Location:
    • CENTSRCH+17
    • SBN+8
    • PATDATA+4
    • PATDATA+9
    • DIR+16
    • 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+49, INIT+58*, INIT+59, INIT+120!, BLDITEM+17, BLDITEM+18*
^TMP("PSOERXC1" INIT+6!, INIT+10, INIT+120!
^TMP("RDATE" INIT+6!, INIT+47*, INIT+48*, INIT+69, INIT+120!
^XTMP("PSOERXLOCK" INIT+70

Label References

Name Line Occurrences
$$ DIR+21
$$CHKSTAT BLDITEM+12
$$DIR CENTSRCH+6, CENTSORT+4
BLDITEM INIT+21, INIT+26, INIT+32
EN CENTSRCH+21, CENTSRCH+22, CENTSORT+7, CENTSORT+8
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+72*, INIT+73
BDATE INIT+1~, INIT+11*, INIT+14, INIT+16
BDOVR INIT+2~, INIT+15*
CCR INIT+2~, INIT+67*, INIT+88*, INIT+89*, INIT+90*, INIT+95, INIT+96, INIT+97, INIT+98
CNT INIT+2~, INIT+12*, DIR~, DIR+5, DIR+6
COUNT INIT+1~, INIT+49*, INIT+50*, INIT+51*, INIT+52*, INIT+53*, INIT+55*, INIT+57*, INIT+58, INIT+59*
INIT+61, INIT+62*, INIT+63, INIT+64, INIT+65, INIT+66, INIT+67, INIT+68, INIT+73
DIC PAT+1~, PAT+2*
DIC(0 PAT+2*
DIR CENTSRCH+17!, SBN+8!, PATDATA+2~, PATDATA+9!, DIR+1~, DIR+2!, DIR+16!, EREFNUM+1~
DIR("A" 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(0 CENTSRCH+17*, SBN+8*, PATDATA+4*, PATDATA+9*, DIR+3*, DIR+4*, EREFNUM+2*
DIRECT INIT+2~, INIT+95*, INIT+96*, INIT+97*, INIT+99*, INIT+101
DOB INIT+1~, INIT+37*, INIT+96, BLDITEM+1~, BLDITEM+15*, BLDITEM+16
DOB2 INIT+1~, INIT+37*, INIT+95, INIT+96, INIT+97, INIT+98
DONE CENTSRCH+1~, CENTSRCH+3*, CENTSRCH+5, CENTSRCH+7*, CENTSRCH+9*
DT HDR+4, INIT+11, INIT+13, INIT+15, INIT+69
EBDATE INIT+1~
EDATE INIT+1~, INIT+13*, INIT+17, INIT+38
EDAYS INIT+2~, INIT+69*, INIT+77, INIT+98
EDAYS2 INIT+2~, INIT+77*, INIT+95, INIT+96, INIT+97, INIT+98
EDLOOP INIT+2~, INIT+100*, INIT+101*, INIT+103, INIT+105
ERXESTAT BLDITEM+1~, BLDITEM+4*, BLDITEM+7, BLDITEM+9, BLDITEM+10, BLDITEM+12
ERXIEN INIT+1~, INIT+20*, INIT+21, INIT+25*, INIT+26, INIT+31*, INIT+32, INIT+39*, INIT+40, INIT+41
INIT+45, INIT+46, CENTSRCH+13*, CENTSRCH+14, CENTSRCH+15, CENTSRCH+18, BLDITEM~, BLDITEM+2, BLDITEM+3, BLDITEM+4
, BLDITEM+7, BLDITEM+9, BLDITEM+13
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+41*, INIT+42, INIT+43, INIT+50, INIT+51, INIT+52, INIT+53, INIT+54, INIT+57
, BLDITEM+1~, BLDITEM+3*, BLDITEM+12, CHKSTAT~, CHKSTAT+4, CHKSTAT+5, CHKSTAT+6, CHKSTAT+7
ESCODE INIT+3~, INIT+43*, INIT+44, BLDITEM+1~, BLDITEM+10*, BLDITEM+11
FILSTAT CHKSTAT~, CHKSTAT+3, CHKSTAT+6, CHKSTAT+7, CHKSTAT+8
G INIT+2~, INIT+60*, INIT+61, INIT+62
GLOB INIT+2~, INIT+10*, INIT+95, INIT+96, INIT+97, INIT+98, INIT+101, INIT+103, INIT+105
HOLD INIT+1~, INIT+66*, INIT+86*, INIT+87*, INIT+95, INIT+96, INIT+97, INIT+98
I CENTSRCH+1~, CENTSRCH+5*, CENTSRCH+6
IPR INIT+1~, INIT+65*, INIT+84*, INIT+85*, INIT+95, INIT+96, INIT+97, INIT+98
IWCHECK CHKSTAT+1~, CHKSTAT+3*, CHKSTAT+4, CHKSTAT+5
LASTUSER INIT+2~, INIT+70*, INIT+95, INIT+96, INIT+97, INIT+98
LINE INIT+2~, INIT+33*, INIT+34*, INIT+104*, INIT+106, INIT+118, INIT+119
LINEVAR INIT+2~, INIT+104*, INIT+106*, INIT+107*, INIT+108*, INIT+109*, INIT+110*, INIT+111*, INIT+112*, INIT+113*
INIT+114*, INIT+115*, INIT+116*, INIT+117*, INIT+118
MTYPE INIT+2~, INIT+45*, INIT+57, BLDITEM+1~, BLDITEM+2*, BLDITEM+7, BLDITEM+9
NEW INIT+1~, INIT+63*, INIT+80*, INIT+81*, INIT+95, INIT+96, INIT+97, INIT+98
OTH INIT+2~, INIT+68*, INIT+91*, INIT+92*, INIT+93*, INIT+95, INIT+96, INIT+97, INIT+98
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+18*
PATIEN INIT+1~, INIT+33*, INIT+35*, INIT+36, INIT+37, INIT+38, INIT+39, INIT+47, INIT+48, INIT+49
INIT+58, INIT+59, INIT+69, INIT+70, INIT+95, INIT+96, INIT+97, INIT+98, 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+13*, BLDITEM+14, BLDITEM+15, BLDITEM+17, BLDITEM+18
PATINFO INIT+2~, INIT+105*, INIT+107, INIT+108, INIT+109, INIT+110, INIT+111, INIT+112, INIT+113, INIT+114
INIT+115, INIT+116, INIT+117
PATLOOP INIT+2~, INIT+102*, INIT+103*, INIT+105, INIT+118
PCVSTAT EN~, INIT+21, INIT+26, INIT+32, CENTSORT+8
PNAME INIT+1~, INIT+36*, INIT+95, INIT+96, INIT+97, INIT+98
>> 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+2*
>> 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+46*, INIT+47, INIT+48
RES CENTSRCH+1~, CENTSRCH+6*, CENTSRCH+7, CENTSRCH+8, CENTSORT+1~, CENTSORT+4*, CENTSORT+5, CENTSORT+6, DIR+17*, DIR+18
, DIR+22
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+18*, DIR+19, DIR+20
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+15
SLIST(1 DIR+11
SLIST(2 DIR+12
SLIST(3 DIR+13
SORT DIR~, DIR+4, DIR+5, DIR+13, DIR+17
SORTT EN~, INIT+5, INIT+94, INIT+95, INIT+96, INIT+97, 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+14
SRCH(2 INIT+22, INIT+23, BLDITEM+16
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+20*, DIR+21
STAT INIT+28, BLDITEM~, BLDITEM+12
STYP CENTSRCH+21, CENTSORT+1~, CENTSORT+6*, CENTSORT+7, CENTSORT+8
SVAL INIT+3~, INIT+19*, INIT+20, INIT+23*, INIT+24, CENTSRCH+1~, CENTSORT+1~, DIR+1~, DIR+21*, DIR+22
TOTAL INIT+1~, INIT+71*, INIT+74*, INIT+75, INIT+76*, INIT+78*, INIT+79*, INIT+95, INIT+96, INIT+97
INIT+98
U INIT+19, INIT+23, INIT+50, INIT+51, INIT+52, INIT+53, INIT+55, INIT+57, INIT+61, INIT+62
INIT+63, INIT+64, INIT+65, INIT+66, INIT+67, INIT+68, INIT+70, INIT+73, INIT+95, INIT+96
INIT+97, INIT+98, INIT+107, INIT+108, INIT+109, INIT+110, INIT+111, INIT+112, INIT+113, INIT+114
INIT+115, INIT+116, INIT+117, CENTSRCH+8, CENTSORT+5, CENTSORT+6, DIR+22, BLDITEM+14
>> 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+119*
>> VALMEVL INIT+4, INIT+5
>> VALMHDR(1 HDR+2*
>> VALMHDR(2 HDR+4*
>> VALMLST PATDATA+4
>> VALMSG PATDATA+1*
VAR INIT+2~, INIT+73*, INIT+74
WAIT INIT+1~, INIT+64*, INIT+82*, INIT+83*, INIT+95, INIT+96, INIT+97, INIT+98
>> X HELP+1*
>> XQORNOD(0 SBN+4
Y SBN+2~, SBN+4*, SBN+5, SBN+6, PATDATA+2~, PATDATA+5, PATDATA+6, DIR+1~, DIR+16, DIR+17
, 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