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 |
