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
Print Page as PDF
Routine: SDSCRP

Package: Scheduling

Routine: SDSCRP


Information

SDSCRP ;ALB/JAM - Restricted Stop Code Nonconforming Clinic Report; 07/24/03

Source Information

Source file <SDSCRP.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; var INACT added SD*547
HDR ;Header for data from file #44
PAGE ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!,?25,$S(CNTX:CNTX,1:"NO")_" PROBLEM CLINICS FOUND."
  • Line Location: PROCESS+22
Function Call: WRITE
  • Prompt: !,IEN,?8,$E(NAM,1,28),?37,PSCN,?46,SSCN,?57,STR
  • Line Location: PRN+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: SDRDT,?73,"Page: ",SDPG,!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?18,"NON-CONFORMING CLINICS STOP CODE REPORT",!,?32
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: $S(SDPCF="A":"Active",SDPCF="I":"Inactive",1:"All")_" Clinics",!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"HOSPITAL LOCATION FILE (#44) - (Use Set up a Clinic [SDBUILD]"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: " menu option to",!,?32,"make corrections)"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!,?37,"PRIMARY",?46,"SECONDARY",?57,"REASON FOR"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !?8,$S(SDPCF="B":"CLINIC NAME",1:""),?37,"STOP",?46,"CREDIT",?57,"NON"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,"IEN",?8,$S(SDPCF="B":"(*currently inactive)",1:"CLINIC NAME")
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: ?37,"CODE",?46,"STOP CODE",?57,"CONFORMANCE",!,$E(LNS,1,80)
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGE+3
Info |  Source |  Entry Points |  Interaction Calls