ABMPTSMT ; IHS/SD/SDR - Non-ben patient statement ;
Source file <ABMPTSMT.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| MARG | ;Set left and top margins | |
| GUARCHK | ; set vars for header | |
| HDR | ; | |
| WLINE | ;write service line | |
| CENTER(X) | ;EP | |
| WCOVRG | ; coverage info from bill | |
| XIT | ; | |
| SLINES | ;service lines | |
| PRTFILE | ; EP - save message, date, and who printed statement | |
| COVRG | ;EP | |
| TOTAL | ;total | 
| Name | Field # of Occurrence | 
|---|---|
| NOW^%DTC | PRTFILE+6 | 
| $$CPT^ABMCVAPI | SLINES+30, SLINES+32 | 
| LOC^ABMDE1X1 | WCOVRG+27 | 
| $$SDT^ABMDUTL | HDR+17, HDR+33, WCOVRG+13, WCOVRG+22 | 
| $$SDTO^ABMDUTL | SLINES+3, SLINES+22, SLINES+26 | 
| ^ABMEHGRV | SLINES+1 | 
| $$FMT^ABMERUTL | HDR+34, WLINE+2, WLINE+3, WLINE+4, WLINE+5 | 
| $$EN^ABMVDF | MARG+2 | 
| ^DIC | PRTFILE+9 | 
| $$GET1^DIQ | MARG+9, COVRG+10 | 
| 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 | 
 | 
| 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 | 
 | 
| 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 | 
 | 
| 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 | 
 | 
| 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 | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Routine Call | 
 | 
