SDECIDX ;ALB/SAT,WTC - VISTA SCHEDULING RPCS ;Feb 12, 2020@15:22
Source file <SDECIDX.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ENTRY | ; When executed, the following actions will occur:
; - purge existing ^XTMP("SDEC","IDX" data ; - Loop through files 123, 403.5, 409.3, and 409.85 and placing content ; into the XTMP global for retrieval by the SDECIDX GET RPC call. |
|
PURGE | ;EP- Delete the content of the global and set zero node
|
|
BUILD | ;EP- Generate content
|
|
BLD(FIL) | ;EP-
|
|
BLD123 | ;EP- REQUEST/CONSULTATION (C)
|
|
BLD4035 | ;EP- RECALL REMINDERS (R)
|
|
BLD4093 | ;EP- SD WAIT LIST (E)
|
|
BLD40985 | ;EP- SDEC APPT REQUEST (A)
|
|
SETNODE(S1,S3,VAL,KEYP) | ;EP-
; S1 - Sort String ; S2 - not used ; S3 - GBL | IEN | <request type> ACER ; VAL - ; KEYP - |
|
SETXREF(S4,S5,DX,DA,VAL) | ;request type specific xref for 1 entry
; S4 = request type A C E or R ; S5 = xref subscript ; .DX = array of subscripts ; DA = pointer to request type ; VAL = value to set xref to; default to "" |
|
SETNODEC(CNT) | ;EP-
|
|
SETNODEP(GBL,VAL) | ;EP-
|
|
PC(VAL,PIECE,DLM) | ;EP-
|
|
TEST(X) | ;EP
|
|
GETREC(DATA,LASTREC,MAXREC,STYLE) | ;EP-
|
|
TMPGBL() | ;EP-
|
|
CVTDT(VAL) | ;EP-
|
|
INVDT(VAL) | ;EP-
|
|
RECCNT(DATA) | ;EP-
|
RPC Name | Call Tags |
---|---|
SDECIDX RECCNT | RECCNT |
SDECIDX GETREC | GETREC |
FileNo | Call Tags |
---|---|
^SDWL(409.3 - [#409.3] | GET1^DIQ |
^SDEC(409.85 - [#409.85] | GET1^DIQ |
^SDEC(409.98 - [#409.98] | GET1^DIQ |