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

Package: Kernel

Routine: XU8P497A


Information

XU8P497A ;BP/BT - UPDATE PERSON CLASS FILE; 4/7/2008

Source Information

Source file <XU8P497A.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
INAC ;;
LOOP
CHCK ;
PRNT ;
PRINT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This report will run immediately (no device asked)."
  • Line Location: LOOP+1
Function Call: WRITE
  • Prompt: !,"Users may turn 'screen capture' for this report."
  • Line Location: LOOP+2
Function Call: READ
  • Formatting: !
  • Prompt: "Do you want to list active users only? NO// "
  • Variable: %
  • Timeout: 20
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP+5
Function Call: WRITE
  • Prompt: !,"PERSON CLASS ID: ",XUI,?28," NAME: ",$E($P(XUV,"^",1),1,40)
  • Line Location: PRNT+4
Function Call: WRITE
  • Prompt: !," VA CODE: ",$P(XUV,"^",6),?28,"X12 CODE: ",$P(XUV,"^",7)
  • Line Location: PRNT+5
Function Call: WRITE
  • Prompt: !!,"User Name",?34,"Status"
  • Line Location: PRNT+7
Function Call: WRITE
  • Prompt: !,?2,$P($G(^TMP("XU8P497",$J,XUI,XUY)),"^"),?36,$P($G(^TMP("XU8P497",$J,XUI,XUY)),"^",2)
  • Line Location: PRNT+9
Function Call: WRITE
  • Prompt: !!,?10,"Number of users: ",XUCOUNT
  • Line Location: PRNT+11
Function Call: WRITE
  • Prompt: !,"------------------------------"
  • Line Location: PRNT+12
Function Call: WRITE
  • Prompt: !,"No users found. You are done!"
  • Line Location: PRNT+14
Function Call: WRITE
  • Prompt: !!," Please check and assign replacement Person Classes",!," for users listed on this report."
  • Line Location: PRNT+15
Function Call: WRITE
  • Prompt: !,"This report will run immediately (no device asked)."
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,"Users may turn 'screen capture' for this report."
  • Line Location: PRINT+3
Function Call: READ
  • Formatting: !
  • Prompt: "Enter any key to continue "
  • Variable: XUY
  • Timeout: 10
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,$G(^TMP("XU8P497",$J,XUI))
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !!,"No replacement Person Class is assigned for users."
  • Line Location: PRINT+7
Info |  Source |  Entry Points |  Interaction Calls