Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls