Routine: ORNEWPERS

Information

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

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

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