Routine: XUSAP1

Package	Total	Call Graph
Kernel	5	$$S^%ZTLOAD ($$FMDIFF,$$FMTE,$$HTFM)^XLFDT $$RJ^XLFSTR ($$ACTIVE,$$NAME)^XUSER EN^XUTMDEVQ
VA Fileman	3	^DIC GETS^DIQ ^DIR

Package	Total	Caller Graph
Kernel	3	XUS2 XUSAP PROXY CONN DETAIL ALL XUSAP PROXY CONN DETAIL INQ

Entry Points

Name	Comments	DBIA/ICR reference
Q1	;EN^XUTMDEVQ entry point, print 1
HDR	;
QALL	;EN^XUTMDEVQ entry point, print all
OKFLDS	;top-level fields OK/expected to be populated
PFLD	; output a field
GETCPIEN()	;return CP IEN from User Class file
PSCANLOG	; output signon activity for this CP user found in SCANLOG pass
EN1	;option entry point w/dialog to select 1 CP entry; calls task entry point
PCREDCHK	;display credential date checks
ISUSERCP(XUSCPDUZ)	;return 1 if any of DUZ's user classes are CP, 0 if not
VARSETUP	;set up date,print,field list vars
PBADFLDS	;display any unexpected (not part of CP template) top-level fields populated
DUZLIST	;loop thru file 200, return list of CP user class DUZs in XUSCPLST in format:
SCANLOG	;loop thru sign-on log for connector proxy activity, save results in ^TMP($J,"XUSCPLOG")
HDRCHK(Y)	;Y=excess lines, return 1 to exit
PBADMULT	;display any unexpected multiples; skip those already processed:
ENALL	;schedulable option entry point w/dialog to print all CPs; calls task entry point
ADDFLDS(XUSCPTAG,XUSCPARR)	;return list of fields in .XUSCPARR(fieldname) ; XUSCPTAG: tag to read field names from ; .XUSCPARR: array to populate (pass as .param)
BLURB	;
PWARN	;display warning for primary menus, other user classes defined, FM access code
P(XUSCPACTIVE,XUSCPDUZ)	;print/display a CP entry
ASKLOG	;ask if want to scan sign-on log too
INACFLDS	;fields OK to populate for an INACTIVE user
POKFLDS	;display values of allowed fields
ASKFLD	;ask if want to analyze options
WARNFLDS	;field checked in WARNING section

External References

