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~ |