SCDXPRN.m

SCDXPRN ;ALB/MTC - PRINT ROUTINES;23-MAY-1996

 ;;5.3;Scheduling;**44**;AUG 13, 1993

 Q

TRANS ;-- This report will print the NPCDB Transmissions for a Date Range.

 ;   The date to perform the sort is the date the Encounter tranaction

 ;   was posted to file 409.73.

 ;

 W !!,"NPCDB Data Transmission Report."

 W !!,*7,"This report requires 132 columns.",!!

 S L="DATA TRANSMISSION REPORT",DIC="^SD(409.73,",FLDS="[SCDX NPCDB TRANSMISSION REPORT]",BY=".06"

 D EN1^DIP

 K DIC,L,BY,FLDS

 Q

 ;

ERROR ;-- This report will provide a listing of the errors that occured from

 ;   the transmission of the data to NPCDB.

 ;

 W !!,"NPCDB Data Error Report."

 W !!,*7,"This report requires 132 columns.",!!

 S L="ERROR TRANSMISSION REPORT",DIC="^SD(409.75,",FLDS="[SCDX TRANSMITTED ERROR LIST]",BY="10.01"

 D EN1^DIP

 K DIC,L,BY,FLDS

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SCDXPRN   851     printed  Mar 13, 2025@21:44:23                                                                                                                                                                                                      Page 2

SCDXPRN   ;ALB/MTC - PRINT ROUTINES;23-MAY-1996

 +1       ;;5.3;Scheduling;**44**;AUG 13, 1993

 +2        QUIT 

TRANS     ;-- This report will print the NPCDB Transmissions for a Date Range.

 +1       ;   The date to perform the sort is the date the Encounter tranaction

 +2       ;   was posted to file 409.73.

 +3       ;

 +4        WRITE !!,"NPCDB Data Transmission Report."

 +5        WRITE !!,*7,"This report requires 132 columns.",!!

 +6        SET L="DATA TRANSMISSION REPORT"

           SET DIC="^SD(409.73,"

           SET FLDS="[SCDX NPCDB TRANSMISSION REPORT]"

           SET BY=".06"

 +7        DO EN1^DIP

 +8        KILL DIC,L,BY,FLDS

 +9        QUIT 

 +10      ;

ERROR     ;-- This report will provide a listing of the errors that occured from

 +1       ;   the transmission of the data to NPCDB.

 +2       ;

 +3        WRITE !!,"NPCDB Data Error Report."

 +4        WRITE !!,*7,"This report requires 132 columns.",!!

 +5        SET L="ERROR TRANSMISSION REPORT"

           SET DIC="^SD(409.75,"

           SET FLDS="[SCDX TRANSMITTED ERROR LIST]"

           SET BY="10.01"

 +6        DO EN1^DIP

 +7        KILL DIC,L,BY,FLDS

 +8        QUIT 

 +9       ;