SCMCHLR7.m

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 ---SCMCHLR7   742     printed  Apr 09, 2024@21:55:43                                                                                                                                                                                                     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