Routine: SD53P603

Package	Total	Call Graph
VA FileMan	6	DELIX^DDMOD MSG^DIALOG $$FIND1^DIC (FILE,UPDATE,WP)^DIE (,EN1,ENALL)^DIK CLEAN^DILF
Kernel	4	^%ZTLOAD ($$FMDIFF,$$FMTE,$$NOW)^XLFDT (BMES,MES)^XPDUTL $$CREATE^XUSAP
MailMan	1	^XMD
Scheduling	1	(OPTOUT,SECMENU)^SCMCOPT
Web Services Client	1	($$SKEYADD,REGREST)^XOBWLIB

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
SETHWSC	;Add/update records in 18.02, 18.12, 18.13
SERVICE(SDSVC,SDSVRIEN,SDSRVR)	; add web service to web server ; Input: SDSVC - web service name ; SDSVRIEN - web server ien ; SDSRVR - web server name
LKUPKEY(SDSVRIEN,SDKEYIEN,SDSRVR)	; point lookup key to server ; Input: SDSVRIEN - web server ien ; SDKEYIEN - lookup key ien ; SDSRVR - web server name
FILESRVR(SDSRVR,SDADRS,SDPORT)	; File a new record in file #18.12 or edit existing ; Input: SDSRVR - web server name ; SDADRS - web server address ; SDPORT - port number ; Output: ; Function Value - Returns IEN of record on success, 0 on failure
DISPERR(SDINARR)	; display error message
ADDPROXY	;Create PCMMR Application Proxy User
DISMENU	;Disable Legacy PCMM Menu Options
SECMENU	;Change New Person Records that have SCMC PCMM GUI WORKSTATION to SCMC PCMMR WEB USER MENU
BLDINDEX	;Build Outpatient Encounters ACOD index
JOBINDEX	;Build Outpatient Encounters ACOD index
BLDACOD	;Build Outpatient Encounters ACOD index
SENDMAIL(XMSUB,SDMSG)	;send Mailman message ; Input: XMSUB - Mail message subject ; SDMSG - Mail message text, by reference
BLDINDX2	;Patient Team Position Assignment File (#404.43) C cross reference
DLNITTSK	; Delete SCMC PCMM NIGHTLY TASK from the Scheduled Options file
CNVTSTAT	; Convert Status (.12) in 404.43 from NA to IU
ACOD	;Create Outpatient Encounters 'ACOD' index for child encounters
ACODIND	;Build missing ACOD index for child encounters checked out on or after 04/01/14
MAIL	;Generate MailMan message
DELTRIGR	;Delete FTEE History trigger in 404.52
TEAMPURP	;add 2 records to Team Purpose (403.47)
TPERR(SDINARR)	; display error message

Name	Field # of Occurrence
^%ZTLOAD	JOBINDEX+18, ACOD+14
DELIX^DDMOD	DELTRIGR+8
MSG^DIALOG	DISPERR+3, TPERR+3
$$FIND1^DIC	SERVICE+7, FILESRVR+9, DLNITTSK+3, TEAMPURP+11
FILE^DIE	LKUPKEY+8, FILESRVR+27, CNVTSTAT+8
UPDATE^DIE	SERVICE+13, FILESRVR+32, TEAMPURP+15
WP^DIE	TEAMPURP+19
^DIK	DLNITTSK+7
EN1^DIK	ACODIND+18
ENALL^DIK	BLDINDEX+17, BLDACOD+23, BLDINDX2+17
CLEAN^DILF	SERVICE+21
OPTOUT^SCMCOPT	DISMENU+2
SECMENU^SCMCOPT	SECMENU+2
$$FMDIFF^XLFDT	BLDINDEX+20, BLDACOD+14, BLDACOD+30, BLDINDX2+20, MAIL+9
$$FMTE^XLFDT	MAIL+7, MAIL+8
$$NOW^XLFDT	BLDINDEX+14, BLDINDEX+18, JOBINDEX+14, BLDACOD+7, BLDACOD+24, BLDINDX2+14, BLDINDX2+18, ACOD+10, ACODIND+2, ACODIND+19
^XMD	SENDMAIL+10, MAIL+11
$$SKEYADD^XOBWLIB	SETHWSC+42, SETHWSC+51
REGREST^XOBWLIB	SETHWSC+11
BMES^XPDUTL	ACOD+3, ACOD+6, DELTRIGR+5, DELTRIGR+10, DELTRIGR+12, DELTRIGR+14
MES^XPDUTL	SETHWSC+19, SETHWSC+20, SETHWSC+32, SETHWSC+33, SETHWSC+43, SETHWSC+44, SETHWSC+52, SETHWSC+53, SERVICE+16, SERVICE+17 , SERVICE+19, SERVICE+20, SERVICE+23, SERVICE+24, LKUPKEY+12, LKUPKEY+13, LKUPKEY+15, LKUPKEY+16, ADDPROXY+8, ADDPROXY+9 , ADDPROXY+11, ADDPROXY+12, ADDPROXY+14, ADDPROXY+15, DISMENU+3, DISMENU+4, SECMENU+3, SECMENU+4, BLDINDEX+7, BLDINDEX+8 , BLDINDEX+10, BLDINDEX+11, BLDINDEX+12, BLDINDEX+19, BLDINDEX+20, BLDINDEX+21, JOBINDEX+6, JOBINDEX+7, JOBINDEX+8, BLDINDX2+7 , BLDINDX2+8, BLDINDX2+10, BLDINDX2+11, BLDINDX2+12, BLDINDX2+19, BLDINDX2+20, BLDINDX2+21, DLNITTSK+9, DLNITTSK+10, CNVTSTAT+10 , CNVTSTAT+11, ACOD+4, ACOD+5
$$CREATE^XUSAP	ADDPROXY+6

FileNo	Call Tags
^XOB(18.02 - [#18.02]	FIND1^DIC
^XOB(18.12 - [#18.12]	FIND1^DIC
^DIC(19 - [#19]	FIND1^DIC
^DIC(19.2 - [#19.2]	Classic Fileman Calls
^SD(403.47 - [#403.47]	FIND1^DIC, WP^DIE
^SCPT(404.43 - [#404.43]	Classic Fileman Calls
^SCTM(404.52 - [#404.52]	DELIX^DDMOD
^SCE - [#409.68]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD(404.52	DELTRIGR+7
^DIC(19.2 - [#19.2]	DLNITTSK+5
^SCE - [#409.68]	ACODIND+8
^SCE("ACOD"	BLDINDEX+6, BLDACOD+11, BLDACOD+13, BLDACOD+20!, ACODIND+14, ACODIND+16
^SCE("B"	ACODIND+6, ACODIND+7
^SCE(0	BLDINDEX+11, BLDACOD+29
^SCPT(404.43 - [#404.43]	BLDINDX2+6, BLDINDX2+11, CNVTSTAT+4
^XOB(18.12 - [#18.12]	SERVICE+8

Name	Line Occurrences
$$FILESRVR	SETHWSC+18, SETHWSC+31
ACOD	EN+33
ADDPROXY	EN+6
BLDINDX2	EN+27
CNVTSTAT	EN+9
DELTRIGR	EN+24
DISMENU	EN+15
DISPERR	SERVICE+15, LKUPKEY+10, FILESRVR+29, FILESRVR+34
DLNITTSK	EN+12
JOBINDEX	EN+30
LKUPKEY	SETHWSC+46, SETHWSC+55
MAIL	ACODIND+20
SECMENU	EN+21
SENDMAIL	BLDACOD+18, BLDACOD+31
SERVICE	SETHWSC+24, SETHWSC+37
SETHWSC	EN+3
TEAMPURP	EN+18
TPERR	TEAMPURP+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	ACODIND+1~, ACODIND+4, ACODIND+17, MAIL+6
CODT	ACODIND+1~, ACODIND+12*, ACODIND+14, ACODIND+16
DA	DLNITTSK+1~, DLNITTSK+4, DLNITTSK+5, ACODIND+1~, ACODIND+17*
DIERR	SETHWSC+3~, SERVICE+5~, SERVICE+14, LKUPKEY+9, FILESRVR+7~, FILESRVR+28, FILESRVR+33, TEAMPURP+10~
DIK	BLDINDEX+13~, BLDINDEX+15, BLDACOD+6~, BLDACOD+21, BLDINDX2+13~, BLDINDX2+15, DLNITTSK+1~, DLNITTSK+6, ACODIND+1~, ACODIND+5*
DIK(1	BLDINDEX+16, BLDACOD+22, BLDINDX2+16, ACODIND+17
DUZ	JOBINDEX+11, SENDMAIL+7, ACOD+7
IEN	ACODIND+1~, ACODIND+6, ACODIND+7, ACODIND+8, ACODIND+16, ACODIND+17
OPT	DLNITTSK+1~, DLNITTSK+3*, DLNITTSK+5
SD0	ACODIND+1~, ACODIND+8*, ACODIND+10, ACODIND+12
SDADRS	SETHWSC+2~, SETHWSC+15, SETHWSC+16, SETHWSC+18, SETHWSC+28, SETHWSC+29, SETHWSC+31, FILESRVR~, FILESRVR+20
SDDESC	TEAMPURP+2~
SDDESC(	TEAMPURP+18
SDDESC(1	TEAMPURP+6*
SDDESC(2	TEAMPURP+7*
SDDT	ACODIND+1~, ACODIND+3, ACODIND+6, ACODIND+7
SDDUZ	JOBINDEX+10~, JOBINDEX+11, SENDMAIL+7, SENDMAIL+8
SDECDT	BLDACOD+6~, BLDACOD+12, BLDACOD+13, BLDACOD+14
SDEND	BLDINDEX+13~, BLDINDEX+18, BLDINDEX+20, BLDACOD+6~, BLDACOD+24, BLDACOD+30, BLDINDX2+13~, BLDINDX2+18, BLDINDX2+20, ACODIND+1~ , ACODIND+19, MAIL+8, MAIL+9
SDERR	SETHWSC+3~, SERVICE+5~, SERVICE+15, LKUPKEY+10, FILESRVR+7~, FILESRVR+29, FILESRVR+34, CNVTSTAT+2~, DELTRIGR+4~, DELTRIGR+9 , TEAMPURP+10~, TEAMPURP+16, TEAMPURP+17
SDFDA	SETHWSC+3~, SERVICE+5~, LKUPKEY+4~, FILESRVR+7~, CNVTSTAT+2~, CNVTSTAT+6~, TEAMPURP+10~
SDFDA(	SERVICE+11, SERVICE+12, LKUPKEY+7, FILESRVR+18, FILESRVR+19, FILESRVR+20, FILESRVR+21, FILESRVR+22, FILESRVR+23, FILESRVR+24 , CNVTSTAT+7, TEAMPURP+14
SDFDAI	SETHWSC+3~, SERVICE+5~, FILESRVR+7~, TEAMPURP+10~
SDFDAI(1	FILESRVR+37, TEAMPURP+19
SDFN	ACODIND+1~, ACODIND+12*, ACODIND+14, ACODIND+16
SDHIT	BLDACOD+6~, BLDACOD+8, BLDACOD+11, BLDACOD+13, BLDACOD+14, BLDACOD+15
SDI	SETHWSC+3~, DISPERR+1~, DISPERR+4, TEAMPURP+2~, TEAMPURP+9, TEAMPURP+11, TEAMPURP+14, TEAMPURP+18, TPERR+1~, TPERR+4*
SDIEN	FILESRVR+7~, FILESRVR+9, FILESRVR+12, FILESRVR+13, FILESRVR+26, FILESRVR+30, FILESRVR+35, FILESRVR+37, FILESRVR+39, CNVTSTAT+2~ , CNVTSTAT+3, CNVTSTAT+4, CNVTSTAT+5, TEAMPURP+10~, TEAMPURP+11*, TEAMPURP+13
SDIENS	SETHWSC+3~, SERVICE+5~, SERVICE+10, SERVICE+11, SERVICE+12, LKUPKEY+6, LKUPKEY+7, FILESRVR+7~, FILESRVR+13, FILESRVR+15 , FILESRVR+18, FILESRVR+19, FILESRVR+20, FILESRVR+21, FILESRVR+22, FILESRVR+23, FILESRVR+24, CNVTSTAT+2~, CNVTSTAT+5*, CNVTSTAT+7
SDINARR	DISPERR~, DISPERR+3, TPERR~, TPERR+3
SDKEYDSC	SETHWSC+3~, SETHWSC+41, SETHWSC+42, SETHWSC+50, SETHWSC+51
SDKEYIEN	SETHWSC+3~, SETHWSC+42, SETHWSC+43, SETHWSC+46, SETHWSC+51, SETHWSC+52, SETHWSC+55, LKUPKEY~, LKUPKEY+5, LKUPKEY+6
SDKEYNM	SETHWSC+3~, SETHWSC+40, SETHWSC+42, SETHWSC+43, SETHWSC+49, SETHWSC+51, SETHWSC+52, LKUPKEY+12
SDMSG	BLDACOD+6~, BLDACOD+18, BLDACOD+31, SENDMAIL~, MAIL+1~
SDMSG(1	BLDACOD+17, BLDACOD+28, MAIL+5*
SDMSG(2	BLDACOD+29, MAIL+6
SDMSG(3	BLDACOD+30, MAIL+7
SDMSG(4	MAIL+8*
SDMSG(5	MAIL+9*
SDNAME	TEAMPURP+2~
SDNAME(	TEAMPURP+11, TEAMPURP+14
SDNAME(1	TEAMPURP+4*
SDNAME(2	TEAMPURP+5*
SDOPT	ADDPROXY+4~, ADDPROXY+6
SDOPT("SCMC P	CMMR APP PROXY MENU" , ADDPROXY+5*
SDOUT	DISPERR+1~, DISPERR+3, TPERR+1~, TPERR+3
SDOUT(	DISPERR+4, TPERR+4
SDPE	ACODIND+1~, ACODIND+10*, ACODIND+14
SDPORT	SETHWSC+2~, SETHWSC+17, SETHWSC+18, SETHWSC+30, SETHWSC+31, FILESRVR~, FILESRVR+19
SDREGIEN	SETHWSC+3~
SDROOT	SETHWSC+1~, SETHWSC+8*, SETHWSC+11
SDRTN	ADDPROXY+4~, ADDPROXY+6*, ADDPROXY+7, ADDPROXY+10
SDSRVR	SERVICE~, SERVICE+16, SERVICE+19, SERVICE+23, LKUPKEY~, LKUPKEY+12, FILESRVR~, FILESRVR+9, FILESRVR+18
SDSTART	BLDINDEX+13~, BLDINDEX+14, BLDINDEX+20, BLDACOD+6~, BLDACOD+7, BLDACOD+14, BLDACOD+30, BLDINDX2+13~, BLDINDX2+14, BLDINDX2+20 , ACODIND+1~, ACODIND+2, MAIL+7, MAIL+9
SDSVC	SETHWSC+1~, SETHWSC+7*, SETHWSC+11, SETHWSC+24, SETHWSC+37, SERVICE~, SERVICE+7, SERVICE+16, SERVICE+19, SERVICE+23
SDSVCIEN	SETHWSC+4~, SERVICE+5~, SERVICE+7*, SERVICE+8, SERVICE+11
SDSVR1	SETHWSC+3~, SETHWSC+18*, SETHWSC+19, SETHWSC+21, SETHWSC+24, SETHWSC+46
SDSVR2	SETHWSC+3~, SETHWSC+31*, SETHWSC+32, SETHWSC+34, SETHWSC+37, SETHWSC+55
SDSVRIEN	SERVICE~, SERVICE+8, SERVICE+10, LKUPKEY~, LKUPKEY+5, LKUPKEY+7
SDSVRNM1	SETHWSC+2~, SETHWSC+14*, SETHWSC+18, SETHWSC+19, SETHWSC+24, SETHWSC+46
SDSVRNM2	SETHWSC+2~, SETHWSC+27*, SETHWSC+31, SETHWSC+32, SETHWSC+37, SETHWSC+55
SDUZ	ACOD+2~, ACOD+7*, MAIL+3
SDWP	TEAMPURP+10~
SDWP(1	TEAMPURP+18*
SDX	BLDACOD+6~, BLDACOD+10, BLDACOD+11, BLDACOD+13
TSKNAM	DLNITTSK+1~, DLNITTSK+2*, DLNITTSK+3
U	BLDINDEX+11, BLDACOD+29, BLDINDX2+11
XMDUN	MAIL+1~
XMDUZ	SENDMAIL+4~, SENDMAIL+6, MAIL+1~, MAIL+2
XMMG	SENDMAIL+4~, MAIL+1~
XMSUB	BLDACOD+6~, BLDACOD+16, BLDACOD+18, BLDACOD+27, BLDACOD+31, SENDMAIL~, MAIL+1~, MAIL+4*
XMTEXT	SENDMAIL+4~, SENDMAIL+9, MAIL+1~, MAIL+10
XMY	SENDMAIL+4~, MAIL+1~
XMY(	SENDMAIL+8, MAIL+3
XMZ	SENDMAIL+4~, MAIL+1~
ZTDESC	JOBINDEX+10~, JOBINDEX+13, ACOD+2~, ACOD+9
ZTDTH	JOBINDEX+10~, JOBINDEX+14, ACOD+2~, ACOD+10
ZTIO	JOBINDEX+10~, JOBINDEX+15, ACOD+2~, ACOD+11
ZTRTN	JOBINDEX+10~, JOBINDEX+12, ACOD+2~, ACOD+8
ZTSAVE	JOBINDEX+10~, ACOD+2~
ZTSAVE("SDDUZ"	JOBINDEX+16*
ZTSAVE("SDUZ"	ACOD+12*

Customize PDF page

Package: Scheduling

Routine: SD53P603

Information

Source Information

Call Graph

Call Graph Total: 13

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: