RAIPS160 ;HISC/GJC-postinit 160 ; Aug 18, 2020@09:28:10
Source file <RAIPS160.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN1 | ;Fix the ^RADPT(,"DT",0) if necessary for every
|
|
| TSK1 | ;Rebuild the REGISTERED EXAM sub-file zero node.
|
|
| EN2 | ;reindex the "AR" & "B" xrefs on the EXAM DATE (#70.02) .01 field.
|
|
| TSK2 | ;reindex the "AR" & "B" cross reference on the EXAM DATE (#70.02)
|
|
| EN3 | ;mass override to complete from the beginning
|
|
| TSK3 | ;mass override to complete from the beginning
|
|
| ACTIVE(Y) | ; is the study canceled or complete?
; input Y: ptr to file 72 ; return: 0 if canceled or complete; else 1 |
|
| RA7005(RAY) | ; (#75) EXAM STATUS TIMES
|
|
| RA7007(RAY) | ; (#100) ACTIVITY LOG
|
|
| RA751 | ;update the radiology and CPRS orders to 'complete'
|
|
| QDT(DAY,HOUR) | ;date/time to queue a task for 160
; DAY - the # of day(s) to queue the task in the future |
|
| XIT | ;kill vars, task... then quit
|
