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 |