SCDXUAPI ;ALB/MLI - Utility API to add OOS clinic locations ; 10/8/96
Source file <SCDXUAPI.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RAD(IEN,PKG) | ; radiology call
|
|
| RADQ | ||
| LOC(NAME,INST,STOP,PKG,IEN,INACT) | ; add/edit location for ancillary app
|
|
| LOCQ | ||
| ERRCHK(SC,RAD) | ; check input variables for consistency
|
|
| ERRCHKQ | ||
| NONCOUNT(IEN) | ; convert location to non-count
|
|
| UPD(IEN,PKG) | ; update existing entry
|
|
| NEW(IEN,PKG) | ; create new entry given parameters from existing entry
|
|
| VAR(IEN,SC) | ; set up variables for ADD and EDIT calls based on existing entry
|
|
| VARQ | ||
| PKGIEN(PKG) | ; get IEN of package file entry
|
|
| PKGIENQ | ||
| DIV(INST) | ; return division associated with institution
|
|
| CHK(IEN) | ; check to see if patterns exist for IEN
|
|
| CHKQ | ||
| ADD(SCNAME,SCPKG) | ; add new entry
|
|
| EDIT(SCIEN,SCNAME,SCINST,SCSTOP,SCPKG,SCINACT) | ; update fields
|
|
| ERR(NUMBER) | ; return error message corresponding to the number passed in
|
|
| ERRORS | ; list of error messages
|
|
| SCREEN(PKG) | ; screen to only allow OOS locations for specified package
|
|
| EXEMPT() | ; screen on clinic stop file to select only OOS stops
|
|
| PKGNM(SCPKG) | ; Return Name of Package
; Input: SCPKG - Pointer to Package File (9.4) ; Returned: Name of Package or 'Bad or Missing Pointer' |
| FileNo | Call Tags |
|---|---|
| ^SC - [#44] | Classic Fileman Calls |
| ^DIC(9.4 - [#9.4] | GETS^DIQ |
