SDECCONSJSON ;ALB/ANU,MGD,LAB/BLB - VISTA SCHEDULING RPCS ;MAR 31, 2022@14:39
Source file <SDECCONSJSON.m>
Package | Total | Call Graph |
---|---|---|
Scheduling | 4 | $$PRIORITY^SDEC51 $$PRIO^SDEC51A $$CALLCON^SDECAR1A (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) | ;
|
|
CONSCANCELCHECK(SDCONSID,DFN) | ;looking for most recent appt linked to this consult and checking if cancelled by patient or clinic
|
|
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+39, GETPID+4, CONSCANCELCHECK+4, CONSCANCELCHECK+5, CONSCANCELCHECK+6, JSONCONSLIST1+31 |
GETS^DIQ | BLDCONSULTREC+2 |
$$PRIORITY^SDEC51 | BLDCONSULTREC+31 |
$$PRIO^SDEC51A | BLDCONSULTREC+14 |
$$CALLCON^SDECAR1A | BLDCONSULTREC+24 |
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 |
^SDEC(409.84 - [#409.84] | 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+38 |
^ORD(100.01 - [#100.01] | INIT+1, INIT+2 |
^SDEC(409.84 - [#409.84] | CONSCANCELCHECK+3 |
^SDEC(409.87 - [#409.87] | BLDCONSULTREC+19, BLDCONSULTREC+22, GETPID+2, GETPID+3 |
Name | Line Occurrences |
---|---|
$$CONSCANCELCHECK | BLDCONSULTREC+32 |
$$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 |
Name | Field # of Occurrence |
---|---|
ACTIVE | JSONCONSLIST+26~, INIT+1*, JSONSELCONS+6, JSONCONSLIST1+26~ |
APPTIEN | CONSCANCELCHECK+1~, CONSCANCELCHECK+2*, CONSCANCELCHECK+3*, CONSCANCELCHECK+4, CONSCANCELCHECK+5, CONSCANCELCHECK+6 |
CANCHANGE | CONSCANCELCHECK+1~, CONSCANCELCHECK+2*, CONSCANCELCHECK+5*, CONSCANCELCHECK+6*, CONSCANCELCHECK+7 |
CANCHANGEPID | BLDCONSULTREC+1~, BLDCONSULTREC+32*, BLDCONSULTREC+33 |
CHIEN | GETPID+1~, GETPID+2*, GETPID+3, GETPID+4 |
CHSIEN | GETPID+1~, GETPID+3*, GETPID+4 |
CPRSSTAT | JSONSELCONS+1~, JSONSELCONS+4*, JSONSELCONS+6 |
DFN | JSONCONSLIST~, VALIDATE+2, VALIDATE+6, JSONSELCONS+3, BLDCONSULTREC+24, BLDCONSULTREC+32, CONSCANCELCHECK~, CONSCANCELCHECK+3, JSONCONSLIST1+26~, JSONCONSLIST1+31* |
ERR | JSONCONSLIST+26~, JSONCONSLIST+27*, BLDJSON+1, JSONCONSLIST1+26~, JSONCONSLIST1+27* |
ERRMSG | JSONCONSLIST+26~, INIT+3*, JSONCONSLIST1+26~ |
ERRPOP | JSONCONSLIST+26~, JSONCONSLIST+30, INIT+3*, VALIDATE+5*, VALIDATE+9*, JSONCONSLIST1+26~, JSONCONSLIST1+30, VALIDATE1+5*, VALIDATE1+9* |
FOUND | CONSCANCELCHECK+1~, CONSCANCELCHECK+2*, CONSCANCELCHECK+3, CONSCANCELCHECK+4* |
IFCSTAT | JSONSELCONS+1~, JSONSELCONS+5*, JSONSELCONS+6 |
OLDESTPID | GETPID+1~, GETPID+4*, GETPID+5 |
PENDING | JSONCONSLIST+26~, INIT+2*, JSONSELCONS+6, JSONCONSLIST1+26~ |
PID | BLDCONSULTREC+1~, BLDCONSULTREC+20*, BLDCONSULTREC+21 |
SDARRERR | BLDCONSULTREC+1~ |
SDCLIEN | BLDCONSULTREC+1~, BLDCONSULTREC+9*, BLDCONSULTREC+11, BLDCONSULTREC+18 |
SDCLNAME | BLDCONSULTREC+1~, BLDCONSULTREC+10*, BLDCONSULTREC+12 |
SDCONJSON | JSONCONSLIST~, BLDJSON+1, JSONCONSLIST1~ |
SDCONLET | BLDCONSULTREC+1~, BLDCONSULTREC+24*, BLDCONSULTREC+26, BLDCONSULTREC+27, BLDCONSULTREC+28, BLDCONSULTREC+29, BLDCONSULTREC+30 |
SDCONSARR | JSONSELCONS+10!, BLDCONSULTREC+1~, JSONCONSLIST1+34! |
SDCONSARR(123 | BLDCONSULTREC+5, BLDCONSULTREC+6, BLDCONSULTREC+7, BLDCONSULTREC+9, BLDCONSULTREC+10, BLDCONSULTREC+13, BLDCONSULTREC+15, BLDCONSULTREC+16, BLDCONSULTREC+17, BLDCONSULTREC+23 , BLDCONSULTREC+36 |
SDCONSID | JSONSELCONS+1~, JSONSELCONS+2*, JSONSELCONS+3*, JSONSELCONS+4, JSONSELCONS+5, BLDCONSULTREC+2, BLDCONSULTREC+4, BLDCONSULTREC+5, BLDCONSULTREC+6, BLDCONSULTREC+7 , BLDCONSULTREC+9, BLDCONSULTREC+10, BLDCONSULTREC+13, BLDCONSULTREC+14, BLDCONSULTREC+15, BLDCONSULTREC+16, BLDCONSULTREC+17, BLDCONSULTREC+19, BLDCONSULTREC+20, BLDCONSULTREC+22 , BLDCONSULTREC+23, BLDCONSULTREC+24, BLDCONSULTREC+31, BLDCONSULTREC+32, BLDCONSULTREC+36, GETPID~, GETPID+2, CONSCANCELCHECK~, CONSCANCELCHECK+4, JSONCONSLIST1~ , JSONCONSLIST1+31, VALIDATE1+2, VALIDATE1+6 |
SDCONSREC | JSONCONSLIST+26~, VALIDATE+4, VALIDATE+8, BLDJSON+1, BLDJSON+2!, JSONCONSLIST1+26~, VALIDATE1+4, VALIDATE1+8 |
SDCONSREC("Consult" | JSONSELCONS+8*, BLDCONSULTREC+4*, BLDCONSULTREC+5*, BLDCONSULTREC+6*, BLDCONSULTREC+7*, BLDCONSULTREC+11*, BLDCONSULTREC+12*, BLDCONSULTREC+13*, BLDCONSULTREC+14*, BLDCONSULTREC+15* , BLDCONSULTREC+16*, BLDCONSULTREC+17*, BLDCONSULTREC+18*, BLDCONSULTREC+21*, BLDCONSULTREC+23*, BLDCONSULTREC+26*, BLDCONSULTREC+27*, BLDCONSULTREC+28*, BLDCONSULTREC+29*, BLDCONSULTREC+30* , BLDCONSULTREC+31*, BLDCONSULTREC+33*, BLDCONSULTREC+42* |
SDECALL | BLDCONSULTREC+25! |
SDECI | JSONCONSLIST+26~, JSONCONSLIST+27*, INIT+3*, BLDCONSULTREC+3*, BLDCONSULTREC+4, BLDCONSULTREC+5, BLDCONSULTREC+6, BLDCONSULTREC+7, BLDCONSULTREC+11, BLDCONSULTREC+12 , BLDCONSULTREC+13, BLDCONSULTREC+14, BLDCONSULTREC+15, BLDCONSULTREC+16, BLDCONSULTREC+17, BLDCONSULTREC+18, BLDCONSULTREC+21, BLDCONSULTREC+23, BLDCONSULTREC+26, BLDCONSULTREC+27 , BLDCONSULTREC+28, BLDCONSULTREC+29, BLDCONSULTREC+30, BLDCONSULTREC+31, BLDCONSULTREC+33, BLDCONSULTREC+42, JSONCONSLIST1+26~, JSONCONSLIST1+27* |
SDECLET | BLDCONSULTREC+25! |
SDSTOP | BLDCONSULTREC+1~, BLDCONSULTREC+35*, BLDCONSULTREC+40*, BLDCONSULTREC+41*, BLDCONSULTREC+42 |
SDTMP | JSONCONSLIST+26~, JSONCONSLIST1+26~ |
SDTOSVCI | BLDCONSULTREC+1~, BLDCONSULTREC+36*, BLDCONSULTREC+37, BLDCONSULTREC+38, BLDCONSULTREC+39 |
SIEN | BLDCONSULTREC+1~, BLDCONSULTREC+38*, BLDCONSULTREC+39 |
STOP | BLDCONSULTREC+1~, BLDCONSULTREC+35*, BLDCONSULTREC+39*, BLDCONSULTREC+40, BLDCONSULTREC+41 |
U | BLDCONSULTREC+26, BLDCONSULTREC+27, BLDCONSULTREC+28, BLDCONSULTREC+29, BLDCONSULTREC+30 |