| FileNo | Call Tags | 
|---|---|
| ^AUTNINS - [#9999999.18] | GET1^DIQ | 
| ^AUTTINTY - [#9999999.181] | GET1^DIQ | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^ABMDBILL( | MARG+4, MARG+5, MARG+6, MARG+7, MARG+8, MARG+10, MARG+11, MARG+12, HDR+24, HDR+32 , HDR+33, HDR+39, HDR+40, HDR+41, SLINES+3, SLINES+22, SLINES+26, WCOVRG+22, GUARCHK+5, GUARCHK+6 , COVRG+4, COVRG+6, COVRG+12 | 
| ^ABMDPARM( | HDR+6, WCOVRG+22 | 
| ^ABMDTXST - [#9002274.6] | WCOVRG+22 | 
| ^ABMDVTYP - [#9002274.8] | HDR+38 | 
| ^ABMNINS( | SLINES+5 | 
| ^AUPN3PPH - [#9000003.1] | COVRG+33 | 
| ^AUPNGUAR - [#9000043] | GUARCHK+4, GUARCHK+8, GUARCHK+10, GUARCHK+11, GUARCHK+12, GUARCHK+15, GUARCHK+36 | 
| ^AUPNMCD - [#9000004] | COVRG+26 | 
| ^AUPNMCR - [#9000003] | COVRG+16 | 
| ^AUPNPAT - [#9000001] | HDR+21, COVRG+14 | 
| ^AUPNPRVT - [#9000006] | COVRG+30 | 
| ^AUPNRRE - [#9000005] | COVRG+20 | 
| ^AUTNEMPL - [#9999999.75] | GUARCHK+30, GUARCHK+31, GUARCHK+32, GUARCHK+33, GUARCHK+34 | 
| ^AUTNINS - [#9999999.18] | WCOVRG+10, WCOVRG+11, GUARCHK+24, GUARCHK+25, GUARCHK+26, GUARCHK+27, GUARCHK+28, COVRG+10, COVRG+12, COVRG+13 | 
| ^AUTTADA - [#9999999.31] | SLINES+33 | 
| ^AUTTADA("B" | SLINES+33 | 
| ^AUTTLOC - [#9999999.06] | HDR+3, HDR+4, HDR+10 | 
| ^AUTTPIC - [#9999999.65] | WCOVRG+12 | 
| ^AUTTREVN - [#9999999.72] | SLINES+5, SLINES+34 | 
| ^DD(9002274.4 | PRTFILE+5 | 
| ^DIC(40.7 - [#40.7] | MARG+10 | 
| ^DIC(5 - [#5] | GUARCHK+21, GUARCHK+27, GUARCHK+33, GUARCHK+40 | 
| ^DPT - [#2] | HDR+32, GUARCHK+18, GUARCHK+19, GUARCHK+20, GUARCHK+21, GUARCHK+22, GUARCHK+37, GUARCHK+38, GUARCHK+39, GUARCHK+40 , GUARCHK+41 | 
| ^ICPT("B" | SLINES+32 | 
| ^VA(200 - [#200] | HDR+42 | 
| Name | Line Occurrences | 
|---|---|
| CENTER | HDR+4, HDR+6, HDR+7, HDR+10, HDR+12 | 
| COVRG | WCOVRG+1 | 
| GUARCHK | HDR+16 | 
| HDR | MARG+15, WLINE+18 | 
| PRTFILE | WCOVRG+35 | 
| SLINES | MARG+16 | 
| TOTAL | SLINES+11, SLINES+40 | 
| WCOVRG | WLINE+16 | 
| WLINE | SLINES+10, SLINES+39 | 
| XIT | MARG+17 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| >> % | PRTFILE+7 | 
| >> ABM("I" | MARG+3* | 
| >> ABM("LM" | MARG+1* | 
| >> ABM("LN" | MARG+1* | 
| >> ABM("TM" | MARG+1*, MARG+3 | 
| >> ABMABEN | COVRG+12* | 
| >> ABMADIEN | HDR+3*, HDR+4 | 
| >> ABMAPRV | HDR+39*, HDR+40*, HDR+41*, HDR+42 | 
| ABMBEN | COVRG+2!, COVRG+13*, COVRG+14* | 
| >> ABMBILLD | COVRG+3*, COVRG+7* | 
| ABMCHRG | SLINES+7*, SLINES+8, SLINES+9*, SLINES+36*, SLINES+37, SLINES+38*, WLINE+5, XIT+4! | 
| >> ABMCOV | COVRG+5*, COVRG+18*, COVRG+22*, COVRG+28*, COVRG+33*, COVRG+34 | 
| ABMDESC | SLINES+5*, SLINES+29*, SLINES+30*, SLINES+32*, SLINES+33*, SLINES+34*, WLINE+3, XIT+4! | 
| >> ABMEFDT | COVRG+5*, COVRG+17*, COVRG+21*, COVRG+27*, COVRG+31*, COVRG+34 | 
| >> ABMG | GUARCHK+15*, GUARCHK+16 | 
| ABMGCITY | HDR+25, XIT+2!, GUARCHK+20*, GUARCHK+26*, GUARCHK+32*, GUARCHK+39* | 
| >> ABMGDA | GUARCHK+16*, GUARCHK+18, GUARCHK+19, GUARCHK+20, GUARCHK+21, GUARCHK+22, GUARCHK+24, GUARCHK+25, GUARCHK+26, GUARCHK+27 , GUARCHK+28, GUARCHK+30, GUARCHK+31, GUARCHK+32, GUARCHK+33, GUARCHK+34 | 
| >> ABMGEFDA | GUARCHK+9*, GUARCHK+10*, GUARCHK+11, GUARCHK+12 | 
| >> ABMGEFDT | GUARCHK+11*, GUARCHK+13 | 
| >> ABMGENDT | GUARCHK+12*, GUARCHK+13 | 
| >> ABMGFILE | GUARCHK+16*, GUARCHK+17, GUARCHK+23, GUARCHK+29 | 
| >> ABMGIEN | GUARCHK+7*, GUARCHK+8*, GUARCHK+10, GUARCHK+11, GUARCHK+12, GUARCHK+15 | 
| ABMGNAME | HDR+18, XIT+2!, GUARCHK+18*, GUARCHK+24*, GUARCHK+30*, GUARCHK+37* | 
| ABMGST | HDR+25, XIT+2!, GUARCHK+21*, GUARCHK+27*, GUARCHK+33*, GUARCHK+40* | 
| ABMGSTR | HDR+22, XIT+2!, GUARCHK+19*, GUARCHK+25*, GUARCHK+31*, GUARCHK+38* | 
| ABMGZIP | HDR+25, XIT+2!, GUARCHK+22*, GUARCHK+28*, GUARCHK+34*, GUARCHK+41* | 
| ABMI | HDR+27*, HDR+29*, HDR+36*, HDR+44*, WCOVRG+3*, WCOVRG+19*, WCOVRG+25*, XIT+3! | 
| >> ABMIEN | COVRG+3*, COVRG+4*, COVRG+6 | 
| >> ABMII | SLINES+16*, SLINES+17*, SLINES+19, SLINES+21, SLINES+22, SLINES+23, SLINES+24, SLINES+25, SLINES+26, SLINES+28 , SLINES+29, SLINES+30, SLINES+32, SLINES+33, SLINES+34, SLINES+35, SLINES+36 | 
| ABMINS | WCOVRG+5*, WCOVRG+8*, WCOVRG+9*, WCOVRG+10, WCOVRG+11, WCOVRG+12, WCOVRG+13, XIT+3!, COVRG+8*, COVRG+10 , COVRG+12, COVRG+13, COVRG+34 | 
| >> ABMINTRY | COVRG+5*, COVRG+16*, COVRG+17, COVRG+18, COVRG+20*, COVRG+21, COVRG+22, COVRG+26*, COVRG+27, COVRG+28 , COVRG+30*, COVRG+31, COVRG+32 | 
| >> ABMISNB | COVRG+3*, COVRG+10* | 
| ABMJ | SLINES+16*, SLINES+18*, SLINES+19*, SLINES+21, SLINES+22, SLINES+23, SLINES+25, SLINES+26, SLINES+28, SLINES+29 , SLINES+30, SLINES+32, SLINES+33, SLINES+34, SLINES+35, SLINES+36, XIT+3! | 
| ABMK | SLINES+16*, SLINES+20*, SLINES+21*, SLINES+22, SLINES+23, SLINES+25, SLINES+26, SLINES+28, SLINES+29, SLINES+30 , SLINES+32, SLINES+33, SLINES+34, SLINES+35, SLINES+36, XIT+3! | 
| ABML | XIT+3!, COVRG+1! | 
| ABML( | WCOVRG+6, WCOVRG+9, WCOVRG+12, WCOVRG+13, COVRG+34* | 
| ABML(0 | WCOVRG+14 | 
| >> ABMLN | TOTAL+14*, TOTAL+16 | 
| ABMLNCNT | SLINES+13*, WLINE+7*, WLINE+8, WLINE+19*, TOTAL+13, TOTAL+16*, XIT+5! | 
| ABMMSG | XIT+5! | 
| >> ABMMULT | COVRG+24*, COVRG+25, COVRG+26 | 
| ABMNOG | XIT+5!, GUARCHK+3*, GUARCHK+14*, GUARCHK+36 | 
| >> ABMP("BDFN" | MARG+4, MARG+5, MARG+6, MARG+7, MARG+8, MARG+10, MARG+11, MARG+12, HDR+24, HDR+32 , HDR+33, HDR+39, HDR+40, HDR+41, SLINES+3, SLINES+22, SLINES+26, WCOVRG+22, PRTFILE+2, PRTFILE+8 , GUARCHK+5, GUARCHK+6, COVRG+4, COVRG+6, COVRG+12 | 
| >> ABMP("BTYP" | MARG+7* | 
| >> ABMP("CLIN" | MARG+10* | 
| >> ABMP("EXP" | MARG+12* | 
| >> ABMP("FLAT" | SLINES+2, SLINES+4, SLINES+5, SLINES+6, SLINES+7 | 
| >> ABMP("INS" | MARG+8*, MARG+9, SLINES+5 | 
| >> ABMP("ITYP" | MARG+9* | 
| >> ABMP("ITYPE" | MARG+9* | 
| >> ABMP("LDFN" | MARG+5*, HDR+10, HDR+21 | 
| >> ABMP("PDFN" | MARG+4*, HDR+21, GUARCHK+4, GUARCHK+8, GUARCHK+10, GUARCHK+11, GUARCHK+12, GUARCHK+15, GUARCHK+36, GUARCHK+37 , GUARCHK+38, GUARCHK+39, GUARCHK+40, GUARCHK+41, COVRG+14, COVRG+16, COVRG+20, COVRG+30 | 
| >> ABMP("VDT" | MARG+11*, SLINES+30, SLINES+32 | 
| >> ABMP("VTYP" | MARG+6*, HDR+38, SLINES+5 | 
| ABMPAGE | MARG+13*, HDR+34, WLINE+17*, XIT+5! | 
| >> ABMPH | COVRG+32*, COVRG+33 | 
| ABMPRI | WCOVRG+5*, WCOVRG+6*, WCOVRG+7, WCOVRG+9, WCOVRG+11, WCOVRG+12, WCOVRG+13, XIT+3!, COVRG+11*, COVRG+34 | 
| >> ABMPRIS | WCOVRG+5*, WCOVRG+7*, WCOVRG+15, WCOVRG+16* | 
| ABMRV | XIT+3! | 
| ABMRV( | SLINES+17, SLINES+19, SLINES+21, SLINES+22, SLINES+23, SLINES+25, SLINES+26, SLINES+28, SLINES+29, SLINES+30 , SLINES+32, SLINES+33, SLINES+34, SLINES+35, SLINES+36 | 
| ABMSCD | SLINES+4*, SLINES+23*, SLINES+25*, SLINES+28*, WLINE+2, XIT+4! | 
| ABMSDT | SLINES+3*, SLINES+22*, SLINES+26*, WLINE+1, XIT+4! | 
| >> ABMSDTFR | GUARCHK+6*, GUARCHK+13 | 
| >> ABMSDTTO | GUARCHK+5*, GUARCHK+13 | 
| ABMTCHRG | MARG+14*, SLINES+8*, SLINES+37*, TOTAL+11, XIT+4! | 
| ABMUNIT | SLINES+6*, SLINES+7, SLINES+35*, WLINE+4, XIT+4! | 
| ABMV | XIT+1! | 
| ABMV("X1" | WCOVRG+30, WCOVRG+31, WCOVRG+32, WCOVRG+33 | 
| >> ABMX | COVRG+6*, COVRG+7, COVRG+8, COVRG+11, COVRG+15, COVRG+16, COVRG+19, COVRG+20, COVRG+23, COVRG+24 , COVRG+26, COVRG+29, COVRG+30 | 
| >> ABMY( | WCOVRG+22, PRTFILE+8 | 
| >> CENTER | CENTER+1*, CENTER+2 | 
| DA | PRTFILE+1! | 
| DA(1 | PRTFILE+2*, PRTFILE+3 | 
| DIC | PRTFILE+1!, PRTFILE+3* | 
| DIC("DR" | PRTFILE+8* | 
| DIC("P" | PRTFILE+5* | 
| DIC(0 | PRTFILE+4* | 
| DIE | PRTFILE+1! | 
| DT | HDR+17 | 
| DUZ | PRTFILE+8 | 
| DUZ(2 | MARG+4, MARG+5, MARG+6, MARG+7, MARG+8, MARG+10, MARG+11, MARG+12, HDR+3, HDR+4 , HDR+6, HDR+21, HDR+24, HDR+32, HDR+33, HDR+39, HDR+40, HDR+41, SLINES+3, SLINES+5 , SLINES+22, SLINES+26, WCOVRG+22, GUARCHK+5, GUARCHK+6, COVRG+4, COVRG+6, COVRG+12 | 
| IOM | CENTER+1 | 
| U | MARG+4, MARG+5, MARG+6, MARG+7, MARG+8, MARG+10, MARG+11, MARG+12, HDR+4, HDR+6 , HDR+10, HDR+21, HDR+24, HDR+32, HDR+33, HDR+38, HDR+41, HDR+42, SLINES+3, SLINES+4 , SLINES+5, SLINES+6, SLINES+7, SLINES+22, SLINES+23, SLINES+25, SLINES+26, SLINES+28, SLINES+29, SLINES+30 , SLINES+32, SLINES+33, SLINES+34, SLINES+35, SLINES+36, WCOVRG+10, WCOVRG+11, WCOVRG+12, WCOVRG+13, WCOVRG+22 , WCOVRG+30, WCOVRG+31, WCOVRG+32, WCOVRG+33, PRTFILE+5, GUARCHK+5, GUARCHK+6, GUARCHK+11, GUARCHK+12, GUARCHK+15 , GUARCHK+18, GUARCHK+19, GUARCHK+20, GUARCHK+21, GUARCHK+22, GUARCHK+24, GUARCHK+25, GUARCHK+26, GUARCHK+27, GUARCHK+28 , GUARCHK+30, GUARCHK+31, GUARCHK+32, GUARCHK+33, GUARCHK+34, GUARCHK+37, GUARCHK+38, GUARCHK+39, GUARCHK+40, GUARCHK+41 , COVRG+7, COVRG+8, COVRG+10, COVRG+11, COVRG+12, COVRG+13, COVRG+14, COVRG+15, COVRG+16, COVRG+17 , COVRG+18, COVRG+19, COVRG+20, COVRG+21, COVRG+22, COVRG+23, COVRG+24, COVRG+26, COVRG+27, COVRG+28 , COVRG+29, COVRG+30, COVRG+31, COVRG+32, COVRG+33 | 
| X | PRTFILE+1!, PRTFILE+7*, CENTER~, CENTER+2 | 
| Y | PRTFILE+1! |