SD53P491 ;ALB/ESW - SD*5.3*491 POST INIT; Oct 04, 2006 ; 10/23/06 5:40pm ; Compiled June 17, 2008 10:41:32
Source file <SD53P491.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
POST | ;
|
|
ATADD | ; New Billable Appointment Type (352.1) to correspond to the New 'SERVICE CONNECTED' Appointment Type (409.1)
|
|
ATADDQ | ||
CHKSC | ;Match SC encounter value with proper Appointment Type.
; look for encounters only |
|
APPT(DFN,SDT,SCE,UPDAP,SDR) | ;update appointment multiple in Patient file
|
|
RETR(SCE) | ; mark encounter for retransmission
|
|
MSG(X) | ;
|
|
CRST(SDVST,SDSCV,SDAPDPT,CNT) | ;check for credit stop encounter for each scanned encounter
|
|
UPDINS(SDWLSC,CNT,INERROR) | ; update 409.32 and the related entries in 409.3
|
|
MSGG(SDX) | ;send message
|
Name | Field # of Occurrence |
---|---|
DELIX^DDMOD | POST+6 |
^DIE | UPDINS+31, UPDINS+40, UPDINS+45 |
IXALL^DIK | POST+27 |
$$GET1^DIQ | CHKSC+13, CHKSC+15, UPDINS+1, UPDINS+4, UPDINS+24, UPDINS+42 |
$$FINDXMIT^SCDXFU01 | RETR+2 |
STREEVNT^SCDXFU01 | RETR+3 |
XMITFLAG^SCDXFU01 | RETR+4 |
$$CLIN^SDWLPE | UPDINS+5 |
$$FMADD^XLFDT | CHKSC+5, CHKSC+6 |
^XMD | MSGG+30 |
MES^XPDUTL | ATADDQ |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DIC(4 - [#4] | GET1^DIQ |
^SDWL(409.3 - [#409.3] | Classic Fileman Calls |
^SDWL(409.32 - [#409.32] | Classic Fileman Calls, DELIX^DDMOD, GET1^DIQ |
^SC - [#44] | GET1^DIQ |
^AUPNVSIT - [#9000010] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNVSIT - [#9000010] | CHKSC+12 |
^AUPNVSIT("AD" | CRST+1 |
^DPT - [#2] | APPT+1, APPT+6* |
^IBE(352.1 - [#352.1] | ATADD+4 |
^SCE - [#409.68] | CHKSC+8, CHKSC+9, CHKSC+21, CHKSC+23, CHKSC+24*, CHKSC+29, CHKSC+30*, CRST+5, CRST+6, CRST+7* , CRST+10, CRST+11, CRST+12* |
^SCE("AVSIT" | CRST+2 |
^SDWL(409.3 - [#409.3] | UPDINS+36, UPDINS+37!, UPDINS+39, UPDINS+40 |
^SDWL(409.32 - [#409.32] | POST+24, UPDINS+30, UPDINS+31, UPDINS+43, UPDINS+45 |
^XTMP("SD53P491-" | CHKSC+4!, CHKSC+5*, CHKSC+23*, CHKSC+29*, CRST+6*, CRST+11* |
^XTMP("SD53P491AP-" | CHKSC+4!, CHKSC+6*, APPT+5* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CL | UPDINS+4~*, UPDINS+5, UPDINS+9, UPDINS+20, UPDINS+36, UPDINS+37 |
CLN | UPDINS+4~*, UPDINS+9, UPDINS+20, UPDINS+41, UPDINS+46 |
CNT | POST+20~, POST+24*, CHKSC+2~*, CHKSC+23*, CHKSC+29*, CHKSC+32, CHKSC+34, CRST~, CRST+6*, CRST+11* , UPDINS~, UPDINS+7*, UPDINS+9*, UPDINS+10, UPDINS+11*, UPDINS+12, UPDINS+13*, UPDINS+14, UPDINS+15*, UPDINS+16 , UPDINS+17*, UPDINS+20*, UPDINS+21, UPDINS+22*, UPDINS+23, UPDINS+25*, UPDINS+26, UPDINS+27*, UPDINS+28, UPDINS+30* , UPDINS+32*, UPDINS+33, UPDINS+34*, UPDINS+39*, UPDINS+41*, UPDINS+43*, UPDINS+46*, UPDINS+47, UPDINS+48*, MSGG+6* , MSGG+7*, MSGG+8*, MSGG+9, MSGG+10*, MSGG+11, MSGG+12*, MSGG+13, MSGG+14*, MSGG+15, MSGG+16* , MSGG+17, MSGG+18*, MSGG+19, MSGG+20*, MSGG+21, MSGG+22*, MSGG+23, MSGG+24*, MSGG+25, MSGG+26* , MSGG+27, MSGG+28*, MSGG+29 |
CNT1 | UPDINS+36~*, UPDINS+40*, UPDINS+41 |
CNTA | CHKSC+2~*, CHKSC+35, APPT+7* |
DA | ATADD+1~, UPDINS+29~*, UPDINS+30, UPDINS+31, UPDINS+36~, UPDINS+38*, UPDINS+42~, UPDINS+43* |
DD | ATADD+1~ |
DFN | CHKSC+9~, CHKSC+10*, CHKSC+20, CHKSC+23, CHKSC+29, APPT~, APPT+1, APPT+5, APPT+6, CRST+6 , CRST+11 |
DIC | ATADD+1~ |
DIE | ATADD+1~, UPDINS+29~*, UPDINS+38*, UPDINS+44* |
DIFROM | MSGG+1~ |
DIK | POST+27~* |
DINUM | ATADD+1~ |
DLAYGO | ATADD+1~ |
DO | ATADD+1~ |
DR | ATADD+1~, UPDINS+29~*, UPDINS+36~, UPDINS+38*, UPDINS+44* |
DT | CHKSC+5, CHKSC+6 |
DUZ | MSGG+4 |
IBFN | ATADD+1~ |
IBFOUND | ATADD+1~, ATADD+4*, ATADD+5 |
IBNUM | ATADD+1~, ATADD+3* |
INERROR | POST+20~*, POST+24, POST+26, UPDINS~, UPDINS+18* |
SCE | CHKSC+2~, CHKSC+7*, CHKSC+8*, CHKSC+9, CHKSC+20, CHKSC+21, CHKSC+23, CHKSC+24, CHKSC+29, CHKSC+30 , APPT~, APPT+3, APPT+5, RETR~, RETR+2 |
SCL | UPDINS+36~*, UPDINS+37, UPDINS+38, UPDINS+39, UPDINS+40 |
SDA | POST+1~, POST+3~, POST+11~, POST+15~, POST+18~, POST+28~, ATADD+1~, ATADDQ!, CHKSC+33~ |
SDA( | MSG+2* |
SDA(1 | POST+2*, POST+4*, POST+10*, POST+12*, POST+16*, POST+19*, POST+29*, ATADD+2*, CHKSC+34* |
SDA(2 | POST+2*, POST+4*, POST+10*, POST+12*, POST+16*, POST+19*, POST+29*, CHKSC+34* |
SDA(3 | POST+2*, POST+5*, POST+10*, POST+12*, POST+16*, POST+19*, POST+29*, CHKSC+35* |
SDA(4 | POST+5*, POST+12*, POST+19*, POST+29*, CHKSC+36* |
SDA(5 | POST+12*, POST+19*, POST+29*, CHKSC+37* |
SDA(999999 | MSG+1 |
SDAMX | MSGG+1~ |
SDAPDF | CHKSC+9~, CHKSC+15*, CHKSC+16 |
SDAPDPT | CHKSC+16*, CHKSC+17*, CHKSC+19, CHKSC+24, CHKSC+32, CRST~, CRST+12 |
SDAT | ATADD+1~, ATADD+3* |
SDATFN | ATADD+1~, ATADD+3*, ATADD+4 |
SDE | CRST+1~*, CRST+2*, CRST+3, CRST+5, CRST+6, CRST+7, CRST+10, CRST+11, CRST+12 |
SDI | UPDINS+24~*, UPDINS+25 |
SDI1 | UPDINS+24~*, UPDINS+25 |
SDR | CHKSC+20~, APPT~, APPT+2*, APPT+7* |
SDSCV | CHKSC+9~, CHKSC+13*, CHKSC+14, CHKSC+18, CHKSC+22, CHKSC+27, CHKSC+32, CRST~, CRST+4, CRST+9 |
SDT | CHKSC+9~, CHKSC+10*, CHKSC+20, CHKSC+23, CHKSC+29, APPT~, APPT+1, APPT+5, APPT+6, CRST+6 , CRST+11 |
SDVSCL | CHKSC+9~, CHKSC+10*, CHKSC+15 |
SDVST | CHKSC+9~, CHKSC+11*, CHKSC+12, CHKSC+13, CHKSC+32, CRST~, CRST+1 |
SDVSTS | CRST+1~*, CRST+2 |
SDWLINS | UPDINS+1~*, UPDINS+19, UPDINS+24 |
SDWLSC | POST+20~, POST+24*, UPDINS~, UPDINS+1, UPDINS+4, UPDINS+29, UPDINS+42, UPDINS+43, UPDINS+45 |
SDWMES | UPDINS+5~*, UPDINS+6*, UPDINS+7*, UPDINS+8, UPDINS+11 |
SDX | POST+20~, POST+25, MSG+1~*, MSG+2, MSGG~ |
SDX( | UPDINS+7*, UPDINS+9*, UPDINS+10, UPDINS+11*, UPDINS+12, UPDINS+13*, UPDINS+14, UPDINS+15*, UPDINS+16, UPDINS+17* , UPDINS+20*, UPDINS+21, UPDINS+22*, UPDINS+23, UPDINS+25*, UPDINS+26, UPDINS+27*, UPDINS+28, UPDINS+30*, UPDINS+32* , UPDINS+33, UPDINS+34*, UPDINS+39*, UPDINS+41*, UPDINS+43*, UPDINS+46*, UPDINS+47, UPDINS+48*, MSGG+7*, MSGG+8* , MSGG+9, MSGG+10*, MSGG+11, MSGG+12*, MSGG+13, MSGG+14*, MSGG+15, MSGG+16*, MSGG+17, MSGG+18* , MSGG+19, MSGG+20*, MSGG+21, MSGG+22*, MSGG+23, MSGG+24*, MSGG+25, MSGG+26*, MSGG+27, MSGG+28* , MSGG+29 |
SDX("" | MSGG+6 |
SDX(1 | POST+21* |
SDX(2 | POST+22* |
SDX(3 | POST+23* |
SDX(4 | POST+24* |
SDXM | RETR+1~, RETR+2*, RETR+3, RETR+4 |
STR | CHKSC+9~*, CHKSC+10, CHKSC+11, APPT+1~*, APPT+3, APPT+4, APPT+5, UPDINS+5~*, UPDINS+6, UPDINS+7 , UPDINS+19, UPDINS+27 |
U | CHKSC+5, CHKSC+6, CHKSC+8, CHKSC+10, CHKSC+11, CHKSC+21, CHKSC+24, CHKSC+30, APPT+3, APPT+4 , APPT+6, CRST+5, CRST+7, CRST+10, CRST+12, UPDINS+6, UPDINS+7, UPDINS+27 |
UPDAP | CHKSC+18~*, CHKSC+19*, CHKSC+20, APPT~, APPT+4, APPT+6 |
X | ATADD+1~, MSG~, MSG+2 |
XMDUZ | MSGG+1~ |
XMSUB | MSGG+1~, MSGG+2* |
XMTEXT | MSGG+1~, MSGG+5* |
XMY | MSGG+1~ |
XMY( | MSGG+4* |
XMY("G.SD EWL | BACKGROUND UPDATE" , MSGG+3* |
Y | ATADD+1~ |