Routine: SDTMPPRC

Information

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

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

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