Routine: SDES2INACTCLIN

Package	Total	Call Graph
Scheduling	5	($$FMTISO,$$ISOTFM)^SDAMUTDT (BUILDJSON,ENCODE,ERRLOG)^SDES2JSON $$GETRES^SDES2UTIL1 VALCLINIEN^SDES2VAL44 VALCONTEXT^SDES2VALCONTEXT
VA FileMan	3	C^%DTC (FILE,UPDATE)^DIE $$GET1^DIQ
Kernel	2	$$DOW^XLFDT DUZ^XUP

Name	Comments	DBIA/ICR reference
SDINACTCLN(SDRETURN,SDCONTEXT,SDPARAM)	;Inactivate Clinic
INIT(SDPARAM,CLINICIEN,INACTDATE)	; initialize values needed
VALPARAM(ERRORS,PARAMS,DELINACT)	; Check if we are doing a delete inactivation date
VALIDATE(ERRORS,SDPARAM,INACTIVEDATE,CLINICIEN,DELINACT)	; validate incoming parameters
NOAPPOINTMENTS(CLINICIEN,INACTDATE,ERRORS)	;
BLDCINREC(SDCINREC,CLINICIEN,INACTIVEDATE,ERRORS)	;Inactivate Clinic ; If the inactivation was filed in FILEMAN, no errors recorded, otherwise populate ERRORS
REMVTX(SCLIN,SDDATE)	; Remove T0 to T6 patterns
REMPROV(CLINIEN)	;Remove Providers from Clinic
UPDATECLNRES(SDCLINICIEN,INACTIVATIONDATE,ERRORS)	;Update INACTIVATED DATE/TIME and INACTIVATED BY USER in SDEC RESOURCE File #409.831
DELETEINACTIVE(RESULTS,SDPARAM)	;

Name	Field # of Occurrence
C^%DTC	REMVTX+5
FILE^DIE	REMPROV+6, UPDATECLNRES+11, DELETEINACTIVE+5, DELETEINACTIVE+10
UPDATE^DIE	BLDCINREC+11, REMVTX+16, REMVTX+24, REMVTX+32
$$GET1^DIQ	VALPARAM+5, NOAPPOINTMENTS+6, BLDCINREC+5, BLDCINREC+7, REMVTX+10, REMVTX+14, REMVTX+20, UPDATECLNRES+5
$$FMTISO^SDAMUTDT	INIT+4
$$ISOTFM^SDAMUTDT	VALIDATE+4, NOAPPOINTMENTS+2, BLDCINREC+6, UPDATECLNRES+4
BUILDJSON^SDES2JSON	SDINACTCLN+19, SDINACTCLN+25, SDINACTCLN+28, SDINACTCLN+33
ENCODE^SDES2JSON	SDINACTCLN+36
ERRLOG^SDES2JSON	VALPARAM+4, VALPARAM+6, VALPARAM+7, VALIDATE+5, VALIDATE+6, NOAPPOINTMENTS+7, BLDCINREC+12, REMVTX+17, REMVTX+25, REMVTX+33 , UPDATECLNRES+12, DELETEINACTIVE+6, DELETEINACTIVE+11
$$GETRES^SDES2UTIL1	UPDATECLNRES+2, DELETEINACTIVE+3
VALCLINIEN^SDES2VAL44	SDINACTCLN+22
VALCONTEXT^SDES2VALCONTEXT	SDINACTCLN+18
$$DOW^XLFDT	REMVTX+4, REMVTX+5
DUZ^XUP	SDINACTCLN+21

RPC Name	Call Tags
SDES2 INACTIVATE CLINIC	SDINACTCLN

