SROGMTS ;BIR/ADM - SURGERY HEALTH SUMMARY ; [ 08/08/01 7:12 AM ]
Source file <SROGMTS.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 |
Name | Comments | DBIA/ICR reference |
---|---|---|
HS(X) | ; return case information for a surical or non-OR case
; X - case number (IEN) in file 130 |
|
ED(X) | ; external date
|
|
EDT(X) | ; external date and time
|
|
WP(X,Y,Z) | ;
|
|
OS(X) | ; Obtains status for OR procedures
|
|
SUB | ;
|
|
SG(X) | ; Surgical (Operative) Record
|
|
CPT(SRM,SRDOO,SRFIL,SRFLD) | ;Set CPT code into REC array
|
|
MOD(SRM,SRFIL,SUB) | ;Set CPT Modifier into REC array
|
|
SPD | ;Obtain Surgery Procedure/Diagnosis Code File entry
|
Name | Field # of Occurrence |
---|---|
$$GET1^DIQ | SG+1 |
EN^DIQ1 | HS+11, SUB+10, SUB+19, SUB+29, SUB+39, SUB+58, SPD+3, SPD+10, SPD+15 |
^DIWP | WP+9 |
$$CPT^ICPTCOD | SUB+40, SUB+42, CPT+1 |
$$MOD^ICPTMOD | SUB+61, MOD+1 |
$$ED^SROGMTS0 | HS+22 |
$$EDT^SROGMTS0 | HS+23, HS+24 |
$$EN2^SROGMTS0 | HS+14, HS+15, HS+16, HS+17, HS+18, SUB+11, SUB+20, SUB+42, SUB+45, SUB+46 , SUB+67, CPT+1, CPT+3, MOD+6 |
DICT^SROGMTS0 | HS+13 |
$$FMTE^XLFDT | ED+2, EDT+2 |
$$HTFM^XLFDT | HS+6 |
FileNo | Call Tags |
---|---|
^SRF - [#130] | GET1^DIQ |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | HS+2~, HS+7*, SUB+1~, SUB+7*, SUB+16*, SUB+26*, SUB+36*, SUB+57~*, SPD+1*, SPD+12~* |
DA( | SUB+9*, SUB+18*, SUB+28*, SUB+38*, SUB+57*, SPD+9*, SPD+14* |
DIC | HS+2~, HS+7*, SUB+1~, SUB+7*, SUB+16*, SUB+26*, SUB+36*, SUB+57~*, SPD+1* |
DIQ | HS+2~, HS+7*, SUB+1~, SUB+7*, SUB+16*, SUB+26*, SUB+36*, SUB+57~*, SPD+1*, SPD+7* |
DIQ(0 | HS+7*, SUB+7*, SUB+16*, SUB+26*, SUB+36*, SUB+57*, SPD+1* |
DIWF | WP+1~, WP+6* |
DIWL | WP+1~, WP+6* |
DIWR | WP+1~, WP+6* |
DR | HS+2~, HS+9*, HS+10*, SUB+1~, SUB+7*, SUB+16*, SUB+26*, SUB+36*, SUB+57~*, SPD+2* , SPD+7*, SPD+8, SPD+12*, SPD+13 |
DR( | SUB+7*, SUB+16*, SUB+26*, SUB+36*, SUB+57*, SPD+7*, SPD+12* |
DT | HS+6* |
DTIME | HS+6* |
FILE | HS+2~, HS+7*, SUB+1~, SUB+7*, SUB+16*, SUB+26*, SUB+30, SUB+36*, SUB+57~*, SPD+1* , SPD+4, SPD+5, SPD+6, SPD+8, SPD+11, SPD+13, SPD+16, SPD+17 |
FLD | HS+2~, SUB+1~ |
FLDA | HS+3~, SUB+1~ |
FLDB | HS+3~, SUB+1~ |
FLDI | HS+2~, SUB+1~ |
FLDR | HS+3~, SUB+1~ |
FLDRT | HS+3~, SUB+1~ |
FLDS | HS+2~, SUB+1~ |
IEN | HS+2~, HS+3~, HS+5*, HS+8, HS+11, HS+12, HS+14, HS+15, HS+16, HS+17 , HS+18, HS+19, HS+20, HS+21, HS+22, HS+23, HS+24, HS+25, HS+26, SUB+7 , SUB+8, SUB+11, SUB+16, SUB+17, SUB+20, SUB+26, SUB+27, SUB+30, SUB+36, SUB+37 , SUB+39, SUB+40, SUB+41, SUB+42, SUB+43, SUB+45, SUB+48, SUB+49, SUB+50, SUB+56 , SUB+57, SUB+59, SUB+61, SUB+64, SUB+65, SUB+66, SUB+68, SUB+69, CPT+2, CPT+3 , CPT+6, CPT+7, CPT+8, CPT+9, MOD+1, MOD+4, MOD+5, MOD+8, SPD+1, SPD+4 , SPD+5, SPD+6, SPD+7, SPD+8, SPD+11, SPD+12, SPD+13, SPD+16, SPD+17 |
IENS | HS+2~, HS+5*, SUB+1~ |
REC | HS+2! |
REC( | SUB+8!, SUB+17!, SUB+27!, SUB+37!, CPT+2*, CPT+6*, CPT+8*, CPT+9*, MOD+4*, MOD+5* , MOD+8*, SPD+4, SPD+5, SPD+8!, SPD+11, SPD+13!, SPD+16, SPD+17 |
REC(130 | HS+8*, HS+11*, HS+12, HS+14*, HS+15*, HS+16*, HS+17*, HS+18*, HS+19, HS+20* , HS+21*, HS+22*, HS+23*, HS+24*, HS+25*, HS+26, WP+2, WP+3, WP+5, WP+7 , WP+8, WP+11*, WP+12*, OS+1, OS+2, OS+3, OS+5, OS+6, OS+7, OS+8 , OS+9, OS+10, SUB+11*, SUB+20*, SUB+30, SUB+39, SUB+40*, SUB+41, SUB+43*, SUB+45 , SUB+48*, SUB+49*, SUB+50*, SUB+59, SUB+64*, SUB+65*, SUB+66*, SUB+68*, SUB+69!, CPT+3 , CPT+7*, SPD+16*, SPD+17!* |
SCOD | SUB+1~ |
SNAM | SUB+1~ |
SRC | HS+3~, SUB+1~, SUB+41~, SUB+42*, SUB+43, SUB+44*, SUB+47, SUB+62*, SUB+64, SUB+66 , SUB+67, CPT+1*, CPT+2, CPT+3*, CPT+5, MOD+2*, MOD+4, MOD+7 |
SRCPTM | HS+2~, HS+4*, SUB+25, SUB+55 |
SRCS | HS+3~, SUB+42*, SUB+47*, SUB+50, CPT+1*, CPT+5*, CPT+9 |
SRDOO | CPT~, CPT+1 |
SRF | WP+1~, WP+3*, WP+5, WP+7, WP+8, WP+11, WP+12 |
SRFIL | CPT~, CPT+2, CPT+6, CPT+7, CPT+8, CPT+9, MOD~, MOD+4, MOD+5, MOD+8 |
SRFLD | CPT~, CPT+2, CPT+6, CPT+8, CPT+9 |
SRGI | WP+1~, WP+6*, WP+7*, WP+8, WP+10*, WP+11 |
SRI | HS+3~, WP+1~, WP+2*, WP+3, WP+5, WP+7, WP+8, WP+11, WP+12, SUB+1~ , SUB+8*, SUB+9, SUB+11, SUB+17*, SUB+18, SUB+20, SUB+27*, SUB+28, SUB+30, SUB+37* , SUB+38, SUB+39, SUB+40, SUB+41, SUB+43, SUB+45, SUB+48, SUB+49, SUB+50, SUB+56 , SUB+57, SUB+59, SUB+64, SUB+65, SUB+66, SUB+68, SUB+69, MOD+4, MOD+5, MOD+8 , SPD+8*, SPD+9, SPD+11, SPD+13*, SPD+14 |
SRJ | SUB+1~, SUB+56~*, SUB+57, SUB+59, SUB+64, SUB+65, SUB+66, SUB+68 |
SRM | HS+12*, SUB+1~, SUB+30*, SUB+39*, SUB+40, SUB+41*, SUB+42, SUB+59*, SUB+60, SUB+61 , CPT~, CPT+1, MOD~, MOD+1, SPD+5*, SPD+6, SPD+11* |
>> SRMOD | MOD+1*, MOD+2, MOD+3 |
SRMOD1 | SUB+60~, SUB+61*, SUB+62, SUB+63 |
SRN | OS+1~*, OS+2, OS+3, OS+5, OS+6, OS+7, OS+8, OS+9, OS+10 |
SRRT | HS+3~ |
SRS | HS+3~, SUB+41~, SUB+42*, SUB+46, SUB+48, SUB+63*, SUB+65, SUB+66, SUB+67, CPT+1* , CPT+4, CPT+6, MOD+3*, MOD+5, MOD+6 |
SRSG | HS+2~, HS+8*, HS+9, HS+10, HS+11, HS+25, HS+26, SUB+2 |
SRT | HS+3~, SUB+41~, SUB+45*, SUB+46*, SUB+47*, SUB+49, SUB+67*, SUB+68, CPT+3*, CPT+4* , CPT+5*, CPT+7, CPT+8, MOD+6*, MOD+7*, MOD+8 |
SRW | WP+1~, WP+4*, WP+6 |
STXT | SUB+1~ |
SUB | SUB+1~, SUB+7*, SUB+8, SUB+9, SUB+16*, SUB+17, SUB+18, SUB+26*, SUB+27, SUB+28 , SUB+30, SUB+36*, SUB+37, SUB+38, SUB+57~*, SUB+64, SUB+65, SUB+66, SUB+68, MOD~ , MOD+4, MOD+5, MOD+8, SPD+7*, SPD+8, SPD+9, SPD+11, SPD+12*, SPD+13, SPD+14 |
U | HS+5* |
X | HS~, HS+5*, HS+7, ED~, ED+1*, ED+2*, ED+3, EDT~, EDT+1*, EDT+2* , EDT+3, WP~, WP+2, WP+8*, OS~, OS+1*, OS+2*, OS+3*, OS+4*, OS+5 , OS+6*, OS+7*, OS+8*, OS+9*, OS+10*, OS+11*, OS+12, SG~, SG+1* |
Y | WP~, WP+3 |
Z | WP~, WP+4 |