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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: SDTMPPRC

Package: Scheduling

Routine: SDTMPPRC


Information

SDTMPPRC ;TMP/DRF - TMP Clinic Schedule Edit Queueing Routine;Oct 7, 2022

Source Information

Source file <SDTMPPRC.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 4 DD^%DT  (DW,YMD,YX)^%DTC  ^DIC  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Scheduling 2 EN^SDTMPHLC  $$UPPER^SDUL1  

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 SDTMPUT0  

Entry Points

Name Comments DBIA/ICR reference
PROCESS(JOB) ;Process any unprocessed record in SDTMPX queue
PROCDATE ;Process a single date
MARK(FUN) ;For an odd number of transactions, mark each transaction correct (one sent, the rest offset)
ORPHAN ;Check for unprocessed entries older than 30 minutes - user may have left Edit A Clinic abnormally
PURGE ;Purge history greater than 90 days old
BEGIN ;Report Begin & Title
ALLORONE ;All clinics or one clinic
IO ;Ask IO device and Queue
LOOP ;Compile Data
CLINIC ;Clinic prompt
PRINT ;Print Data
PRINT2 ;Navigate lines in sequence
LINE ;Print one line
END ;Clean up and Quit
HEADER ;Print report header
QUE ;Run job in background

External References

Name Field # of Occurrence
DD^%DT LINE+5
DW^%DTC LINE+6
YMD^%DTC PROCESS+4, PURGE+6
YX^%DTC LOOP+2, LINE+7
^%ZIS IO+1
HOME^%ZIS QUE+3
^%ZISC END+1
^%ZTLOAD QUE+2
^DIC CLINIC+3
^DIR ALLORONE+2
EN^SDTMPHLC PROCDATE+9, PROCDATE+12
$$UPPER^SDUL1 ALLORONE+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: #,"TMP Clinic Schedule Edit Transaction List",!!
  • Line Location: BEGIN+2
Function Call: WRITE
  • Prompt: !!,"END OF REPORT"
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: ?1,XDATE,?15,DOW,?28,$S(FUN="C":"BLOCK",FUN="UC":"UNBLOCK",1:""),?43,$S(PRC="O":"OFFSET",PRC="P":"SENT",1:"UNPROCESSED"),?56,XTIME,?79,$P($G(^VA(200,DUZ,0)),"^",1),!
  • Line Location: LINE+8
Function Call: WRITE
  • Prompt: #!!," TMP Clinic Schedule Edit Transaction List",?100,SDT,?120,"PAGE: ",SDPG,!
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: " CLINIC: ",CL,"-",$P(^SC(CL,0),"^",1),!!
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: " DATE DAY OF WEEK BLOCK/UNBLOCK ACTION MODIFIED MODIFIED BY",!
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: " ------------ ----------- ------------- ----------- --------------------- --------------------",!
  • Line Location: HEADER+5
Routine Call
  • DIC
  • Line Location:
    • CLINIC+3
Routine Call
  • DIR
  • Line Location:
    • ALLORONE+2
Routine Call
  • %ZIS
  • Line Location:
    • IO+1
