ECXUTL5 ;ALB/JRC - Utilities for DSS Extracts ;5/9/19 16:31
Source file <ECXUTL5.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 2 | $$FMTHL7^XLFDT $$RJ^XLFSTR |
| Registration | 2 | $$CVEDT^DGCV $$GETACT^DGPFAPI |
| Inpatient Medications | 1 | ALL^PSJ59P5 |
| Outpatient Pharmacy | 1 | DIQ^PSODI |
| Pharmacy Data Management | 1 | DATA^PSS50 |
| VA FileMan | 1 | EN^DIQ1 |
| 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 |
|---|---|---|
| REPEAT(CHAR,TIMES) | ;REPEAT A STRING
|
|
| INSERT(INSTR,OUTSTR,COLUMN,LENGTH) | ;INSERT A STRING INTO ANOTHER
|
|
| TYPE(DFN) | ;Determine patient type DBIA #2511
; input ; DFN = patient ien |
|
| CVEDT(DFN,DATE) | ;Determine patient CV status DBIA #4156
; input ; DFN = patient ien |
|
| NPRF | ;National patient record flags DBIA #3860
|
|
| RXPTST(K) | ;Rx patient status DBIA #2511
|
|
| NONVAP(K) | ;Non-va prescriber DBIA #10060
|
|
| DOIVPO(K,L) | ;Add destination for outpatient ivp orders
; Input K - DFN ; L - Order # from Pharmacy Patient File (#55) |
|
| DOUDO(K,L) | ;Add destination for outpatient udp orders
; Input K - DFN ; L - Order # from Pharmacy Patient File (#55) |
|
| PHAAPI(DRUG) | ;Call Pharmacy drug file API dbia 4483
; Input: drug file (#50) ien |
|
| TSSC(X) | ;Check treating specialty (ts) and if ts equals any of the following
|
|
| PSJ59P5(X) | ;Get iv room division
; Input X - iv room ien |
|
| SCRX(IEN) | ;Service connected prescription
|
|
| SSN(SSN,FILE) | ; extended validation of ssn
; input: ssn - social security number to validate ; file - optional "", 2 or 67, the only check is for ; reference lab file (#67) in which case ssn ; "000123456" is considered a valid ssn. ; output: 0 - test patient or invalid ssn ; 1 - valid ssn |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | Classic Fileman Calls |
| ^DIC(40.7 - [#40.7] | Classic Fileman Calls |
| ^SC - [#44] | Classic Fileman Calls |
| ^PS(53 - [#53] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(391 - [#391] | TYPE+20 |
| ^DPT - [#2] | TYPE+18 |
| ^TMP($J | PSJ59P5+9, PSJ59P5+10! |
| Name | Line Occurrences |
|---|---|
| $$TSSC | DOIVPO+13, DOUDO+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARRAY | PHAAPI+9~, PHAAPI+11*, PHAAPI+12*, PHAAPI+13, PHAAPI+15, PHAAPI+16, PHAAPI+17, PHAAPI+18, PHAAPI+23 |
| CHAR | REPEAT~, REPEAT+7, REPEAT+10 |
| CLASS | PHAAPI+9~, PHAAPI+11*, PHAAPI+16*, PHAAPI+24 |
| CLINIC | DOIVPO+8~, DOIVPO+9*, DOIVPO+17*, DOIVPO+18, DOIVPO+20, DOIVPO+21, DOIVPO+22, DOIVPO+25, DOUDO+8~, DOUDO+9* , DOUDO+16*, DOUDO+17, DOUDO+19, DOUDO+20, DOUDO+21, DOUDO+24 |
| >> CNT | NPRF+2*, NPRF+3, NPRF+4 |
| >> CODE | TSSC+6*, TSSC+7 |
| COLUMN | INSERT~, INSERT+15*, INSERT+19, INSERT+20 |
| CVSTAT | CVEDT+9~, CVEDT+10*, CVEDT+14*, CVEDT+15, CVEDT+17, CVEDT+19, CVEDT+22 |
| DA | RXPTST+5*, NONVAP+4*, DOIVPO+8~, DOIVPO+15*, DOIVPO+20*, DOIVPO+24*, DOUDO+8~, DOUDO+14*, DOUDO+19*, DOUDO+23* , SCRX+2~, SCRX+5*, SCRX+6, SCRX+7 |
| DA( | DOIVPO+15*, DOUDO+14* |
| DATA | PHAAPI+9~, PHAAPI+11* |
| DATE | CVEDT~, CVEDT+14 |
| DFN | TYPE~, TYPE+16, TYPE+18, CVEDT~, CVEDT+12, CVEDT+14 |
| DIC | RXPTST+5*, NONVAP+4*, DOIVPO+8~, DOIVPO+15*, DOIVPO+20*, DOIVPO+24*, DOUDO+8~, DOUDO+14*, DOUDO+19*, DOUDO+23* , SCRX+2~, SCRX+5*, SCRX+6 |
| DIQ | RXPTST+5*, NONVAP+4*, DOIVPO+8~, DOIVPO+15*, DOIVPO+20*, DOIVPO+24*, DOUDO+8~, DOUDO+14*, DOUDO+19*, DOUDO+23* , SCRX+5*, SCRX+6 |
| DIQ(0 | RXPTST+5*, NONVAP+4*, DOIVPO+15*, DOIVPO+20*, DOIVPO+24*, DOUDO+14*, DOUDO+19*, DOUDO+23* |
| DIV | PSJ59P5+5~*, PSJ59P5+7, PSJ59P5+9*, PSJ59P5+11 |
| DOIVPO | DOIVPO+8~, DOIVPO+9*, DOUDO+8~, DOUDO+9* |
| DR | RXPTST+5*, NONVAP+4*, DOIVPO+8~, DOIVPO+15*, DOIVPO+20*, DOIVPO+24*, DOUDO+8~, DOUDO+14*, DOUDO+19*, DOUDO+23* , SCRX+2~, SCRX+5*, SCRX+6 |
| DR( | DOIVPO+15*, DOUDO+14* |
| DRUG | PHAAPI~, PHAAPI+14, PHAAPI+16, PHAAPI+17, PHAAPI+18, PHAAPI+21 |
| DUPOU | PHAAPI+10~, PHAAPI+11*, PHAAPI+18*, PHAAPI+24 |
| ECXARR | NPRF+1~ |
| ECXARR( | NPRF+5 |
| >> ECXCVE | CVEDT+10*, CVEDT+17* |
| >> ECXCVEDT | CVEDT+10*, CVEDT+19*, CVEDT+20* |
| >> ECXCVENC | CVEDT+10*, CVEDT+22* |
| >> ECXDFN | NPRF+2 |
| ECXDIC | RXPTST+1~, RXPTST+2*, NONVAP+1~, NONVAP+2*, DOIVPO+8~, DOIVPO+9*, DOUDO+8~, DOUDO+9* |
| ECXDIC( | DOIVPO+17, DOUDO+16 |
| ECXDIC(200 | NONVAP+6 |
| ECXDIC(53 | RXPTST+7 |
| ECXDICA | DOIVPO+8~, DOIVPO+9*, DOUDO+8~, DOUDO+9* |
| ECXDICA(44 | DOIVPO+21, DOUDO+20 |
| ECXDICB | DOIVPO+8~, DOIVPO+9*, DOUDO+8~, DOUDO+9* |
| ECXDICB( | DOIVPO+25, DOIVPO+26, DOUDO+24, DOUDO+25 |
| ECXDIQ | SCRX+2~ |
| ECXDIQ(52 | SCRX+7 |
| >> ECXNPRFI | NPRF+2*, NPRF+5* |
| ECXPTYPE | TYPE+14~, TYPE+17*, TYPE+19, TYPE+20*, TYPE+21*, TYPE+22 |
| >> ECXTS | DOIVPO+13, DOUDO+11 |
| END | INSERT+18~, INSERT+20*, INSERT+22 |
| FILE | SSN~, SSN+10*, SSN+11 |
| FLG | NPRF+1~, NPRF+2*, NPRF+4, NPRF+5* |
| FRONT | INSERT+18~, INSERT+19*, INSERT+22 |
| >> I | NPRF+4*, NPRF+5 |
| IEN | SCRX~, SCRX+4, SCRX+5 |
| INSTR | INSERT~, INSERT+13, INSERT+16, INSERT+22 |
| INV | PHAAPI+9~, PHAAPI+11*, PHAAPI+17*, PHAAPI+21, PHAAPI+24 |
| K | RXPTST~, RXPTST+4, RXPTST+5, RXPTST+7, NONVAP~, NONVAP+3, NONVAP+4, NONVAP+6, DOIVPO~, DOIVPO+11 , DOIVPO+15, DOUDO~, DOUDO+13, DOUDO+14 |
| L | DOIVPO~, DOIVPO+11, DOIVPO+15, DOIVPO+17, DOUDO~, DOUDO+13, DOUDO+14, DOUDO+16 |
| LENGTH | INSERT~, INSERT+16*, INSERT+20, INSERT+22 |
| NAME | PHAAPI+9~, PHAAPI+11*, PHAAPI+16*, PHAAPI+24 |
| NDC | PHAAPI+9~, PHAAPI+11*, PHAAPI+16*, PHAAPI+19, PHAAPI+21*, PHAAPI+22*, PHAAPI+24 |
| NDF | PHAAPI+9~, PHAAPI+11* |
| NONVAP | NONVAP+1~, NONVAP+2*, NONVAP+3, NONVAP+6*, NONVAP+7*, NONVAP+8 |
| OUTSTR | INSERT~, INSERT+14, INSERT+15, INSERT+19, INSERT+20 |
| P1 | PHAAPI+9~, PHAAPI+11*, PHAAPI+17*, PHAAPI+24 |
| P3 | PHAAPI+9~, PHAAPI+11*, PHAAPI+17*, PHAAPI+19, PHAAPI+24 |
| PPDU | PHAAPI+9~, PHAAPI+11*, PHAAPI+17*, PHAAPI+24 |
| PPOU | PHAAPI+10~, PHAAPI+11*, PHAAPI+18*, PHAAPI+24 |
| SCODE | DOIVPO+8~, DOIVPO+9*, DOIVPO+11, DOIVPO+13*, DOIVPO+18, DOIVPO+21*, DOIVPO+22*, DOIVPO+24, DOIVPO+25*, DOIVPO+26* , DOIVPO+27, DOUDO+8~, DOUDO+9*, DOUDO+11*, DOUDO+13, DOUDO+17, DOUDO+20*, DOUDO+21*, DOUDO+23, DOUDO+24* , DOUDO+25*, DOUDO+26 |
| SSN | SSN~, SSN+9, SSN+11, SSN+12, SSN+13, SSN+14, SSN+15, SSN+16, SSN+17, SSN+18 |
| STAT | RXPTST+1~, RXPTST+2*, RXPTST+4, RXPTST+7*, RXPTST+8*, RXPTST+9 |
| TIMES | REPEAT~, REPEAT+8, REPEAT+10 |
| TYPE | TYPE+14~, TYPE+17*, TYPE+18*, TYPE+19, TYPE+20 |
| U | TYPE+20, CVEDT+17, CVEDT+19, CVEDT+22, DOIVPO+22, DOIVPO+25, DOUDO+21, DOUDO+24, PHAAPI+17, PHAAPI+24 , PSJ59P5+9 |
| UNIT | PHAAPI+9~, PHAAPI+17*, PHAAPI+24 |
| X | TSSC~, TSSC+6, PSJ59P5~, PSJ59P5+7, PSJ59P5+8, PSJ59P5+9 |