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 |
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 | 3 | SCCVEAE1 SCCVEAP1 SCCVEDI1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
DATA2PCE(SDOE,SCCONS,SCCVEVT,SCOEP,SCDTM,SCDA,SCEST) | ; -- send data to pce
|
|
DATAQ | ||
BUILD(SDPROV,SDDX,SDCLASS,SDCPT,SDATA,SPDATA,DFN,SDVST) | ; -- bld pce data arrays
|
|
BUILDQ | ||
SET(SDOE,ARRAY,FILE) | ;Set-up Array for Outpatient Encounter
; Input -- SDOE Outpatient Encounter IEN ; Output -- ARRAY Provider or dx Array Subscripted by ien |
|
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 |
|
PROCQ | ||
GETPROC(CNT,ENC,SDVDT,EXTREF,SCDXARRY) | ;Get procedures from Scheduling Visits file
|
|
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 |
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 | 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* |