MBAAMAP1 ;OIT-PD/VSL - APPOINTMENT API ;02/10/2016
Source file <MBAAMAP1.m>
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 |
Name | Comments | DBIA/ICR reference |
---|---|---|
CLNCK(RETURN,CLN) | ;Check clinic for valid stop code restriction. Called by RPC MBAA APPOINTMENT MAKE
; INPUT: CLN = IEN of Clinic |
|
SCREST(RETURN,SCIEN,TYP) | ;check stop code restriction in file 40.7 for a clinic. MBAA RPC: MBAA APPOINTMENT MAKE
; INPUT: SCIEN = IEN of Stop Code ; TYP = Stop Code Type, Primary (P) or Secondary (S) ; DIS = Message Display, 1 - Display or 0 No Display |
|
GETCLN(RETURN,CLN) | ; Get Clinic data MBAA RPC: MBAA PATIENT PENDING APPT
; INPUT: CLN = IEN of Clinic |
|
CLNRGHT(RETURN,CLN) | ; Verifies (DUZ) user access to Clinic Called by RPC MBAA APPOINTMENT MAKE, MBAA RPC: MBAA CANCEL APPOINTMENT
|
|
GETSCAP(RETURN,SC,DFN,SD) | ; Get clinic appointment Called by RPC MBAA APPOINTMENT MAKE, MBAA RPC: MBAA CANCEL APPOINTMENT
|
|
SLOTS(RETURN,SC) | ; Get available slots MBAA RPC: MBAA GET CLINIC AVAILABILITY
|
|
LSTAPPT(RETURN,SEARCH,START,NUMBER) | ; Lists appointment types MBAA RPC: MBAA APPOINTMENT LIST BY NAME
|
|
LSTCRSNS(RETURN,SEARCH,START,NUMBER) | ; MBAA RPC: MBAA LIST CANCELLATION REASONS
|
|
CPAIR(RETURN,SC) | ;Validate primary stop code, get credit pair MBAA RPC: MBAA APPOINTMENT MAKE
|
|
PTFU(RETURN,DFN,SC) | ||
PTFU2(RETURN,DFN,SC) |
Name | Field # of Occurrence |
---|---|
$$GET1^DIQ | PTFU+14, PTFU+15 |
ERRX^MBAAAPIE | CLNCK+6, CLNCK+8, SCREST+10, SCREST+16, SCREST+19, SCREST+22, GETCLN+5, CLNRGHT+8, GETSCAP+2, GETSCAP+3 , GETSCAP+4 |
BLDLST^MBAAMAPI | LSTCRSNS+4, PTFU2+14 |
GETCLN^MBAAMDA1 | CLNCK+7, GETCLN+4, CLNRGHT+3, CPAIR+5 |
GETCSC^MBAAMDA1 | SCREST+12, CPAIR+7, CPAIR+10 |
GETSCAP^MBAAMDA1 | GETSCAP+5 |
LSTAENC^MBAAMDA1 | PTFU2+12 |
LSTAPPT^MBAAMDA2 | LSTAPPT+5 |
LSTCRSNS^MBAAMDA2 | LSTCRSNS+3 |
SLOTS^MBAAMDA2 | SLOTS+1 |
$$FMTE^XLFDT | SCREST+21 |
$$UP^XLFSTR | LSTAPPT+5, LSTCRSNS+3 |
FileNo | Call Tags |
---|---|
^SCE - [#409.68] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^SCE("ADFN" | PTFU+12, PTFU+13 |
Name | Line Occurrences |
---|---|
$$CPAIR | PTFU+9, PTFU+17, PTFU2+10, PTFU2+18 |
$$SCREST | CLNCK+10, CLNCK+12 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | CLNCK+10*, CLNCK+11, CLNCK+12*, CLNCK+13 |
CLN | CLNCK~, CLNCK+6, CLNCK+7, GETCLN~, GETCLN+4, CLNRGHT~, CLNRGHT+3, CPAIR+4~, CPAIR+5 |
CLN(2503 | CPAIR+10 |
CLN(8 | CPAIR+6, CPAIR+7 |
CO | GETSCAP+1~, GETSCAP+7*, GETSCAP+11, GETSCAP+12 |
CS | CPAIR+4~, CPAIR+7, CPAIR+10! |
CS(1 | CPAIR+8, CPAIR+11 |
CTY | SCREST+7~, SCREST+11*, SCREST+17 |
DATA | GETCLN+2~, GETCLN+4, GETCLN+5, GETCLN+6, CLNRGHT+1~, CLNRGHT+3 |
DATA( | CLNRGHT+7, CLNRGHT+9 |
DATA(2500 | CLNRGHT+4 |
DATA(2501 | CLNRGHT+5 |
DFN | GETSCAP~, GETSCAP+2, GETSCAP+5, PTFU~, PTFU+5, PTFU+12, PTFU+13, PTFU2~, PTFU2+5, PTFU2+12 |
DL | LSTAPPT+1~, LSTAPPT+7*, LSTAPPT+10, LSTAPPT+11 |
DT | SCREST+20, PTFU+8, PTFU2+9 |
DUZ | CLNRGHT+5 |
ENC | PTFU2+7~, PTFU2+14 |
ENC( | PTFU2+15, PTFU2+16, PTFU2+17, PTFU2+18 |
FLDS | CLNCK+4~, CLNCK+7, CLNCK+8, SCREST+7~, SCREST+12, PTFU2+7~, PTFU2+14 |
FLDS( | PTFU2+13* |
FLDS(1 | SCREST+15, SCREST+18, SCREST+21 |
FLDS(2 | CLNCK+9 |
FLDS(2503 | CLNCK+11, CLNCK+12 |
FLDS(5 | SCREST+13 |
FLDS(6 | SCREST+13 |
FLDS(8 | CLNCK+10 |
IN | LSTAPPT+1~, LSTAPPT+8*, LSTAPPT+9, LSTAPPT+10, LSTAPPT+11 |
LST | LSTCRSNS+1~, LSTCRSNS+2*, LSTCRSNS+3, LSTCRSNS+4, PTFU2+7~, PTFU2+12, PTFU2+14 |
ND0 | CLNCK+4~ |
NOD0 | GETSCAP+1~, GETSCAP+7*, GETSCAP+9, GETSCAP+10, GETSCAP+13, GETSCAP+14 |
NUMBER | LSTAPPT~, LSTAPPT+3*, LSTAPPT+5, LSTCRSNS~, LSTCRSNS+3 |
PSC | CLNCK+4~ |
RDT | SCREST+7~, SCREST+13*, SCREST+20, SCREST+21 |
RET | LSTAPPT+1~, LSTAPPT+5 |
RET( | LSTAPPT+10, LSTAPPT+11 |
RET("DILIST" | LSTAPPT+6 |
RETURN | CLNCK~, CLNCK+5*, CLNCK+6, CLNCK+8, CLNCK+10, CLNCK+12, CLNCK+13*, CLNCK+14, SCREST~, SCREST+9* , SCREST+10, SCREST+16, SCREST+19, SCREST+22, SCREST+23*, GETCLN~, GETCLN+3*, GETCLN+5, GETCLN+6*, GETCLN+7* , CLNRGHT~, CLNRGHT+2*, CLNRGHT+4, CLNRGHT+5*, CLNRGHT+7*, CLNRGHT+8, CLNRGHT+10*, GETSCAP~, GETSCAP+2*, GETSCAP+3* , GETSCAP+4*, GETSCAP+5, GETSCAP+6, GETSCAP+8, SLOTS~, SLOTS+1, SLOTS+2*, LSTAPPT~, LSTAPPT+4*, LSTAPPT+12* , LSTCRSNS~, LSTCRSNS+2, LSTCRSNS+4, LSTCRSNS+5, CPAIR~, CPAIR+8*, CPAIR+9, CPAIR+11*, PTFU~, PTFU2~ , PTFU2+6* |
RETURN( | LSTAPPT+9*, LSTAPPT+10*, LSTAPPT+11* |
RETURN("C" | GETSCAP+7 |
RETURN("CHECKIN" | GETSCAP+12* |
RETURN("CHECKOUT" | GETSCAP+11* |
RETURN("CLN" | CLNRGHT+9* |
RETURN("CONSULT" | GETSCAP+14* |
RETURN("DATE" | GETSCAP+10* |
RETURN("IFN" | GETSCAP+8* |
RETURN("LENGTH" | GETSCAP+13* |
RETURN("USER" | GETSCAP+9* |
RETURN(0 | GETSCAP+7, LSTAPPT+6*, LSTAPPT+8 |
RTY | SCREST+7~, SCREST+13*, SCREST+14, SCREST+17 |
SC | GETSCAP~, GETSCAP+3, GETSCAP+5, SLOTS~, SLOTS+1, CPAIR~, CPAIR+5, PTFU~, PTFU+5, PTFU+9 , PTFU2~, PTFU2+5, PTFU2+10 |
SC0 | PTFU2+7~ |
SCIEN | SCREST~, SCREST+10, SCREST+12 |
SCN | SCREST+7~ |
SD | GETSCAP~, GETSCAP+4, GETSCAP+5 |
SDBDT | PTFU+6~, PTFU+8*, PTFU+12, PTFU2+7~, PTFU2+9*, PTFU2+17 |
SDCP | PTFU2+7~, PTFU2+10, PTFU2+19 |
SDCP1 | PTFU+6~, PTFU+9, PTFU+19, PTFU2+7~, PTFU2+18, PTFU2+19 |
SDCP2 | PTFU+6~, PTFU+17, PTFU+19 |
SDCT | PTFU+6~, PTFU2+7~ |
SDENC | PTFU+6~, PTFU+13*, PTFU+14, PTFU+15, PTFU2+7~ |
SDSSC | CPAIR+4~, CPAIR+11* |
SDT | PTFU+6~, PTFU+8*, PTFU+12*, PTFU+13, PTFU2+7~, PTFU2+9*, PTFU2+15*, PTFU2+16, PTFU2+17, PTFU2+18 |
SDX | PTFU+6~, PTFU+9*, PTFU+10, PTFU+15*, PTFU+16, PTFU+17*, PTFU+18, PTFU2+7~, PTFU2+10*, PTFU2+18* |
SDY | PTFU+6~, PTFU+8*, PTFU+12, PTFU+13, PTFU+19*, PTFU+22, PTFU2+7~, PTFU2+9*, PTFU2+15, PTFU2+19* , PTFU2+21 |
SDZ | PTFU2+7~ |
SEARCH | LSTAPPT~, LSTAPPT+2*, LSTAPPT+5, LSTCRSNS~, LSTCRSNS+3 |
SSC | CLNCK+4~ |
START | LSTAPPT~, LSTAPPT+2*, LSTAPPT+5, LSTCRSNS~, LSTCRSNS+3 |
STR | SCREST+7~ |
STYP | SCREST+7~, SCREST+8*, SCREST+10, SCREST+15, SCREST+21 |
TEXT | SCREST+7~, SCREST+10, SCREST+16, SCREST+19, SCREST+22 |
TEXT(1 | SCREST+10*, SCREST+15*, SCREST+18*, SCREST+21* |
TEXT(2 | SCREST+15*, SCREST+18*, SCREST+21* |
TEXT(3 | SCREST+21* |
TXT | CLNRGHT+1~, CLNRGHT+8, GETSCAP+2, GETSCAP+3, GETSCAP+4 |
TXT(1 | CLNRGHT+7*, GETSCAP+2*, GETSCAP+3*, GETSCAP+4* |
TXT(2 | CLNRGHT+7* |
TYP | SCREST~, SCREST+8, SCREST+11, SCREST+18 |
U | GETSCAP+9, GETSCAP+10, GETSCAP+11, GETSCAP+12, GETSCAP+13, GETSCAP+14, LSTAPPT+8 |
VAL | CLNCK+4~ |