Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: SDHLAPT2

Package: Scheduling

Routine: SDHLAPT2


Information

SDHLAPT2 ;MS/PB - VISTA SCHEDULING RPCS ; 4/29/24 10:37am

Source Information

Source file <SDHLAPT2.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Scheduling 6 (ARCLOSE,AROPEN)^SDECAR  (AR433,ARSET)^SDECAR2  $$SCIEN^SDECU2  (AIG,AIGNTE,AIL,AILNTE,AIP,AIPNTE,AIS,AISNTE,MSH,OBX,PARSESEG,PID,PV1,RESLKUP,RGS,SCH,SCHNTE,SENDERR)^SDHL7APU  ($$CHKCHILD,$$LASTCHILD)^SDHLAPT2  ($$CHKINST,$$INST,$$TMCONV)^SDTMPHLA  
VA FileMan 4 UPDATE^DIE  ^DIK  $$GET1^DIQ  $$UTC^DIUTC  
Kernel 1 ($$FMADD,$$FMTE,$$NOW)^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Scheduling 3 SDHL7APT  SDHL7CON  SDHLAPT2  

Entry Points

Name Comments DBIA/ICR reference
AIL ;
NEWTIME
CHKCON(DFN,SDAPTYP) ; checks if both consult ids or both rtc ids match the patient, if the consult or rts is not for the patient, reject
CHKCAN(PAT,CLINIC,DATE) ; check to see if the appointment in 44 is canceled correctly. if not cancel it
JSONTFM(DTTM,INST) ;Convert XML/JSON external time to FM format in local timezone. If zulu time, apply timezone difference.
LOOPMSG(ERR,ERRTXT) ;Loop to read in HL7 msg data. Code moved here from sdhl7apt. 879
CHKCHILD() ; Multi-RTC check if children exist
CHILDREN(PARENT) ;Check if any children Reqs exists from parent to end of file
; return 1 = Yes ; 0 = No
APPTSCENARIO ;Examine SCH/AIL segments for correct passed in scenarios from CRM/HS also handle exceptions
MRTCCHILD(PARENT,MTC) ;Add children RTCs to Req file for a solo parent and increment CID date for each Req child
BLDARRAYS(ERR,ERRTXT) ;Build segment arrays. Code moved here from sdhl7apt. 879
LASTCHILD(PARENT) ;Check if the last child for this MRTC Appt was made
MRTCCLOSEOUT ;MRTC appts only closeout processing for parent
MRTCREOPEN ;Execute MRTC Parent Re-Open logic

External References

