ECXOPRX ;ALB/JAP,BIR/DMA,CML,PTD-Prescription Extract for DSS ;7/18/19 09:40
Source file <ECXOPRX.m>
| Package | Total | Call Graph |
|---|---|---|
| DSS Extracts | 10 | ($$PREDIV,$$RADDIV)^ECXDEPT ^ECXKILL FILE^ECXOPRX1 QUE^ECXTAUTO ^ECXTRAC ($$ECXDATE,$$PATCAT,$$PRVCLASS)^ECXUTL ($$ENROLLM,$$INP,$$PRIMARY,ECXDEF)^ECXUTL2 $$PAT^ECXUTL3 ($$CNHSTAT,$$ENCNUM,$$HNCI,$$JULDT,$$OBSPAT,$$SHAD)^ECXUTL4 ($$NONVAP,$$PHAAPI,$$RXPTST,NPRF)^ECXUTL5 |
| Kernel | 2 | ($$RJ,$$UP)^XLFSTR $$NPI^XUSNPI |
| VA FileMan | 2 | $$GET1^DIQ EN^DIQ1 |
| National Drug File | 1 | $$DSS^PSNAPIS |
| Outpatient Pharmacy | 1 | DIQ^PSODI |
| 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 |
|---|---|---|
| BEG | ;entry point from option
|
|
| START | ;entry when queued
|
|
| V6 | ;version 6 or better
|
|
| STUFF | ;get data
|
|
| PAT(ECXDFN,ECXDATE,ECXERR) | ;Determine in/outpatient status, movement number, primary care team and provider
|
|
| SETUP | ;Set required input for ECXTRAC
|
|
| QUE | ; entry point for the background requeuing handled by ECXTAUTO
|
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | STUFF+74 |
| EN^DIQ1 | START+6 |
| $$PREDIV^ECXDEPT | STUFF+62 |
| $$RADDIV^ECXDEPT | STUFF+58 |
| ^ECXKILL | BEG+2, QUE+1 |
| FILE^ECXOPRX1 | STUFF+78 |
| QUE^ECXTAUTO | QUE+1 |
| ^ECXTRAC | BEG+2 |
| $$ECXDATE^ECXUTL | STUFF+57 |
| $$PATCAT^ECXUTL | STUFF+28 |
| $$PRVCLASS^ECXUTL | STUFF+13 |
| $$ENROLLM^ECXUTL2 | PAT+13, PAT+27 |
| $$INP^ECXUTL2 | PAT+39 |
| $$PRIMARY^ECXUTL2 | PAT+42 |
| ECXDEF^ECXUTL2 | SETUP+2 |
| $$PAT^ECXUTL3 | PAT+17 |
| $$CNHSTAT^ECXUTL4 | STUFF+59 |
| $$ENCNUM^ECXUTL4 | STUFF+66 |
| $$HNCI^ECXUTL4 | PAT+28 |
| $$JULDT^ECXUTL4 | STUFF+70, STUFF+71 |
| $$OBSPAT^ECXUTL4 | STUFF+52 |
| $$SHAD^ECXUTL4 | PAT+29 |
| $$NONVAP^ECXUTL5 | STUFF+26 |
| $$PHAAPI^ECXUTL5 | STUFF+39 |
| $$RXPTST^ECXUTL5 | STUFF+11 |
| NPRF^ECXUTL5 | STUFF+64 |
| $$DSS^PSNAPIS | STUFF+46 |
| DIQ^PSODI | STUFF+22 |
| $$RJ^XLFSTR | STUFF+45, STUFF+47 |
| $$UP^XLFSTR | STUFF+74 |
| $$NPI^XUSNPI | STUFF+14 |
| FileNo | Call Tags |
|---|---|
| ^DIC(4 - [#4] | Classic Fileman Calls |
| ^PSRX - [#52] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("TEST" | STUFF+46 |
| ^ECX(728 - [#728] | START+5 |
| ^ECX(728.44 - [#728.44] | STUFF+56 |
| ^PSRX - [#52] | STUFF+4, STUFF+5, STUFF+32, STUFF+33, STUFF+36 |
| ^PSRX("AD" | START+10 |
| ^PSRX("AL" | START+8, V6+3 |
| ^PSRX("AM" | V6+6 |
| ^PSRX("AR" | STUFF+48 |
| ^SC - [#44] | STUFF+58 |
| ^TMP($J | V6+1!, V6+7!, PAT+4, PAT+5, PAT+10, PAT+15, PAT+34*, PAT+35*, PAT+36*, PAT+37* |
| Name | Field # of Occurrence |
|---|---|
| ^(2 | STUFF+32 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | START+1~, START+5*, START+6!, STUFF+1~, STUFF+20*, STUFF+22, STUFF+23 |
| DIC | START+1~, START+5*, START+6!, STUFF+1~, STUFF+19*, STUFF+22 |
| DIQ | START+1~, START+5*, START+6!, STUFF+1~, STUFF+21*, STUFF+22 |
| DIQ(0 | START+5* |
| DR | START+1~, START+5*, START+6!, STUFF+1~, STUFF+18*, STUFF+22, STUFF+23 |
| >> ECASNPI | PAT+42* |
| >> ECASPR | PAT+42* |
| >> ECCAT | STUFF+39* |
| >> ECCLAS | PAT+42* |
| >> ECCLAS2 | PAT+42* |
| >> ECD | START+8*, START+9*, START+10*, V6+2*, V6+3*, V6+5*, V6+6*, STUFF+9, STUFF+48, STUFF+70 , STUFF+71 |
| >> ECDATA | STUFF+4*, STUFF+9, STUFF+11, STUFF+13, STUFF+14, STUFF+32, STUFF+33, STUFF+37, STUFF+55, STUFF+57 |
| >> ECDATA1 | STUFF+5*, STUFF+35, STUFF+36, STUFF+37 |
| >> ECDRG | STUFF+9*, STUFF+39 |
| >> ECDS | STUFF+37* |
| >> ECED | START+9*, START+10, V6+2*, V6+3, V6+6 |
| >> ECFILE | BEG+1, SETUP+2 |
| >> ECGRP | SETUP+2 |
| >> ECHEAD | STUFF+66, SETUP+1*, SETUP+2 |
| >> ECINST | START+4, START+5*, START+6* |
| >> ECINV | STUFF+39*, STUFF+41*, STUFF+43* |
| >> ECMW | STUFF+32*, STUFF+35*, STUFF+48*, STUFF+49*, STUFF+68 |
| >> ECNDC | STUFF+44*, STUFF+45 |
| >> ECNFC | STUFF+45*, STUFF+46*, STUFF+47* |
| ECNONVAP | START+1~, STUFF+26* |
| >> ECOPAY | STUFF+33*, STUFF+36* |
| >> ECPACK | SETUP+2 |
| >> ECPIECE | SETUP+2 |
| >> ECPRC | STUFF+33*, STUFF+36*, STUFF+37 |
| >> ECPROF | START+8*, V6+2*, STUFF+13 |
| >> ECPRVNPI | STUFF+14*, STUFF+15* |
| >> ECPTNPI | PAT+42* |
| >> ECPTPR | PAT+42* |
| >> ECPTTM | PAT+42* |
| >> ECQTY | STUFF+32*, STUFF+35*, STUFF+37 |
| >> ECREF | START+9*, V6+2*, V6+5*, STUFF+5 |
| >> ECRFL | START+10*, V6+3*, V6+6*, STUFF+5, STUFF+31, STUFF+34, STUFF+36, STUFF+37, STUFF+50 |
| >> ECRTN | SETUP+2 |
| >> ECRX | START+10*, V6+3*, V6+6*, STUFF+4, STUFF+5, STUFF+20, STUFF+32, STUFF+33, STUFF+36, STUFF+48 , STUFF+74 |
| ECRXNUM | START+1~, STUFF+9*, STUFF+11*, STUFF+51 |
| ECRXPTST | START+1~, STUFF+9*, STUFF+11* |
| >> ECSD1 | START+8, START+9, V6+2, V6+5, PAT+17 |
| >> ECUI | STUFF+44* |
| >> ECVER | SETUP+2 |
| >> ECXA | STUFF+52, STUFF+66, STUFF+73*, STUFF+76*, PAT+39*, PAT+40* |
| >> ECXADMDT | STUFF+66, PAT+39*, PAT+40* |
| >> ECXAOL | PAT+9*, PAT+26*, PAT+35 |
| ECXASIH | STUFF+1~, STUFF+76, PAT+40* |
| >> ECXAST | PAT+7*, PAT+21*, PAT+34 |
| >> ECXCAT | PAT+2*, PAT+8*, PAT+35 |
| ECXCERN | STUFF+2~ |
| ECXCHOCE | START+1~, STUFF+75* |
| ECXCLST | START+1~, PAT+11*, PAT+22*, PAT+36 |
| >> ECXCNH | STUFF+59* |
| >> ECXCNHU | PAT+9*, PAT+26*, PAT+35 |
| >> ECXCNTRY | PAT+10*, PAT+22*, PAT+36 |
| >> ECXCNTY | PAT+7*, PAT+21*, PAT+34 |
| >> ECXCOST | STUFF+37* |
| >> ECXCVE | STUFF+9* |
| >> ECXCVEDT | STUFF+9* |
| >> ECXCVENC | STUFF+9* |
| ECXDATE | STUFF+9*, STUFF+13, STUFF+14, STUFF+30, STUFF+66, PAT~, PAT+39, PAT+42 |
| ECXDEA | START+2~, STUFF+39* |
| ECXDFN | STUFF+9*, STUFF+28, STUFF+30, STUFF+59, PAT~, PAT+4, PAT+5, PAT+10, PAT+13, PAT+15 , PAT+17, PAT+27, PAT+28, PAT+29, PAT+34, PAT+35, PAT+36, PAT+37, PAT+39, PAT+42 |
| ECXDIC | START+5!, START+6! |
| ECXDIC(4 | START+6 |
| ECXDIQ | STUFF+1~ |
| ECXDIQ(52 | STUFF+23 |
| >> ECXDIV | STUFF+32*, STUFF+35*, STUFF+62 |
| >> ECXDOB | PAT+5*, PAT+19*, PAT+34 |
| >> ECXDOM | PAT+39*, PAT+40* |
| >> ECXDSSD | STUFF+9* |
| ECXDUNIT | STUFF+3~, STUFF+77* |
| ECXECL | START+1~ |
| >> ECXELIG | PAT+6*, PAT+19*, PAT+34 |
| >> ECXENC | STUFF+66*, STUFF+70*, STUFF+71*, STUFF+78 |
| >> ECXENRL | PAT+7*, PAT+21*, PAT+34 |
| >> ECXERI | PAT+10*, PAT+22*, PAT+36 |
| ECXERR | STUFF+9*, STUFF+30, PAT~, PAT+18* |
| ECXESC | START+1~, STUFF+24 |
| >> ECXEST | PAT+10*, PAT+22*, PAT+36 |
| >> ECXETH | PAT+9*, PAT+30*, PAT+35 |
| >> ECXHNCI | PAT+9*, PAT+28*, PAT+35 |
| >> ECXLOGIC | STUFF+41, STUFF+43, STUFF+67, STUFF+68, STUFF+70, STUFF+72 |
| >> ECXMN | PAT+39*, PAT+40* |
| >> ECXMPI | PAT+5*, PAT+19*, PAT+34 |
| >> ECXMST | PAT+7*, PAT+21*, PAT+34 |
| >> ECXMTST | PAT+9*, PAT+26*, PAT+35 |
| >> ECXNEW | STUFF+50*, STUFF+51* |
| ECXNMPI | STUFF+2~, PAT+5*, PAT+19* |
| ECXNPRFI | START+1~ |
| >> ECXOBS | STUFF+52*, STUFF+66, STUFF+72* |
| ECXOCLIN | START+2~, STUFF+55*, STUFF+56, STUFF+58 |
| >> ECXOEF | PAT+2*, PAT+10*, PAT+32*, PAT+36 |
| >> ECXOEFDT | PAT+2*, PAT+10*, PAT+33*, PAT+36 |
| >> ECXORDDT | STUFF+57* |
| >> ECXORDPH | STUFF+53* |
| >> ECXORDST | STUFF+56* |
| ECXPAT | PAT+16!, PAT+17 |
| ECXPAT("AO ST | AT" , PAT+21 |
| ECXPAT("AOL" | PAT+26 |
| ECXPAT("CL ST | AT" , PAT+22 |
| ECXPAT("COMBSVCI" | PAT+23 |
| ECXPAT("COMBSVCL" | PAT+23 |
| ECXPAT("COUNTRY" | PAT+22 |
| ECXPAT("COUNTY" | PAT+21 |
| ECXPAT("DOB" | PAT+19 |
| ECXPAT("EC ST | AT" , PAT+22 |
| ECXPAT("ECXOEF" | PAT+32 |
| ECXPAT("ECXOEFDT" | PAT+33 |
| ECXPAT("ELIG" | PAT+19 |
| ECXPAT("ENROL | L LOC" , PAT+21 |
| ECXPAT("ERI" | PAT+22 |
| ECXPAT("ETHNIC" | PAT+30 |
| ECXPAT("IR ST | AT" , PAT+20 |
| ECXPAT("MEANS" | PAT+26 |
| ECXPAT("MPI" | PAT+19 |
| ECXPAT("MST S | TAT" , PAT+21 |
| ECXPAT("NAME" | PAT+19 |
| ECXPAT("PHI" | PAT+26 |
| ECXPAT("POS" | PAT+26 |
| ECXPAT("POW L | OC" , PAT+20 |
| ECXPAT("POW S | TAT" , PAT+20 |
| ECXPAT("RACE" | PAT+20 |
| ECXPAT("RACE1" | PAT+30 |
| ECXPAT("SEX" | PAT+19 |
| ECXPAT("SIGI" | PAT+24 |
| ECXPAT("SSN" | PAT+19 |
| ECXPAT("STATE" | PAT+21 |
| ECXPAT("VET" | PAT+20 |
| ECXPAT("VIETNAM" | PAT+22 |
| ECXPAT("ZIP" | PAT+21 |
| >> ECXPATCAT | STUFF+28*, PAT+11*, PAT+36 |
| ECXPDIV | STUFF+62~* |
| ECXPHA | STUFF+1~, STUFF+4*, STUFF+39*, STUFF+44, STUFF+45, STUFF+77 |
| >> ECXPHI | PAT+8*, PAT+26*, PAT+35 |
| >> ECXPLOC | PAT+6*, PAT+20*, PAT+34 |
| >> ECXPNM | PAT+5*, PAT+19*, PAT+34 |
| >> ECXPOS | PAT+9*, PAT+26*, PAT+35 |
| ECXPPDU | STUFF+3~, STUFF+77* |
| >> ECXPRIOR | PAT+2*, PAT+8*, PAT+35 |
| >> ECXPROV | STUFF+13*, STUFF+26 |
| >> ECXPROVN | STUFF+9* |
| >> ECXPROVP | STUFF+13* |
| >> ECXPST | PAT+6*, PAT+20*, PAT+34 |
| >> ECXRACE | PAT+6*, PAT+20*, PAT+34 |
| >> ECXRC1 | PAT+9*, PAT+30*, PAT+35 |
| >> ECXRST | PAT+6*, PAT+20*, PAT+34 |
| ECXRXREM | START+1~, STUFF+74*, STUFF+75 |
| >> ECXSBGRP | PAT+2* |
| ECXSCRX | START+1~, STUFF+24* |
| >> ECXSEX | PAT+5*, PAT+19*, PAT+34 |
| >> ECXSHAD | PAT+11*, PAT+36 |
| >> ECXSHADI | PAT+11*, PAT+29*, PAT+36 |
| ECXSIGI | STUFF+2~, PAT+12*, PAT+24*, PAT+37 |
| >> ECXSSN | STUFF+66, STUFF+68, STUFF+70, STUFF+71, PAT+5*, PAT+19*, PAT+34 |
| ECXSTANO | START+2~, STUFF+58* |
| >> ECXSTAT | PAT+2*, PAT+8*, PAT+35 |
| >> ECXSTATE | PAT+7*, PAT+21*, PAT+34 |
| >> ECXSVCI | PAT+23* |
| >> ECXSVCL | PAT+23* |
| >> ECXTS | STUFF+52, STUFF+66, PAT+39*, PAT+40* |
| >> ECXVET | PAT+6*, PAT+20*, PAT+34 |
| >> ECXVNS | PAT+11*, PAT+22*, PAT+36 |
| >> ECXYM | STUFF+46, STUFF+57 |
| >> ECXZIP | PAT+7*, PAT+21*, PAT+34 |
| OK | PAT+1~, PAT+15, PAT+17*, PAT+18 |
| >> P1 | STUFF+45*, STUFF+46, STUFF+47 |
| >> P3 | STUFF+45*, STUFF+46, STUFF+47 |
| PT | PAT+1~, PAT+5*, PAT+6, PAT+7, PAT+8, PAT+9 |
| >> PT1 | PAT+10*, PAT+11, PAT+12 |
| >> QFLG | START+3*, START+10, V6+3, V6+4, V6+6 |
| TMP | STUFF+69~, STUFF+70*, STUFF+71* |
| U | START+5, STUFF+9, STUFF+11, STUFF+13, STUFF+14, STUFF+15, STUFF+32, STUFF+33, STUFF+35, STUFF+36 , STUFF+37, STUFF+39, STUFF+44, STUFF+45, STUFF+55, STUFF+56, STUFF+57, STUFF+58, STUFF+77, PAT+5 , PAT+6, PAT+7, PAT+8, PAT+9, PAT+10, PAT+11, PAT+12, PAT+34, PAT+35, PAT+36 , PAT+37, PAT+40, PAT+42 |
| X | START+1~, STUFF+46*, PAT+1~, PAT+39*, PAT+40, PAT+42* |