RCHRFS2 ;SLC/SS - High Risk for Suicide Patients Report ; JAN 22,2021@14:32
Source file <RCHRFS2.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GET399(DFN,FRMDTINT,TODTINT,IBSVCTYP) | ; Insert code to loop through 399 here
|
|
| PROC399 | ; Process one 399 record
|
|
| RCNODE | ; Capture Revenue Code Node information
|
|
| ST399TMP | ; Write one 399 record into TMP file
|
|
| IB399RX(DFN,RXIEN,IBRXFILL) | ; Get Prescription information for 399 bills.
|
|
| CHKBCRX | ;
|
|
| GETIEN52(RCDFN,RCRX) | ;return IEN for #52 by RX# and DFN
|
| Name | Field # of Occurrence |
|---|---|
| GETS^DIQ | GET399+26, RCNODE+24, CHKBCRX+7 |
| EN^DIQ1 | PROC399+21, ST399TMP+28 |
| RX^PSO52API | IB399RX+7, GETIEN52+3 |
| $$HRFSDTS^RCHRFSUT | ST399TMP+38 |
| $$PATINFO^RCHRFSUT | GET399+4 |
| $$FMTE^XLFDT | ST399TMP+13, ST399TMP+15, ST399TMP+17, ST399TMP+20, ST399TMP+34 |
| $$STRIP^XLFSTR | ST399TMP+13, ST399TMP+15, ST399TMP+17, ST399TMP+20, ST399TMP+34 |
| FileNo | Call Tags |
|---|---|
| ^IBA(362.4 - [#362.4] | GETS^DIQ |
| ^DGCR(399 - [#399] | GETS^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | GET399+7, GET399+9 |
| ^IBA(362.4 - [#362.4] | PROC399+40, PROC399+42, CHKBCRX+3 |
| ^PRCA(430 - [#430] | PROC399+19, ST399TMP+26 |
| ^TMP($J | ST399TMP+5, ST399TMP+48*, IB399RX+3!, IB399RX+8, IB399RX+10, IB399RX+12, IB399RX+14, IB399RX+16, IB399RX+22, IB399RX+23 , GETIEN52+2!, GETIEN52+4, GETIEN52+5, GETIEN52+6! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARAPPR | GET399+2~, GET399+3*, PROC399+22*, PROC399+24*, PROC399+25*, ST399TMP+23 |
| ARFLDS | PROC399+2~, ST399TMP+27! |
| ARFLDS(430 | PROC399+23, PROC399+24, PROC399+26, PROC399+34, PROC399+35, ST399TMP+33 |
| ARIEN | GET399+2~, PROC399+19*, PROC399+20, PROC399+21, PROC399+23, PROC399+24, PROC399+26, PROC399+35 |
| ARRSC | GET399+2~, GET399+3*, PROC399+22*, PROC399+26*, PROC399+27*, ST399TMP+24 |
| ARSTAT | GET399+2~, GET399+3*, PROC399+22*, PROC399+23*, ST399TMP+19 |
| BILLCLAS | GET399+1~, GET399+35*, PROC399+12, PROC399+17 |
| BILLNUM | GET399+1~, PROC399+5*, PROC399+19, PROC399+20, ST399TMP+5, ST399TMP+11, ST399TMP+26, ST399TMP+28, ST399TMP+48 |
| BILLTYP | GET399+1~, GET399+28*, GET399+29, ST399TMP+12 |
| CNT | GET399+2~, ST399TMP+2*, ST399TMP+5*, ST399TMP+48 |
| D1 | GET399+1~, RCNODE+7* |
| DA | GET399+2~, GET399+25!, PROC399+21*, RCNODE+23!, ST399TMP+28* |
| DATEINFO | PROC399+1~, RCNODE+19*, RCNODE+35*, RCNODE+36*, RCNODE+38*, RCNODE+39, RCNODE+40, ST399TMP+15, ST399TMP+16, ST399TMP+18 , ST399TMP+44, ST399TMP+45, CHKBCRX+5*, CHKBCRX+14*, CHKBCRX+15, CHKBCRX+17 |
| DFN | GET399~, GET399+4, GET399+7, GET399+9, RCNODE+32, RCNODE+36, ST399TMP+38, IB399RX~, IB399RX+7, IB399RX+8 , IB399RX+10, IB399RX+12, IB399RX+14, IB399RX+16, IB399RX+22, IB399RX+23, CHKBCRX+14 |
| DIC | GET399+2~, GET399+25!, PROC399+21*, RCNODE+23!, ST399TMP+28* |
| DIQ | GET399+2~, GET399+25!, PROC399+21*, RCNODE+23!, ST399TMP+28* |
| DIQ(0 | PROC399+21*, ST399TMP+28* |
| DR | GET399+2~, GET399+25!, PROC399+21*, RCNODE+23!, ST399TMP+28* |
| EVNTDT | GET399+1~, PROC399+6*, PROC399+7, PROC399+8, PROC399+16*, PROC399+41, RCNODE+15, RCNODE+38 |
| FLAG399 | PROC399+1~, PROC399+3*, PROC399+43* |
| FRMDTINT | GET399~, PROC399+41, RCNODE+41, IB399RX+26, CHKBCRX+16 |
| IBBCNUM | PROC399+1~, PROC399+37*, CHKBCRX+2*, CHKBCRX+3*, CHKBCRX+4 |
| IBBCPR | GET399+2~, RCNODE+4*, RCNODE+22* |
| IBBEDST | GET399+2~, GET399+10!, RCNODE+4*, RCNODE+12*, RCNODE+16, RCNODE+17, RCNODE+18, ST399TMP+4*, ST399TMP+13, ST399TMP+14 , ST399TMP+42, CHKBCRX+18* |
| IBCANCLB | PROC399+2~, PROC399+31*, ST399TMP+22 |
| IBCANCLD | PROC399+2~, PROC399+29*, ST399TMP+20 |
| IBCANCLR | PROC399+2~, PROC399+30*, ST399TMP+21 |
| IBCHRG | GET399+1~, PROC399+34*, PROC399+35*, PROC399+36*, RCNODE+4*, RCNODE+10*, ST399TMP+10 |
| IBDISDT | PROC399+1~, PROC399+13*, PROC399+16*, PROC399+17 |
| IBERR | GET399+10!, GET399+27, RCNODE+23!, RCNODE+25, CHKBCRX+6*, CHKBCRX+8 |
| IBFLDS | GET399+1~, GET399+10! |
| IBFLDS( | PROC399+33, PROC399+43, RCNODE+3, RCNODE+6, RCNODE+8, RCNODE+10, RCNODE+11, RCNODE+12, RCNODE+13, RCNODE+14 |
| IBFLDS(399 | GET399+28, GET399+31, GET399+34, GET399+35, PROC399+4, PROC399+5, PROC399+6, PROC399+15, PROC399+29, PROC399+30 , PROC399+31 |
| IBFROMDT | PROC399+14~, PROC399+15*, PROC399+16 |
| IBIEN | GET399+1~, GET399+8*, GET399+9*, GET399+26, GET399+28, GET399+31, GET399+34, GET399+35, PROC399+4, PROC399+5 , PROC399+6, PROC399+15, PROC399+29, PROC399+30, PROC399+31, PROC399+40, PROC399+42, ST399TMP+6, CHKBCRX+3 |
| IBITEM | RCNODE+1~, RCNODE+4*, RCNODE+14*, RCNODE+20, RCNODE+21, RCNODE+22, RCNODE+24, RCNODE+26, RCNODE+27, RCNODE+28 , RCNODE+29, RCNODE+34 |
| IBRSC | GET399+1~, RCNODE+4*, RCNODE+8*, RCNODE+9* |
| IBRXDT | RCNODE+1~, RCNODE+2*, RCNODE+29*, RCNODE+35, IB399RX+21, CHKBCRX+11* |
| IBRXFILL | RCNODE+4*, RCNODE+27*, RCNODE+36, IB399RX~, IB399RX+6, IB399RX+10, IB399RX+14, CHKBCRX+10*, CHKBCRX+14 |
| IBRXFLG | PROC399+1~, PROC399+39*, PROC399+42, RCNODE+2*, RCNODE+42, CHKBCRX+4* |
| IBRXNAM | GET399+1~, RCNODE+28*, RCNODE+35, RCNODE+38, CHKBCRX+12* |
| IBRXNAME | IB399RX+1~, IB399RX+23*, IB399RX+24 |
| IBRXNUM | RCNODE+4*, RCNODE+26*, RCNODE+30, RCNODE+31, RCNODE+32, RCNODE+35, RCNODE+37, RCNODE+38, IB399RX+1~, IB399RX+22* , IB399RX+24, CHKBCRX+9* |
| IBSTATNM | GET399+2~, PROC399+4*, ST399TMP+9 |
| IBSVCTYP | GET399~, PROC399+40, PROC399+42, RCNODE+16, RCNODE+17 |
| IBTYPE | GET399+2~, RCNODE+4*, RCNODE+13* |
| IBUNITS | GET399+2~, GET399+3*, RCNODE+4*, RCNODE+11*, ST399TMP+9 |
| IBXDRG | PROC399+1~ |
| IENS | PROC399+1~ |
| LCNT | ST399TMP+1~, ST399TMP+29*, ST399TMP+32* |
| LTRFLD | ST399TMP+1~, ST399TMP+30*, ST399TMP+33 |
| MULT | GET399+1~, RCNODE+3*, RCNODE+5 |
| NORELDT | ST399TMP+43~, ST399TMP+44*, ST399TMP+46, IB399RX+1~, IB399RX+2*, IB399RX+18*, IB399RX+24 |
| PTNINFO | GET399+2~, GET399+4*, GET399+5, ST399TMP+5, ST399TMP+48 |
| RC430IEN | ST399TMP+1~, ST399TMP+26*, ST399TMP+28, ST399TMP+31, ST399TMP+33 |
| RCCNT | RCNODE+1~, RCNODE+5* |
| RCDFN | GETIEN52~, GETIEN52+3, GETIEN52+4, GETIEN52+5 |
| RCHRFSST | ST399TMP+1~, ST399TMP+38*, ST399TMP+39, ST399TMP+40, ST399TMP+41 |
| RCMISSRX | ST399TMP+1~, ST399TMP+3*, ST399TMP+15*, ST399TMP+42 |
| RCNODE | GET399+1~, RCNODE+4*, RCNODE+6*, RCNODE+7, RCNODE+8, RCNODE+10, RCNODE+11, RCNODE+12, RCNODE+13, RCNODE+14 |
| RCRET | GETIEN52+1~, GETIEN52+5*, GETIEN52+7 |
| RCRX | GETIEN52~, GETIEN52+3 |
| RESPONSE | IB399RX+1~, IB399RX+4*, IB399RX+8*, IB399RX+24*, IB399RX+25, IB399RX+26*, IB399RX+27 |
| RXDATE | IB399RX+1~, IB399RX+10*, IB399RX+12*, IB399RX+18*, IB399RX+20*, IB399RX+21*, IB399RX+24 |
| RXFILDT | ST399TMP+43~, ST399TMP+45*, ST399TMP+47, IB399RX+1~, IB399RX+14*, IB399RX+16*, IB399RX+18, IB399RX+24 |
| RXFLDS | RCNODE+1~, RCNODE+23!, CHKBCRX+7! |
| RXFLDS( | RCNODE+26, RCNODE+27, RCNODE+28, RCNODE+29, RCNODE+34, IB399RX+22, IB399RX+23, CHKBCRX+9, CHKBCRX+10, CHKBCRX+11 , CHKBCRX+12, CHKBCRX+13 |
| RXIEN | RCNODE+4*, RCNODE+32*, RCNODE+33, RCNODE+34*, RCNODE+36, IB399RX~, IB399RX+7, IB399RX+10, IB399RX+12, IB399RX+14 , IB399RX+16, IB399RX+22, IB399RX+23, CHKBCRX+13*, CHKBCRX+14 |
| RXITEM | IB399RX+22, IB399RX+23, CHKBCRX+1~, CHKBCRX+4*, CHKBCRX+7, CHKBCRX+9, CHKBCRX+10, CHKBCRX+11, CHKBCRX+12, CHKBCRX+13 |
| RXNODE | IB399RX+1~, IB399RX+5*, IB399RX+6*, IB399RX+7 |
| SVCDT | GET399+2~, PROC399+7*, RCNODE+15*, RCNODE+19, RCNODE+39*, ST399TMP+5, ST399TMP+13, ST399TMP+15, ST399TMP+17, ST399TMP+38 , ST399TMP+48, CHKBCRX+17* |
| TLTR | ST399TMP+1~, ST399TMP+32*, ST399TMP+33, ST399TMP+34, ST399TMP+35 |
| TODTINT | GET399~, PROC399+41, RCNODE+41, IB399RX+26, CHKBCRX+16 |
| >> TRIGDT | PROC399+8*, PROC399+16*, PROC399+40*, PROC399+41*, RCNODE+40*, RCNODE+41, IB399RX+25*, IB399RX+26, CHKBCRX+15*, CHKBCRX+16 |
| U | ST399TMP+6, ST399TMP+7, ST399TMP+8, ST399TMP+9, ST399TMP+10, ST399TMP+11, ST399TMP+12, ST399TMP+13, ST399TMP+15, ST399TMP+17 , ST399TMP+18, ST399TMP+19, ST399TMP+20, ST399TMP+21, ST399TMP+22, ST399TMP+23, ST399TMP+24, ST399TMP+34, ST399TMP+35, ST399TMP+36 , ST399TMP+39, ST399TMP+40, ST399TMP+41, ST399TMP+45, ST399TMP+46, ST399TMP+47, IB399RX+8, IB399RX+10, IB399RX+12, IB399RX+14 , IB399RX+16, IB399RX+23, IB399RX+24 |
| X | GET399+1~, RCNODE+3* |
| XTEMP | GET399+37!, PROC399+1~, ST399TMP+6*, ST399TMP+7*, ST399TMP+8*, ST399TMP+9*, ST399TMP+10*, ST399TMP+11*, ST399TMP+12*, ST399TMP+13* , ST399TMP+15*, ST399TMP+17*, ST399TMP+18*, ST399TMP+19*, ST399TMP+20*, ST399TMP+21*, ST399TMP+22*, ST399TMP+23*, ST399TMP+24*, ST399TMP+34* , ST399TMP+35*, ST399TMP+36*, ST399TMP+39*, ST399TMP+40*, ST399TMP+41*, ST399TMP+46*, ST399TMP+47*, ST399TMP+48, ST399TMP+49! |