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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: ORNEWPERS

Package: Order Entry Results Reporting

Routine: ORNEWPERS


Information

ORNEWPERS ; NA/AJB - NEW PERSON RPC ;02/09/23 06:03

Source Information

Source file <ORNEWPERS.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Kernel 7 HOME^%ZIS  (CLEAN,PREP)^XGF  $$DT^XLFDT  $$NAMEFMT^XLFNAME  $$TITLE^XLFSTR  $$DIV4^XUSER  $$NPI^XUSNPI  
VA FileMan 3 (,$$FIND1)^DIC  $$GET1^DIQ  ^DIR  
Authorization Subscription 1 $$ISA^USRLM  
Toolkit 1 $$GET^XPAR  

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

Package Total Caller Graph
Order Entry Results Reporting 4 OR NEWPERS DEBUGGER  ORWTPP  ORWU  ORWU2  

Entry Points

Name Comments DBIA/ICR reference
PARAMETERS ; FROM^DIR^KEY^DATE^RDV^ALL^PDMP^SPN^EXC^NVAP^DFC^TIUDA^TYPE^HELP^DEBUG
NEWPERSON(ORY,PARAMS) ; all parameters passed by reference
EVALUATE(XEC,P) ;
SPN(FROM,SPNQ) ; similar provider name lookup
DETAILS(NODE0,IEN,MORE,DIV) ; get user information
CPRSTAB(USER,TAB,DATE) ; return tab status
; 0 missing/expired, 1 assigned & current
DIC(DIC) ; basic lookup
DIR(DIR) ; basic reader
HELP(ORY,INF,XEC) ; return detailed parameter & user evaluation information
SETSTR(S,V,X,L) ; insert text(S) into variable(V) at position (X) with length of (L)
USRCLEX(IEN,CLASS,ERR,DATE) ; NSR 20120101
COS ;;I $$REQCOSIG^TIULP(TYPE,TIUDA,IEN,DATE);;"User requires co-signature for a:",!,?4,$E($$GET1^DIQ(8925.1,TYPE,.01),1,67)
DFC ;;I DFC,'$$PROVIDER^TIUPXAP1(IEN,DATE);;"Not a member of a Provider 'Person Class' for default co-signer selection"
USR ;;I EXC,+ORUCE,$$USRCLEX(IEN,+ORUCE,"ERR",DATE);;"Member of "_$P(ORUCE,U,2)_" user class excluded via parameter"
PDM ;;I PDMP,'$$ISAUTH^ORPDMP(IEN);;"Not authorized for PDMP access"
RDV ;;I $P(NODE0,U,11)>0,$P(NODE0,U,11)'>$S(DATE:DATE,1:DT);;"Termination date reached "_$$FMTE^XLFDT($P(NODE0,U,11))
ALL ;;I DATE,$$GET^XUA4A72(IEN,DATE)'>0;;"No active 'Person Class' for "_$$FMTE^XLFDT(DATE)
DEBUG ; evaluate a specific user, list below prompts user to determine RPC criteria entry point
EXIT

External References

Name Field # of Occurrence
HOME^%ZIS DEBUG+8
^DIC DIC+1
$$FIND1^DIC NEWPERSON+10, HELP+1, DEBUG+22
$$GET1^DIQ NEWPERSON+21, NEWPERSON+22, DETAILS+5, DETAILS+6, DETAILS+7, DEBUG+14, DEBUG+15
^DIR DIR+1, DEBUG+32
$$ISA^USRLM USRCLEX+1
CLEAN^XGF EXIT
PREP^XGF DEBUG+8
$$DT^XLFDT NEWPERSON+1, DEBUG+8
$$NAMEFMT^XLFNAME DETAILS+1
$$TITLE^XLFSTR DETAILS+2, DETAILS+4
$$GET^XPAR NEWPERSON+6, DEBUG+29
$$DIV4^XUSER NEWPERSON+20, DETAILS+6, DEBUG+13
$$NPI^XUSNPI DETAILS+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: IOCUON
  • Line Location: DEBUG+8