FileNo	Call Tags
^SDEC(409.831 - [#409.831]	GET1^DIQ
^SC - [#44]	GET1^DIQ
44.003	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	NOAPPOINTMENTS+5, NOAPPOINTMENTS+6, BLDCINREC+15!, BLDCINREC+16!, BLDCINREC+17!, REMVTX+4, REMVTX+5, REMVTX+6, REMVTX+7, REMVTX+8 , REMVTX+9, REMVTX+13, REMVTX+18!, REMVTX+27, REMPROV+1, REMPROV+4

Name	Line Occurrences
BLDCINREC	SDINACTCLN+30
DELETEINACTIVE	SDINACTCLN+35
INIT	SDINACTCLN+23
NOAPPOINTMENTS	SDINACTCLN+27
REMPROV	BLDCINREC+19
REMVTX	BLDCINREC+18
UPDATECLNRES	SDINACTCLN+32
VALIDATE	SDINACTCLN+24
VALPARAM	VALIDATE+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CLIN	BLDCINREC+3~
CLINICIEN	SDINACTCLN+15~, SDINACTCLN+23, SDINACTCLN+24, SDINACTCLN+27, SDINACTCLN+30, SDINACTCLN+32, INIT~, INIT+1, VALIDATE~, NOAPPOINTMENTS~ , NOAPPOINTMENTS+3, NOAPPOINTMENTS+5, NOAPPOINTMENTS+6, BLDCINREC~, BLDCINREC+5, BLDCINREC+7, BLDCINREC+8, BLDCINREC+10, BLDCINREC+15, BLDCINREC+16 , BLDCINREC+17, BLDCINREC+18, BLDCINREC+19
CLINIEN	REMPROV~, REMPROV+1, REMPROV+4, REMPROV+5
DA	REMVTX+1~
DATEIDX	NOAPPOINTMENTS+1~, NOAPPOINTMENTS+4, NOAPPOINTMENTS+5, NOAPPOINTMENTS+6
DELINACT	SDINACTCLN+15~, SDINACTCLN+16, SDINACTCLN+24, SDINACTCLN+26, SDINACTCLN+34, VALPARAM~, VALPARAM+8, VALIDATE~, VALIDATE+2
DIE	REMVTX+1~
DIERR	SDINACTCLN+15~
DOW	REMVTX+1~, REMVTX+4, REMVTX+5
DR	REMVTX+1~
DT	INIT+4, VALPARAM+7, VALIDATE+6, BLDCINREC+19
DUZ	SDINACTCLN+21~, UPDATECLNRES+7
ERR	REMVTX+1~, REMVTX+11!, REMVTX+17, REMVTX+21!, REMVTX+25, REMVTX+28!, REMVTX+33
ERRORS	SDINACTCLN+15~, SDINACTCLN+18, SDINACTCLN+19, SDINACTCLN+22, SDINACTCLN+24, SDINACTCLN+25, SDINACTCLN+26, SDINACTCLN+27, SDINACTCLN+28, SDINACTCLN+30 , SDINACTCLN+32, SDINACTCLN+33, VALPARAM~, VALPARAM+2, VALPARAM+4, VALPARAM+6, VALPARAM+7, VALIDATE~, VALIDATE+2, VALIDATE+5 , VALIDATE+6, NOAPPOINTMENTS~, NOAPPOINTMENTS+7, BLDCINREC~, BLDCINREC+12, BLDCINREC+14, REMVTX+6, REMVTX+10, REMVTX+12, REMVTX+17 , REMVTX+19, REMVTX+25, REMVTX+33, UPDATECLNRES~, UPDATECLNRES+12
ERRORS("ClinicInactivate"	SDINACTCLN+19, SDINACTCLN+25, SDINACTCLN+28, SDINACTCLN+33
FDA	REMVTX+1~, REMVTX+11!, REMVTX+21!, REMVTX+28!, DELETEINACTIVE+2~, DELETEINACTIVE+7!
FDA(	REMVTX+14, REMVTX+15, REMVTX+22, REMVTX+23, REMVTX+29, REMVTX+30, DELETEINACTIVE+8, DELETEINACTIVE+9
FDA(44	DELETEINACTIVE+4*
FDAIEN	REMVTX+1~, REMVTX+11!, REMVTX+21!, REMVTX+28!
FDAIEN(2	REMVTX+16, REMVTX+24, REMVTX+31*
FDERR	DELETEINACTIVE+2~, DELETEINACTIVE+6, DELETEINACTIVE+7!, DELETEINACTIVE+11
FMDATE	VALIDATE+1~, VALIDATE+4, VALIDATE+5, VALIDATE+6, NOAPPOINTMENTS+1~, NOAPPOINTMENTS+2, NOAPPOINTMENTS+4, NOAPPOINTMENTS+5, NOAPPOINTMENTS+6, BLDCINREC+2~ , BLDCINREC+6, BLDCINREC+8, BLDCINREC+9, BLDCINREC+14, BLDCINREC+15, BLDCINREC+16, BLDCINREC+17, BLDCINREC+18, BLDCINREC+19, UPDATECLNRES+1~ , UPDATECLNRES+4*, UPDATECLNRES+6, UPDATECLNRES+8
I	BLDCINREC+2~, BLDCINREC+15, BLDCINREC+16, BLDCINREC+17, REMVTX+1~, REMVTX+3, REMVTX+5, REMVTX+6, REMVTX+7, REMVTX+8 , REMVTX+9, REMVTX+10, REMVTX+13, REMVTX+14, REMVTX+15, REMVTX+16, REMVTX+17, REMVTX+18, REMVTX+20, REMVTX+22 , REMVTX+23, REMVTX+26, REMVTX+27, REMVTX+29, REMVTX+30, REMVTX+31, REMVTX+33
I1	NOAPPOINTMENTS+1~, NOAPPOINTMENTS+6*
IEN	BLDCINREC+3~
INACTDATE	SDINACTCLN+15~, SDINACTCLN+23, SDINACTCLN+24, SDINACTCLN+27, SDINACTCLN+30, SDINACTCLN+32, INIT~, INIT+2, INIT+4, NOAPPOINTMENTS~ , NOAPPOINTMENTS+2
INACTDT	VALPARAM+1~, VALPARAM+5*, VALPARAM+6, VALPARAM+7
INACTIVATIONDATE	UPDATECLNRES~, UPDATECLNRES+4
INACTIVEDATE	VALIDATE~, VALIDATE+4, BLDCINREC~, BLDCINREC+6
J	REMVTX+1~, REMVTX+6*, REMVTX+9, REMVTX+10, REMVTX+14, REMVTX+18
J1	REMVTX+1~, REMVTX+18*
LASTDATE	NOAPPOINTMENTS+1~, NOAPPOINTMENTS+4*, NOAPPOINTMENTS+5
PARAMS	VALPARAM~
PARAMS("CLINI	C IEN" , VALPARAM+5
PARAMS("DELET	E INACTIVATION" , VALPARAM+3, VALPARAM+4
POP	NOAPPOINTMENTS+1~, NOAPPOINTMENTS+4, NOAPPOINTMENTS+5, NOAPPOINTMENTS+6, NOAPPOINTMENTS+7
PROVDUZ	BLDCINREC+3~
PRVDA	REMPROV+2~, REMPROV+6!
PRVDA(	REMPROV+5*
PRVIEN	REMPROV+2~, REMPROV+3, REMPROV+4, REMPROV+5
REACTDT	BLDCINREC+2~, BLDCINREC+5, BLDCINREC+9, BLDCINREC+14, UPDATECLNRES+1~, UPDATECLNRES+5, UPDATECLNRES+8
RESULTS	SDINACTCLN+15~, SDINACTCLN+30, SDINACTCLN+35, SDINACTCLN+36, DELETEINACTIVE~, DELETEINACTIVE+6, DELETEINACTIVE+11
RESULTS("ClinicInactivate"	DELETEINACTIVE+6, DELETEINACTIVE+11, DELETEINACTIVE+12*
SCLIN	REMVTX~, REMVTX+4, REMVTX+5, REMVTX+6, REMVTX+7, REMVTX+8, REMVTX+9, REMVTX+10, REMVTX+13, REMVTX+14 , REMVTX+15, REMVTX+17, REMVTX+18, REMVTX+20, REMVTX+22, REMVTX+23, REMVTX+25, REMVTX+27, REMVTX+29, REMVTX+30 , REMVTX+33
SD	REMVTX+1~, REMVTX+9*, REMVTX+10
SDATE	BLDCINREC+2~, BLDCINREC+14*, BLDCINREC+15, BLDCINREC+16, BLDCINREC+17
SDCINREC	BLDCINREC~
SDCINREC("ClinicInactivate"	BLDCINREC+20*
SDCLINICIEN	UPDATECLNRES~, UPDATECLNRES+2
SDCLINRES	UPDATECLNRES+1~, UPDATECLNRES+2, UPDATECLNRES+3, UPDATECLNRES+5, UPDATECLNRES+6, UPDATECLNRES+7, UPDATECLNRES+9, UPDATECLNRES+10, UPDATECLNRES+12, DELETEINACTIVE+2~ , DELETEINACTIVE+3, DELETEINACTIVE+8, DELETEINACTIVE+9, DELETEINACTIVE+11
SDCLNNAME	BLDCINREC+2~, BLDCINREC+4, BLDCINREC+7
SDCONTEXT	SDINACTCLN~, SDINACTCLN+18
SDCONTEXT("US	ER DUZ" , SDINACTCLN+21
SDDATE	REMVTX~, REMVTX+4
SDERR	BLDCINREC+2~, BLDCINREC+12, UPDATECLNRES+1~, UPDATECLNRES+12
SDFDA	BLDCINREC+2~
SDFDA(44	BLDCINREC+8, BLDCINREC+10
SDFILE	REMVTX+1~
SDFILE(	REMVTX+3*, REMVTX+10, REMVTX+14, REMVTX+15, REMVTX+20, REMVTX+22, REMVTX+23, REMVTX+29, REMVTX+30
SDINDPAT	REMVTX+1~
SDINDPAT(	REMVTX+4, REMVTX+5, REMVTX+26, REMVTX+29
SDN	REMVTX+1~, REMVTX+4!
SDN(	REMVTX+4, REMVTX+5, REMVTX+6, REMVTX+13, REMVTX+15, REMVTX+16, REMVTX+17, REMVTX+27, REMVTX+30, REMVTX+31 , REMVTX+33
SDPARAM	SDINACTCLN~, SDINACTCLN+23, SDINACTCLN+24, SDINACTCLN+35, INIT~, VALIDATE~, VALIDATE+2, DELETEINACTIVE~
SDPARAM("CLIN	IC IEN" , SDINACTCLN+22, INIT+1, DELETEINACTIVE+3, DELETEINACTIVE+4, DELETEINACTIVE+6, DELETEINACTIVE+12
SDPARAM("INAC	TIVATION DATE" , INIT+2
SDRESFDA	UPDATECLNRES+1~
SDRESFDA(	UPDATECLNRES+6, UPDATECLNRES+7, UPDATECLNRES+9, UPDATECLNRES+10
SDRETURN	SDINACTCLN~, SDINACTCLN+19, SDINACTCLN+25, SDINACTCLN+28, SDINACTCLN+33, SDINACTCLN+36
TNODE	REMVTX+1~, REMVTX+2*, REMVTX+3
U	REMVTX+3
X	REMVTX+1~, REMVTX+4*, REMVTX+5, REMPROV+2~
X1	REMVTX+1~, REMVTX+5*
X2	REMVTX+1~, REMVTX+5*
Y	REMPROV+2~

Customize PDF page

Package: Scheduling

Routine: SDES2INACTCLIN

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: