©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
AGTX5 ; IHS/ASDS/EFG - EXPORT REG DATA CONT'D APR 14,1995 ;
Source file <AGTX5.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Patient Registration | 3 | ^AGDATCK D8CV^AGTX1 $$UID^AGTXID |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TXMERG | ;>MERGS
|
|
| Y2KD2(X) | ;EP - date from fileman to Y2K format Y=CCYYMMDD
|
|
| RG5 | ;>AGTXDATA=AGTEMP(5)
|
|
| SETRG3 | ;>AGTEMP(3)=RG3^..
|
|
| DELCOV | ;>DEL INS COV | AGTEMP(5)=RG5^..
|
|
| S1 | ;
|
|
| DELINS | ;INSURANCE COVERAGE DELETES ;>LOOP INS
|
|
| BLDRG3 | ;EP - Build various RG3s
|
|
| START | ;
|
|
| AGDTS | ;
|
|
| RG3MGR | ;>HRN/INS D/M/C | RG5
|
|
| SETAGTX | ;>AGTXDATA=AGTEMP(3)
|
|
| FIN | ;>CLEAN UP | RET AG("TXDEL")
|
|
| TXDEL | ;>DEL PAT
|
|
| TXCHRN | ;>HRN CHANGES
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AGCHDFN( | START+2*, AGDTS+1, RG3MGR+1, RG3MGR+3, TXMERG+2, TXMERG+4*, TXDEL+2, TXDEL+3*, DELINS+2, DELCOV+1 , DELCOV+3, DELCOV+4, DELCOV+5, S1+1, S1+5, SETRG3+1, SETRG3+2 |
| ^AGFAC("AC" | RG3MGR+6 |
| ^AGTXDATA( | RG5+1*, SETAGTX+2* |
| ^AUTTLOC - [#9999999.06] | TXDEL+2, RG5+1, SETRG3+1, SETRG3+2 |
| ^AUTTMCS - [#9999999.32] | DELCOV+3, S1+1 |
| ^DIC(5 - [#5] | DELCOV+4 |
| ^DPT - [#2] | S1+2 |
| Name | Line Occurrences |
|---|---|
| $$Y2KD2 | S1+5, S1+7 |
| BLDRG3 | AGDTS+2 |
| DELCOV | DELINS+2 |
| DELINS | RG3MGR+3 |
| FIN | TXDEL+1 |
| RG3MGR | AGDTS+1 |
| SETAGTX | TXCHRN+6, TXMERG+3, TXDEL+3 |
| SETRG3 | TXCHRN+4, TXMERG+3 |
| TXDEL | TXMERG+1 |
| TXMERG | TXCHRN+1, TXCHRN+2 |
| Name | Field # of Occurrence |
|---|---|
| ^( | DELCOV+1, DELCOV+3, DELCOV+4, DELCOV+5, S1+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> AG("CHRN" | RG3MGR+9*, TXCHRN+1, TXCHRN+3, FIN+1! |
| >> AG("ER" | START+2! |
| >> AG("MERG" | FIN+1! |
| >> AG("SITE" | AGDTS+1, RG3MGR+1, RG3MGR+3, RG3MGR+6, TXMERG+2, TXDEL+2, DELINS+2, DELCOV+1, DELCOV+3, DELCOV+4 , DELCOV+5, S1+1, S1+5, SETRG3+1, SETRG3+2 |
| >> AG("SUB" | DELINS+1*, DELINS+2*, DELCOV+1, DELCOV+2, DELCOV+3, DELCOV+4, DELCOV+5, S1+1, S1+5 |
| >> AG("TOT" | RG5+1*, SETAGTX+2* |
| >> AG("TXDEL" | START+1*, RG3MGR+7*, TXDEL+1, TXDEL+2 |
| >> AG("TXMERG" | START+1*, RG3MGR+5*, TXMERG+1, TXMERG+2 |
| >> AG("TXNEW" | RG3MGR+2*, TXCHRN+2, FIN+1! |
| >> AGCT | DELCOV+5*, S1+3, S1+7 |
| AGDTS | START+1*, AGDTS+1*, RG3MGR+1, RG3MGR+3, RG3MGR+5, RG3MGR+7, RG3MGR+9, TXCHRN+3*, TXMERG+2*, TXDEL+2* , FIN+1!, DELINS+2, DELCOV+1, DELCOV+3, DELCOV+4, DELCOV+5, S1+1, S1+5, SETRG3+1, SETRG3+2 |
| >> AGELGEND | DELCOV+5*, S1+7 |
| >> AGFHRN | START+1*, RG3MGR+8*, TXCHRN+5 |
| AGLHRN | START+1*, RG3MGR+9*, TXCHRN+5, FIN+1! |
| >> AGOUTFLG | RG5+2, RG5+3, SETAGTX+1 |
| >> AGRCT | START+2, AGDTS+1, RG3MGR+1, RG3MGR+3, TXMERG+2, TXMERG+4, TXDEL+2, TXDEL+3, DELINS+2, DELCOV+1 , DELCOV+3, DELCOV+4, DELCOV+5, S1+1, S1+2, S1+5, RG5+1, SETRG3+1, SETRG3+2, SETAGTX+2 |
| AGRHRN | FIN+1! |
| >> AGROUT | RG5+1*, RG5+3, SETAGTX+1, SETAGTX+2* |
| >> AGTEMP(3 | TXCHRN+5*, TXDEL+3*, SETRG3+1*, SETRG3+2*, SETAGTX+1, SETAGTX+2* |
| >> AGTEMP(5 | DELCOV+5*, S1+1*, S1+3*, S1+4*, S1+5*, S1+6*, S1+7*, RG5+1*, RG5+2 |
| >> AGTXSITE | RG5+1 |
| >> AGTXSUB | DELCOV+2*, DELCOV+3, DELCOV+4 |
| >> AGVAL | S1+2*, S1+4 |
| >> AGX | RG3MGR+1*, RG3MGR+2, RG3MGR+4, RG3MGR+5, RG3MGR+7, RG3MGR+8, RG3MGR+9, TXMERG+2*, TXDEL+2*, TXDEL+3 , SETRG3+2 |
| >> AGX1 | TXDEL+2*, TXDEL+3 |
| >> AGZ("I" | DELINS+2* |
| >> DFN | START+2* |
| U | TXCHRN+5, TXDEL+2, TXDEL+3, DELCOV+1, DELCOV+3, DELCOV+4, DELCOV+5, S1+1, S1+2, S1+3 , S1+4, S1+5, S1+6, S1+7, RG5+1, SETRG3+1, SETRG3+2, SETAGTX+2 |
| X | Y2KD2~, Y2KD2+2, Y2KD2+3 |
| >> XY | RG5+3, SETAGTX+1 |
| Y | Y2KD2+1~, Y2KD2+3*, Y2KD2+4 |
| >> ZTQUEUED | SETAGTX+1 |