VistA Analysis » VistA Reference » RPCs » ORWU2 COSIGNER

ORWU2 COSIGNER

Returns a set of New Person file entries for use in a long list box.The set is limited to USR PROVIDERS who do not require cosignature.

Properties

Property Value
Label COSIGNER
MUMPS Implementation ORWU2
Return Type ARRAY

Input Parameters

Name Type Maximum Data Length Required Description
ORDATE LITERAL     Fileman date that the user will be required to be active on. (optional)
ORDIR LITERAL   true Direction to move through the #200 x-ref with $O.
ORFROM LITERAL     Starting name for this set.
ORTIUTYP LITERAL   true is + of the 0 node of the 8925 docmt
ORTIUDA LITERAL   true This is the record # of the TIU Document in file 8925.

MUMPS Method Description

Property Value
Method COSIGNER^ORWU2
Input Parameters ORFROM, ORDIR, ORDATE, ORTIUTYP, ORTIUDA
First Comment 
 (Set up for the DC Summary)
  (to use TIU doc requirments and USR PROVIDER)

 PARAMS from ORWU2 COSIGNER RPC call:
  .ORY=returned list.
  ORFROM=Starting name for this set.  
  ORDIR=Direction to move through the x-ref with $O.  
  ORDATE=Checks for an USR PROVIDER on this date (optional).
  ORTIUTYP is + of the 0 node of the 8925 docmt.  
  ORTIUDA is the docmt IEN,
Code 
 N ORDD,ORDIV,ORDUP,ORGOOD,ORI,ORIEN1,ORIEN2,ORLAST,ORMAX,ORMRK,ORMULTI,ORPREV,ORSRV,ORTTL,ORERR
 S ORI=0,ORMAX=44,(ORLAST,ORPREV)="",ORDATE=$G(ORDATE) ;ORKEY=$G(ORKEY)
 I +$G(ORTIUDA) S ORTIUTYP=+$G(^TIU(8925,+$G(ORTIUDA),0))
 S ORMULTI=$$ALL^VASITE ; IA# 10112.  Do once at beginning of call.
 F  Q:ORI' .S ORIEN1=""
 .F  S ORIEN1=$O(^VA(200,"AUSER",ORFROM,ORIEN1),ORDIR) Q:'ORIEN1  D
 ..;
 ..I '$$PROVIDER^XUSER(ORIEN1,1) Q   ; Terminated? 
 ..I '$$ISA^USRLM(+ORIEN1,"PROVIDER",.ORERR,ORDATE) Q  ;(USR PROVIDER CLASS CHECK?)

CPRS

File Type Description
Pascal File rCore.pas


Document generated on August 31st 2022, 2:55:43 pm