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 |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: XUSAP1

Package: Kernel

Routine: XUSAP1


Information

XUSAP1 ;OAK/KC - Connector Proxy Reports ;2/1/2012

Source Information

Source file <XUSAP1.m>

Call Graph

Call Graph

Call Graph Total: 8

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  

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
Kernel 3 XUS2  XUSAP PROXY CONN DETAIL ALL  XUSAP PROXY CONN DETAIL INQ  

Entry Points

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

Marked Items

Name Field # of Occurrence
$T(@XUSCPTAG+I ADDFLDS+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All