Last change
on this file since 952 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
474 bytes
|
Rev | Line | |
---|
[628] | 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.