SDSCAPI ;ALB/JDS/JAM/RBS - Automated Service Connection Designation Review ; 4/16/07 10:39am
Source file <SDSCAPI.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 3 | ($$GETOE,GETDX)^SDOE GETPDX^SDOERPC ($$NBFP,$$NBTP,$$NCTCL)^SDSCUTL |
| VA FileMan | 3 | UPDATE^DIE ^DIK $$GET1^DIQ |
| PCE Patient Care Encounter | 1 | $$PRIMVPRV^PXUTL1 |
| Registration | 1 | RDIS^DGRPDB |
| 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 |
| Package | Total | Caller Graph |
|---|---|---|
| Scheduling | 5 | SDCOM SDSCCHK SDSCEDT SDSCOMP SDSCUTL |
| PCE Patient Care Encounter | 1 | PXBAPI22 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SC(SDFN,SDXS,SDENC,SDVST) | ; Determine if SC based on DXS codes
; Input: ; SDFN = Patient ien, file #2 [Required, if SDENC or SDVST undefined] ; SDXS = Diagnosis code array [Optional, if SDENC defined] ; SDENC = Encounter ien, file #409.68 [Optional] ; SDVST = Visit ien, field #9000010 [Optional] |
|
| OPT2 | ; enter with no DXS defined; get ICD9 for visit/encounter
|
|
| OPT3 | ; enter with DXS defined
|
|
| STORE | ; Save the information for this encounter.
|
|
| ST(SDENC,SDXS) | ;Reviews the diagnosis codes for an encounter and then
|
|
| ELIG | ;Compile list of service connected eligibility codes
|
|
| MATCH(SDIEN31,SDXIEN,SDATE,SDENC) | ;ICD9 matching code
; - api should be changed to lexicon in next version ; Input: ; SDIEN31 = File #31 [Required] ; SDXIEN = Diagnosis code ien, file #80 [Required] ; SDATE = Encounter date, [Optional] [Required for lexicon] ; SDENC = Encounter ien, file #409.68 [Required] |
| FileNo | Call Tags |
|---|---|
| ^SDSC(409.48 - [#409.48] | Classic Fileman Calls |
| ^AUPNVSIT - [#9000010] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVSIT - [#9000010] | SC+19, SC+21 |
| ^DIC(31 - [#31] | OPT3+10, MATCH+17, MATCH+18, MATCH+19, MATCH+20 |
| ^DIC(8 - [#8] | ELIG+2 |
| ^SCE("AVSIT" | SC+17 |
| ^SDSC(409.48 - [#409.48] | ST+45, ST+48, ST+51 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | ST+50~, ST+51* |
| DIK | ST+50~, ST+51* |
| DT | SC+19, STORE+4 |
| ERR | STORE+13*, ST+12~, ST+20*, ST+45, ST+48 |
| FL | OPT3+1~, OPT3+6* |
| I | OPT3+1~, OPT3+10*, OPT3+12*, OPT3+13, OPT3+15*, ELIG+1~, ELIG+2* |
| ICDMCH | OPT3+1~ |
| ICDMCH( | OPT3+13*, OPT3+15 |
| J | ELIG+1~, ELIG+2* |
| SCDXS | OPT2+1~ |
| SCDXS( | OPT2+5 |
| SCVAL | ST+12~, ST+19*, ST+46, ST+48*, ST+51* |
| SD31 | OPT3+1~, OPT3+10* |
| SDARR | OPT3+1~, OPT3+3, OPT3+4 |
| SDARR( | OPT3+7, OPT3+8 |
| SDATE | MATCH~ |
| SDCLIN | ST+12~, ST+20*, ST+25, ST+33 |
| SDCST | ST+13~, ST+21*, ST+27 |
| SDEL | ST+12~, ST+19*, ST+35, ST+37 |
| SDENC | SC~, SC+16*, SC+17*, SC+18, SC+19, SC+21, SC+25, OPT2+3, OPT2+4, OPT3+13 , STORE+2, STORE+3, ST~, ST+14, ST+15, ST+39, ST+45, ST+48, ST+51, MATCH~ , MATCH+22 |
| SDERR | STORE+1~, STORE+13 |
| SDFILEOK | SC+15~, SC+16*, SC+22, SC+24, SC+25, SC+27, OPT3+4*, OPT3+15*, STORE+7, ST+12~ , ST+20*, ST+43, ST+45, ST+46, ST+48 |
| SDFN | SC~, SC+21*, SC+22, OPT3+3, ST+12~, ST+21* |
| SDIEN | STORE+1~ |
| SDIEN(1 | STORE+2* |
| SDIEN31 | MATCH~, MATCH+17, MATCH+18, MATCH+19, MATCH+20 |
| SDKILL | SC+15~, SC+26, OPT2+7*, ST+13~, ST+42 |
| SDLIST | ST+12~ |
| SDLIST( | ST+37, ELIG+2* |
| SDMCH | OPT3+1~, OPT3+13*, MATCH+16~, MATCH+20*, MATCH+23 |
| SDOE0 | SC+15~, SC+18*, SC+19, SC+21, STORE+5, STORE+8, STORE+9, ST+12~, ST+15*, ST+17 , ST+18, ST+19, ST+20, ST+21, ST+31 |
| SDOEDAT | SC+15~, SC+19*, OPT3+13, ST+12~, ST+20* |
| SDOEDT | ST+13~, ST+20* |
| SDOSC | STORE+11, ST+13~, ST+18*, ST+29, ST+48 |
| SDPAT | ST+13~, ST+21*, ST+23 |
| SDPDX | MATCH+16~, MATCH+22, MATCH+23 |
| SDPRV | STORE+6, ST+12~, ST+19* |
| SDRD | OPT3+1~, OPT3+6*, OPT3+7*, OPT3+8 |
| SDRDIEN | OPT3+1~, OPT3+8*, OPT3+10, OPT3+13 |
| SDSC | STORE+1~ |
| SDSC( | STORE+3*, STORE+4*, STORE+5*, STORE+6*, STORE+7*, STORE+8*, STORE+9*, STORE+10*, STORE+11* |
| SDSTP | ST+12~ |
| SDV0 | ST+13~, ST+18*, ST+19 |
| SDVST | SC~, SC+17, SC+19, SC+21 |
| SDXIEN | MATCH~, MATCH+18, MATCH+19, MATCH+23 |
| SDXIEN1 | MATCH+16~, MATCH+19*, MATCH+20, MATCH+21 |
| SDXLVL | MATCH+16~, MATCH+20*, MATCH+21 |
| SDXS | SC~, SC+26!, OPT2+2!, OPT2+5*, ST~, ST+42! |
| SDXS( | OPT2+5*, OPT3+12 |
| SDXS(0 | SC+24, OPT2+6, ST+41 |
| U | SC+21, OPT3+8, STORE+7, STORE+8, STORE+9, ST+17, ST+18, ST+19, ST+20, ST+21 , ST+31, ST+45, ST+46, ST+48, MATCH+20 |
