RA45PST2 ;Hines OI/GJC - Post-init 'B', patch 45 ;10/10/03 06:32
Source file <RA45PST2.m>
Package | Total | Call Graph |
---|---|---|
Radiology Nuclear Medicine | 2 | MAILQ2^RA45PST PROC^RAO7MFN |
CPT HCPCS Codes | 1 | $$CPT^ICPTCOD |
Kernel | 1 | $$S^%ZTLOAD |
VA FileMan | 1 | UPDATE^DIE |
Name | Comments | DBIA/ICR reference |
---|---|---|
VERSION | ;;5.0;Radiology/Nuclear Medicine;**45**;Mar 16, 1998
|
|
ENQ2 | ;The second process must be tasked off that will identify all the
|
|
KILLQ2 | ;kill & quit
|
|
FILECM(RAIEN,RACM,RAI) | ;Files contrast medium into the CONTRAST MEDIA (#125)
|
|
SETMP(SUB,NME,CPT,CMU,MSG,FMT) | ;set the ^TMP("RA PROC UPDATE 45",$J) global
|
|
STOP | ;inform the user that the task has been stopped
|
|
SUB() | ;return the next available subscript (arithmetic progression)
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ORD(101.43 - [#101.43] | ENQ2+21, ENQ2+22, ENQ2+23, ENQ2+26 |
^RAMIS(71 - [#71] | ENQ2+30, ENQ2+33, ENQ2+36, ENQ2+59, ENQ2+60, ENQ2+61, ENQ2+66, ENQ2+71, ENQ2+80, FILECM+10 , FILECM+11 |
^TMP("RA PROC UPDATE 45" | ENQ2+48, ENQ2+58!, ENQ2+88, KILLQ2+2!, SETMP+15*, STOP+1*, SUB+1 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CMU | SETMP~, SETMP+9 |
CPT | SETMP~, SETMP+11, SETMP+12 |
DT | ENQ2+61 |
FMT | SETMP~, SETMP+11, SETMP+12, SETMP+13, SETMP+14 |
I | ENQ2+65*, ENQ2+66*, ENQ2+70!, SETMP+8~, SETMP+9* |
MSG | SETMP~, SETMP+10 |
NME | SETMP~, SETMP+10 |
RACM | ENQ2+65*, ENQ2+66*, ENQ2+72, ENQ2+81, KILLQ2+1!, FILECM~, FILECM+10, FILECM+13 |
RACPT | ENQ2+38*, ENQ2+39, KILLQ2+1! |
RACPTB | ENQ2+63*, ENQ2+72, ENQ2+81, KILLQ2+1! |
RACT | ENQ2+20*, ENQ2+37*, ENQ2+58*, ENQ2+70*, KILLQ2+1! |
RAD1 | FILECM+11*, FILECM+13, FILECM+14! |
RAFDA | FILECM+11!, FILECM+14! |
RAFDA( | FILECM+13* |
RAFDA(71 | FILECM+12* |
RAI | ENQ2+32*, KILLQ2+1!, FILECM~, FILECM+12 |
RAIEN | FILECM~, FILECM+10, FILECM+11, FILECM+12, FILECM+13 |
RAMIS | KILLQ2+1! |
RAMIS(0 | ENQ2+36*, ENQ2+38, ENQ2+60*, ENQ2+62, ENQ2+63 |
RAOI | ENQ2+26*, ENQ2+31, KILLQ2+1! |
RAOI(2 | ENQ2+26*, ENQ2+27, ENQ2+30, ENQ2+31, ENQ2+32, ENQ2+33, ENQ2+36, ENQ2+39 |
RAOICM | ENQ2+23*, ENQ2+31, ENQ2+32, ENQ2+39, KILLQ2+1! |
RAOIPT | ENQ2+24*, KILLQ2+1! |
RAOIRA | ENQ2+23*, ENQ2+24, KILLQ2+1! |
RAPNAME | ENQ2+36*, ENQ2+39, ENQ2+60*, ENQ2+63*, ENQ2+72, ENQ2+73, ENQ2+81, KILLQ2+1! |
RAPTY | ENQ2+62*, ENQ2+63, KILLQ2+2! |
RASTAT | ENQ2+61*, ENQ2+73, KILLQ2+2! |
RAX | ENQ2+20*, ENQ2+21*, ENQ2+22, KILLQ2+2!, SETMP+8~*, SETMP+9*, SETMP+13, SETMP+14 |
RAY | ENQ2+22*, ENQ2+23, ENQ2+26, ENQ2+58*, ENQ2+59*, ENQ2+60, ENQ2+61, ENQ2+66, ENQ2+71, ENQ2+72 , ENQ2+73, ENQ2+80, ENQ2+81, KILLQ2+2!, SETMP+8~*, SETMP+10*, SETMP+11*, SETMP+12*, SETMP+13*, SETMP+14* , SETMP+15 |
SUB | SETMP~, SETMP+15 |
U | ENQ2+23, ENQ2+24, ENQ2+26, ENQ2+31, ENQ2+36, ENQ2+38, ENQ2+60, ENQ2+62, ENQ2+63 |
>> ZTQUEUED | ENQ2+20 |
>> ZTREQ | ENQ2+20* |
ZTSTOP | ENQ2+20*, ENQ2+21, ENQ2+37*, ENQ2+44, ENQ2+51, ENQ2+59, ENQ2+70*, ENQ2+71, ENQ2+85, KILLQ2+2! |