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 |  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: SD53P603

Package: Scheduling

Routine: SD53P603


Information

SD53P603 ;ALB/ART - SD*5.3*603 Post Install ;02/27/2015

Source Information

Source file <SD53P603.m>

Call Graph

Call Graph

Call Graph Total: 13

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

External References

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

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*
Info |  Source |  Call Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All