©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
DGPTFVC3 ;ALB/MTC - VAILIDATION CHECK FOR PTF ADDITIONAL QUESTIONS ; 18 MAR 91
Source file <DGPTFVC3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CHK4Q | ||
| EN | ;
|
|
| INITQ | ||
| CHKFL5 | ;-- check field entries
|
|
| W701 | ;-- display error messages for 701
|
|
| 701 | ;-- process 701 load DGPTIT array
|
|
| CHKFL4 | ;-- check field entries
|
|
| ENQ | ;
|
|
| INIT | ;
|
|
| CHK5Q | ||
| W501 | ;-- display error message for 501
|
|
| 401 | ;-- check 401's for inconsistent data
|
|
| CHK7Q | ;
|
|
| W401 | ;-- display error message for 401
|
|
| ERRMSG | ;-- error messages
|
|
| 501 | ;-- check 501's for inconsistent data
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPT - [#45] | 501+2, CHKFL5+3, CHKFL5+4, 401+2, CHKFL4+3, CHKFL4+4, 701+2, 701+5, 701+6, W401+1 , W501+1, INIT+3 |
| Name | Line Occurrences |
|---|---|
| 401 | EN+2 |
| 501 | EN+2 |
| 701 | EN+2 |
| CHK4Q | CHKFL4+3 |
| CHK5Q | CHKFL5+3 |
| CHK7Q | 701+2, 701+5 |
| CHKFL4 | 401+2 |
| CHKFL5 | 501+2 |
| ENQ | EN+1 |
| INIT | EN+1 |
| INITQ | INIT+1 |
| W401 | CHKFL4+6 |
| W501 | CHKFL5+7 |
| W701 | 701+10 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | 501+2, 401+2 |
| ^(300 | CHKFL5+4, CHKFL4+4, 701+6 |
| ^(70 | 701+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DG701 | 701+7*, CHK7Q+1! |
| DGBPC | ENQ+1!, CHKFL5+3, CHK5Q!, CHKFL4+3, CHK4Q!, 701+5 |
| DGBPC( | CHKFL5+7, 701+10 |
| DGBPC(1 | CHKFL4+6 |
| >> DGERR | CHKFL5+7*, CHKFL4+6*, 701+10*, INIT+3* |
| DGFNUM | CHKFL5+7, CHK5Q!, 701+10, CHK7Q+1! |
| DGHOLD | ENQ+1!, 501+2*, CHKFL5+1, CHKFL5+4*, CHKFL5+7, 401+2*, CHKFL4+1, CHKFL4+4*, CHKFL4+6, CHK7Q+1! |
| DGI | 701+3*, CHK7Q+1! |
| DGII | CHKFL5+7*, CHK5Q!, 701+10*, CHK7Q+1! |
| DGJ | ENQ+1!, CHKFL5+1*, CHKFL4+1* |
| DGMOV | ENQ+1!, 501+2*, 501+3!, CHKFL5+3, CHKFL5+4, W501+1 |
| DGOUT | EN+1, ENQ+1!, INIT+1*, INIT+2*, INIT+3* |
| DGPTF | ENQ+1!, 501+2, CHKFL5+3, CHKFL5+4, 401+2, CHKFL4+3, CHKFL4+4, 701+2, 701+5, 701+6 , W401+1, W501+1, INIT+2*, INIT+3 |
| DGPTIT | ENQ+1!, 501+1!, CHK5Q!, 401+1!, CHK4Q!, 701+1! |
| DGPTIT( | CHKFL5+1*, CHKFL4+1*, 701+3* |
| DGREC | ENQ+1!, 701+2*, 701+3 |
| DGSUR | ENQ+1!, 401+2*, CHKFL4+3, CHKFL4+4, W401+1 |
| DGTREC | 701+6*, 701+10, CHK7Q+1! |
| >> PTF | INIT+1, INIT+2 |
| U | CHKFL5+1, CHKFL5+7, CHKFL4+1, CHKFL4+6, 701+3, 701+10 |
| X | W401+1~*, W401+2, W501+1~*, W501+2 |
| Name | Field # of Occurrence |
|---|---|
| $T(ERRMSG+1 | W401+2 |
| $T(ERRMSG+DGII | W501+2, W701+1 |