©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
SCCVPCE ;ALB/TMP - Send data to PCE; [ 01/28/98 10:19 AM ]
Source file <SCCVPCE.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 3 | LOGERR^SCCVLOG1 $$SDVIEN^SCCVU SETERR^SCCVZZ |
| PCE Patient Care Encounter | 2 | ($$DATA2PCE,$$SOURCE)^PXAPI EN1^PXKMAIN |
| Package | Total | Caller Graph |
|---|---|---|
| Scheduling | 3 | SCCVEAE1 SCCVEAP1 SCCVEDI1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETPROC(CNT,ENC,SDVDT,EXTREF,SCDXARRY) | ;Get procedures from Scheduling Visits file
|
|
| BUILDQ | ||
| PROCQ | ||
| PROC(SDOE,SCDTM,SCDA,SCCVEVT,SCDXARRY) | ;
; SDOE = encounter ien ; SCDTM = if estimating and no enctr, dt/tm of the new encounter [opt] ; SCDA = if estimating and no enctr, 'CS' node entry [opt] ; SCCVEVT = conversion event ; SCDXARRY = name of array to return |
|
| SET(SDOE,ARRAY,FILE) | ;Set-up Array for Outpatient Encounter
; Input -- SDOE Outpatient Encounter IEN ; Output -- ARRAY Provider or dx Array Subscripted by ien |
|
| PRNODE(SDVDT,SUB,SCDXARRY) | ; Extract data for procs from SDV's 'PR' node
; SDVDT -- SDV entry ien ; SUB -- 'CS' node entry ien ; SCDXARRY -- the name of the array to return for the entry ; SCDXARRY(0)= the total # of procedure codes ; SCDXARRY(CPT code) = the total # of a particular CPT code |
|
| PRQ | ||
| DATA2PCE(SDOE,SCCONS,SCCVEVT,SCOEP,SCDTM,SCDA,SCEST) | ; -- send data to pce
|
|
| BUILD(SDPROV,SDDX,SDCLASS,SDCPT,SDATA,SPDATA,DFN,SDVST) | ; -- bld pce data arrays
|
|
| DATAQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVCPT("AD" | DATA2PCE+29 |
| ^AUPNVPOV("AD" | DATA2PCE+29 |
| ^AUPNVPRV("AD" | DATA2PCE+29 |
| ^AUPNVSIT - [#9000010] | BUILD+38 |
| ^ICD9 - [#80] | DATA2PCE+55 |
| ^ICPT - [#81] | DATA2PCE+56 |
| ^SCE - [#409.68] | DATA2PCE+20, DATA2PCE+24, PROC+13, PROC+17, GETPROC+6 |
| ^SCE("APAR" | PROC+17 |
| ^SDD( | SET+6, SET+7 |
| ^SDV - [#409.5] | GETPROC+11, GETPROC+12, PRNODE+8 |
| ^TMP("PXK" | DATA2PCE+17!, DATA2PCE+66*, DATA2PCE+71, DATA2PCE+76! |
| ^TMP("PXK-SD" | DATA2PCE+17!, DATA2PCE+44, DATA2PCE+64, DATA2PCE+66, DATA2PCE+67! |
| ^VA(200 - [#200] | DATA2PCE+73 |
| Name | Line Occurrences |
|---|---|
| $$PRNODE | GETPROC+13 |
| BUILD | DATA2PCE+40 |
| DATAQ | DATA2PCE+22, DATA2PCE+26, DATA2PCE+29, DATA2PCE+43 |
| GETPROC | PROC+14, PROC+17 |
| PROC | DATA2PCE+37 |
| PROCQ | PROC+8, PROC+13 |
| PRQ | PRNODE+9 |
| SET | DATA2PCE+32, DATA2PCE+33, DATA2PCE+34 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | DATA2PCE+55, DATA2PCE+56, DATA2PCE+73 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARRAY | SET~, SET+8 |
| CNT | PROC+6~, PROC+7*, PROC+14, PROC+17, PROCQ, GETPROC~, GETPROC+13* |
| DATE | GETPROC+3~, GETPROC+6*, GETPROC+7* |
| DFN | BUILD~, BUILD+44, GETPROC+3~, GETPROC+6*, GETPROC+7 |
| ENC | GETPROC~, GETPROC+5, GETPROC+6, GETPROC+12 |
| EXTREF | GETPROC~, GETPROC+6*, GETPROC+9, GETPROC+10 |
| FILE | SET~, SET+6, SET+7 |
| I | GETPROC+3~, GETPROC+9*, GETPROC+10 |
| NODE | GETPROC+3~, GETPROC+6* |
| PCNT | PRNODE+6~, PRNODE+7*, PRNODE+10*, PRQ |
| PRNODE | GETPROC+3~, PRNODE+6~, PRNODE+8*, PRNODE+9, PRNODE+10 |
| PXKERROR | DATA2PCE+76! |
| PXKNOEVT | DATA2PCE+15~, DATA2PCE+47* |
| SCCONS | DATA2PCE~ |
| SCCONS("PKG" | DATA2PCE+49, BUILD+46 |
| SCCONS("SRCE" | DATA2PCE+49, BUILD+2, BUILD+46 |
| >> SCCVERRH | DATA2PCE+60 |
| SCCVEVT | DATA2PCE~, DATA2PCE+22, DATA2PCE+26, DATA2PCE+37, DATA2PCE+43, PROC~ |
| SCDA | DATA2PCE~, DATA2PCE+37, PROC~, PROC+8, PROC+14 |
| SCDTM | DATA2PCE~, DATA2PCE+37, PROC~, PROC+8, PROC+14 |
| SCDXARRY | PROC~, PROC+14, PROC+17, PROCQ, GETPROC~, GETPROC+13, PRNODE~, PRNODE+10 |
| SCE | DATA2PCE+15~, DATA2PCE+60 |
| SCE("DATE" | DATA2PCE+58* |
| SCE("DFN" | DATA2PCE+58* |
| SCE("ENC" | DATA2PCE+58* |
| SCE("VSIT" | DATA2PCE+58* |
| SCERRM | DATA2PCE+15~, DATA2PCE+60 |
| SCERRM( | DATA2PCE+53*, DATA2PCE+55*, DATA2PCE+56*, DATA2PCE+57*, DATA2PCE+62, DATA2PCE+72*, DATA2PCE+73*, DATA2PCE+74* |
| SCERRM("" | DATA2PCE+59 |
| >> SCERRMSG( | DATA2PCE+62* |
| >> SCERRMSG("" | DATA2PCE+62 |
| SCEST | DATA2PCE~, DATA2PCE+18*, DATA2PCE+44* |
| >> SCLOG | DATA2PCE+55, DATA2PCE+56, DATA2PCE+60, DATA2PCE+61, DATA2PCE+75 |
| >> SCOE | DATA2PCE+55, DATA2PCE+56, DATA2PCE+75 |
| SCOEP | DATA2PCE~, DATA2PCE+24, DATA2PCE+29, DATA2PCE+36 |
| SCPCE | DATA2PCE+15~, DATA2PCE+49 |
| SCPCE("DIERR" | DATA2PCE+52, DATA2PCE+57 |
| SCPCE("DX/PL" | DATA2PCE+44 |
| SCPCE("PROCEDURE" | DATA2PCE+44 |
| SCSRCE | BUILD+1~, BUILD+2*, BUILD+42 |
| SCTEXT | DATA2PCE+50~, DATA2PCE+52*, DATA2PCE+54, DATA2PCE+55, DATA2PCE+56, DATA2PCE+65~, DATA2PCE+70*, DATA2PCE+74 |
| SCX | DATA2PCE+50~, DATA2PCE+54*, DATA2PCE+55, DATA2PCE+56, DATA2PCE+65~, DATA2PCE+71*, DATA2PCE+73, DATA2PCE+75 |
| SDATA | BUILD~, BUILD+5, BUILD+13, BUILD+29, BUILD+30 |
| SDCLASS | BUILD~, BUILD+3, BUILD+4 |
| SDCLS | DATA2PCE+15~ |
| SDCNT | BUILD+1~, BUILD+9*, BUILD+12*, BUILD+13, BUILD+19*, BUILD+25*, BUILD+28*, BUILD+29, BUILD+30, BUILD+37* , BUILD+41*, BUILD+43, BUILD+44, BUILD+45, BUILD+46, BUILD+47, BUILD+48, SET+4~, SET+5*, SET+8* |
| SDCPT | BUILD~, BUILD+16, BUILD+20, BUILD+21 |
| SDDUP | SET+4~ |
| SDDUP( | SET+7, SET+8* |
| SDDX | BUILD~, BUILD+8, BUILD+10, BUILD+11 |
| SDI | BUILD+1~, BUILD+3*, BUILD+4 |
| SDIAG | DATA2PCE+15~ |
| SDIEN | BUILD+1~, BUILD+9*, BUILD+10*, BUILD+11, BUILD+21*, BUILD+22, BUILD+25*, BUILD+26*, BUILD+27, BUILD+29 , BUILD+37*, BUILD+40*, BUILD+41, SET+4~, SET+5*, SET+6*, SET+7 |
| SDOE | DATA2PCE~, DATA2PCE+20, DATA2PCE+32, DATA2PCE+33, DATA2PCE+34, DATA2PCE+37, DATA2PCE+58, SET~, SET+6, PROC~ , PROC+7*, PROC+8, PROC+13, PROC+14, PROC+17 |
| SDOE0 | DATA2PCE+15~, DATA2PCE+20*, DATA2PCE+22, DATA2PCE+24, DATA2PCE+40, DATA2PCE+58 |
| SDOEC | DATA2PCE+15~, PROC+6~, PROC+7*, PROC+17* |
| SDPROC | DATA2PCE+15~ |
| SDPROV | BUILD~, BUILD+35, BUILD+40, BUILD+41 |
| SDPRV | DATA2PCE+15~ |
| SDSEQ | BUILD+1~, BUILD+19*, BUILD+20*, BUILD+21 |
| SDVDT | GETPROC~, GETPROC+7*, GETPROC+8, GETPROC+11, GETPROC+12, GETPROC+13, PRNODE~, PRNODE+8 |
| SDVST | DATA2PCE+15~, DATA2PCE+24*, DATA2PCE+26, DATA2PCE+29, DATA2PCE+40, DATA2PCE+49, DATA2PCE+58, BUILD~, BUILD+38, BUILD+44 , BUILD+48 |
| SDX | BUILD+18~ |
| SDX( | BUILD+22*, BUILD+26, BUILD+27 |
| SPDATA | BUILD~, BUILD+36, BUILD+38, BUILD+39, BUILD+42, BUILD+43, BUILD+44, BUILD+45, BUILD+46, BUILD+47 , BUILD+48 |
| SUB | GETPROC+3~, GETPROC+10*, GETPROC+11, GETPROC+12, GETPROC+13, PRNODE~, PRNODE+8 |
| U | DATA2PCE+24, DATA2PCE+40, DATA2PCE+44, DATA2PCE+55, DATA2PCE+56, DATA2PCE+58, DATA2PCE+73, BUILD+5, BUILD+44, BUILD+46 , GETPROC+12 |
| X | DATA2PCE+15~, BUILD+1~, BUILD+4*, BUILD+5, BUILD+11*, BUILD+13, BUILD+27*, BUILD+30, BUILD+41*, BUILD+44 , SET+7*, SET+8, PRNODE+6~, PRNODE+10* |
| Z | DATA2PCE+50~, DATA2PCE+51*, DATA2PCE+52*, DATA2PCE+53, DATA2PCE+57, DATA2PCE+62~*, DATA2PCE+65~, DATA2PCE+69*, DATA2PCE+70*, DATA2PCE+71 |
| Z0 | DATA2PCE+50~, DATA2PCE+52*, DATA2PCE+53, DATA2PCE+57, DATA2PCE+62~*, DATA2PCE+65~ |
| Z1 | DATA2PCE+50~, DATA2PCE+51*, DATA2PCE+53*, DATA2PCE+55*, DATA2PCE+56*, DATA2PCE+57*, DATA2PCE+65~, DATA2PCE+69*, DATA2PCE+72*, DATA2PCE+73 , DATA2PCE+74* |