SCDXUAPI ;ALB/MLI - Utility API to add OOS clinic locations ; 10/8/96
Source file <SCDXUAPI.m>
Package | Total | Call Graph |
---|---|---|
VA FileMan | 3 | FILE^DICN ^DIE GETS^DIQ |
Scheduling | 1 | $$EX^SDCOU2 |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Radiology Nuclear Medicine | 2 | RAACIPST RASYS1 |
Event Capture | 1 | ECEFPAT |
Lab Service | 1 | LRCAPPH2 |
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 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DG(40.8 - [#40.8] | VAR+12, DIV+1 |
^DIC(4 - [#4] | ERRCHK+11 |
^DIC(40.7 - [#40.7] | LOC+27, ERRCHK+21 |
^DIC(9.4 - [#9.4] | PKGIEN+9, PKGIEN+10 |
^SC - [#44] | LOC+30, ERRCHK+9, ERRCHK+13, ERRCHK+15, VAR+8, CHK+7, CHK+8, CHK+9, CHK+10 |
Name | Line Occurrences |
---|---|
$$ADD | LOC+35, NEW+8 |
$$CHK | RAD+22 |
$$ERR | LOC+27, LOC+32, LOC+34, LOC+35, ERRCHK+10, ERRCHK+12, ERRCHK+14, ERRCHK+16, ERRCHK+17, ERRCHK+22 , ERRCHK+23 |
$$ERRCHK | RAD+20, LOC+25 |
$$NEW | RAD+26 |
$$PKGIEN | RAD+18, LOC+23, SCREEN+1 |
CHKQ | CHK+7, CHK+8, CHK+9 |
EDIT | LOC+31, LOC+36, UPD+8, NEW+9 |
ERRCHKQ | ERRCHK+6, ERRCHK+17, ERRCHK+18 |
LOCQ | LOC+26, LOC+27 |
NONCOUNT | RAD+25 |
PKGIENQ | PKGIEN+7, PKGIEN+8, PKGIEN+9, PKGIEN+10 |
RADQ | RAD+21 |
UPD | RAD+23 |
VAR | UPD+7, NEW+7 |
VARQ | VAR+11 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | NONCOUNT+5~, NONCOUNT+6*, EDIT+2~, EDIT+3* |
DD | ADD+2~ |
DIC | ADD+2~, ADD+3* |
DIC("DR" | ADD+4* |
DIC(0 | ADD+3* |
DIE | NONCOUNT+5~, NONCOUNT+6*, EDIT+2~, EDIT+3* |
DINUM | ADD+2~ |
DIV | VAR+7~, VAR+12* |
DO | ADD+2~ |
DR | NONCOUNT+5~, NONCOUNT+6*, EDIT+2~, EDIT+3*, EDIT+4*, EDIT+5*, EDIT+7*, EDIT+8*, EDIT+9*, EDIT+10* , EDIT+11*, EDIT+12*, EDIT+13*, EDIT+14*, EDIT+15*, EDIT+16*, EDIT+17*, EDIT+18*, EDIT+20*, EDIT+21* |
DT | ERRCHK+14 |
ERR | RAD+17~, RAD+20*, RAD+21, RADQ, LOC+22~, LOC+25*, LOC+26, LOC+32*, LOC+34*, LOC+35* , LOCQ |
I | RAD+17~, RAD+19*, LOC+22~, LOC+24*, LOC+34*, CHK+5~, CHK+10* |
IEN | RAD~, RAD+22, RAD+23, RAD+25, RAD+26*, RADQ, LOC~, LOC+28, LOC+30, LOC+31 , LOC+35*, LOC+36, LOCQ, ERRCHK+7~, ERRCHK+8*, ERRCHK+9, ERRCHK+13, ERRCHK+15, NONCOUNT~, NONCOUNT+6 , UPD~, UPD+7, UPD+8, NEW~, NEW+7, NEW+8*, NEW+9, NEW+10, VAR~, VAR+8 , CHK~, CHK+7, CHK+8, CHK+9, CHK+10 |
INACT | LOC~, LOC+31 |
INST | LOC~, LOC+31, LOC+36, DIV~, DIV+1, EDIT+2~ |
LOC | ERRCHK+4~, ERRCHK+9*, ERRCHK+10, ERRCHK+12 |
NAME | LOC~, LOC+31, LOC+35, LOC+36 |
NUMBER | ERR~, ERR+5 |
OK | RAD+17~, RAD+22*, RAD+23, RAD+24, ERRCHK+4~, CHK+5~, CHK+6*, CHK+7*, CHK+8*, CHK+9* , CHK+10*, CHKQ |
PKG | RAD~, RAD+18*, RAD+23, RAD+26, LOC~, LOC+23*, LOC+31, LOC+35, LOC+36, ERRCHK+17 , UPD~, UPD+8, NEW~, NEW+8, NEW+9, PKGIEN~, PKGIEN+6*, PKGIEN+7, PKGIEN+8, PKGIEN+9 , PKGIEN+10, SCREEN~, SCREEN+1 |
RAD | ERRCHK~, ERRCHK+11 |
SC | ERRCHK~, UPD+6~, UPD+7, NEW+6~, NEW+7, VAR~ |
SC("IEN" | ERRCHK+6, ERRCHK+8 |
SC("INST" | ERRCHK+11, UPD+8, NEW+9, VAR+11*, VAR+12* |
SC("NAME" | UPD+8, NEW+8, NEW+9, VAR+9* |
SC("PKG" | ERRCHK+16 |
SC("STOP" | ERRCHK+18, ERRCHK+20, UPD+8, NEW+9, VAR+10* |
SCERR | LOC+22~, LOC+25 |
SCERR( | LOC+24* |
SCIEN | EDIT~, EDIT+3 |
SCINACT | EDIT~, EDIT+19 |
SCINST | EDIT~, EDIT+6 |
SCNAME | ADD~, ADD+3, EDIT~, EDIT+4 |
SCOS | PKGNM+4~ |
SCOS( | PKGNM+6 |
SCPKG | ADD~, EDIT~, PKGNM~, PKGNM+5, PKGNM+6 |
SCSTOP | EDIT~, EDIT+9 |
SDERR | RAD+17~, RAD+20 |
SDERR( | RAD+19* |
STOP | LOC~, LOC+27*, LOC+31, LOC+36, ERRCHK+19~, ERRCHK+20*, ERRCHK+21*, ERRCHK+22, ERRCHK+23 |
X | RAD+17~, LOC+22~, LOC+29~, LOC+30*, LOC+31, ERRCHK+4~, ERRCHK+13*, ERRCHK+14, ERRCHK+15*, ERRCHK+16 , VAR+7~, VAR+8*, VAR+9, VAR+10, VAR+11, VAR+12, ADD+2~, ADD+3*, EDIT+2~ |
Y | RAD+17~, LOC+27*, ERRCHK+4~, ERRCHK+5*, ERRCHK+6, ERRCHK+10*, ERRCHK+11, ERRCHK+12*, ERRCHK+14*, ERRCHK+16* , ERRCHK+17*, ERRCHK+18, ERRCHK+22*, ERRCHK+23*, ERRCHKQ, PKGIEN+5~, PKGIEN+7*, PKGIEN+8*, PKGIEN+9*, PKGIEN+10* , PKGIEN+11*, PKGIENQ, ADD+2~, ADD+6 |
Name | Field # of Occurrence |
---|---|
$T(ERRORS+NUMBER | ERR+5 |