Function Call: WRITE
  • Prompt: !!,IOUON_"Optional Parameters"_IOUOFF
  • Line Location: DEBUG+23
Function Call: WRITE
  • Prompt: !!,$P(NODE0,U),$S(X:" would be selectable.",1:" would NOT be selectable.")
  • Line Location: DEBUG+31
Function Call: WRITE
  • Prompt: !
  • Line Location: DEBUG+32
Routine Call
  • %ZIS
  • Line Location:
    • DEBUG+8
Routine Call
  • DIC
  • Line Location:
    • DIC+1
Routine Call
  • DIC
  • Line Location:
    • NEWPERSON+10
    • HELP+1
    • DEBUG+22
Routine Call
  • DIR
  • Line Location:
    • DIR+1
    • DEBUG+32

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
^TIU(8925.1 - [#8925.1] FIND1^DIC
^XWB(8994 - [#8994] FIND1^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] DIC+1
^DIC(3.1 - [#3.1] DETAILS+2
^DIC(49 - [#49] DETAILS+4
^ORD(101.13 - [#101.13] EVALUATE+2
^VA(200 - [#200] NEWPERSON+8, NEWPERSON+18, SPN+1, DETAILS+4, CPRSTAB+3, CPRSTAB+4, CPRSTAB+5, DEBUG+12
^XWB(8994 - [#8994] HELP+2

Label References

Name Line Occurrences
$$CPRSTAB EVALUATE+2
$$DETAILS NEWPERSON+26
$$DIC DEBUG+11, DEBUG+21, DEBUG+24
$$DIR DEBUG+18, DEBUG+25, DEBUG+27, DEBUG+28
$$EVALUATE NEWPERSON+24, DEBUG+31
$$SETSTR HELP+5
EXIT DEBUG+11, DEBUG+19, DEBUG+23, DEBUG+24, DEBUG+25, DEBUG+26
HELP NEWPERSON+12
PARAMETERS NEWPERSON+3, DEBUG+9
SPN NEWPERSON+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ALL NEWPERSON+8, NEWPERSON+9
CLASS USRCLEX~, USRCLEX+1
CODE EVALUATE+1~, EVALUATE+4*, EVALUATE+6
DATE EVALUATE+2, CPRSTAB~, CPRSTAB+2*, CPRSTAB+6, USRCLEX~, USRCLEX+1
>> DEBUG EVALUATE+4, EVALUATE+5, EVALUATE+6
>> DFC NEWPERSON+9
DIC DIC~, DIC+1*, DEBUG+7~, DEBUG+11*, DEBUG+20*!, DEBUG+21, DEBUG+24*
DIC("A" DEBUG+11*, DEBUG+20*, DEBUG+24*
DIC("S" DEBUG+20*
DIC(0 DIC+1*
DIR NEWPERSON+7*, NEWPERSON+16, DIR~, DEBUG+7~, DEBUG+17~, DEBUG+18, DEBUG+25, DEBUG+27, DEBUG+28, DEBUG+32!
DIR("A" DEBUG+17*, DEBUG+25*, DEBUG+27*, DEBUG+28*
DIR("B" DEBUG+17*, DEBUG+27*, DEBUG+28*
DIR(0 DEBUG+17*, DEBUG+25*, DEBUG+27*, DEBUG+28*, DEBUG+32*
DIRUT DIR+1~
DIV NEWPERSON+18~, NEWPERSON+19, NEWPERSON+20*, NEWPERSON+21*, NEWPERSON+22*, NEWPERSON+26, EVALUATE+3, DETAILS~, DETAILS+1*, DETAILS+5*
, DETAILS+6*, DETAILS+7*, DETAILS+8, DEBUG+7~, DEBUG+13*, DEBUG+14*, DEBUG+15*
DIV( NEWPERSON+22, DETAILS+7, DEBUG+15
DIV(0 NEWPERSON+21, DETAILS+6, DEBUG+14
DT NEWPERSON+1*, CPRSTAB+2, DEBUG+8*
DTL DETAILS+1~*, DETAILS+10*, DETAILS+11
DTL( DETAILS+10
DTL(0 DETAILS+10
DTL(1 DETAILS+2*
DTL(2 DETAILS+4*
DTL(3 DETAILS+5*, DETAILS+8*
DTL(4 DETAILS+9*
DTOUT DIC+1~, DIC+2, DIR+1~, DIR+2
DUOUT DIC+1~, DIR+1~
DUZ NEWPERSON+1*
DUZ(2 EVALUATE+3*, EVALUATE+7*
ENTRY DETAILS+1~*, DETAILS+11
ERR USRCLEX~, USRCLEX+1
>> EXC NEWPERSON+6
FNM SPN+2~*, SPN+3
FROM NEWPERSON+15, NEWPERSON+16*, NEWPERSON+17, NEWPERSON+25, SPN~, SPN+1, SPN+2*, SPN+3*
GBL NEWPERSON+2~, NEWPERSON+8*, NEWPERSON+16, NEWPERSON+17, NEWPERSON+25, HELP+1~, HELP+2*, HELP+3
>> HELP NEWPERSON+12
I NEWPERSON+2~, NEWPERSON+3*, NEWPERSON+5, NEWPERSON+11*, NEWPERSON+16*, NEWPERSON+17, NEWPERSON+26*, HELP+1~, HELP+3*, HELP+5*
, HELP+8*, DEBUG+7~, DEBUG+9*, DEBUG+16*, DEBUG+30*
IEN NEWPERSON+17~*, NEWPERSON+18, NEWPERSON+20, NEWPERSON+23, NEWPERSON+25, NEWPERSON+26, EVALUATE+2, DETAILS~, DETAILS+1, DETAILS+4
, DETAILS+6, DETAILS+9, HELP+1~*, HELP+2, USRCLEX~, USRCLEX+1
INF NEWPERSON+2~, NEWPERSON+12, HELP~
INF( NEWPERSON+5*, HELP+5
>> IOCUON DEBUG+8
>> IOUOFF EVALUATE+5, DEBUG+16, DEBUG+23
>> IOUON EVALUATE+5, DEBUG+16, DEBUG+23
J NEWPERSON+2~, NEWPERSON+11*, HELP+1~, HELP+5*, DEBUG+7~, DEBUG+16*, DEBUG+17, DEBUG+18, DEBUG+30*
L SETSTR~, SETSTR+1
MAX NEWPERSON+2~, NEWPERSON+7*, NEWPERSON+16, NEWPERSON+17
MORE NEWPERSON+25~*, NEWPERSON+26, DETAILS~, DETAILS+1*, DETAILS+3
NODE HELP+1~, HELP+2*
NODE0 NEWPERSON+18~*, NEWPERSON+23, NEWPERSON+26, EVALUATE+5, SPN+1~*, SPN+2, DETAILS~, DETAILS+1, DETAILS+2, DEBUG+7~
, DEBUG+12*, DEBUG+31
NPI DETAILS+9~*
ORY NEWPERSON~, NEWPERSON+12, HELP~
ORY( NEWPERSON+26*, HELP+3*, HELP+4*, HELP+5*, HELP+6*, HELP+7*, HELP+8*
ORY(1 SPN+1*
P NEWPERSON+2~, NEWPERSON+24, EVALUATE~, DEBUG+7~, DEBUG+9*, DEBUG+31
P( NEWPERSON+4*, EVALUATE+1, DEBUG+10*, DEBUG+18*
P("DATE" DEBUG+25*
P("DEBUG" DEBUG+12*
P("DIV" NEWPERSON+19*, DEBUG+13*
P("DSC" NEWPERSON+10*, DEBUG+22*
P("EXC" DEBUG+28*, DEBUG+29
P("IEN" NEWPERSON+23*, DEBUG+12*
P("KEY" DEBUG+24*
P("NODE0" NEWPERSON+23*, DEBUG+12*
P("NVAP" DEBUG+27*
P("ORUCE" NEWPERSON+6*, DEBUG+29*
P("TYPE" DEBUG+21*
PARAMETERS NEWPERSON+2~, NEWPERSON+3*
PARAMS NEWPERSON~
PARAMS( NEWPERSON+4, NEWPERSON+5, DEBUG+10
>> PDMP NEWPERSON+9, NEWPERSON+19, EVALUATE+3, EVALUATE+7
PDMPDIV EVALUATE+3~*, EVALUATE+7
PRM NEWPERSON+2~, NEWPERSON+3*~, NEWPERSON+4*, NEWPERSON+5, DEBUG+7~, DEBUG+9*~, DEBUG+10*
>> RDV NEWPERSON+8, NEWPERSON+9
RES EVALUATE+1~*, EVALUATE+4, EVALUATE+5, EVALUATE+6*, EVALUATE+8
RESULT CPRSTAB+2~*, CPRSTAB+3, CPRSTAB+4, CPRSTAB+6*, CPRSTAB+7
S SETSTR~, SETSTR+1
>> SPN NEWPERSON+15, NEWPERSON+16, NEWPERSON+17, NEWPERSON+25
SPNQ NEWPERSON+15~, NEWPERSON+16, SPN~, SPN+2*
SRV DETAILS+4~*
TAB CPRSTAB~, CPRSTAB+3, CPRSTAB+4*, CPRSTAB+5*, CPRSTAB+6
TAG NEWPERSON+2~, NEWPERSON+9*, NEWPERSON+10, DEBUG+7~, DEBUG+19*, DEBUG+20, DEBUG+26
>> TYPE NEWPERSON+9
U NEWPERSON+1*, NEWPERSON+3, NEWPERSON+21, NEWPERSON+22, EVALUATE+5, SPN+2, DETAILS+1, DETAILS+2, DETAILS+4, DETAILS+5
, CPRSTAB+6, DIC+2, DIR+2, DEBUG+8*, DEBUG+9, DEBUG+14, DEBUG+15, DEBUG+17, DEBUG+18, DEBUG+19
, DEBUG+24, DEBUG+25, DEBUG+26, DEBUG+27, DEBUG+28, DEBUG+31
USER CPRSTAB~, CPRSTAB+3, CPRSTAB+4, CPRSTAB+5
V SETSTR~, SETSTR+1
VAL EVALUATE+1~*, EVALUATE+2*~, DEBUG+7~, DEBUG+11*, DEBUG+12, DEBUG+13, DEBUG+16, DEBUG+18*, DEBUG+19*, DEBUG+21*
, DEBUG+23, DEBUG+24*, DEBUG+25*, DEBUG+26, DEBUG+27*, DEBUG+28*
X NEWPERSON+22~*, DETAILS+7~*, DETAILS+10~*, DIC+1~, DIC+2, DIR+1~, DIR+2, HELP+1~*, HELP+3*, HELP+4*
, HELP+5*, HELP+6*, HELP+7*, HELP+8*, SETSTR~, SETSTR+1, DEBUG+7~, DEBUG+15~*, DEBUG+31*
XEC NEWPERSON+2~, NEWPERSON+12, NEWPERSON+24, EVALUATE~, HELP~, DEBUG+7~, DEBUG+31
XEC( NEWPERSON+11*, EVALUATE+4, EVALUATE+6, HELP+8, DEBUG+30*
Y DIC+1~, DIC+2, DIR+1~, DIR+2, DEBUG+7~

Marked Items

Name Field # of Occurrence
$T(@TAG+I NEWPERSON+11, DEBUG+30
$T(DEBUG+I DEBUG+16
$T(PARAMETERS NEWPERSON+3, DEBUG+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All