RARTE6 ;HISC/SM - Restore deleted report ; Nov 29, 2023@09:14:58
Source file <RARTE6.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
RSTR | ;restore deleted report
|
|
CHECK | ; check if associated case(s) has rpt and DX codes
|
|
ASK1 | ; ask if want to restore report
; RAPRVIEN last Activity Log rec in subfile 74.01 ; RAPRVST previous report status logged in latest activity log rec ; RALAST last activity log record |
|
ASSOC | ;
; list case(s) for this report |
|
RESTORE | ; set Report Status to "before delete" value, link to case(s)
|
|
SET70(X) | ; put back previous DX codes, Staff, Residents into case record
; assumes if no primary then no secondaries |
|
PSET | ; copy Primary into cases of a printset
|
|
SETFF(RA1,RA2,RA3,RA4,RA5) | ;reset file's field value
|
|
SETALOG(RA1,RA2,RA3) | ;set new record in Activity log 74.01
|
|
MSG1(X) | ;
|
|
MSG2(X,Y,Z) | ;
|
|
ERR0 | ;
|
|
ERR1 | ||
ERR2(X,Y,Z) | ;X=External short case No, Y=File no., Z=Field no.
|
|
ERR3(X) | ;
|
|
ERR4(X,Y,Z) | ;
|
|
NOTDONE | ;
|
|
FINISH | ; clean up and exit
|
|
DISPLAY | ; Display exam specific info, edit/enter the report
; adapted from routine RARTE |
|
LOCK(X,Y) | ; Lock the data global
; uses var DILOCKTM, code taken from rtn RAUTL12 ; 'X' is the global root ; 'Y' is the record number ; KLM/163 - remove setting of RADUZ and ^TMP("RAD LOCKS" |
|
INTRO | ;
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
70.03 | GET1^DID, GETS^DIQ |
^RARPT - [#74] | Classic Fileman Calls, GET1^DIQ |
74.01 | GET1^DIQ |