©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
RA45PST1 ;Hines OI/GJC - Post-init 'A', patch 45 ;10/10/03 06:32
Source file <RA45PST1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SUB() | ;return the next available subscript (arithmetic progression)
|
|
| ENQ1 | ;Need to convert the data in the old 'BARIUM USED?' (#5) field in
|
|
| TRACK | ;track the record that could not be locked for updating
|
|
| STOP | ;inform the user that the task has been stopped
|
|
| VERSION | ;;5.0;Radiology/Nuclear Medicine;**45**;Mar 16, 1998
|
|
| KILLQ1 | ;Kill and clean up symbol table
|
|
| ;generate the email message informing the user of the following events:
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^RAMIS(71 - [#71] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^RADPT - [#70] | ENQ1+14, ENQ1+16, ENQ1+18, ENQ1+19, ENQ1+26, ENQ1+28, ENQ1+36, TRACK+6 |
| ^TMP("RA*5*45 BARIUM USED" | ENQ1+12!, ENQ1+53, KILLQ1+2!, MAIL+4*, MAIL+5*, MAIL+6*, MAIL+7*, MAIL+8*, MAIL+9*, STOP+1* , TRACK+7*, SUB+1 |
| Name | Line Occurrences |
|---|---|
| $$SUB | STOP+1, TRACK+7 |
| ENQ1+53 | |
| STOP | ENQ1+48 |
| TRACK | ENQ1+27 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | KILLQ1+1! |
| DA | ENQ1+45!*, KILLQ1+1! |
| DA(1 | ENQ1+45* |
| DIC | KILLQ1+1! |
| DIK | ENQ1+45!*, KILLQ1+1! |
| DUZ | MAIL+14 |
| RACNI | ENQ1+17*, ENQ1+18*, ENQ1+19, ENQ1+26, ENQ1+28, ENQ1+29, ENQ1+32, ENQ1+36, KILLQ1+1!, TRACK+6 |
| >> RACT | ENQ1+13*, ENQ1+19*, ENQ1+20 |
| RAD3 | ENQ1+28*, ENQ1+29, ENQ1+31! |
| RADFN | ENQ1+13*, ENQ1+14*, ENQ1+16, ENQ1+18, ENQ1+19, ENQ1+26, ENQ1+28, ENQ1+29, ENQ1+32, ENQ1+36 , KILLQ1+1!, TRACK+6, TRACK+7 |
| RADTI | ENQ1+15*, ENQ1+16*, ENQ1+18, ENQ1+19, ENQ1+26, ENQ1+28, ENQ1+29, ENQ1+32, ENQ1+36, KILLQ1+1! , TRACK+6, TRACK+7 |
| RAEXAM | TRACK+6~*, TRACK+7 |
| RAFDA | ENQ1+31!, ENQ1+35! |
| RAFDA( | ENQ1+30*, ENQ1+33*, ENQ1+34* |
| RAIEN | ENQ1+29*, ENQ1+30, ENQ1+31!, ENQ1+32*, ENQ1+33, ENQ1+34, ENQ1+35!, KILLQ1+1! |
| U | TRACK+7 |
| X | KILLQ1+1! |
| XMDUZ | MAIL+10~* |
| XMSUB | MAIL+10~, MAIL+12* |
| XMTEXT | MAIL+10~, MAIL+11* |
| XMY | MAIL+10~ |
| XMY( | MAIL+14* |
| XMY("G.RAD PE | RFORMANCE INDICATOR" , MAIL+15* |
| Y | ENQ1+19*, ENQ1+24, KILLQ1+1! |
| >> ZTQUEUED | ENQ1+13 |
| >> ZTREQ | ENQ1+13* |
| >> ZTSTOP | ENQ1+13*, ENQ1+14, ENQ1+16, ENQ1+18, ENQ1+20*, ENQ1+45, ENQ1+48 |