©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
DGPT60PR ;ALB/MTC/ADL - Edit procedure codes. In ICD0 Procedures, current, gender ok ; 17 NOV 92
Source file <DGPT60PR.m>
| Package | Total | Call Graph |
|---|---|---|
| DRG Grouper | 1 | $$ICDOP^ICDCODE |
| Registration | 1 | WRTERR^DGPTAE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;
|
|
| CURR | ;
|
|
| ERR | ;
|
|
| EXIT | ;
|
|
| ARRAY | ;
|
|
| CHKPRC | ;
|
|
| SAVE | ;
|
|
| GEN | ;
|
|
| LOOP | ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ICD0("AB" | CHKPRC+3, GEN+1 |
| Name | Line Occurrences |
|---|---|
| CHKPRC | LOOP+2 |
| ERR | LOOP+2 |
| GEN | CHKPRC+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DGPTERC | LOOP+2*, CHKPRC+1*, CHKPRC+2*, CHKPRC+3*, GEN+1*, GEN+3*, GEN+4*, CURR+2*, ERR+1 |
| >> DGPTGEN | GEN+4 |
| DGPTL3 | LOOP+2*, EXIT+1!, CHKPRC+1, CHKPRC+2, GEN+1, GEN+3, CURR+2, SAVE+1 |
| DGPTL4 | EXIT+1!, CHKPRC+3* |
| DGPTOP | EXIT+1!, CHKPRC+1*, CHKPRC+3 |
| DGPTOP1 | EXIT+1!, CHKPRC+3*, GEN+1, SAVE+1 |
| >> DGPTPDTS | GEN+2, CURR+1, CURR+2, ARRAY+1 |
| DGPTPP | EXIT+1!, GEN+1*, GEN+2, CURR+1, ARRAY+1 |
| >> DGPTPRAR( | ARRAY+1* |
| DGPTPRFL | LOOP+1*, EXIT+1! |
| >> DGPTTMP | GEN+2*, GEN+3, GEN+4, CURR+1*, CURR+2 |
| DT | GEN+2, CURR+1 |
| >> NODE | ERR+1 |
| >> SEQ | ERR+1 |
| U | GEN+3, GEN+4, CURR+2, ARRAY+1 |
| X | EXIT+1! |
| X1 | EXIT+1! |
| X2 | EXIT+1! |