DGQEDD.m

DGQEDD ;ALB/RPM - VIC REPLACEMENT DATA DICTIONARY UTILITIES ; 12/30/03

 ;;5.3;Registration;**571,1015**;Aug 13, 1993;Build 21

 ;

 Q  ;no direct entry

 ;

XMITON(DGIEN) ;turn on the TRANSMISSION REQUIRED flag

 ; This procedure sets the TRANSMISSION REQUIRED (#.05) field of the

 ; VIC REQUEST (#39.6) file to "YES".

 ; The procedure is used by the ASTAT2XMIT trigger on the CARD PRINT

 ; RELEASE STATUS (#.03) field of the VIC REQUEST (#39.6) file.

 ;

 ;  Input:

 ;    DGIEN - pointer to VIC REQUEST (#39.6) file

 ;

 ;  Output:

 ;    none

 ;

 N DGERR

 N DGFDA

 ;

 S DGFDA(39.6,DGIEN_",",.05)="Y"

 D FILE^DIE("","DGFDA","DGERR")

 Q

 ;

 ;

XMITOFF(DGIEN) ;turn off the TRANSMISSION REQUIRED flag

 ; This procedure sets the TRANSMISSION REQUIRED (#.05) field of the

 ; VIC REQUEST (#39.6) file to "NO".

 ; The procedure is used by the ASTAT2XMIT trigger on the CARD PRINT

 ; RELEASE STATUS (#.03) field of the VIC REQUEST (#39.6) file.

 ;

 ;  Input:

 ;    DGIEN - pointer to VIC REQUEST (#39.6) file

 ;

 ;  Output:

 ;    none

 ;

 N DGERR

 N DGFDA

 ;

 S DGFDA(39.6,DGIEN_",",.05)="N"

 D FILE^DIE("","DGFDA","DGERR")

 Q

DGQEDD    ;ALB/RPM - VIC REPLACEMENT DATA DICTIONARY UTILITIES ; 12/30/03

 +1       ;;5.3;Registration;**571,1015**;Aug 13, 1993;Build 21

 +2       ;

 +3       ;no direct entry

           QUIT 

 +4       ;

XMITON(DGIEN) ;turn on the TRANSMISSION REQUIRED flag

 +1       ; This procedure sets the TRANSMISSION REQUIRED (#.05) field of the

 +2       ; VIC REQUEST (#39.6) file to "YES".

 +3       ; The procedure is used by the ASTAT2XMIT trigger on the CARD PRINT

 +4       ; RELEASE STATUS (#.03) field of the VIC REQUEST (#39.6) file.

 +5       ;

 +6       ;  Input:

 +7       ;    DGIEN - pointer to VIC REQUEST (#39.6) file

 +8       ;

 +9       ;  Output:

 +10      ;    none

 +11      ;

 +12       NEW DGERR

 +13       NEW DGFDA

 +14      ;

 +15       SET DGFDA(39.6,DGIEN_",",.05)="Y"

 +16       DO FILE^DIE("","DGFDA","DGERR")

 +17       QUIT 

 +18      ;

 +19      ;

XMITOFF(DGIEN) ;turn off the TRANSMISSION REQUIRED flag

 +1       ; This procedure sets the TRANSMISSION REQUIRED (#.05) field of the

 +2       ; VIC REQUEST (#39.6) file to "NO".

 +3       ; The procedure is used by the ASTAT2XMIT trigger on the CARD PRINT

 +4       ; RELEASE STATUS (#.03) field of the VIC REQUEST (#39.6) file.

 +5       ;

 +6       ;  Input:

 +7       ;    DGIEN - pointer to VIC REQUEST (#39.6) file

 +8       ;

 +9       ;  Output:

 +10      ;    none

 +11      ;

 +12       NEW DGERR

 +13       NEW DGFDA

 +14      ;

 +15       SET DGFDA(39.6,DGIEN_",",.05)="N"

 +16       DO FILE^DIE("","DGFDA","DGERR")

 +17       QUIT