©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
SRONP2 ;BIR/ADM - PROCEDURE REPORT (NON-OR) ;07/26/04 9:45 AM
Source file <SRONP2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ANE | ; print anesthesia technique
|
|
| RS | ; attending code
|
|
| DIAG | ||
| LINE(NUM) | ; create carriage returns
|
|
| AGENT | ; print agents
|
|
| SPACE(NUM) | ; create spaces
; pass in position returns number of needed spaces |
|
| TECH | ||
| N(SRL) | ||
| COMM(X,NUM) | ; output word-processing text
; X = line of text to be processed ; NUM = left margin |
|
| OPTOP(SRTN) | ; send op-top to ^TMP
; SRTN - case number in file 130 |
| FileNo | Call Tags |
|---|---|
| ^SRF - [#130] | GET1^DID |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD(130 | OPTOP+8, OPTOP+16, OPTOP+19, OPTOP+21, OPTOP+24, RS+2, RS+3 |
| ^DD(130.06 | ANE+2 |
| ^DD(130.47 | AGENT+5 |
| ^ICD9 - [#80] | DIAG+1 |
| ^SC - [#44] | OPTOP+9 |
| ^SRF - [#130] | OPTOP+6, OPTOP+7, OPTOP+11, OPTOP+15, OPTOP+26, OPTOP+27, OPTOP+28, DIAG, ANE+2, AGENT+2 , AGENT+3, AGENT+4 |
| ^SRO(132.95 - [#132.95] | OPTOP+22 |
| ^TMP("SRNOR" | OPTOP+4 |
| Name | Line Occurrences |
|---|---|
| $$SPACE | OPTOP+10, OPTOP+18, DIAG+1, ANE+2, AGENT+6, COMM+4, COMM+7 |
| AGENT | ANE+2 |
| ANE | OPTOP+27 |
| DIAG | OPTOP+15 |
| LINE | OPTOP+6, OPTOP+10, OPTOP+11, OPTOP+13, OPTOP+16, OPTOP+19, OPTOP+20, OPTOP+21, OPTOP+23, OPTOP+24 , OPTOP+25, OPTOP+28, DIAG, ANE+2, AGENT+2, AGENT+6, COMM+4, COMM+7 |
| N | OPTOP+19 |
| RS | OPTOP+20 |
| TECH | OPTOP+28 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | ANE+1~, ANE+2*, AGENT+1 |
| AGNT | ANE+1~, AGENT+3*, AGENT+4 |
| ANE | OPTOP+3~, OPTOP+27*, ANE+2, AGENT+2, AGENT+3, AGENT+4 |
| C | OPTOP+8*, OPTOP+16*, OPTOP+19*, OPTOP+21*, OPTOP+24*, ANE+1~, ANE+2*, AGENT+5*, RS+2*, RS+3* |
| CNT | OPTOP+15~*, DIAG, ANE+1~, AGENT+3*, AGENT+6 |
| DFN | OPTOP+3~ |
| I | COMM+3~, COMM+6*, COMM+7* |
| ICD | OPTOP+3~, DIAG*, DIAG+1* |
| J | OPTOP+3~, COMM+3~, COMM+6*, LINE+1* |
| K | COMM+3~, COMM+5*, COMM+6*, COMM+7 |
| NUM | OPTOP+3~, COMM~, COMM+3, COMM+4, COMM+7, SPACE~, SPACE+3, LINE~, LINE+1 |
| OTH | OPTOP+15~*, DIAG |
| SR | OPTOP+3~ |
| SR( | OPTOP+7*, OPTOP+21, OPTOP+22, OPTOP+24, RS+2, RS+3 |
| SR("NON" | OPTOP+8, OPTOP+9, OPTOP+16, OPTOP+19 |
| SR(0 | OPTOP+17 |
| SRATT | OPTOP+3~, OPTOP+20*, RS+2*, RS+3* |
| SRCASE | OPTOP+3~, OPTOP+4* |
| SRDIV | OPTOP+3~, OPTOP+5* |
| SRDOSE | AGENT+1~, AGENT+4*, AGENT+7 |
| >> SRG | OPTOP+4*, OPTOP+6, OPTOP+10, OPTOP+11, OPTOP+12, OPTOP+13, OPTOP+14, OPTOP+16, OPTOP+18, OPTOP+19 , OPTOP+20, OPTOP+21, OPTOP+23, OPTOP+24, OPTOP+25, OPTOP+26, OPTOP+28, DIAG, DIAG+1, ANE+2 , AGENT+2, AGENT+6, AGENT+7, COMM+4, COMM+7, SPACE+2, SPACE+3, LINE+1 |
| SRI | OPTOP+3~, OPTOP+5*, OPTOP+6, OPTOP+10, OPTOP+11, OPTOP+12, OPTOP+13, OPTOP+14, OPTOP+16, OPTOP+18 , OPTOP+19, OPTOP+20, OPTOP+21, OPTOP+23, OPTOP+24, OPTOP+25, OPTOP+26, OPTOP+28, DIAG, DIAG+1 , ANE+2, AGENT+2, AGENT+6, AGENT+7, COMM+4, COMM+7, SPACE+2, SPACE+3, LINE+1* |
| SRL | OPTOP+3~, OPTOP+9*, N~, COMM+3~*, COMM+4, COMM+5, COMM+6 |
| SRLINE | OPTOP+3~ |
| SRLOC | OPTOP+3~, OPTOP+9*, OPTOP+10 |
| SRN | OPTOP+3~, OPTOP+7* |
| SRNM | N~* |
| SROPTOP | OPTOP+3~ |
| SRSPEC | OPTOP+3~, OPTOP+8*, OPTOP+10 |
| SRSTATUS | OPTOP+3~, OPTOP+17*, OPTOP+18 |
| SRT | TECH~ |
| SRTECH | OPTOP+3~, OPTOP+28 |
| SRTN | OPTOP~, OPTOP+4, OPTOP+5, OPTOP+6, OPTOP+7, OPTOP+11, OPTOP+15, OPTOP+26, OPTOP+27, OPTOP+28 , DIAG, ANE+2, AGENT+2, AGENT+3, AGENT+4 |
| SRY | AGENT+1~, AGENT+4*, AGENT+5 |
| SRZ | TECH~ |
| X | OPTOP+3~, OPTOP+11*, OPTOP+12, OPTOP+13, OPTOP+17*, OPTOP+22*, OPTOP+23, OPTOP+28*, DIAG*, COMM~ , COMM+4, COMM+5, COMM+6* |
| X( | COMM+5*, COMM+6*, COMM+7 |
| Y | OPTOP+3~, OPTOP+8*, OPTOP+16*, OPTOP+19*, OPTOP+21*, OPTOP+24*, N*, ANE+2*, AGENT+5*, AGENT+6 , RS+2*, RS+3*, COMM+3~, COMM+6* |