Name Field # of Occurrence
UPDATE^DIE MRTCREOPEN+5
^DIK CHKCAN+10
$$GET1^DIQ CHKCON+9, MRTCCHILD+16
$$UTC^DIUTC JSONTFM+12
ARCLOSE^SDECAR MRTCCLOSEOUT+4
AROPEN^SDECAR MRTCREOPEN+6
AR433^SDECAR2 MRTCCLOSEOUT+1
ARSET^SDECAR2 MRTCCHILD+22
$$SCIEN^SDECU2 CHKCAN+5
AIG^SDHL7APU BLDARRAYS+13
AIGNTE^SDHL7APU BLDARRAYS+14
AIL^SDHL7APU BLDARRAYS+15
AILNTE^SDHL7APU BLDARRAYS+16
AIP^SDHL7APU BLDARRAYS+17
AIPNTE^SDHL7APU BLDARRAYS+18
AIS^SDHL7APU BLDARRAYS+11
AISNTE^SDHL7APU BLDARRAYS+12
MSH^SDHL7APU BLDARRAYS+2
OBX^SDHL7APU BLDARRAYS+8
PARSESEG^SDHL7APU AIL+1
PID^SDHL7APU BLDARRAYS+6
PV1^SDHL7APU BLDARRAYS+7
RESLKUP^SDHL7APU AIL+2
RGS^SDHL7APU BLDARRAYS+10
SCH^SDHL7APU BLDARRAYS+3
SCHNTE^SDHL7APU BLDARRAYS+5
SENDERR^SDHL7APU CHKCON+12, CHKCON+24
$$CHKCHILD^SDHLAPT2 APPTSCENARIO+24
$$LASTCHILD^SDHLAPT2 MRTCCLOSEOUT+2, MRTCREOPEN+6
$$CHKINST^SDTMPHLA JSONTFM+8
$$INST^SDTMPHLA NEWTIME+3
$$TMCONV^SDTMPHLA NEWTIME+6
$$FMADD^XLFDT NEWTIME+5, JSONTFM+13, MRTCCHILD+9
$$FMTE^XLFDT MRTCCHILD+5, MRTCCLOSEOUT+3
$$NOW^XLFDT MRTCCHILD+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(123 - [#123] GET1^DIQ
^SDEC(409.85 - [#409.85] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] CHKCON+11, CHKCON+23, MRTCCHILD+18
^GMR(123 - [#123] CHKCON+10
^SDEC(409.85 - [#409.85] AIL+9, CHKCON+21, CHKCHILD+8, CHKCHILD+10, CHILDREN+4, CHILDREN+5, APPTSCENARIO+21, MRTCCHILD+2, MRTCCHILD+7, MRTCCHILD+11
, LASTCHILD+3, LASTCHILD+4, LASTCHILD+6, LASTCHILD+7, LASTCHILD+8, MRTCREOPEN+2, MRTCREOPEN+4

Label References

Name Line Occurrences
$$CHILDREN CHKCHILD+13
$$JSONTFM NEWTIME+4
$$MRTCCHILD CHKCHILD+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT MRTCCHILD+1~
>> AIG BLDARRAYS+13
>> AIG( LOOPMSG+17*
>> AIGNTE BLDARRAYS+14
>> AIGNTE( LOOPMSG+18*
>> AIL AIL+1, BLDARRAYS+15
>> AIL( CHKCON+7, CHKCON+19, LOOPMSG+19*
>> AIL(1 AIL+6, AIL+7, AIL+8, AIL+16, CHKCON+1, APPTSCENARIO+2, APPTSCENARIO+4, APPTSCENARIO+5, APPTSCENARIO+7, APPTSCENARIO+8
, APPTSCENARIO+9, APPTSCENARIO+10, APPTSCENARIO+11, APPTSCENARIO+15
>> AIL(2 NEWTIME+3, CHKCON+1
>> AIL(3 AIL+2
>> AILNTE BLDARRAYS+16
>> AILNTE( LOOPMSG+20*
>> AIP BLDARRAYS+17
>> AIP( LOOPMSG+21*
>> AIPNTE BLDARRAYS+18
>> AIPNTE( LOOPMSG+22*
>> AIS BLDARRAYS+11
>> AIS( LOOPMSG+15*
>> AISNTE BLDARRAYS+12
>> AISNTE( LOOPMSG+16*
CHIEN LASTCHILD+1~
CLINIC CHKCAN~, CHKCAN+3, CHKCAN+5, CHKCAN+8, CHKCAN+9
>> CNT LOOPMSG+2*, LOOPMSG+3, LOOPMSG+4, LOOPMSG+5, LOOPMSG+6, LOOPMSG+7, LOOPMSG+8, LOOPMSG+9, LOOPMSG+11, LOOPMSG+13
, LOOPMSG+15, LOOPMSG+16, LOOPMSG+17, LOOPMSG+18, LOOPMSG+19, LOOPMSG+20, LOOPMSG+21, LOOPMSG+22
CONSID AIL+3~, AIL+7*
DA CHKCAN+1~, CHKCAN+9*, CHKCAN+11!
DA(1 CHKCAN+9*
DA(2 CHKCAN+9*
DATE CHKCAN~, CHKCAN+4, CHKCAN+5, CHKCAN+8, CHKCAN+9, JSONTFM+6~, JSONTFM+9*, JSONTFM+12, JSONTFM+13
DFN CHKCON~, CHKCON+10, CHKCON+11, CHKCON+21, CHKCON+23
DIFF JSONTFM+6~, JSONTFM+12*, JSONTFM+13
DIK CHKCAN+1~, CHKCAN+8*, CHKCAN+11!
DT MRTCCLOSEOUT+3
DTTM JSONTFM~, JSONTFM+7, JSONTFM+9, JSONTFM+10
DUZ CHKCHILD+11*, MRTCCLOSEOUT+3
DUZ(2 MRTCCLOSEOUT+3*
ERR CHKCON+11*, CHKCON+12, CHKCON+23*, CHKCON+24, LOOPMSG~, LOOPMSG+1*, LOOPMSG+2, LOOPMSG+12*, BLDARRAYS~, BLDARRAYS+1*
, BLDARRAYS+4
ERRTXT LOOPMSG~, LOOPMSG+1*, LOOPMSG+12*, BLDARRAYS~, BLDARRAYS+1*
FCHILD CHKCHILD+2~, CHKCHILD+3*, CHKCHILD+13*, CHKCHILD+15, APPTSCENARIO+24*, APPTSCENARIO+25, MRTCCHILD+1~, MRTCCHILD+2*, MRTCCHILD+23*, MRTCCHILD+24
GMRDFN CHKCON+3~, CHKCON+9*, CHKCON+10
>> GRPCNT LOOPMSG+14*, BLDARRAYS+9
>> HL AIL+1
I MRTCCHILD+1~, MRTCCHILD+3*, MRTCCHILD+8, MRTCCHILD+9, MRTCCHILD+23
IENS CHKCON+3~, CHKCON+7*, CHKCON+8, CHKCON+9, CHKCON+10, CHKCON+11, CHKCON+19*, CHKCON+20, CHKCON+21
INP CHKCHILD+1, CHKCHILD+14!*, MRTCCHILD+22, BLDARRAYS+2, BLDARRAYS+3, BLDARRAYS+5, BLDARRAYS+6, BLDARRAYS+7, BLDARRAYS+8, BLDARRAYS+10
, BLDARRAYS+11, BLDARRAYS+12, BLDARRAYS+13, BLDARRAYS+14, BLDARRAYS+15, BLDARRAYS+16, BLDARRAYS+17, BLDARRAYS+18, MRTCCLOSEOUT+3~, MRTCCLOSEOUT+4
, MRTCREOPEN+1~
INP(1 MRTCCHILD+4*, MRTCCLOSEOUT+3*
INP(10 MRTCCHILD+11*
INP(11 MRTCCHILD+8*, MRTCCHILD+9*
INP(12 MRTCCHILD+12*
INP(14 MRTCCHILD+13*
INP(15 MRTCCHILD+14*
INP(16 MRTCCHILD+15*
INP(18 MRTCCHILD+17*
INP(19 MRTCCHILD+18*
INP(2 MRTCCHILD+18, MRTCCLOSEOUT+3*
INP(22 MRTCCHILD+19*
INP(23 MRTCCHILD+20*
INP(25 MRTCCHILD+21*
INP(3 MRTCCHILD+5*, MRTCCLOSEOUT+3*
INP(4 MRTCCLOSEOUT+3*
INP(5 MRTCCHILD+6*
INP(6 MRTCCHILD+7*
INP(9 MRTCCHILD+10*
INPBK CHKCHILD+1~*, CHKCHILD+14
INST NEWTIME+3*, NEWTIME+4, NEWTIME+6, JSONTFM~, JSONTFM+8
INTV MRTCCHILD+1~, MRTCCHILD+2*, MRTCCHILD+9, MRTCCHILD+14
>> IX BLDARRAYS+9*, BLDARRAYS+10, BLDARRAYS+11, BLDARRAYS+12, BLDARRAYS+13, BLDARRAYS+14, BLDARRAYS+15, BLDARRAYS+16, BLDARRAYS+17, BLDARRAYS+18
LAST LASTCHILD+1~, LASTCHILD+2*, LASTCHILD+3, LASTCHILD+10*, LASTCHILD+11
>> MSGARY BLDARRAYS+2, BLDARRAYS+3, BLDARRAYS+5, BLDARRAYS+6, BLDARRAYS+7, BLDARRAYS+11, BLDARRAYS+15, BLDARRAYS+17
>> MSGARY("DUZ" CHKCHILD+11
>> MSGROOT LOOPMSG+2, LOOPMSG+3, LOOPMSG+4, LOOPMSG+5, LOOPMSG+6, LOOPMSG+7, LOOPMSG+8, LOOPMSG+9, LOOPMSG+11, LOOPMSG+13
, LOOPMSG+15, LOOPMSG+16, LOOPMSG+17, LOOPMSG+18, LOOPMSG+19, LOOPMSG+20, LOOPMSG+21, LOOPMSG+22
>> MSH LOOPMSG+4*, BLDARRAYS+2
MTC AIL+3~, AIL+9*, AIL+10, CHKCHILD+2~, CHKCHILD+8*, CHKCHILD+9, CHKCHILD+13, MRTCCHILD~, MRTCCHILD+3, MRTCCHILD+15
>> OBX LOOPMSG+9*, BLDARRAYS+8
PARENT CHILDREN~, CHILDREN+2, CHILDREN+4, CHILDREN+5, MRTCCHILD~, MRTCCHILD+2, MRTCCHILD+7, MRTCCHILD+11, MRTCCHILD+16, MRTCCHILD+21
, LASTCHILD~, LASTCHILD+3, LASTCHILD+4, LASTCHILD+5, LASTCHILD+9
PARPID MRTCCHILD+1~, MRTCCHILD+2*, MRTCCHILD+8, MRTCCHILD+9
PAT CHKCAN~, CHKCAN+2, CHKCAN+5
PCNT LASTCHILD+1~, LASTCHILD+2*, LASTCHILD+4*, LASTCHILD+9*, LASTCHILD+10
>> PID LOOPMSG+7*, BLDARRAYS+6
>> PREVSEG LOOPMSG+2*, LOOPMSG+6, LOOPMSG+16, LOOPMSG+18, LOOPMSG+20, LOOPMSG+22
>> PROVAPT( AIL+17
>> PV1 LOOPMSG+8*, BLDARRAYS+7
QQ CHILDREN+3~, CHILDREN+4*, CHILDREN+5
QUIT LASTCHILD+1~, LASTCHILD+2*, MRTCREOPEN+1~*, MRTCREOPEN+2, MRTCREOPEN+3, MRTCREOPEN+5*
REC0 LASTCHILD+1~, LASTCHILD+7*, LASTCHILD+9
REC3 CHILDREN+3~, CHILDREN+5*, LASTCHILD+1~, LASTCHILD+8*, LASTCHILD+9
RET AIL+2~, MRTCCLOSEOUT+4
RET1 AIL+2~
>> RGS BLDARRAYS+10
>> RGS( LOOPMSG+13*
RR LASTCHILD+1~, LASTCHILD+5*, LASTCHILD+6*, LASTCHILD+7, LASTCHILD+8
>> RTCID APPTSCENARIO+17
RTN MRTCCHILD+1~, MRTCCHILD+2*, MRTCCHILD+22, MRTCCHILD+23
>> SCH LOOPMSG+5*, BLDARRAYS+3
>> SCH(23 CHKCHILD+6, APPTSCENARIO+5
>> SCH(24 CHKCHILD+5, APPTSCENARIO+8, APPTSCENARIO+12
>> SCH(7 APPTSCENARIO+4, APPTSCENARIO+7
>> SCHNTE LOOPMSG+6*, BLDARRAYS+5
SCXX MRTCCHILD+1~, MRTCCHILD+16*, MRTCCHILD+17
>> SDAPT MRTCCLOSEOUT+1
SDAPTYP AIL+5*, AIL+7*, AIL+10*, AIL+16*, CHKCON~, CHKCON+4, CHKCON+16, CHKCON+23, CHKCHILD+4, APPTSCENARIO+10*
, APPTSCENARIO+11*, APPTSCENARIO+13*, APPTSCENARIO+15, APPTSCENARIO+16*, APPTSCENARIO+17*, APPTSCENARIO+18*, APPTSCENARIO+22*, APPTSCENARIO+25*
SDC MRTCREOPEN+1~*, MRTCREOPEN+2*, MRTCREOPEN+3, MRTCREOPEN+4
>> SDCHILD APPTSCENARIO+1*, APPTSCENARIO+4*, APPTSCENARIO+7*, APPTSCENARIO+11*, APPTSCENARIO+13, APPTSCENARIO+16, APPTSCENARIO+17, APPTSCENARIO+18, APPTSCENARIO+19*, APPTSCENARIO+20
, APPTSCENARIO+22*, APPTSCENARIO+25*, MRTCCLOSEOUT+1, MRTCREOPEN+3
SDCIEN MRTCREOPEN+1~, MRTCREOPEN+4*, MRTCREOPEN+5
>> SDCL AIL+2*, CHKCHILD+10, CHKCHILD+12
>> SDCLNERR CHKCHILD+3*, CHKCHILD+12*
>> SDECNOTE AIL+17*, MRTCCHILD+12
>> SDECRES AIL+2*
SDFDA MRTCREOPEN+1~
SDFDA( MRTCREOPEN+5*
>> SDMRTC AIL+9*, CHKCHILD+8*
>> SDMTC APPTSCENARIO+22*, APPTSCENARIO+24*
>> SDPARENT AIL+6*, AIL+9, CHKCHILD+5*, CHKCHILD+6*, CHKCHILD+7, CHKCHILD+8, CHKCHILD+10, CHKCHILD+13, APPTSCENARIO+1*, APPTSCENARIO+5*
, APPTSCENARIO+8*, APPTSCENARIO+12*, APPTSCENARIO+13, APPTSCENARIO+16*, APPTSCENARIO+17*, APPTSCENARIO+18, APPTSCENARIO+19, APPTSCENARIO+20, APPTSCENARIO+21, APPTSCENARIO+22*
, MRTCCLOSEOUT+1, MRTCCLOSEOUT+2, MRTCCLOSEOUT+3, MRTCREOPEN+2, MRTCREOPEN+4, MRTCREOPEN+5, MRTCREOPEN+6
>> SDPATMODE APPTSCENARIO+3
>> SDPRVMODE APPTSCENARIO+6
>> SDRTCCLIN CHKCHILD+10*, CHKCHILD+12
SDT JSONTFM+6~, JSONTFM+13*, JSONTFM+14
>> SDTMPHL(1 NEWTIME+2, NEWTIME+8*
>> SDTMPHL(5 NEWTIME+9*
>> SEG AIL+1
>> SEGTYPE LOOPMSG+2, LOOPMSG+3*, LOOPMSG+4, LOOPMSG+5, LOOPMSG+6, LOOPMSG+7, LOOPMSG+8, LOOPMSG+9, LOOPMSG+10, LOOPMSG+15
, LOOPMSG+16, LOOPMSG+17, LOOPMSG+18, LOOPMSG+19, LOOPMSG+20, LOOPMSG+21, LOOPMSG+22
>> SETID LOOPMSG+11*, LOOPMSG+12, LOOPMSG+13, LOOPMSG+15, LOOPMSG+16, LOOPMSG+17, LOOPMSG+18, LOOPMSG+19, LOOPMSG+20, LOOPMSG+21
, LOOPMSG+22
ST1 NEWTIME+1~, NEWTIME+2*, NEWTIME+4*, NEWTIME+5*, NEWTIME+6*, NEWTIME+7
ST12 NEWTIME+1~, NEWTIME+2*, NEWTIME+7*, NEWTIME+8, NEWTIME+9
>> STA MRTCCLOSEOUT+3
STCREC AIL+3~, AIL+4*
>> STOPME CHKCON+2*, CHKCON+6, CHKCON+13*, CHKCON+18, CHKCON+22*
TIEN CHKCAN+1~, CHKCAN+5*, CHKCAN+6, CHKCAN+7, CHKCAN+9
TM JSONTFM+6~, JSONTFM+10*, JSONTFM+11*, JSONTFM+12, JSONTFM+13
TZINST JSONTFM+6~, JSONTFM+8*, JSONTFM+12
U CHILDREN+5, APPTSCENARIO+21, MRTCCHILD+2, LASTCHILD+4, LASTCHILD+9
X MRTCCHILD+1~
X1 CHKCON+3~, CHKCON+5*, CHKCON+7, CHKCON+17*, CHKCON+19
>> XX AIL+17
YES CHILDREN+3~, CHILDREN+4*, CHILDREN+5*, CHILDREN+6
ZULU JSONTFM+6~, JSONTFM+7*, JSONTFM+12
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All