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 |
Package | Total | Caller Graph |
---|---|---|
Scheduling | 2 | SDEC1 SDESCONTACTS |
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 |