©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
AGGUPMCR ;VNGT/HS/ALA-Update Medicare ; 20 May 2010 5:20 PM
Source file <AGGUPMCR.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OTH | ;
|
|
| ROI(DATA,DFN,AGGMCROI) | ;EP - AGG MEDICARE ROI TRIGGER
; Input ; DFN - Patient IEN ; AGGMCROI - Release of Information Date |
|
| MCRSUF(DFN) | ;EP - Medicare Suffix
|
|
| MCDB(DFN) | ;EP - DOB
|
|
| MCRABN(DFN) | ;EP - Advance Beneficiary Notice
|
|
| MCRPRV(DFN) | ;EP - Medicare Provider
|
|
| MCRNMB(DFN) | ;EP - Medicare Number
|
|
| XROI | ||
| PATCH | ;
|
|
| MCRQMB(DFN) | ;EP - Medicare Beneficiary Status
|
|
| MCRDTO(DFN) | ;EP - Medicare Date Obtained
|
|
| PARS | ;
|
|
| XTRIG | ||
| DONE | ;
|
|
| UPD(DATA,DFN,PROC,DEF,MIEN,PARMS) | ; EP - AGG UPDATE MEDICARE
; Input ; DFN - Patient IEN ; MIEN - Multiple IEN ; PROC - 'A' to add, 'E' to edit, 'D' to delete ; DEF - Definition ; PARMS - Parameters |
|
| MCRCCF(DFN) | ;EP - Medicare Card Copy on File
|
|
| MCRINFM(DFN) | ;EP - IMP MSG FORM MCR SIG OBTAINED
|
|
| MCD() | ;EP
|
|
| MCNM(DFN) | ;EP - NAME
|
|
| MCLSTDT(DFN) | ;EP - Medicare Last update
|
|
| TRIG(DATA,DFN) | ;EP - AGG MEDICARE TRIGGER
; Input ; DFN - Patient record ; PROC - Process; 'A' is add |
| Name | Field # of Occurrence |
|---|---|
| EDIT^AGGEXPRT | DONE+11 |
| $$CTRL^AGGUL1 | PARS+16 |
| $$DATE^AGGUL1 | PARS+9 |
| $$FMTE^AGGUL1 | MCDB+2, MCDB+3, MCLSTDT+4, MCRDTO+3, MCRABN+4, MCRINFM+4, TRIG+19 |
| HDR^AGGWTRIG | TRIG+12, ROI+12 |
| UP^AGGWTRIG | TRIG+16, TRIG+19, TRIG+24, TRIG+25, TRIG+26, TRIG+27, TRIG+28, TRIG+29, TRIG+30, TRIG+31 , TRIG+32, TRIG+33, TRIG+34, TRIG+35, TRIG+36, TRIG+38, TRIG+39, TRIG+40, TRIG+41, TRIG+42 , TRIG+43, TRIG+44, TRIG+45, TRIG+46, TRIG+47, TRIG+48, ROI+18, ROI+19, ROI+20, ROI+21 , ROI+22, ROI+23, ROI+24, ROI+25, ROI+26, ROI+27, ROI+28, ROI+29, ROI+30, ROI+34 , ROI+35, ROI+36, ROI+37, ROI+38, ROI+39, ROI+40, ROI+41, ROI+42, ROI+43, ROI+44 , ROI+45, ROI+46 |
| ^DIC | OTH+5, OTH+10 |
| FILE^DICN | UPD+28, UPD+46 |
| FILE^DIE | UPD+34, UPD+63, DONE+9 |
| $$IENS^DILF | UPD+31, UPD+32, UPD+49, UPD+50 |
| $$GET1^DIQ | MCNM+2, MCDB+2, MCDB+3, MCLSTDT+4, MCRQMB+3, MCRNMB+3, MCRSUF+3, MCRPRV+3, MCRDTO+3, MCRCCF+3 , TRIG+19, TRIG+22 |
| $$NOW^XLFDT | DONE+10, PATCH+2 |
| RPC Name | Call Tags |
|---|---|
| AGG UPDATE MEDICARE | UPD |
| AGG MEDICARE TRIGGER | TRIG |
| AGG MEDICARE ROI TRIGGER | ROI |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^AUPNPAT - [#9000001] | GET1^DIQ |
| ^AUPNMCR - [#9000003] | Classic Fileman Calls, GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AGG(9009068.3 - [#9009068.3] | UPD+19, UPD+23, UPD+54, UPD+56, UPD+57, DONE+14, PARS+6, PARS+8, PARS+12, PARS+13 |
| ^AGPATCH( | DONE+10*, PATCH+3*, PATCH+4* |
| ^AUPNMCR - [#9000003] | UPD+25, UPD+41*, OTH+2*, OTH+7*, PATCH+2, PATCH+3, PATCH+4, MCRABN+2, MCRINFM+2 |
| ^AUPNMCR("B" | MCNM+2, MCDB+2, MCLSTDT+3, MCRQMB+2, MCRNMB+2, MCRSUF+2, MCRPRV+2, MCRDTO+2, MCRCCF+2 |
| ^AUTNINS("B" | UPD+62, MCD+2 |
| ^DPT - [#2] | MCNM+3 |
| ^TMP("AGGUPMCR" | UPD+10, TRIG+7, ROI+7 |
| Name | Line Occurrences |
|---|---|
| $$MCD | TRIG+38 |
| $$MCDB | TRIG+40, ROI+23 |
| $$MCLSTDT | TRIG+16 |
| $$MCNM | TRIG+39, ROI+18 |
| $$MCRABN | TRIG+47, ROI+29 |
| $$MCRCCF | TRIG+46 |
| $$MCRDTO | TRIG+45 |
| $$MCRINFM | TRIG+48, ROI+30 |
| $$MCRNMB | TRIG+42 |
| $$MCRPRV | TRIG+44 |
| $$MCRQMB | TRIG+41 |
| $$MCRSUF | TRIG+43 |
| DONE | UPD+30 |
| PARS | UPD+37 |
| XROI | ROI+16, ROI+32 |
| XTRIG | TRIG+22 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ABLE | TRIG+16*, TRIG+19*, TRIG+24*, TRIG+25*, TRIG+26*, TRIG+27*, TRIG+28*, TRIG+29*, TRIG+30*, TRIG+31* , TRIG+32*, TRIG+33*, TRIG+34*, TRIG+35*, TRIG+36*, TRIG+38*, TRIG+39*, TRIG+40*, TRIG+41*, TRIG+42* , TRIG+43*, TRIG+44*, TRIG+45*, TRIG+46*, TRIG+47*, TRIG+48*, ROI+5~, ROI+18*, ROI+19*, ROI+20* , ROI+21*, ROI+22*, ROI+23*, ROI+24*, ROI+25*, ROI+26*, ROI+27*, ROI+28*, ROI+29*, ROI+30* , ROI+34*, ROI+35*, ROI+36*, ROI+37*, ROI+38*, ROI+39*, ROI+40*, ROI+41*, ROI+42*, ROI+43* , ROI+44*, ROI+45*, ROI+46* |
| ABN | MCRABN+1~, MCRABN+2*, MCRABN+3*, MCRABN+4 |
| AGDTS | PATCH+1~, PATCH+2*, PATCH+3, PATCH+4 |
| AGGDATA | UPD+8~ |
| AGGDATA( | UPD+60* |
| AGGDATA(9000003 | UPD+62* |
| >> AGGDATAI(9000001 | DONE+8* |
| AGGMCABN | OTH+6, OTH+9, OTH+11! |
| AGGMCESD | UPD+8~, UPD+42, UPD+44 |
| AGGMCIMP | OTH+1, OTH+4, OTH+11! |
| AGGMCINS | UPD+8~, UPD+62 |
| AGGMCROI | ROI~, ROI+16, ROI+32 |
| AGGUPD | UPD+8~ |
| AGGUPD( | UPD+33* |
| AGI | UPD+8~, PARS+15*, PARS+16 |
| AGIEN | UPD+7~, UPD+19*, UPD+20, UPD+23, UPD+54, UPD+56, UPD+57, DONE+14, PARS+6, PARS+8 , PARS+12, PARS+13 |
| AGJ | UPD+8~, PARS+15*, PARS+16 |
| AGWP | UPD+8~ |
| AGWP( | PARS+16* |
| >> BMXSEC | UPD+51, UPD+55*, PARS+1, PARS+7* |
| BQ | UPD+7~, UPD+51*, UPD+52, PARS+1*, PARS+2 |
| CHIEN | UPD+8~, PARS+12*, PARS+13 |
| COV | PATCH+1~, PATCH+2*, PATCH+3, PATCH+4 |
| DA | UPD+7~, UPD+31*, UPD+32*, UPD+49*, UPD+50*, OTH+3~, OTH+8~ |
| DA(1 | UPD+32*, UPD+43*, UPD+50*, OTH+4*, OTH+9* |
| DATA | UPD~, UPD+10*, UPD+11, UPD+17, UPD+21, UPD+22, DONE+3, DONE+4, TRIG~, TRIG+7* , TRIG+8, TRIG+13, XTRIG, ROI~, ROI+7*, ROI+8, ROI+13, XROI |
| DD | UPD+28!, UPD+46! |
| DEF | UPD~, UPD+19, UPD+21 |
| DFN | UPD~, UPD+14, UPD+25, UPD+27, UPD+62, OTH+2, OTH+4, OTH+7, OTH+9, DONE+8 , DONE+11, MCNM~, MCNM+2, MCNM+3, MCDB~, MCDB+2, MCDB+3, MCLSTDT~, MCLSTDT+3, MCRQMB~ , MCRQMB+2, MCRNMB~, MCRNMB+2, MCRSUF~, MCRSUF+2, MCRPRV~, MCRPRV+2, MCRDTO~, MCRDTO+2, MCRCCF~ , MCRCCF+2, MCRABN~, MCRABN+2, MCRINFM~, MCRINFM+2, TRIG~, TRIG+16, TRIG+19, TRIG+22, TRIG+39 , TRIG+40, TRIG+41, TRIG+42, TRIG+43, TRIG+44, TRIG+45, TRIG+46, TRIG+47, TRIG+48, ROI~ , ROI+18, ROI+23, ROI+29, ROI+30 |
| DIC | UPD+26~, UPD+27*, UPD+43*, OTH+3~, OTH+4*, OTH+8~, OTH+9* |
| DIC(0 | UPD+27*, UPD+43*, OTH+4*, OTH+9* |
| DINUM | UPD+26~, UPD+27* |
| DLAYGO | UPD+26~, UPD+27*, UPD+43*, OTH+3~, OTH+8~ |
| DO | UPD+28!, UPD+46! |
| DOB | MCDB+1~, MCDB+2* |
| DT | DONE+8, PATCH+4 |
| DUZ | DONE+8 |
| DUZ(2 | DONE+10, PATCH+3, PATCH+4 |
| ERROR | UPD+8~, UPD+35, DONE+2, DONE+15! |
| ERROR("DIERR" | DONE+2 |
| EXEC | UPD+7~, UPD+57*, UPD+58 |
| FIELD | UPD+7~, UPD+56*, UPD+59, UPD+60 |
| FILE | UPD+7~, UPD+23*, UPD+27, UPD+33, UPD+43, UPD+60 |
| HDR | TRIG+13, ROI+5~, ROI+13 |
| HELP | TRIG+16*, TRIG+19*, TRIG+24*, TRIG+25*, TRIG+26*, TRIG+27*, TRIG+28*, TRIG+29*, TRIG+30*, TRIG+31* , TRIG+32*, TRIG+33*, TRIG+34*, TRIG+35*, TRIG+36*, TRIG+38*, TRIG+39*, TRIG+40*, TRIG+41*, TRIG+42* , TRIG+43*, TRIG+44*, TRIG+45*, TRIG+46*, TRIG+47*, TRIG+48*, ROI+5~, ROI+18*, ROI+19*, ROI+20* , ROI+21*, ROI+22*, ROI+23*, ROI+24*, ROI+25*, ROI+26*, ROI+27*, ROI+28*, ROI+29*, ROI+30* , ROI+34*, ROI+35*, ROI+36*, ROI+37*, ROI+38*, ROI+39*, ROI+40*, ROI+41*, ROI+42*, ROI+43* , ROI+44*, ROI+45*, ROI+46* |
| IEN | MCD+1~, MCD+2*, MCD+3, MCNM+1~, MCNM+2*, MCDB+1~, MCDB+2*, MCLSTDT+2~, MCLSTDT+3*, MCLSTDT+4 , MCRQMB+1~, MCRQMB+2*, MCRQMB+3, MCRNMB+1~, MCRNMB+2*, MCRNMB+3, MCRSUF+1~, MCRSUF+2*, MCRSUF+3, MCRPRV+1~ , MCRPRV+2*, MCRPRV+3, MCRDTO+1~, MCRDTO+2*, MCRDTO+3, MCRCCF+1~, MCRCCF+2*, MCRCCF+3 |
| IENS | UPD+7~, UPD+31*, UPD+32*, UPD+33, UPD+49*, UPD+50*, UPD+60 |
| II | UPD+7~, UPD+13*, UPD+17, UPD+21*, UPD+22*, DONE+3*, DONE+4*, TRIG+5~, TRIG+10*, TRIG+13 , XTRIG*, ROI+5~, ROI+10*, ROI+13, XROI* |
| IN3PB | UPD+7~ |
| MIEN | UPD~, UPD+14*, UPD+15*, UPD+31, UPD+32, UPD+40, UPD+47*, UPD+49, UPD+50, DONE+1 , PATCH+2, PATCH+3, PATCH+4 |
| NAME | UPD+7~, UPD+53*, UPD+54, UPD+55, UPD+60, DONE+13*, DONE+14*, MCNM+1~, MCNM+2*, PARS+3* , PARS+6, PARS+7, PARS+17 |
| PARMS | UPD~, UPD+14*, UPD+51, UPD+52, PARS+1, PARS+2 |
| PDATA | UPD+7~, UPD+52*, UPD+53, PARS+2*, PARS+3 |
| PFIEN | UPD+7~, UPD+54*, UPD+55, UPD+56, UPD+57, PARS+6*, PARS+7, PARS+8, PARS+12, PARS+13 |
| PROC | UPD~, UPD+14*, UPD+30, UPD+39 |
| PTYP | UPD+8~, PARS+8*, PARS+9, PARS+10, PARS+14 |
| RESULT | UPD+8~, DONE+1*, DONE+2*, DONE+3, DONE+7 |
| RIEN | UPD+7~, UPD+14*, UPD+31, UPD+32, UPD+40, UPD+41, UPD+43, UPD+49, UPD+50, DONE+1 , DONE+10, PATCH+2, PATCH+3, PATCH+4 |
| SIGD | MCRINFM+1~, MCRINFM+2*, MCRINFM+3*, MCRINFM+4 |
| SOURCE | TRIG+16*, TRIG+19*, TRIG+24*, TRIG+25*, TRIG+26*, TRIG+27*, TRIG+28*, TRIG+29*, TRIG+30*, TRIG+31* , TRIG+32*, TRIG+33*, TRIG+34*, TRIG+35*, TRIG+36*, TRIG+38*, TRIG+39*, TRIG+40*, TRIG+41*, TRIG+42* , TRIG+43*, TRIG+44*, TRIG+45*, TRIG+46*, TRIG+47*, TRIG+48*, ROI+5~, ROI+18*, ROI+19*, ROI+20* , ROI+21*, ROI+22*, ROI+23*, ROI+24*, ROI+25*, ROI+26*, ROI+27*, ROI+28*, ROI+29*, ROI+30* , ROI+34*, ROI+35*, ROI+36*, ROI+37*, ROI+38*, ROI+39*, ROI+40*, ROI+41*, ROI+42*, ROI+43* , ROI+44*, ROI+45*, ROI+46* |
| TYPE | TRIG+16*, TRIG+19*, TRIG+24*, TRIG+25*, TRIG+26*, TRIG+27*, TRIG+28*, TRIG+29*, TRIG+30*, TRIG+31* , TRIG+32*, TRIG+33*, TRIG+34*, TRIG+35*, TRIG+36*, TRIG+38*, TRIG+39*, TRIG+40*, TRIG+41*, TRIG+42* , TRIG+43*, TRIG+44*, TRIG+45*, TRIG+46*, TRIG+47*, TRIG+48*, ROI+5~, ROI+18*, ROI+19*, ROI+20* , ROI+21*, ROI+22*, ROI+23*, ROI+24*, ROI+25*, ROI+26*, ROI+27*, ROI+28*, ROI+29*, ROI+30* , ROI+34*, ROI+35*, ROI+36*, ROI+37*, ROI+38*, ROI+39*, ROI+40*, ROI+41*, ROI+42*, ROI+43* , ROI+44*, ROI+45*, ROI+46* |
| U | UPD+23, UPD+56, DONE+1, DONE+2, DONE+7, PATCH+2, PATCH+3, PATCH+4, MCNM+3, PARS+8 , PARS+13 |
| UID | UPD+7~, UPD+9*, UPD+10, TRIG+5~, TRIG+6*, TRIG+7, ROI+5~, ROI+6*, ROI+7 |
| VALUE | TRIG+16*, TRIG+19*, TRIG+24*, TRIG+25*, TRIG+26*, TRIG+27*, TRIG+28*, TRIG+29*, TRIG+30*, TRIG+31* , TRIG+32*, TRIG+33*, TRIG+34*, TRIG+35*, TRIG+36*, TRIG+38*, TRIG+39*, TRIG+40*, TRIG+41*, TRIG+42* , TRIG+43*, TRIG+44*, TRIG+45*, TRIG+46*, TRIG+47*, TRIG+48*, ROI+5~, ROI+18*, ROI+19*, ROI+20* , ROI+21*, ROI+22*, ROI+23*, ROI+24*, ROI+25*, ROI+26*, ROI+27*, ROI+28*, ROI+29*, ROI+30* , ROI+34*, ROI+35*, ROI+36*, ROI+37*, ROI+38*, ROI+39*, ROI+40*, ROI+41*, ROI+42*, ROI+43* , ROI+44*, ROI+45*, ROI+46*, PARS+3*, PARS+9*, PARS+11, PARS+12, PARS+13*, PARS+15, PARS+17 |
| VISIBLE | TRIG+5~, TRIG+16*, TRIG+19*, TRIG+24*, TRIG+25*, TRIG+26*, TRIG+27*, TRIG+28*, TRIG+29*, TRIG+30* , TRIG+31*, TRIG+32*, TRIG+33*, TRIG+34*, TRIG+35*, TRIG+36*, TRIG+38*, TRIG+39*, TRIG+40*, TRIG+41* , TRIG+42*, TRIG+43*, TRIG+44*, TRIG+45*, TRIG+46*, TRIG+47*, TRIG+48*, ROI+5~, ROI+18*, ROI+19* , ROI+20*, ROI+21*, ROI+22*, ROI+23*, ROI+24*, ROI+25*, ROI+26*, ROI+27*, ROI+28*, ROI+29* , ROI+30*, ROI+34*, ROI+35*, ROI+36*, ROI+37*, ROI+38*, ROI+39*, ROI+40*, ROI+41*, ROI+42* , ROI+43*, ROI+44*, ROI+45*, ROI+46* |
| X | UPD+26~, UPD+27*, UPD+44*, OTH+3~, OTH+4*, OTH+8~, OTH+9* |
| Y | UPD+26~, UPD+47, OTH+3~, OTH+8~ |
| >> ZTSK | UPD+9, TRIG+6, ROI+6 |