Routine Call
  • %ZIS
  • Line Location:
    • QUE+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SC - [#44] HEADER+3
^TMP("SDTMPPRC" LOOP+1!, LOOP+7*, PRINT+4, PRINT2+1, PRINT2+2, PRINT2+3, PRINT2+4, END+2!
^TMP("SDTMPX" PROCESS+11!, PROCESS+15*, PROCESS+17, PROCESS+18, PROCESS+20!, PROCDATE+2, PROCDATE+3
^VA(200 - [#200] LINE+8
^XTMP("SDTMPX" PROCESS+4*, PROCESS+5, PROCESS+8, PROCESS+13, PROCESS+15*, PROCESS+19*, PROCESS+21, PROCDATE+7*, MARK+5*, MARK+6*
, ORPHAN+1, ORPHAN+2, ORPHAN+4, PURGE+3, PURGE+4, PURGE+5!, PURGE+7*, LOOP+3, LOOP+4, LOOP+5

Label References

Name Line Occurrences
CLINIC ALLORONE+5
END ALLORONE+3, ALLORONE+5, IO+1, IO+2, LOOP+9, QUE+4
HEADER LINE+1, LINE+3
LINE PRINT2+4
MARK PROCDATE+10, PROCDATE+13
ORPHAN PROCESS+22
PRINT LOOP+8
PRINT2 PRINT+3, PRINT+4
PROCDATE PROCESS+18
PROCESS ORPHAN+5
PURGE PROCESS+23
QUE IO+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% BEGIN+1~
%H PROCESS+4*, PURGE+1~, PURGE+6*, BEGIN+1~, LOOP+2*, LINE+7*
%T BEGIN+1~
%Y BEGIN+1~
%ZIS IO+1*, END+2!
CL PROCESS+6~, PROCESS+14*, PROCESS+15, PROCESS+17*, PROCESS+18, PROCDATE+2, PROCDATE+3, PROCDATE+9, PROCDATE+12, BEGIN+1~
, LOOP+6*, LOOP+7, PRINT+3*, PRINT+4*, PRINT2+1, PRINT2+2, PRINT2+3, PRINT2+4, LINE+1, LINE+2
, HEADER+3
CNT MARK+1~, MARK+4*, MARK+5, MARK+6
DA BEGIN+1~, BEGIN+3*, CLINIC+5*, PRINT+3, PRINT+4
DATE PROCESS+6~, PROCESS+14*, PROCESS+15, PROCESS+18*, PROCDATE+2, PROCDATE+3, PROCDATE+9, PROCDATE+12, PURGE+1~, PURGE+3*
, PURGE+4, PURGE+5, BEGIN+1~, LOOP+6*, LOOP+7, PRINT2+1*, PRINT2+2, PRINT2+3, PRINT2+4, LINE+5
, LINE+6
DIC BEGIN+1~, CLINIC+1*
DIC("A" CLINIC+1*, CLINIC+6!
DIC("S" CLINIC+6!
DIC(0 CLINIC+1*
DIE BEGIN+1~, CLINIC+5*
DIR BEGIN+1~
DIR("A" ALLORONE+2*
DIR("B" ALLORONE+2*
DIR(0 ALLORONE+1*
DOW BEGIN+1~, LINE+6*, LINE+8
DTOUT ALLORONE+3, ALLORONE+5, CLINIC+2, END+2!
DUOUT ALLORONE+3, ALLORONE+5, CLINIC+2, END+2!
DUZ PROCESS+14*, PROCESS+15, PROCDATE+3*, LOOP+6*, LOOP+7, PRINT2+4*, LINE+8
FUN PROCESS+6~, PROCESS+14*, PROCESS+15, PROCDATE+3*, PROCDATE+4, MARK~, MARK+5, BEGIN+1~, LOOP+6*, LOOP+7
, PRINT2+4*, LINE+8
FUNCNT MARK+1~, MARK+3*, MARK+4
FUNSTR PROCESS+6~, PROCDATE+1*, PROCDATE+4*, PROCDATE+5, MARK+2
FUNSTR2 MARK+1~, MARK+2*, MARK+5
I PROCESS+6~, PROCESS+12*, PROCESS+13, PROCESS+14
IO PRINT+1
IO("Q" IO+2, QUE+3!
IOSL LINE+3
J PROCESS+6~, PROCDATE+5*
JOB PROCESS~, PROCESS+3, PROCESS+5, PROCESS+8, PROCESS+11, PROCESS+13, PROCESS+15, PROCESS+17, PROCESS+18, PROCESS+19
, PROCESS+20, PROCESS+21, PROCDATE+2, PROCDATE+3, PROCDATE+7, MARK+5, MARK+6, ORPHAN+1*, ORPHAN+2, ORPHAN+4
, ORPHAN+5, PURGE+1~, PURGE+4*, PURGE+5, BEGIN+1~, LOOP+3*, LOOP+4, LOOP+5
K PROCESS+6~, PROCDATE+7*
LN BEGIN+1~, PRINT2+4*
OCL BEGIN+1~, LOOP+2*, LINE+1, LINE+2*
POP BEGIN+1~, IO+1
PRC BEGIN+1~, LOOP+6*, LOOP+7, PRINT2+4*, LINE+8
REC PROCESS+6~, PROCDATE+1*, PROCDATE+4*, PROCDATE+6, PROCDATE+8, PROCDATE+11
SDCLIN BEGIN+1~, ALLORONE+4*, ALLORONE+5
SDEND PROCESS+6~, PROCESS+8*, PROCESS+9, PROCESS+12, PROCESS+19, ORPHAN+2*, ORPHAN+3, ORPHAN+4
SDLN BEGIN+1~, PRINT+2*, LINE+3, LINE+4*, HEADER+1*
SDPG BEGIN+1~, PRINT+2*, HEADER+1*, HEADER+2
SDSTART PROCESS+6~, PROCESS+8*, PROCESS+9, PROCESS+12, ORPHAN+2*, ORPHAN+3
SDT BEGIN+1~, LOOP+2*, HEADER+2
SENT MARK+1~, MARK+2*, MARK+5*
SEQ PROCESS+6~, PROCESS+14*, PROCESS+15, PROCDATE+2*, PROCDATE+3, PROCDATE+4, PURGE+1~, BEGIN+1~, LOOP+4*, LOOP+5
, LOOP+7, PRINT2+3*, PRINT2+4
SEQSTR PROCESS+6~, PROCDATE+1*, PROCDATE+4*, PROCDATE+7, MARK+3, MARK+5, MARK+6
START PURGE+1~, PURGE+2*, PURGE+3
TMS PROCESS+6~, PROCESS+14*, PROCESS+15
TOTC PROCESS+6~, PROCDATE+5*, PROCDATE+6, PROCDATE+8, PROCDATE+11
TOTUC PROCESS+6~, PROCDATE+5*, PROCDATE+6, PROCDATE+8, PROCDATE+11
TS ORPHAN+4*, ORPHAN+5, BEGIN+1~, LOOP+6*, LOOP+7, PRINT2+2*, PRINT2+3, PRINT2+4, LINE+7
X PROCESS+4, PROCESS+6~, PROCESS+13*, PROCESS+14, ORPHAN+4*, PURGE+1~, PURGE+7, BEGIN+1~, ALLORONE+4, LOOP+5*
, LOOP+6, CLINIC+4, LINE+6*
XDATE BEGIN+1~, LINE+5*, LINE+8
XTIME BEGIN+1~, LINE+7*, LINE+8
Y PROCESS+6~, PROCDATE+5*, BEGIN+1~, LOOP+2, CLINIC+2, CLINIC+4, CLINIC+5, LINE+5*, LINE+7
Z PROCESS+6~, PROCDATE+7*
ZTDESC QUE+1*, QUE+3!
ZTQUEUED END+1, QUE+3!
ZTRTN QUE+1*, QUE+3!
ZTSAVE END+2!
ZTSAVE("SD*" QUE+1*
ZTSK QUE+2, QUE+3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All