©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
A1B2UTL ;ALB/MJK - ODS Utility Routine;
Source file <A1B2UTL.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ON | ;is the ODS software turned on?
; input: none ; output: A1B2ODS := 0 for off and 1 for on |
|
| ADDQ | ||
| GET | ; -- get fac data
|
|
| ADD | ; -- add an entry to a file
; input: A1B2FL := file number ; A1B2DT := date/time for .01 ; DFN := pt ifn |
|
| NTL | ; -- get fac # and name for nationally sign input user (IHS)
; input: DUZ, DUZ(2) ; output: A1B2FN := fac # ; A1B2FNME := fac name ; A1B2VRG := vhs&ra region # ; |
|
| FAC | ; -- find inst and get fac # and name
|
|
| KVAR | ; -- kill vars set in NTL call
|
|
| DIS | ; -- screen set
|