©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
SCENIA0 ;ALB/SCK - DISPLAY INCOMPLETE ENCOUNTER ERRORS ; 09-MAY-1997
Source file <SCENIA0.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 4 | PID^VADPT6 (EN,REFRESH)^VALM ($$FDTTM,$$LOWER,$$SETSTR)^VALM1 CLEAN^VALM10 |
| Kernel | 1 | DISP^XQORM1 |
| Scheduling | 1 | $$OPENC^SCUTIE1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; -- main entry point for SCENI INCOMPLETE ENC DISPLAY
; Variables ; SDOE - Ptr to #409.68 ; SDCLN - Ptr to #44 ; SDFLG - Deleted encounter or not ; SCINF - Encounter information array |
|
| HDR | ; -- header code
|
|
| SET(X) | ; Sets formatted display string into TMP global
|
|
| INIT | ; -- init variables and list array
; Variables ; IW,IC,EC,EW,DC,DW,SC,SW - Col widths and positions ; SDECNT - Counter |
|
| EXIT | ; -- exit code
|
|
| BLD | ; Build display global for error entries in the error file
|
|
| BLD1(SDEPTR) | ; Build display line
; Input ; SDEPTR - Ptr to #409.75 |
|
| HELP | ; -- help code
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | HDR+2 |
| ^SC - [#44] | HDR+4 |
| ^SD(409.75 - [#409.75] | BLD+3, BLD+4, BLD1+15 |
| ^SD(409.76 - [#409.76] | BLD1+17, BLD1+18 |
| ^TMP("SCENI DFN" | EN+9!, EN+17*, EXIT+1! |
| ^TMP("SCENI ERR" | INIT+5!, INIT+15, SET+1*, SET+3*, SET+4*, EXIT+1! |
| ^TMP("SCENI XMT" | EN+9!, EN+18*, EXIT+1! |
| Name | Line Occurrences |
|---|---|
| BLD | INIT+14 |
| BLD1 | BLD+5 |
| SET | INIT+17, BLD1+25 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BL | INIT+8*, BLD1+20, BLD1+22, BLD1+23, BLD1+24, EXIT+2! |
| DC | INIT+12*, BLD1+24, EXIT+2! |
| >> DFN | EN+16*, EN+17, HDR+1* |
| DIE | EXIT+3! |
| DR | EXIT+3! |
| DW | INIT+12*, BLD1+24, EXIT+2! |
| EC | INIT+11*, BLD1+23, EXIT+2! |
| ERNODE | BLD1+17*, BLD1+21, BLD1+23, SET+3, EXIT+2! |
| ERNODE1 | BLD1+18*, BLD1+24, EXIT+2! |
| EW | INIT+11*, BLD1+23, EXIT+2! |
| >> FLG1 | EXIT+4 |
| IC | INIT+9*, BLD1+20, EXIT+2! |
| IW | INIT+9*, BLD1+20, EXIT+2! |
| RESULT | EXIT+3! |
| SC | INIT+10*, BLD1+22, EXIT+2! |
| SCCOR | EXIT+2! |
| SCEPTR | EXIT+3! |
| SCINF | EN+14!, EXIT+2! |
| SCINF("CLINIC" | HDR+4 |
| SCINF("DFN" | EN+16, HDR+1, HDR+2 |
| SCINF("ENCOUNTER" | HDR+5 |
| SCINF("ERROR" | EN+14 |
| SCTEXT | EXIT+2! |
| SDECNT | INIT+16*, BLD+2*, BLD1+12*, BLD1+20, SET+2, SET+3, SET+4, EXIT+2! |
| SDEPTR | BLD+2*, BLD+3*, BLD+4, BLD+5, BLD1~, BLD1+15, SET+3, SET+4, EXIT+2! |
| SDERR | BLD1+15*, BLD1+16, BLD1+17, BLD1+18, EXIT+2! |
| SDFLG | EN+10!, EN+13*, EN+14, HDR+5, EXIT+2! |
| SDN1 | EXIT+3! |
| SDN2 | EXIT+3! |
| SDOK | EXIT+3! |
| SDSRC | BLD1+10~, BLD1+21*, BLD1+22 |
| SDX | BLD1+12*, BLD1+20*, BLD1+22*, BLD1+23*, BLD1+24*, BLD1+25, EXIT+2! |
| >> SDXPTR | EN+12, EN+13, EN+18, BLD+3 |
| SINDX | EXIT+3! |
| STATUS | EXIT+3! |
| SW | INIT+10*, BLD1+22, EXIT+2! |
| U | HDR+2, HDR+4, INIT+9, INIT+10, INIT+11, INIT+12, BLD1+15, BLD1+21, BLD1+23, SET+3 |
| VA | EN+10!, EXIT+1! |
| VA("BID" | HDR+1, HDR+3 |
| >> VALMBCK | EN+8*, EN+21*, EXIT+4* |
| VALMCNT | EN+7~, INIT+16*, BLD+2*, SET+1*, SET+3 |
| >> VALMDDF("DESCRIPTION" | INIT+12 |
| >> VALMDDF("ERROR" | INIT+11 |
| >> VALMDDF("INDEX" | INIT+9 |
| >> VALMDDF("SOURCE" | INIT+10 |
| >> VALMHDR(1 | HDR+2*, HDR+3* |
| >> VALMHDR(2 | HDR+4*, HDR+5* |
| >> VALMWD | BLD1+12, BLD1+20, BLD1+22, BLD1+23, BLD1+24 |
| X | INIT+9*, INIT+10*, INIT+11*, INIT+12*, SET~, SET+1, HELP+1* |