source: FOIAVistA/tag/r/SCHEDULING-SD-SC/SCDXPRN.m@ 636

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

initial load of FOIAVistA 6/30/08 version

File size: 827 bytes
Line 
1SCDXPRN ;ALB/MTC - PRINT ROUTINES;23-MAY-1996
2 ;;5.3;Scheduling;**44**;AUG 13, 1993
3 Q
4TRANS ;-- This report will print the NPCDB Transmissions for a Date Range.
5 ; The date to perform the sort is the date the Encounter tranaction
6 ; was posted to file 409.73.
7 ;
8 W !!,"NPCDB Data Transmission Report."
9 W !!,*7,"This report requires 132 columns.",!!
10 S L="DATA TRANSMISSION REPORT",DIC="^SD(409.73,",FLDS="[SCDX NPCDB TRANSMISSION REPORT]",BY=".06"
11 D EN1^DIP
12 K DIC,L,BY,FLDS
13 Q
14 ;
15ERROR ;-- This report will provide a listing of the errors that occured from
16 ; the transmission of the data to NPCDB.
17 ;
18 W !!,"NPCDB Data Error Report."
19 W !!,*7,"This report requires 132 columns.",!!
20 S L="ERROR TRANSMISSION REPORT",DIC="^SD(409.75,",FLDS="[SCDX TRANSMITTED ERROR LIST]",BY="10.01"
21 D EN1^DIP
22 K DIC,L,BY,FLDS
23 Q
24 ;
Note: See TracBrowser for help on using the repository browser.