source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGRPDD.m@ 861

Last change on this file since 861 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 474 bytes
RevLine 
[613]1DGRPDD ;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 ;
7FAMINF ; 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 ;
14INCSCR ; 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.