Call Graph
Call Graph Total: 6
| Package | Total | Call Graph |
|---|---|---|
| Registration | 5 | $$TSDATA^DGACT EFFDATE^DGPTIC10 CEN^DGPTR1 (FILL,FILL384,SAVE)^DGPTR2 ($$INACTIVE,$$PTR2CODE)^DGUTL4 |
| DRG Grouper | 1 | $$ICDDATA^ICDXCODE |
DGPTR4 ;ALB/JDS/MJK/MTC/ADL/TJ/BOK,HIOFO/FT - PTF TRANSMISSION ;5/11/15 4:52pm
Source file <DGPTR4.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 5 | $$TSDATA^DGACT EFFDATE^DGPTIC10 CEN^DGPTR1 (FILL,FILL384,SAVE)^DGPTR2 ($$INACTIVE,$$PTR2CODE)^DGUTL4 |
| DRG Grouper | 1 | $$ICDDATA^ICDXCODE |
| 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
|
|
| J | ||
| 702 | ;
|
|
| ENTER | ||
| ENTER0 | ||
| SAVE | ;validate data and save to MailMan message & ^TMP("AEDIT",$J)
|
|
| Q | ;
|
|
| SAVE70X | ;pad with spaces, set 383rd character & save to MailMan message.
|
|
| CDR | ||
| ADDQUES | ;-- additional PTF questions load records for trans 501/701
|
|
| RTEN(X) | ; This function will round X to the nearest multiple of ten.
; 0-4 ->DOWN; 5-9->UP |
|
| ETHNIC | ;-- Ethnicity (use first active value)
|
|
| RACE | ;-- Race (use first 6 active values)
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPT - [#45] | J+9, J+20, ADDQUES+3 |
| ^DIC(10 - [#10] | RACE+7 |
| ^DIC(10.2 - [#10.2] | ETHNIC+7 |
| ^DIC(45.6 - [#45.6] | 701+10 |
| ^DIC(45.61 - [#45.61] | ADDQUES+4 |
| ^DIC(45.88 - [#45.88] | ADDQUES+3 |
| ^TMP("AEDIT" | 702+6* |
| ^XMB(3.9 - [#3.9] | SAVE70X+4*, SAVE70X+5* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DG02( | RACE+5, RACE+6 |
| >> DG06( | ETHNIC+5, ETHNIC+6 |
| >> DG3 | J+18 |
| >> DG70 | 701+1, 701+2, 701+8, J+1, J+3, J+5, J+9, J+24, J+26, J+28 , J+30, J+32, J+34, J+36, J+40, J+42 |
| >> DG702 | J+5*, J+6*, J+7, 702+1, 702+3, 702+7* |
| >> DG71 | J+5 |
| >> DGACNT | 702+6* |
| DGADDQ | ADDQUES+1~, ADDQUES+2*, ADDQUES+3 |
| DGARRX | 701+4~, 701+5*, J+14~, J+15* |
| DGARRY | 701+4~, 701+5, J+14~, J+15 |
| DGARRY(7 | 701+6, J+16 |
| DGAUX | J+20*, J+22!, ADDQUES+3*, ADDQUES+4, ADDQUES+5, ADDQUES+6, ADDQUES+7, ADDQUES+9 |
| >> DGCNT | SAVE70X+4*, SAVE70X+5* |
| DGDDX | 701+1*, 701+7! |
| DGDRUG | J+22!, ADDQUES+4*, ADDQUES+5 |
| >> DGERR | J+45, 702+5, 702+6 |
| >> DGHEAD | 701+1 |
| DGPTDAT | J+2~ |
| >> DGPTTMP | J+3*, J+4, J+6* |
| >> DGT | ADDQUES+7*, ADDQUES+8, ADDQUES+9*, ADDQUES+10 |
| >> DGXLS | J+4* |
| >> DGXMZ | SAVE70X+4, SAVE70X+5 |
| DGY1 | SAVE70X+1~, SAVE70X+3*, SAVE70X+4 |
| DGY2 | SAVE70X+1~, SAVE70X+3*, SAVE70X+5 |
| EFFDATE | J+2~, J+3, J+6 |
| ETHNIC | ETHNIC+1~, ETHNIC+2*, ETHNIC+10*, ETHNIC+12*, ETHNIC+14 |
| >> F | 702+3* |
| I | ETHNIC+1~, ETHNIC+3*, ETHNIC+5*, ETHNIC+6, RACE+1~, RACE+3*, RACE+5*, RACE+6 |
| IMPDATE | J+2~ |
| >> J | J+2, J+9, J+20, ADDQUES+3 |
| >> K | J+6*, J+44*, 702+3* |
| >> L | 701+7*, 701+9*, 701+10*, J*, J+5*, J+6, J+17*, J+18*, ENTER, ENTER0 , ADDQUES+7*, ADDQUES+9* |
| NODE | ETHNIC+1~, ETHNIC+6*, ETHNIC+7, ETHNIC+8, ETHNIC+9, ETHNIC+11, RACE+1~, RACE+6*, RACE+7, RACE+8 , RACE+9, RACE+11 |
| NUM | ETHNIC+1~, ETHNIC+4*, ETHNIC+5, ETHNIC+13*, RACE+1~, RACE+4*, RACE+5, RACE+13* |
| RACE | RACE+1~, RACE+2*, RACE+10*, RACE+12*, RACE+15*, RACE+16 |
| >> T1 | 701+1, J+44, J+45, J+46 |
| U | 701+5, 701+6, 701+8, 701+10, J+1, J+3, J+4, J+5, J+6, J+11 , J+15, J+16, J+18, J+26, J+28, J+30, J+32, J+34, J+36, J+40 , J+42, 702+3, 702+7, ENTER, ENTER0, ADDQUES+3, ADDQUES+4, ADDQUES+5, ADDQUES+6, ADDQUES+7 , ADDQUES+9 |
| X | 701+2*, 701+5, 701+6*, 701+8*, 701+10, J+9*, J+11, J+15, J+16*, J+18* , J+24*, ENTER, ENTER0, ADDQUES+7*, ADDQUES+9*, RTEN~, RTEN+2, ETHNIC+1~, ETHNIC+9*, ETHNIC+10 , ETHNIC+11*, ETHNIC+12, RACE+1~, RACE+9*, RACE+10, RACE+11*, RACE+12, RACE+14*, RACE+15 |
| >> Y | 701+1*, 701+8*, 701+10*, J+1*, J+4*, J+7*, J+26*, J+28*, J+30*, J+32* , J+34*, J+36*, J+40*, J+42*, J+44*, 702+2*, 702+3*, 702+6, ENTER*, ENTER0* , SAVE70X+3, CDR*, ADDQUES+5*, ADDQUES+6*, ADDQUES+8*, ADDQUES+10*, ETHNIC+14*, RACE+16* |
| >> Z | 701+7*, 701+9*, 701+10*, J*, J+9*, J+11*, J+17*, J+18*, ENTER, ENTER0 , CDR, ADDQUES+7*, ADDQUES+9* |
