MAGDSTD3 ; OI&T-Clin3/DWM,WOIFO/PMK - rad exams w/o VI images; Jul 06, 2021@08:27:03
Source file <MAGDSTD3.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
DATES | ; enter date range to search
|
|
QUE | ; queue to run report
|
|
EN | ;entry point
|
|
EXIT | ;
|
|
COUNTS(DTFR,DTTO,SERVICE) | ; build list of exams w/o images
; ^TMP("MAG",$J,SERVICE,EXAMDATE,ACNUMB)=PNAME_"^"_SSN_"^"_PROC |
|
LOOKUP(GMRCIEN) | ;
|
|
LEGACY(GMRCIEN) | ; lookup in legacy database
|
|
CHECKMAG(MAGIEN,TIUIEN,TIU892591) | ;
; -- ensure #2005 entry exists -- |
|
PARENT(MAGIEN,TIUIEN,TIU892591) | ; check #2005 pointer back to #8925
|
|
DISPLAY | ;
|
|
HDR | ; header
|
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: READ |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^GMR(123 - [#123] | GET1^DIQ |
^DPT - [#2] | GET1^DIQ |