SDCO0 ;ALB/RMO - Build List Area - Check Out;11 FEB 1993 10:00 am ; 6/22/05 12:56pm
Source file <SDCO0.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(SDARY,SDOE,SDSTART,SDTOT) | ;Entry point Called by Ck Out & Apt Mgr Exp Dis
|
|
| CL(SDARY,SDOE,SDSTART,SDTOT) | ;Build classification (Pg: 1 Row: SDSTART-SDSTART+7 Col: 1-80)
|
|
| PR(SDARY,SDOE,SDSTART,SDTOT) | ;Build Provider (Pg: 1 Row: SDSTART+8-END Col: 1-40)
|
|
| DX(SDARY,SDOE,SDSTART,SDTOT) | ;Build Diagnosis (Pg: 1 Row: SDSTART+8-END Col: 42-80)
|
|
| SC(SDARY,SDOEP,SDSTART,SDTOT) | ;Build Stop Codes (Pg: 2 Row: SDTOT+1 Col: 1-80)
|
|
| AE(SDARY,SDOE,SDLINE,SDTOT,SDONE) | ; -- add/edits
|
|
| AEQ | ||
| SET(SDARY,LINE,TEXT,COL,ON,OFF,SDSUB,SDCNT,SDATA,SDTOT) | ; -- set display array
|
|
| DXFTXT(DXTXT,DXARY) | ; -- formatted diagnosis text
|
| FileNo | Call Tags |
|---|---|
| ^AUPNVSIT - [#9000010] | GET1^DIQ |