Name	Field # of Occurrence
$$S^%ZTLOAD	P+3, DUZLIST+9, SCANLOG+6
^DIC	EN1+4
GETS^DIQ	P+6
^DIR	ASKLOG+5, ASKFLD+5, HDRCHK+6
$$FMDIFF^XLFDT	PCREDCHK+7, PCREDCHK+8
$$FMTE^XLFDT	VARSETUP+2, PSCANLOG+17
$$HTFM^XLFDT	VARSETUP+1, PCREDCHK+6
$$RJ^XLFSTR	P+15, P+16, PFLD+3, PBADMULT+11, HDR+1
$$ACTIVE^XUSER	Q1+6, DUZLIST+12
$$NAME^XUSER	P+14
EN^XUTMDEVQ	EN1+8, ENALL+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"ABORTING! 'CONNECTOR PROXY' USER CLASS UNDEFINED." Line Location: EN1+2
Function Call: WRITE	Prompt: !!,"Connector Proxy Report ABORTING! 'CONNECTOR PROXY' USER CLASS UNDEFINED." Line Location: ENALL+2
Function Call: WRITE	Prompt: !,XUSCPRNT("EQ"),!,XUSCPSTR,$$RJ^XLFSTR(" Active: "_$S(+XUSCPACTIVE:"YES",1:"NO"),IOM-$L(XUSCPSTR)-1," ") Line Location: P+15
Function Call: WRITE	Prompt: !,$$RJ^XLFSTR("("_XUSCPLST(XUSCPACTIVE,XUSCPDUZ)_")",IOM-1," ") Line Location: P+16
Function Call: WRITE	Prompt: !,XUSCPRNT("EQ") Line Location: P+17
Function Call: WRITE	Prompt: ! Line Location: P+27
Function Call: WRITE	Prompt: !," Compliant w/3-year Service Account Mandate? " Line Location: PCREDCHK+10
Function Call: WRITE	Prompt: "YES" Line Location: PCREDCHK+11
Function Call: WRITE	Prompt: $S(XUSCPACTIVE:"* NO <---- MUST FIX *",1:"No, but user not active.") Line Location: PCREDCHK+13
Function Call: WRITE	Prompt: !," Date User Created: "_$G(^TMP($J,"XUSCP",200,XUSCPDUZ_",","DATE ENTERED","E")) Line Location: PCREDCHK+15
Function Call: WRITE	Prompt: !," Date Verify Code Last Changed: " Line Location: PCREDCHK+17
Function Call: WRITE	Prompt: $S('$L($G(^TMP($J,"XUSCP",200,XUSCPDUZ_",","DATE VERIFY CODE LAST CHANGED","I"))):"never",$G(^("I"))'="60000,1":$G(^("E")),$D(^VA(200,XUSCPDUZ,"VOLD")):"(changed but date not recorded)",1:"never") Line Location: PCREDCHK+18
Function Call: WRITE	Prompt: !," >>>Failed Logon Attempts: "_^("E") Line Location: PCREDCHK+20
Function Call: WRITE	Prompt: !!," Warning(s):",!," -----------" Line Location: PWARN+7
Function Call: WRITE	Prompt: !," Primary Menu defined (SHOULDN'T BE!): ",XUSCPWRN("PRIMARY") Line Location: PWARN+8
Function Call: WRITE	Prompt: !," SSN defined (SHOULDN'T BE!): ",XUSCPWRN("SSN") Line Location: PWARN+9
Function Call: WRITE	Prompt: !," Non-CP User Classes defined (SHOULDN'T BE!): " Line Location: PWARN+11
Function Call: WRITE	Prompt: !," File Manager Access Code is defined (SHOULDN'T BE!): "_^TMP($J,"XUSCP",200,XUSCPDUZ_",","FILE MANAGER ACCESS CODE","E") Line Location: PWARN+16
Function Call: WRITE	Prompt: !!," Values for other fields allowed/expected to be Populated:" Line Location: POKFLDS+2
Function Call: WRITE	Prompt: !," ----------------------------------------------------------" Line Location: POKFLDS+3
Function Call: WRITE	Prompt: !," "_$$RJ^XLFSTR(XUSCPFLD,29)_": " Line Location: PFLD+3
Function Call: WRITE	Prompt: $S(XUSCPFLD="NAME COMPONENTS":"entry# "_$G(^TMP($J,"XUSCP",200,XUSCPDUZ_",",XUSCPFLD,"I")),1:$G(^TMP($J,"XUSCP",200,XUSCPDUZ_",",XUSCPFLD,"E"))) Line Location: PFLD+4
Function Call: WRITE	Prompt: !!," Connector Proxy Activity (Sign-On Log):" Line Location: PSCANLOG+3
Function Call: WRITE	Prompt: !," --------------------------------------" Line Location: PSCANLOG+4
Function Call: WRITE	Prompt: !," no signon activity found" Line Location: PSCANLOG+6
Function Call: WRITE	Prompt: !!,"ABORTING! 'CONNECTOR PROXY' USER CLASS UNDEFINED." Line Location: DUZLIST+5
Function Call: WRITE	Prompt: "CONNECTOR PROXY REPORT: ",XUSCPRNT("DT EXT"),?70,$$RJ^XLFSTR("PAGE "_XUSCPRNT("PG"),9),!,XUSCPRNT("UL"),! Line Location: HDR+1
Function Call: WRITE	Prompt: !,">>>Always contact the National Help Desk or Customer Support, to determine" Line Location: BLURB+1
Function Call: WRITE	Prompt: !,"the best fix (and be alerted to known issues) for ANY problem listed below.",! Line Location: BLURB+2
Function Call: WRITE	Prompt: !?10,"Coordinate all account changes with affected remote" Line Location: BLURB+3
Function Call: WRITE	Prompt: !?15,"application to prevent service disruptions.",! Line Location: BLURB+4
Function Call: WRITE	Prompt: @IOF Line Location: HDRCHK+8
Routine Call	DIC Line Location: EN1+4
Routine Call	DIR Line Location: ASKLOG+5 ASKFLD+5 HDRCHK+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	PBADMULT+8
^TMP($J	Q1+11!, QALL+13!, P+4!, PCREDCHK+6, PCREDCHK+7, PCREDCHK+13, PCREDCHK+15, PCREDCHK+18, PCREDCHK+20, PWARN+2 , PWARN+3, PWARN+4, PWARN+5, PWARN+6, PWARN+12, PWARN+13, PWARN+14, PWARN+16, PFLD+2, PFLD+4 , PBADFLDS+2, PBADMULT+3, PBADMULT+9, PBADMULT+10, PBADMULT+11, PSCANLOG+6, PSCANLOG+7, PSCANLOG+9, PSCANLOG+11, PSCANLOG+12 , PSCANLOG+16, PSCANLOG+17, SCANLOG+12, SCANLOG+14
^VA(200 - [#200]	PCREDCHK+13, PCREDCHK+18, DUZLIST+8, DUZLIST+10, ISUSERCP+3, ISUSERCP+6, ISUSERCP+8
^VA(201 - [#201]	GETCPIEN+1
^XUSEC(0 - [#3.081]	SCANLOG+5, SCANLOG+7, SCANLOG+10, SCANLOG+13

Label References

Name	Line Occurrences
$$GETCPIEN	EN1+2, ENALL+2, PWARN+6, PWARN+13, DUZLIST+5, ISUSERCP+5
$$HDRCHK	P+5, P+12, P+18, P+20, P+22, P+23, P+24, P+25, P+26, PCREDCHK+9 , PCREDCHK+16, PWARN+10, PWARN+15, POKFLDS+4, PFLD+5, PBADFLDS+8, PBADMULT+12, PSCANLOG+5, PSCANLOG+10, PSCANLOG+15 , PSCANLOG+18
$$ISUSERCP	DUZLIST+11
ADDFLDS	VARSETUP+4, VARSETUP+5, VARSETUP+6
ASKFLD	EN1+6, ENALL+4
ASKLOG	EN1+7, ENALL+5
BLURB	Q1+9, QALL+9
DUZLIST	QALL+7
HDR	Q1+9, QALL+9, HDRCHK+8
P	Q1+10, QALL+12
PBADFLDS	P+24
PBADMULT	P+25
PCREDCHK	P+20
PFLD	POKFLDS+5, POKFLDS+6, PBADFLDS+10
POKFLDS	P+23
PSCANLOG	P+26
PWARN	P+22
QALL	ENALL+3
SCANLOG	Q1+8, QALL+8
VARSETUP	Q1+7, QALL+5

Naked Globals

Name	Field # of Occurrence
^("E"	PCREDCHK+18, PCREDCHK+20, PWARN+2
^("I"	PCREDCHK+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIC	EN1+1~, EN1+4*
DIC("S"	EN1+4*
DIC(0	EN1+4*
DIR	ASKLOG+1~, ASKFLD+1~, HDRCHK+5~
DIR("?"	ASKLOG+4, ASKFLD+4
DIR("A"	ASKLOG+3, ASKFLD+3
DIR("B"	ASKLOG+2, ASKFLD+2
DIR(0	ASKLOG+2, ASKFLD+2, HDRCHK+6*
DIROUT	ASKLOG+1~, ASKFLD+1~
DIRUT	ASKLOG+1~, ASKFLD+1~
DTOUT	ASKLOG+1~, ASKFLD+1~
DUOUT	ASKLOG+1~, ASKFLD+1~
I	P+2~, P+9, P+10, P+11, HDRCHK+5~, ADDFLDS+3~, ADDFLDS+4
IOF	Q1+9, QALL+9, HDRCHK+8
IOM	VARSETUP+3, P+15, P+16
IOSL	HDRCHK+3
IOST	Q1+9, QALL+9, HDRCHK+4
J	P+2~, P+10*, P+11, HDRCHK+5~
K	HDRCHK+5~
U	EN1+6, EN1+7, ENALL+4, ENALL+5, Q1+8, PBADMULT+8, DUZLIST+13, ISUSERCP+8, SCANLOG+7, SCANLOG+9
X	EN1+1~, HDRCHK+5~
XUSCP200P07IEN	ISUSERCP+1~, ISUSERCP+5, ISUSERCP+6, ISUSERCP+8
XUSCP201IEN	ISUSERCP+1~, ISUSERCP+8*, ISUSERCP+9
XUSCPACTIVE	Q1+5~, Q1+6, Q1+8, Q1+10, QALL+4~, QALL+11, QALL+12, P~, P+15, P+16 , PCREDCHK+13, PCREDCHK+14, POKFLDS+6, PBADFLDS+4, DUZLIST+3~, DUZLIST+12*, DUZLIST+13
XUSCPARR	ADDFLDS~
XUSCPARR(	ADDFLDS+5*
XUSCPCNT	PBADFLDS+1~, PBADFLDS+2, PBADFLDS+5, PBADMULT+2~, PBADMULT+3, PBADMULT+5
XUSCPCUR	SCANLOG+1~, SCANLOG+10*
XUSCPDC	PCREDCHK+2~, PCREDCHK+6*, PCREDCHK+8
XUSCPDIFFDE	PCREDCHK+2~, PCREDCHK+7*, PCREDCHK+11
XUSCPDIFFVC	PCREDCHK+2~, PCREDCHK+8*, PCREDCHK+11
XUSCPDT	Q1+5~, QALL+4~, VARSETUP+1*, VARSETUP+2, PCREDCHK+7, PCREDCHK+8, SCANLOG+10
XUSCPDUZ	EN1+1~, EN1+5, Q1+6, Q1+8, Q1+10, QALL+12, P~, P+6, P+8, P+14 , P+16, PCREDCHK+6, PCREDCHK+7, PCREDCHK+13, PCREDCHK+15, PCREDCHK+18, PCREDCHK+20, PWARN+2, PWARN+3, PWARN+4 , PWARN+16, PFLD+2, PFLD+4, PBADFLDS+2, PSCANLOG+6, PSCANLOG+7, PSCANLOG+9, PSCANLOG+11, PSCANLOG+12, PSCANLOG+16 , PSCANLOG+17, DUZLIST+8*, DUZLIST+10, DUZLIST+11, DUZLIST+12, DUZLIST+13, ISUSERCP~, ISUSERCP+3, ISUSERCP+6, ISUSERCP+8
XUSCPERR	P+2~, P+7
XUSCPERR("DIERR"	P+9, P+10, P+11
XUSCPFILE	PBADMULT+2~, PBADMULT+3*, PBADMULT+4, PBADMULT+8, PBADMULT+9, PBADMULT+10, PBADMULT+11
XUSCPFLD	POKFLDS+1~, POKFLDS+5, POKFLDS+6, PFLD+2, PFLD+3, PFLD+4, PBADFLDS+1~, PBADFLDS+2, PBADFLDS+3, PBADFLDS+4 , PBADMULT+2~, PBADMULT+10, PBADMULT+11, ADDFLDS+3~, ADDFLDS+4*, ADDFLDS+5
XUSCPIEN	DUZLIST+3~, DUZLIST+5, ISUSERCP+1~, ISUSERCP+5, ISUSERCP+9
XUSCPINACFLDS	Q1+5~, QALL+4~, VARSETUP+6
XUSCPINACFLDS(	POKFLDS+6, PBADFLDS+4
XUSCPIP	PSCANLOG+1~, PSCANLOG+7, PSCANLOG+8, PSCANLOG+9, PSCANLOG+11, PSCANLOG+12, PSCANLOG+16, PSCANLOG+17, SCANLOG+1~, SCANLOG+9 , SCANLOG+12, SCANLOG+14
XUSCPLOOPC	DUZLIST+3~, DUZLIST+8, DUZLIST+9, SCANLOG+1~, SCANLOG+4, SCANLOG+6
XUSCPLST	Q1+5~, QALL+4~
XUSCPLST(	Q1+8, QALL+12, P+16, DUZLIST+13, ISUSERCP+6
XUSCPLST(0	SCANLOG+8
XUSCPLST(1	SCANLOG+8
XUSCPMUL	PWARN+1~, PWARN+5, PWARN+6, PWARN+12, PWARN+13, PWARN+14, PBADMULT+2~, PBADMULT+9*, PBADMULT+10, PBADMULT+11
XUSCPOKFLDS	Q1+5~, QALL+4~, VARSETUP+5
XUSCPOKFLDS(	POKFLDS+5, PBADFLDS+3
XUSCPOLDTIME	PCREDCHK+2~, PCREDCHK+3*, PCREDCHK+7, PCREDCHK+8
XUSCPQ	Q1+5~, QALL+4~, QALL+11, QALL+12, P+3, P+5, P+9, P+10, P+12, P+18 , P+20, P+21, P+22, P+23, P+24, P+25, P+26, PCREDCHK+9, PCREDCHK+16, PWARN+7 , PWARN+10, PWARN+11, PWARN+12, PWARN+15, POKFLDS+4, POKFLDS+5, POKFLDS+6, PFLD+5, PBADFLDS+2, PBADFLDS+5 , PBADFLDS+8, PBADFLDS+9, PBADMULT+3, PBADMULT+9, PBADMULT+10, PBADMULT+12, PSCANLOG+5, PSCANLOG+7, PSCANLOG+10, PSCANLOG+11 , PSCANLOG+15, PSCANLOG+16, PSCANLOG+18, DUZLIST+8, DUZLIST+9, HDRCHK+2, SCANLOG+1~, SCANLOG+5, SCANLOG+6
XUSCPQC	DUZLIST+3~, DUZLIST+7, DUZLIST+9, SCANLOG+1~, SCANLOG+4, SCANLOG+6
XUSCPRET	ISUSERCP+1~, ISUSERCP+2, ISUSERCP+9, ISUSERCP+10
XUSCPRNT	Q1+5~, QALL+4~
XUSCPRNT("DT	EXT" , VARSETUP+2*, HDR+1
XUSCPRNT("EQ"	VARSETUP+3*, P+15, P+17
XUSCPRNT("PG"	VARSETUP+3, HDR+1, HDRCHK+7
XUSCPRNT("UL"	VARSETUP+3*, HDR+1
XUSCPSAEXP	Q1+5~, QALL+4~, VARSETUP+1*, PCREDCHK+11
XUSCPSAV	EN1+1~, EN1+8, ENALL+1~, ENALL+6
XUSCPSAV("XUSCPDUZ"	EN1+5*
XUSCPSAV("XUSCPSCANFLD"	EN1+6, ENALL+4
XUSCPSAV("XUSCPSCANLOG"	EN1+7, ENALL+5
XUSCPSCANFLD	EN1+1~, EN1+6, ENALL+1~, ENALL+3, ENALL+4*, P+21
XUSCPSCANLOG	EN1+1~, EN1+7, ENALL+1~, ENALL+3, ENALL+5*, Q1+8, QALL+8, P+26
XUSCPSEC0	SCANLOG+1~, SCANLOG+7*, SCANLOG+9
XUSCPSECDUZ	SCANLOG+1~, SCANLOG+7*, SCANLOG+8, SCANLOG+10, SCANLOG+12, SCANLOG+13, SCANLOG+14
XUSCPSIGNON	PSCANLOG+1~, PSCANLOG+11, PSCANLOG+12, PSCANLOG+16, PSCANLOG+17, SCANLOG+1~, SCANLOG+4, SCANLOG+5, SCANLOG+7, SCANLOG+12 , SCANLOG+13
XUSCPSTR	P+2~, P+14*, P+15
XUSCPTAG	ADDFLDS~
XUSCPTOT	PSCANLOG+1~, PSCANLOG+11, PSCANLOG+12, PSCANLOG+13
XUSCPWARNFLDS	Q1+5~, QALL+4~, VARSETUP+4
XUSCPWARNFLDS(	PBADFLDS+3
XUSCPWRN	PWARN+1~, PWARN+7
XUSCPWRN("FIL	E MANAGER ACCESS CODE" , PWARN+4*, PWARN+16
XUSCPWRN("PRIMARY"	PWARN+2*, PWARN+8
XUSCPWRN("SSN"	PWARN+3*, PWARN+9
XUSCPWRN("USC"	PWARN+6*, PWARN+11
Y	EN1+1~, EN1+4, EN1+5, EN1+6!, EN1+7!, ENALL+4!, ENALL+5!, HDRCHK~, HDRCHK+3, HDRCHK+4
>> ZTQUEUED	ENALL+3
>> ZTSTOP	QALL+7, QALL+8, P+3, DUZLIST+9, SCANLOG+6*

Customize PDF page

Package: Kernel

Routine: XUSAP1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items