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: SDTMPSTN

Package: Scheduling

Routine: SDTMPSTN


Information

SDTMPSTN ;TMP/DRF - TMP Missing Station Report;Mar 15, 2022

Source Information

Source file <SDTMPSTN.m>

Entry Points

Name Comments DBIA/ICR reference
BEGIN ;Report Begin & Title
IO ;Ask IO device and Queue
LOOP ;Begin Report
TYPE(CLTYP) ;Clinic Type
HEADER ;
LINE ;Write a single clinic record
QUE ;Run job in background
END ;Clean up and Quit
ACT ;View active, inactive or both clinics
ASKTYPE ;Ask clinic type

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: #,"CLINICS THAT ARE MISSING STATION NUMBER",!!
  • Line Location: BEGIN+1
Function Call: WRITE
  • Prompt: "NO CLINICS MISSING STATION NUMBER WERE FOUND",!
  • Line Location: LOOP+11
Function Call: WRITE
  • Prompt: #
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: ?2,"CLINICS THAT ARE MISSING STATION NUMBER",?71,"DATE: ",$E(DT,4,5)_"/"_$E(DT,6,7)_"/"_$E(DT,2,3),?122,"PAGE: ",PGNO,!
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: ?2,"CLINIC TYPE: ",$S(ASKTYPE="A":"ALL",1:$$TYPE(ASKTYPE)),!
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: ?2,$S(ACT="B":"BOTH ACTIVE AND INACTIVE CLINICS",ACT="I":"INACTIVE CLINICS",1:"ACTIVE CLINICS"),!
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: ?2,"CLINIC",?10,"CLINIC NAME",?42,"ABR",?54,"TYPE",?71,"INST",?79,"DIV",?96,"PRI SC",?103,"SEC SC",?111,"NCNT",?116,"STATION",!
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: ?2,"-------",?10,"-------------------------------",?42,"-----------",?54,"----------------",?71,"-------",?79,"----------------",?96,"------",?103,"------",?111,"----",?116,"-------",!
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: ?2,CL,?10,CLNM,?42,CLABR,?54,CLTYP,?71,CLINS,?79,DIV,?96,PSTOP,?103,SSTOP,?111,NCNT,?116,STN,!
  • Line Location: LINE+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(40.8 - [#40.8] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call