©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
SCCVEAP3 ;ALB/RMO,TMP - Appointment Conversion cont.; [ 04/05/95 10:19 AM ]
Source file <SCCVEAP3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SET(SCCVEVT,SCLOG,DFN,SCDTM,SCCLN,SCDA,SCOE,SCCV) | ; Set variables
; Input -- SCCVEVT Conversion event ; SCLOG Scheduling conversion log IEN ; DFN Patient IEN ; SCDTM Appointment date/time ; SCCLN Clinic IEN ; Output -- SCDA Clinic appt patient sub-file IEN ; SCOE Outpatient encounter IEN ; SCCV Conversion array: ; SCCV("EVT") Conversion event ; ("LOG") Scheduling conversion log IEN ; ("NEW") Outpatient encounter ; created by conversion flag ; 0 = no new encounter or visit ; 1 = new encounter and visit ; 2 = new visit only ; ("SCDA") Multiple entry in ^SC for this pt ; ("OE",0) Outpatient encounter 0th node ; ("PT",0) Patient appt 0th node ; ("PT","R") Patient appt "R" node (Remarks) ; ("CL1",0) Clinic's 0th node ; ("CL",0) Clinic appt patient 0th node ; ("CL","C") Clinic appt patient "C" node (Check in/out) ; ("ERR") Code for specific error, if any ; ("VST") Visit file IEN |
|
| RECNVT(SCOE,SCOE0,SCCONS) | ;Delete data added by conversion
|
|
| SETQ | ||
| DELPTR(SCE) | ; Delete visit pointer if encounter still exists
; SCE = encounter IEN |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | SET+30, SET+40 |
| ^SC - [#44] | SET+41, SET+42, SET+69*, SET+71! |
| ^SCE - [#409.68] | SET+30, SET+53, SET+73, SET+77, RECNVT+6, RECNVT+10, RECNVT+14, DELPTR+3 |
| ^SCE("APAR" | RECNVT+9 |
| Name | Line Occurrences |
|---|---|
| DELPTR | RECNVT+7, RECNVT+11 |
| RECNVT | SET+52 |
| SETQ | SET+57, SET+61 |
| Name | Field # of Occurrence |
|---|---|
| ^("C" | SET+41 |
| ^("R" | SET+40 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | SET~, SET+28, SET+30, SET+40, SET+69, SET+70 |
| PXKNOEVT | RECNVT+2~, RECNVT+4* |
| SCCHLD | RECNVT+2~, RECNVT+13*, RECNVT+14, RECNVT+15 |
| SCCLN | SET~, SET+28, SET+41, SET+42, SET+69, SET+70, SET+71 |
| SCCONS | SET+52, SET+68, RECNVT~ |
| SCCONS("PKG" | RECNVT+16 |
| SCCONS("SRCE" | RECNVT+16 |
| SCCV | SET~, SET+64, SET+82, SET+83 |
| SCCV("CL" | SET+41* |
| SCCV("CL1" | SET+42* |
| SCCV("EVT" | SET+37* |
| SCCV("HIST" | SET+73* |
| SCCV("LOG" | SET+39* |
| SCCV("NEW" | SET+55*, SET+57, SET+62, SET+63, SET+81 |
| SCCV("OE" | SET+51*, SET+76*, SET+77*, SET+78 |
| SCCV("ORG" | SET+79* |
| SCCV("PT" | SET+40*, SET+63 |
| SCCV("REF" | SET+79* |
| SCCV("SCDA" | SET+36* |
| SCCV("VST" | SET+78*, SET+81, SET+82* |
| SCCVEVT | SET~, SET+37, SET+45, SET+61, SET+83 |
| SCCVT | SET+67~, SET+68 |
| SCDA | SET~, SET+28*, SET+36, SET+41, SET+69, SET+71, SET+79 |
| SCDATA | SET+26~, SET+46~, DELPTR+2~, DELPTR+3 |
| SCDATA( | DELPTR+3* |
| SCDTM | SET~, SET+28, SET+30, SET+40, SET+41, SET+63, SET+64, SET+69, SET+70, SET+71 , SET+82, SET+83 |
| SCE | DELPTR~, DELPTR+3 |
| SCENC | RECNVT+2~, RECNVT+9*, RECNVT+10, RECNVT+11, RECNVT+13*, RECNVT+14 |
| SCENC0 | RECNVT+2~ |
| SCIENS | SET+26~ |
| SCLOG | SET~, SET+39 |
| SCOE | SET~, SET+30*, SET+49, SET+52, SET+53*, SET+55, SET+63, SET+64, SET+66, SET+70* , SET+72, SET+73, SET+76, SET+77, SET+81, SET+83, RECNVT~, RECNVT+6, RECNVT+7, RECNVT+9 |
| SCOE0 | SET+26~, SET+30*, SET+51, SET+52, SET+53*, SET+55, SET+63, RECNVT~, RECNVT+6 |
| >> SCTOT | SET+62 |
| >> SCTOT( | SET+74* |
| SCVST | RECNVT+2~, RECNVT+13*, RECNVT+14, RECNVT+15, RECNVT+16 |
| SCVST( | RECNVT+13, RECNVT+14 |
| SCVST(0 | RECNVT+6* |
| SCVST(1 | RECNVT+10* |
| U | SET+30, SET+55, SET+63, SET+73, SET+78, RECNVT+6, RECNVT+10, DELPTR+3 |
| Z | RECNVT+2~, RECNVT+16* |