Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 $$GET1^DIQ  ^DIR  
Scheduling 1 $$STATION^SDTMPHLA  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Scheduling 1 SD MISSING STATION NUMBER  

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

External References

Name Field # of Occurrence
^%ZIS IO+1
HOME^%ZIS QUE+3
^%ZISC END+1
^%ZTLOAD QUE+2
$$GET1^DIQ LINE+6
^DIR ACT+3, ASKTYPE+3
$$STATION^SDTMPHLA LOOP+9

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
Routine Call
  • %ZIS
  • Line Location:
    • IO+1
Routine Call
  • %ZIS
  • Line Location:
    • QUE+3
Routine Call
  • DIR
  • Line Location:
    • ACT+3
    • ASKTYPE+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(40.8 - [#40.8] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SC - [#44] LOOP+2, LOOP+3, LOOP+6

Label References

Name Line Occurrences
$$TYPE HEADER+4, LINE+5
ACT BEGIN+2
ASKTYPE BEGIN+3
END IO+1, IO+2, LOOP+12, QUE+4
HEADER LINE+2
LINE LOOP+10
QUE IO+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS IO+1*
ACT LOOP+4, LOOP+5, HEADER+5, END+2!, ACT+4*
ASKTYPE LOOP+8, HEADER+4, END+2!, ASKTYPE+5*
CL LOOP+2*, LOOP+3, LOOP+6, LOOP+9, LINE+7, END+2!
CL0 LOOP+6*, LOOP+7, LINE+4, END+2!
CLABR LINE+3~, LINE+4*, LINE+7, END+2!
CLDIV LINE+3~, LINE+4*, LINE+6, END+2!
CLINS LINE+3~, LINE+4*, LINE+7, END+2!
CLNM LINE+3~, LINE+4*, LINE+7, END+2!
CLTYP LOOP+7*, LOOP+8, TYPE~, TYPE+1, TYPE+2, TYPE+3, TYPE+4, TYPE+5, TYPE+6, TYPE+7
, TYPE+8, LINE+3~, LINE+4*, LINE+5*, LINE+7, END+2!
DIR END+2!
DIR("A" ACT+2*, ASKTYPE+2*
DIR("B" ACT+1*, ASKTYPE+1*
DIR(0 ACT+1*, ASKTYPE+1*
DIV LINE+6*, LINE+7, END+2!
DT HEADER+3
FND LOOP+1*, LOOP+11, LINE+1*, LINE+2, END+2!
I LOOP+3*, LOOP+4, LOOP+5, END+2!
IO("Q" IO+2, QUE+3!
NCNT LOOP+7*, LINE+7, END+2!
PGNO LOOP+1*, HEADER+2*, HEADER+3, END+2!
POP IO+1, END+2!
PSTOP LOOP+7*, LINE+7, END+2!
SSTOP LOOP+7*, LINE+7, END+2!
STN LOOP+9*, LOOP+10, LINE+7, END+2!
STOP1 END+2!
STOP2 END+2!
U LOOP+4, LOOP+5, LINE+4
Y BEGIN+2, BEGIN+3, END+2!, ACT+4, ASKTYPE+4*, ASKTYPE+5
ZTDESC QUE+1*, QUE+3!, END+2!
ZTQUEUE END+2!
ZTQUEUED QUE+3!, END+1
ZTRTN QUE+1*, QUE+3!, END+2!
ZTSK QUE+2, QUE+3!, END+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All