DGPTRI4 ;ALB/JDS/MJK/MTC/ADL/TJ/BOK,ISF/GJW,HIOFO/FT - PTF TRANSMISSION ;5/11/15 12:24pm
Source file <DGPTRI4.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 7 | PTFICD^DGPTFUT EFFDATE^DGPTIC10 CEN^DGPTRI1 (FILL,SAVE)^DGPTRI2 ($$AO,$$DISP,$$FDATE,$$FMTICD,$$HNC,$$ION2,$$MST,$$PDIS,$$SHAD,$$SWASIA,$$TIME)^DGPTRNU ($$CDATA,$$DXLSONLY,$$FMTMPCR,$$JUSTIFY,$$SPEC2PTF,$$TDIS)^DGPTRNU1 ($$INACTIVE,$$PTR2CODE)^DGUTL4 |
| DRG Grouper | 1 | $$ICDDATA^ICDXCODE |
| Kernel | 1 | ($$LJ,$$REPEAT,$$RJ)^XLFSTR |
| VA FileMan | 1 | $$GET1^DIQ |
| 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 |
|---|---|---|
| 701 | ; -- setup 701 transaction
|
|
| 702 | ;create 702 only if there are secondary DXs
|
|
| POA(Y) | ;-- Add POA to end of 101 segment with POA ;FT 3/23/15 - MAY NOT BE NEEDED
|
|
| POAVAL(POA) | ; -- Convert POA indicator to a 1 or 0 for use in calculating DRG
; -- note: Transmission of space " " if no corresponding DIAGNOSIS ; -- see POA^DGPTFD, same logic, different return values. |
|
| ENTER | ||
| ENTER0 | ||
| SAVE | ;validate data and save to MailMan message & ^TMP("AEDIT",$J)
|
|
| Q | ||
| CSAVE | ;sets MailMan message, not ^TMP("AEDIT",$J)
|
|
| CDR | ||
| RTEN(X) | ; This function will round X to the nearest multiple of ten.
; 0-4 ->DOWN; 5-9->UP |
|
| ETHNIC(DGPTJ) | ;Ethnicity (use first active value)
|
|
| RACE(DGPTJ) | ;-- Race (use first 6 active values)
|
|
| N701(PTF,DGT1) | ;create 701 segment
|
|
| N702(PTF) | ;create 702 segment
|
| Name | Field # of Occurrence |
|---|---|
| PTFICD^DGPTFUT | N702+14 |
| EFFDATE^DGPTIC10 | N702+13 |
| CEN^DGPTRI1 | 701+7 |
| FILL^DGPTRI2 | CSAVE+2 |
| SAVE^DGPTRI2 | 702+4, SAVE+1 |
| $$AO^DGPTRNU | N701+48 |
| $$DISP^DGPTRNU | N701+10 |
| $$FDATE^DGPTRNU | N701+11, N702+8 |
| $$FMTICD^DGPTRNU | N701+31, N702+20 |
| $$HNC^DGPTRNU | N701+52 |
| $$ION2^DGPTRNU | N701+49 |
| $$MST^DGPTRNU | N701+51 |
| $$PDIS^DGPTRNU | N701+22 |
| $$SHAD^DGPTRNU | N701+57 |
| $$SWASIA^DGPTRNU | N701+50 |
| $$TIME^DGPTRNU | N701+12, N702+9 |
| $$CDATA^DGPTRNU1 | N701+9, N702+6 |
| $$DXLSONLY^DGPTRNU1 | 702+2, N701+33 |
| $$FMTMPCR^DGPTRNU1 | N701+38 |
| $$JUSTIFY^DGPTRNU1 | N701+27 |
| $$SPEC2PTF^DGPTRNU1 | N701+17, N701+39 |
| $$TDIS^DGPTRNU1 | N701+18 |
| $$INACTIVE^DGUTL4 | ETHNIC+9, RACE+9 |
| $$PTR2CODE^DGUTL4 | ETHNIC+10, ETHNIC+12, RACE+10, RACE+12 |
| $$GET1^DIQ | N701+8, N701+16, N701+19, N701+20, N701+23, N701+24, N701+25, N701+30, N701+31, N701+32 , N701+40, N701+46, N701+55, N702+7 |
| $$ICDDATA^ICDXCODE | N702+17 |
| $$LJ^XLFSTR | N702+21 |
| $$REPEAT^XLFSTR | N702+25 |
| $$RJ^XLFSTR | N701+41 |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^DGPT - [#45] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPT - [#45] | POA+1, ETHNIC+4, RACE+4, N701+36 |
| ^DIC(10 - [#10] | RACE+8 |
| ^DIC(10.2 - [#10.2] | ETHNIC+8 |
| ^DPT - [#2] | ETHNIC+4, RACE+4 |
| ^XMB(3.9 - [#3.9] | CSAVE+4*, CSAVE+5* |
| Name | Field # of Occurrence |
|---|---|
| ^( | N701+36 |
| ^(0 | N701+36 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ASIH | N701+4~, N701+25*, N701+26*, N701+27*, N701+28 |
| D1ONLY | N701+3~, N701+33*, N701+34 |
| DDATE | N701+3~, N701+10*, N701+36 |
| DDDIS | N701+3~ |
| DDIS | N701+11*, N701+14, N702+3~, N702+8*, N702+11 |
| DFN | N701+1~, N701+8* |
| >> DG70 | POA+2 |
| >> DG71 | POA+2 |
| DGARRAY | ETHNIC+3~, ETHNIC+4*, RACE+3~, RACE+4* |
| DGARRAY( | ETHNIC+6, ETHNIC+7, RACE+6, RACE+7 |
| >> DGCNT | CSAVE+4*, CSAVE+5* |
| DGDX | N702+1~, N702+19*, N702+20*, N702+21*, N702+24 |
| >> DGERR | 701+7 |
| DGETHNIC | ETHNIC+3~, ETHNIC+5*, ETHNIC+11*, ETHNIC+13*, ETHNIC+15 |
| DGI | RACE+3~, RACE+5*, RACE+6*, RACE+7 |
| DGK | RACE+3~ |
| DGLOOP | ETHNIC+3~, ETHNIC+5*, ETHNIC+6*, ETHNIC+7, N702+1~, N702+15*, N702+16*, N702+17, N702+19, N702+22 |
| DGNODE | ETHNIC+3~, ETHNIC+7*, ETHNIC+8, ETHNIC+9, ETHNIC+10, ETHNIC+12, RACE+3~, RACE+7*, RACE+8, RACE+9 , RACE+10, RACE+12 |
| DGNUM | ETHNIC+3~, ETHNIC+5*, ETHNIC+6, ETHNIC+14*, RACE+3~, RACE+5*, RACE+6, RACE+14* |
| DGPOA | POA+1~*, POA+3, N702+1~, N702+22*, N702+23*, N702+24 |
| DGPTJ | ETHNIC~, ETHNIC+4, RACE~, RACE+4 |
| DGPTTMP | N702+1~, N702+17*, N702+18 |
| DGRACE | RACE+3~, RACE+5*, RACE+11*, RACE+13*, RACE+16*, RACE+17 |
| >> DGRTY | 702+1 |
| DGSTRING | N702+1~, N702+15*, N702+24*, N702+25 |
| DGT1 | N701~, N701+5*, N701+6 |
| DGX | ETHNIC+3~, ETHNIC+10*, ETHNIC+11, ETHNIC+12*, ETHNIC+13, RACE+3~, RACE+10*, RACE+11, RACE+12*, RACE+13 , RACE+15*, RACE+16 |
| >> DGXMZ | CSAVE+4, CSAVE+5 |
| DGY | ETHNIC+3~, ETHNIC+5*, ETHNIC+15*, ETHNIC+16, RACE+3~, RACE+5*, RACE+17*, RACE+18 |
| DGY1 | CSAVE+1~, CSAVE+3*, CSAVE+4 |
| DGY2 | CSAVE+1~, CSAVE+3*, CSAVE+5 |
| DSPEC | N701+3~, N701+16*, N701+17 |
| DTM | N701+3~, N701+10*, N701+11, N701+12, N702+3~, N702+7*, N702+8, N702+9 |
| DXCODES | N702+3~, N702+14 |
| DXCODES( | N702+16, N702+17, N702+19, N702+22 |
| EFFDATE | N702+3~, N702+17 |
| I | N701+1~, N701+3~, N702+1~ |
| IENS | N701+1~, N701+7*, N701+8, N701+16, N701+19, N701+20, N701+23, N701+24, N701+25, N701+30 , N701+31, N701+32, N701+46, N701+55, N702+1~, N702+4*, N702+7 |
| IENS2 | N701+1~, N701+8*, N701+40 |
| IMPDATE | N702+3~ |
| >> J | 701+1, 702+2, 702+3, POA+1 |
| K | 701+2~, 701+6*, POA+1~, POA+3* |
| L | POA+1~, POA+2*, POA+3, ENTER, ENTER0 |
| NNAME | N701+2~, N701+6*, N701+9, N702+2~, N702+5*, N702+6 |
| NODE | N701+1~, N701+9*, N701+14*, N701+15*, N701+17*, N701+18*, N701+19*, N701+21*, N701+22*, N701+23* , N701+24*, N701+28*, N701+29*, N701+30*, N701+31*, N701+32*, N701+34*, N701+38*, N701+39*, N701+41* , N701+42*, N701+43*, N701+44*, N701+47*, N701+48*, N701+49*, N701+50*, N701+51*, N701+52*, N701+53* , N701+54*, N701+56*, N701+58*, N701+59, N702+1~, N702+6*, N702+11*, N702+12*, N702+25*, N702+26 |
| PDIS | N701+3~ |
| POA | POAVAL~, POAVAL+3*, POAVAL+7 |
| PTF | N701~, N701+7, N701+9, N701+10, N701+18, N701+22, N701+33, N701+36, N701+48, N701+49 , N701+50, N701+51, N701+52, N701+53, N701+54, N701+57, N702~, N702+4, N702+6, N702+13 , N702+14 |
| RACEA | N701+3~ |
| SA | N701+3~ |
| SC | N701+3~, N701+40*, N701+41 |
| SHAD | N701+3~, N701+57*, N701+58 |
| >> T1 | 701+1, 701+6, 701+7, 701+8 |
| TDIS | N701+3~, N701+12*, N701+13*, N701+15, N702+3~, N702+9*, N702+10*, N702+12 |
| TYDIS | N701+3~ |
| U | POA+2, POA+3, ENTER, ENTER0, N701+38, N701+39, N702+17, N702+18, N702+19, N702+22 |
| VAA | N701+4~, N701+20*, N701+21 |
| X | ENTER, ENTER0, RTEN~, RTEN+2, N701+1~, N701+3~, N701+36*, N701+38, N701+39, N701+46* , N701+47, N701+55*, N701+56 |
| Y | 701+1*, 701+6*, 702+3*, POA~, POA+3*, ENTER*, ENTER0*, CSAVE+3, CDR* |
| >> Z | ENTER, ENTER0, CDR, N701+36* |
