source: FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGQEDD.m@ 1641

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

initial load of FOIAVistA 6/30/08 version

File size: 1.1 KB
Line 
1DGQEDD ;ALB/RPM - VIC REPLACEMENT DATA DICTIONARY UTILITIES ; 12/30/03
2 ;;5.3;Registration;**571**;Aug 13, 1993
3 ;
4 Q ;no direct entry
5 ;
6XMITON(DGIEN) ;turn on the TRANSMISSION REQUIRED flag
7 ; This procedure sets the TRANSMISSION REQUIRED (#.05) field of the
8 ; VIC REQUEST (#39.6) file to "YES".
9 ; The procedure is used by the ASTAT2XMIT trigger on the CARD PRINT
10 ; RELEASE STATUS (#.03) field of the VIC REQUEST (#39.6) file.
11 ;
12 ; Input:
13 ; DGIEN - pointer to VIC REQUEST (#39.6) file
14 ;
15 ; Output:
16 ; none
17 ;
18 N DGERR
19 N DGFDA
20 ;
21 S DGFDA(39.6,DGIEN_",",.05)="Y"
22 D FILE^DIE("","DGFDA","DGERR")
23 Q
24 ;
25 ;
26XMITOFF(DGIEN) ;turn off the TRANSMISSION REQUIRED flag
27 ; This procedure sets the TRANSMISSION REQUIRED (#.05) field of the
28 ; VIC REQUEST (#39.6) file to "NO".
29 ; The procedure is used by the ASTAT2XMIT trigger on the CARD PRINT
30 ; RELEASE STATUS (#.03) field of the VIC REQUEST (#39.6) file.
31 ;
32 ; Input:
33 ; DGIEN - pointer to VIC REQUEST (#39.6) file
34 ;
35 ; Output:
36 ; none
37 ;
38 N DGERR
39 N DGFDA
40 ;
41 S DGFDA(39.6,DGIEN_",",.05)="N"
42 D FILE^DIE("","DGFDA","DGERR")
43 Q
Note: See TracBrowser for help on using the repository browser.