DGPTFD ;ALB/MTC/ADL,HIOFO/FT,WOIFO/PMK - Sets Required Variables for DRG on 701 Screen ;6/2/15 11:28am
Source file <DGPTFD.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 | Field # of Occurrence |
|---|---|
| $$STR401^DGPTFUT | EN1+44 |
| $$STR601^DGPTFUT | EN1+63 |
| $$STR701^DGPTFUT | EN1+25 |
| $$STR701P^DGPTFUT | EN1+22 |
| EFFDATE^DGPTIC10 | EN1+16 |
| ^DGPTICD | DRG+1 |
| $$CODEC^ICDEX | OLD+1 |
| $$GETDATE^ICDGTDRG | EN1+14 |
| $$ICDDATA^ICDXCODE | EN1+28, EN1+37, EN1+56, EN1+60, TAG+1 |
| $$IMPDATE^LEXU | EN1+32 |
| $$STRIP^XLFSTR | EN1+45, EN1+64 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPT - [#45] | EN1+1, EN1+34, EN1+43, EN1+45, EN1+59, EN1+62, EN1+64 |
| ^DPT - [#2] | EN1+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AGE | EN1+12*, Q! |
| >> DFN | EN1+12 |
| DG701 | EN1+19~, EN1+25*, EN1+27, EN1+28, EN1+30 |
| >> DGCPT | DRG+1 |
| >> DGCST | EN1+14, EN1+18 |
| >> DGDAT | EN1+14*, EN1+18* |
| DGDMS | EN1+8*, Q! |
| DGDRGPRT | DRG+1*, Q! |
| DGDX | EN1+20*, EN1+30*, EN1+38*, Q!, OLD+2* |
| DGDXPOA | EN1+19~, EN1+20*, EN1+32*, EN1+38* |
| DGEXP | EN1+6*, Q! |
| DGI | EN1+27*, EN1+28, EN1+30, EN1+32, EN1+34*, EN1+43*, EN1+44, EN1+45, EN1+49*, EN1+50 , EN1+60*, EN1+62*, EN1+63, EN1+64, EN1+66*, EN1+67, Q! |
| DGJ | EN1+34*, Q!, OLD+1*, TAG+1* |
| DGNODE | EN1+34*, Q!, OLD+1 |
| DGPOA | EN1+19~, EN1+22*, EN1+32, EN1+38 |
| DGPOACNT | EN1+19~, EN1+23* |
| DGPROC | EN1+41!, EN1+59*, EN1+60*, EN1+66*, EN1+73*, Q! |
| DGPROC( | EN1+64*, EN1+66, EN1+67, EN1+71*, TAG+1* |
| DGPT | Q! |
| DGPT(70 | EN1+1*, EN1+4, EN1+6, EN1+8, EN1+10, EN1+12, EN1+24, EN1+34, EN1+36, EN1+59 |
| >> DGPTTMP | EN1+28*, EN1+29, EN1+37*, EN1+38, EN1+56*, EN1+57, EN1+60*, TAG+1* |
| DGSURG | EN1+41!, EN1+49*, EN1+55*, Q! |
| DGSURG( | EN1+45*, EN1+49, EN1+50, EN1+57*, TAG+1* |
| >> DGTMP | EN1+36*, EN1+37, EN1+38 |
| DGTRS | EN1+10*, Q! |
| >> DGVAR | EN1+45*, EN1+64*, TAG+1 |
| >> DISDATE | EN1+14, EN1+18 |
| DOB | EN1+12*, Q! |
| DT | EN1+12, EN1+14 |
| >> EFFDATE | EN1+18, EN1+28, EN1+32, EN1+37, EN1+56, EN1+60, TAG+1 |
| I | EN1+47~, EN1+51*, EN1+54, EN1+68*, EN1+71 |
| ICDSURG | Q! |
| ICDSURG( | EN1+54* |
| K | EN1+45*, EN1+64*, Q!, TAG+1 |
| POA | POA~, POA+6*, POA+7 |
| >> PTF | EN1+1, EN1+14, EN1+16, EN1+22, EN1+25, EN1+34, EN1+43, EN1+44, EN1+45, EN1+59 , EN1+62, EN1+63, EN1+64 |
| SEX | EN1+12*, Q! |
| SUB | EN1+48~*, EN1+57* |
| U | EN1+4, EN1+6, EN1+8, EN1+10, EN1+12, EN1+27, EN1+28, EN1+29, EN1+30, EN1+32 , EN1+34, EN1+36, EN1+38, EN1+49, EN1+51, EN1+53, EN1+55, EN1+57, EN1+60, EN1+66 , EN1+68, EN1+70, EN1+73, OLD+1, TAG+1 |
| X | EN1+44*, EN1+45, EN1+47~, EN1+50*, EN1+51, EN1+59*, EN1+60, EN1+63*, EN1+64, EN1+67* , EN1+68, OLD+1*, OLD+2, TAG+1 |
| Y | EN1+47~, EN1+51*, EN1+53, EN1+54, EN1+55, EN1+56, EN1+68*, EN1+70, EN1+71, EN1+73 |
| Z | EN1+47~, EN1+53*, EN1+70* |
