|
Last change
on this file since 1046 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
474 bytes
|
| Line | |
|---|
| 1 | DGRPDD ;ALB/MLI - MISC DD CALLS FOR REGISTRATION ; 29 JUN 92
|
|---|
| 2 | ;;5.3;Registration;;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | ;This routine is used to store misc. DD calls from registration
|
|---|
| 5 | ;
|
|---|
| 6 | ;
|
|---|
| 7 | FAMINF ; called from SHOW FAMILY INFO SCREEN field in the TYPE OF
|
|---|
| 8 | ; PATIENT file.
|
|---|
| 9 | ;
|
|---|
| 10 | I $P($G(^DG(391,DA,0)),"^",1)["NSC" S X=1 W *7," (YES)"
|
|---|
| 11 | Q
|
|---|
| 12 | ;
|
|---|
| 13 | ;
|
|---|
| 14 | INCSCR ; called from SHOW INCOME SCREENING SCREEN field in the TYPE OF
|
|---|
| 15 | ; PATIENT file.
|
|---|
| 16 | ;
|
|---|
| 17 | I $P($G(^DG(391,DA,0)),"^",1)["NSC" S X=1 W *7," (YES)"
|
|---|
| 18 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
