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 ---[H[J[2J[HSCDXPRN 851 printed Dec 13, 2024@02:39:27 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 ;
