Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: ECXSCRP

Package: DSS Extracts

Routine: ECXSCRP


Information

ECXSCRP ;ALB/JAM - Restricted Stop Code Nonconforming Clinic Report; 07/24/03 ;2/11/14 16:56

Source Information

Source file <ECXSCRP.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;foreground entry point
END
PROCESS ;background entry point
PRN ;print line
SCCHK(SCIEN,TYP) ;check stop code against file 40.7
PAGE ;
SCIEN(SCIEN) ;Get stop code IEN
HDR ;header for data from file #728.44

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"This option reviews the Primary and Secondary Stop Codes and any existing Four"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"Character Codes in the Clinics and Stop Codes file #728.44."
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,"It produces a report highlighting any nonconformance reasons that pertain"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"to the Primary and Secondary Codes, or the Four Character Codes if present."
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,"Please contact the responsible party for corrective action."
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,"Please be patient, this may take a few moments..."
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !!,"** REPORT REQUIRES 132 COLUMNS TO PRINT CORRECTLY **",!!
  • Line Location: EN+24
Function Call: WRITE
  • Prompt: !!,?25,$S(CNTX:CNTX,1:"NO")_" PROBLEM CLINICS FOUND."
  • Line Location: PROCESS+28
Function Call: WRITE
  • Prompt: !,IEN,?14,$E(NAM,1,24),?48,PSC,?58,SSC,?75,NCODE,?91,STR
  • Line Location: PRN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGE+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: ECXRDT,?73,"Page: ",ECXPG,!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?18,"STOP CODE NON-CONFORMING CLINICS REPORT",!,?32
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: $S(ECXPCF="A":"Active",ECXPCF="I":"Inactive",1:"All")_" Clinics",!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"CLINICS AND STOP CODES File (#728.44) - (Use 'Enter/Edit DSS "
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "Stop Codes for",!,?25,"Clinics' [ECXSCEDIT] menu option to "
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: "make corrections)",!!
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: "IEN #",?14,$S(ECXPCF="B":"(*currently inactive)",1:"CLINIC NAME")
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: ?48,"STOP",?58,"CREDIT",?75,"CHAR4",?91,"REASON FOR NON-"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,?48,"CODE",?58,"STOP CODE",?75,"CODE",?91,"CONFORMANCE"
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,$E(LNS,1,132)
  • Line Location: HDR+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SC - [#44] GET1^DIQ
^ECX(728.441 - [#728.441] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call