SCMCHLR7 ;ALB/KCL - PCMM HL7 Error Code Report ;09-FEB-2000
;;5.3;Scheduling;**210**;AUG 13, 1993
;
ECRPRT ; Description: This entry point is used to print the PCMM HL7 Error
; Code Report. This report is based on entries in the PCMM HL7
; ERROR CODE (#404.472) file and uses the FileMan EN1^DIP API for
; printing the report.
;
; Input: None
; Output: None
;
N BY,DHD,DIC,FLDS,FR,L,TO,%ZIS
;
;Required input for EN1^DIP call
S DIC="^SCPT(404.472,"
S L=0
S BY=".01" ; Sort criteria (BY ERROR CODE)
S FR=""
S TO=""
;
;Fields to be printed (in order listed)
S FLDS=".01,.03,10"
;
;Report header
S DHD="PCMM Transmission Error Code Report"
;
;Print report
S %ZIS="QM"
D EN1^DIP
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSCMCHLR7 742 printed Dec 13, 2024@02:40:38 Page 2
SCMCHLR7 ;ALB/KCL - PCMM HL7 Error Code Report ;09-FEB-2000
+1 ;;5.3;Scheduling;**210**;AUG 13, 1993
+2 ;
ECRPRT ; Description: This entry point is used to print the PCMM HL7 Error
+1 ; Code Report. This report is based on entries in the PCMM HL7
+2 ; ERROR CODE (#404.472) file and uses the FileMan EN1^DIP API for
+3 ; printing the report.
+4 ;
+5 ; Input: None
+6 ; Output: None
+7 ;
+8 NEW BY,DHD,DIC,FLDS,FR,L,TO,%ZIS
+9 ;
+10 ;Required input for EN1^DIP call
+11 SET DIC="^SCPT(404.472,"
+12 SET L=0
+13 ; Sort criteria (BY ERROR CODE)
SET BY=".01"
+14 SET FR=""
+15 SET TO=""
+16 ;
+17 ;Fields to be printed (in order listed)
+18 SET FLDS=".01,.03,10"
+19 ;
+20 ;Report header
+21 SET DHD="PCMM Transmission Error Code Report"
+22 ;
+23 ;Print report
+24 SET %ZIS="QM"
+25 DO EN1^DIP
+26 ;
+27 QUIT
