RACMHIS ;HISC/GJC-Radiology Contrast Media History option (driver)
Source file <RACMHIS.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Radiology Nuclear Medicine | 2 | RA CMAUDIT HISTORY RAPROD2 |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;begin; find all procedures with a CM audit history
|
|
STRTDT | ;Prompt for Starting Date
|
|
ENDDT | ;Prompt for Ending Date
|
|
KILL | ;clean up symbol table
|
|
START | ;main body
|
|
EXIT | ;clean up symbol table, message to user
|
|
EOS | ; end of screen dialog
|
|
HDR | ; print header
|
|
CONTRAST(RACMU) | ;Return the current CM definition for this procedure delimited
|
Name | Field # of Occurrence |
---|---|
$$S^%ZTLOAD | START+7, START+10 |
$$EXTERNAL^DILFD | CONTRAST+7 |
$$GET1^DIQ | START+19 |
^DIR | STRTDT+7, ENDDT+8, EOS+3 |
^DIWP | START+24 |
^DIWW | START+24 |
EN1^RASELCT | EN+3 |
$$FMADD^XLFDT | STRTDT+10 |
$$FMTE^XLFDT | STRTDT+5, ENDDT+5, START+3, START+17 |
$$CJ^XLFSTR | EXIT+2, HDR+2, HDR+4 |
EN^XUTMDEVQ | ENDDT+15 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GET1^DIQ |
71.0125 | EXTERNAL^DILFD |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DIR | STRTDT+1!, STRTDT+7!, ENDDT+1!, ENDDT+8!, KILL+1!, EOS+2!, EOS+4! |
DIR("?" | STRTDT+3*, STRTDT+4*, STRTDT+5*, STRTDT+6*, ENDDT+3*, ENDDT+4*, ENDDT+5*, ENDDT+6*, ENDDT+7* |
DIR("A" | STRTDT+2*, ENDDT+2* |
DIR(0 | STRTDT+1*, ENDDT+1*, EOS+3* |
DIROUT | KILL+1! |
DIRUT | STRTDT+8, ENDDT+9, KILL+1!, EOS+2!, EOS+3, EOS+4! |
DIW | EXIT+3! |
DIWF | START+24*, EXIT+3! |
DIWL | START+24*, EXIT+3! |
DIWR | START+24*, EXIT+3! |
DIWT | EXIT+3! |
DN | EXIT+3! |
DT | STRTDT+1, STRTDT+5, ENDDT+1, ENDDT+5, START+3 |
DTOUT | KILL+1!, EOS+2!, EOS+4! |
DUOUT | KILL+1!, EOS+2!, EOS+4! |
I | ENDDT+14*, ENDDT+15!, EXIT+3! |
IOF | START+4, HDR+1 |
IOM | START+3, EXIT+2, HDR+2, HDR+4 |
IOSL | START+20, START+22 |
IOST | START+4, EOS+1 |
POP | KILL+1! |
RAADT | START+17*, START+21, EXIT+3! |
RAAU | START+19*, START+21, EXIT+3! |
RACMU | START+17*, START+18, EXIT+3!, CONTRAST~, CONTRAST+6, CONTRAST+7 |
RADIC | EN+1*, EN+3, KILL+1! |
RADIC("A" | EN+1* |
RADIC("S" | EN+2* |
RADIC(0 | EN+1* |
RADT | START+3*, EXIT+3!, HDR+2 |
RAHD | START+2*, EXIT+3!, HDR+2 |
RAI | EXIT+3!, CONTRAST+5~, CONTRAST+6*, CONTRAST+7 |
RAIEN | START+13*, START+14*, START+16, EXIT+3! |
RALINE | START+3*, EXIT+4!, HDR+4 |
RAPG | START+3*, EXIT+4!, HDR+1*, HDR+2 |
RAPNME | START+5*, START+6*, START+9, START+21, EXIT+4! |
RAQUIT | KILL+1! |
RAS | START+11*, START+12*, START+14, EXIT+4! |
RASTOP | ENDDT+12*, KILL+1!, START+12, HDR+2 |
RASTRT | STRTDT+10*, ENDDT+1, ENDDT+6, KILL+1!, START+11, HDR+2 |
RAUTIL | EN+2*, EN+3, KILL+1! |
RAX | START+18*, START+24, EXIT+4!, CONTRAST+5~*, CONTRAST+7*, CONTRAST+9 |
RAXIT | START+5*, START+6, START+7*, START+9, START+10*, START+12, START+14, START+20, START+22, EXIT+4! , EOS+1, EOS+3* |
RAY | START+8*, START+9*, START+12, START+14, START+16, EXIT+4! |
RAY(0 | START+16*, START+17, START+19, EXIT+2 |
U | ENDDT+1, ENDDT+6, START+11, START+12, START+17, START+19, HDR+2 |
X | KILL+1!, START+24*, EXIT+4! |
Y | STRTDT+10, ENDDT+12, KILL+2!, EXIT+4! |
Y(0 | STRTDT+10, ENDDT+12 |
Z | EXIT+4! |
>> ZTQUEUED | START+1 |
>> ZTREQ | START+1* |
ZTSAVE | ENDDT+15, KILL+2! |
ZTSAVE( | ENDDT+14* |
ZTSK | ENDDT+16, KILL+2! |
>> ZTSTOP | START+7*, START+10* |