©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
SRSCOR ;B'HAM ISC/SJA - Surgery/CoreFLS API ; [ 12/6/01 8:59 AM ]
Source file <SRSCOR.m>
| Package | Total | Call Graph |
|---|---|---|
| DRG Grouper | 2 | $$CPT^ICPTCOD $$MOD^ICPTMOD |
| Surgery | 2 | ^SROP1 $$SITE^SROUTL0 |
| Uncategorized | 2 | $$BLDSEG^CSLSUR1 $$GETICN^MPIF001 |
| VA Fileman | 2 | NOW^%DTC $$GET1^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| AR1 | ; Schedule ID
|
|
| AR2 | ; Patient ID (DFN) and ICN
|
|
| AR3 | ; Type of Action
|
|
| AR4 | ; Date/Time of Surgery
|
|
| AR5 | ; Principle CPT code & Name
|
|
| AR6 | ; Surgeon ID & Name
|
|
| AR7 | ; Surgical Specialty Code & Name
|
|
| AR8 | ; Local Surgical Specialty Code & Name
|
|
| AR9 | ; Operating Room
|
|
| SEND | ; Call CoreFLS API
|
|
| AR12 | ; Scheduled by
|
|
| AR13 | ; Entered by
|
|
| AR10 | ; SPD Comments
|
|
| AR11 | ; Hospital
|
|
| AR16 | ; Attending Surgeon
|
|
| CHKS(SRDA) | ; Calculate checksum of SPD COMMENTS field
|
|
| AR14 | ; IN/OUT-PATIENT STATUS
|
|
| AR15 | ; Time Stamp
|
|
| EXIT | ||
| ST(SRTN) |
| FileNo | Call Tags |
|---|---|
| ^DIC(4 - [#4] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("TEST" | ST, AR2+1 |
| ^DIC(45.3 - [#45.3] | AR7+3 |
| ^SC - [#44] | AR9+1 |
| ^SRF - [#130] | ST+3, AR5+1, AR5+2, AR5+5, AR5+6, AR5+9, AR5+10, AR5+13, AR6+1, AR10+1 , AR12+1, AR16+1, SEND+2*, SEND+3*, CHKS+2 |
| ^SRO(133 - [#133] | AR11+1 |
| ^SRO(137.45 - [#137.45] | AR7+1 |
| ^SRS - [#131.7] | AR9+1 |
| ^TMP("CSLSUR1" | ST+2!, AR1+1*, AR2+2*, AR3+1*, AR4+1*, AR5+1*, AR5+2*, AR5+6*, AR5+10*, AR5+13* , AR6+2*, AR7+3*, AR8+1*, AR9+2*, AR10+2*, AR11+2*, AR12+2*, AR13+1*, AR14+1*, AR15+1* , AR16+2*, EXIT! |
| ^VA(200 - [#200] | AR6+2, AR12+2, AR13+1, AR16+2 |
| Name | Line Occurrences |
|---|---|
| EXIT | ST |
| Name | Field # of Occurrence |
|---|---|
| ^( | AR5+5, AR5+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | AR15+1 |
| ASURG | ST+1~, AR16+1*, AR16+2 |
| DUZ | AR13+1 |
| DYNOTE | ST+1~, SEND+1*, SEND+2 |
| II | ST+1~, AR5+9*, AR5+13 |
| J | CHKS+1~, CHKS+2* |
| JJ | ST+1~, AR5+9*, AR5+10*, AR5+13, AR9+1*, AR9+2 |
| L | ST+1~, AR10+1*, AR10+2, CHKS+1~, CHKS+2* |
| LSS | ST+1~, AR7+1*, AR7+2, AR8+1 |
| LSSC | ST+1~, AR7+1*, AR8+1 |
| LSSN | ST+1~, AR7+1*, AR8+1 |
| MM | ST+1~, AR5+13* |
| NSSIEN | ST+1~, AR7+2*, AR7+3 |
| OCIEN | ST+1~, AR5+9*, AR5+10 |
| OCPT | ST+1~, AR5+10* |
| OMIEN | ST+1~, AR5+13* |
| OR | ST+1~, AR9+1* |
| ORN | ST+1~, AR9+1*, AR9+2 |
| PM | ST+1~, AR5+5*, AR5+6 |
| PMIEN | ST+1~, AR5+5*, AR5+6 |
| SPF | ST+1~, AR11+1*, AR11+2 |
| SRCSUM | CHKS+1~*, CHKS+2*, CHKS+3 |
| SRDA | CHKS~, CHKS+2 |
| SRICN | ST+1~, AR2+1*, AR2+2 |
| SRICPT | ST+1~, AR5+2* |
| SRNODE0 | ST+1~, ST+3*, AR2+1, AR2+2, AR4+1, AR7+1, AR9+1, AR14+1 |
| SRNODE30 | ST+1~, ST+3* |
| SRNODE31 | ST+1~, ST+3*, AR4+1, SEND+2 |
| SROP | ST+1~, AR5+1*, AR5+2, SEND+3* |
| SROPER | ST+1~, SEND+3* |
| SRSP | ST+1~, AR12+1*, AR12+2 |
| SRTN | ST~, ST+3, AR1+1, AR5+1, AR5+2, AR5+5, AR5+6, AR5+9, AR5+10, AR5+13 , AR6+1, AR10+1, AR11+1, AR12+1, AR16+1, SEND+2, SEND+3 |
| >> SRTYPE | AR3+1 |
| SURGN | ST+1~, AR6+1*, AR6+2 |
| X | ST*, AR2+1*, AR10+1*, AR10+2, CHKS+1~, CHKS+2* |