SDECCONSJSON ;ALB/ANU,MGD,LAB/BLB - VISTA SCHEDULING RPCS ;MAR 31, 2022@14:39
Source file <SDECCONSJSON.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 5 | $$PRIORITY^SDEC51 $$PRIO^SDEC51A $$CALLCON^SDECAR1A $$CONSCANCELCHECK^SDES2GETCONSULTS (ENCODE,ERRLOG)^SDESJSON |
| VA FileMan | 1 | ($$GET1,GETS)^DIQ |
| 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 |
|---|---|---|
| JSONCONSLIST(SDCONJSON,DFN) | ;Return a list of ACTIVE or PENDING CONSULTS for patient
|
|
| INIT | ; initialize values needed
|
|
| VALIDATE | ; validate incoming parameters
|
|
| JSONSELCONS | ;selection all open consults - those consults in PENDING and ACTIVE status
|
|
| BLDCONSULTREC | ;Build a consult record for every consult
|
|
| GETPID(SDCONSID) | ;
|
|
| BLDJSON | ;
|
|
| JSONCONSLIST1(SDCONJSON,SDCONSID) | ;Return a single ACTIVE or PENDING CONSULT for a patient
|
|
| VALIDATE1 | ;
; *Add validation of IEN |
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | JSONSELCONS+4, JSONSELCONS+5, BLDCONSULTREC+18, BLDCONSULTREC+32, BLDCONSULTREC+38, GETPID+4, JSONCONSLIST1+31 |
| GETS^DIQ | BLDCONSULTREC+2 |
| $$PRIORITY^SDEC51 | BLDCONSULTREC+31 |
| $$PRIO^SDEC51A | BLDCONSULTREC+14 |
| $$CALLCON^SDECAR1A | BLDCONSULTREC+24 |
| $$CONSCANCELCHECK^SDES2GETCONSULTS | BLDCONSULTREC+32 |
| ENCODE^SDESJSON | BLDJSON+1 |
| ERRLOG^SDESJSON | VALIDATE+4, VALIDATE+8, VALIDATE1+4, VALIDATE1+8 |
| FileNo | Call Tags |
|---|---|
| ^GMR(123 - [#123] | GET1^DIQ, GETS^DIQ |
| 123.5688 | GET1^DIQ |
| 409.871 | GET1^DIQ |
| ^SC - [#44] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | VALIDATE+6 |
| ^GMR(123 - [#123] | JSONSELCONS+3, VALIDATE1+6 |
| ^GMR(123.5 - [#123.5] | BLDCONSULTREC+37 |
| ^ORD(100.01 - [#100.01] | INIT+1, INIT+2 |
| ^SDEC(409.87 - [#409.87] | BLDCONSULTREC+19, BLDCONSULTREC+22, GETPID+2, GETPID+3 |
| Name | Line Occurrences |
|---|---|
| $$GETPID | BLDCONSULTREC+20 |
| BLDCONSULTREC | JSONSELCONS+7, JSONCONSLIST1+32 |
| BLDJSON | JSONCONSLIST+30, JSONSELCONS+9, JSONCONSLIST1+30, JSONCONSLIST1+33 |
| INIT | JSONCONSLIST+28, JSONCONSLIST1+28 |
| JSONSELCONS | JSONCONSLIST+31 |
| VALIDATE | JSONCONSLIST+29 |
| VALIDATE1 | JSONCONSLIST1+29 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |