©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
SCCVEAE3 ;ALB/RMO,TMP - Add/Edit Conversion cont.; [ 04/05/95 8:46 AM ]
Source file <SCCVEAE3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CSCAN(SCDTM,SCCV) | ; -- update 900 "CS" nodes with same clinic
|
|
| CSCANQ | ||
| SET(SCCVEVT,SCLOG,SCDTM,SCVALDT,SCDA,SCOEP,SCOE,SCCV) | ; Set variables, add encounter/visit
; Input -- SCCVEVT Conversion event ; SCLOG Scheduling conversion log IEN ; SCDTM Visit date/time (IEN) ; SCVALDT Valid converted Visit date/time (SCDTM) ; SCDA Clinic stop code sub-file IEN ; SCOEP Parent outpatient encounter IEN [optional] ; Output -- SCOE Outpatient encounter IEN ; SCCV Conversion array: ; SCCV("EVT") Conversion event ; ("LOG") Scheduling conversion log IEN ; ("NEW") Outpatient encounter or visit ; created by conversion flag ; 0 = no new encounter or visit ; 1 = new encounter and visit ; 2 = new visit only ; ("OE",0) Outpatient encounter 0th node ; ("CS",0) Clinic stop code 0th node ; ("CS",1) Clinic stop code 1 node ; ("CS","PR") Clinic stop code 'PR' node ; ("ERR") Code for specific error, if any ; ("VST") Visit file IEN |
|
| SETQ | ||
| DIVQ | ||
| DIV(DIV) | ; -- determine med div
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(40.8 - [#40.8] | DIV+1, DIV+2 |
| ^DG(43 - [#43] | DIV+1 |
| ^DIC(40.7 - [#40.7] | SET+65 |
| ^SC - [#44] | SET+59, SET+65 |
| ^SCE - [#409.68] | SET+38, SET+47, SET+55, SET+57, SET+83, SET+94, CSCAN+24 |
| ^SDV - [#409.5] | SET+31, SET+32, SET+35, SET+36, SET+96, CSCAN+10 |
| Name | Line Occurrences |
|---|---|
| $$DIV | SET+61 |
| CSCAN | SET+98 |
| CSCANQ | CSCAN+6, CSCAN+20 |
| DIVQ | DIV+1 |
| SETQ | SET+31, SET+33, SET+35, SET+51, SET+53, SET+62, SET+66, SET+76, SET+86 |
| Name | Field # of Occurrence |
|---|---|
| ^( | CSCAN+10 |
| ^("PR" | SET+36 |
| ^(0 | SET+55, SET+57 |
| ^(1 | SET+96 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | SET+23~ |
| DE | SET+23~ |
| DIE | SET+23~ |
| DIV | DIV~, DIV+1, DIV+2*, DIVQ |
| DQ | SET+23~ |
| DR | SET+23~ |
| >> SCCONS | SET+46, SET+72 |
| SCCV | SET~, SET+93*, SET+98, CSCAN~ |
| SCCV("CS" | SET+36*, SET+96*, CSCAN+2, CSCAN+3 |
| SCCV("ERR" | SET+31*, SET+33*, SET+35*, SET+62*, SET+66* |
| SCCV("EVT" | SET+24* |
| SCCV("LOG" | SET+25* |
| SCCV("NEW" | SET+49*, SET+51, SET+55, SET+56, SET+57, SET+76, SET+82, SET+91, SET+98 |
| SCCV("OE" | SET+94*, SET+95, CSCAN+4, CSCAN+24* |
| SCCV("VST" | SET+95* |
| >> SCCV900 | CSCAN+6, CSCAN+11 |
| SCCVEVT | SET~, SET+24, SET+41, SET+53 |
| SCCVSIT | SET+23~, SET+32*, SET+60 |
| SCCVT | SET+23~, SET+72 |
| SCDA | SET~, SET+35, SET+36, SET+57, SET+71, SET+91, SET+96 |
| SCDATA | SET+88!, SET+91!, CSCAN+12~, CSCAN+16, CSCAN+22~, CSCAN+23 |
| SCDATA( | SET+88*, CSCAN+23* |
| SCDATA(8 | SET+91*, CSCAN+13* |
| SCDATA(9 | CSCAN+14* |
| SCDTM | SET~, SET+31, SET+32, SET+35, SET+36, SET+57, SET+91, SET+96, SET+98, CSCAN~ , CSCAN+10, CSCAN+15 |
| SCEXT | CSCAN+1~, CSCAN+4*, CSCAN+6, CSCAN+17*, CSCAN+23 |
| SCIENS | SET+91*, CSCAN+12~, CSCAN+15*, CSCAN+16 |
| SCLN | CSCAN+1~, CSCAN+2*, CSCAN+6, CSCAN+11 |
| SCLOG | SET~, SET+25 |
| SCNT | CSCAN+1~, CSCAN+8*, CSCAN+18*, CSCAN+20 |
| SCOE | SET~, SET+38*, SET+44, SET+46, SET+47*, SET+49, SET+57, SET+77*, SET+78, SET+83* , SET+84, SET+86, SET+88, SET+91, SET+94, CSCAN+3*, CSCAN+6, CSCAN+13, CSCAN+23, CSCAN+24 |
| SCOE0 | SET+23~, SET+38*, SET+41, SET+46, SET+47*, SET+49, SET+55, SET+77, SET+80*, SET+83* , SET+88 |
| SCOEP | SET~, SET+55, SET+57, SET+74 |
| SCS | CSCAN+1~, CSCAN+10*, CSCAN+15, CSCAN+17 |
| SCS0 | CSCAN+1~, CSCAN+10*, CSCAN+11 |
| >> SCTOT | SET+56 |
| >> SCTOT( | SET+84* |
| SCV0 | SET+23~, SET+36*, SET+38, SET+59, SET+64, SET+65, SET+68, SET+69, SET+70, SET+77 |
| SCVALDT | SET~, SET+79, SET+83 |
| SDVSIT | SET+23~, SET+79, SET+83, SET+93 |
| SDVSIT("CLN" | SET+64*, SET+65*, SET+66 |
| SDVSIT("DFN" | SET+32*, SET+33, SET+57 |
| SDVSIT("DIV" | SET+59*, SET+60*, SET+61*, SET+62 |
| SDVSIT("ELG" | SET+69* |
| SDVSIT("LOC" | SET+68* |
| SDVSIT("OE" | SET+77*, SET+78*, SET+80 |
| SDVSIT("ORG" | SET+71* |
| SDVSIT("PAR" | SET+74* |
| SDVSIT("REF" | SET+71* |
| SDVSIT("TYP" | SET+70* |
| SDVSIT("VST" | SET+76, SET+88 |
| U | SET+32, SET+38, SET+41, SET+49, SET+55, SET+57, SET+59, SET+60, SET+65, SET+68 , SET+69, SET+70, SET+77, SET+88, SET+95, DIV+1, CSCAN+2, CSCAN+3, CSCAN+4, CSCAN+11 |
| X | SET+23~, SET+79* |