PSOERXC1 ;ALB/BWF - eRx Utilities/RPC's ; 6/1/2018 5:14pm
Source file <PSOERXC1.m>
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 |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
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
|
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 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine 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 |
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 |
>> | 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 |