TIUSRVP ;SLC/JER - RPCs for CREATE & UPDATE ;Jan 31, 2024@07:30
Source file <TIUSRVP.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MAKE(SUCCESS,DFN,TITLE,VDT,VLOC,VSIT,TIUX,VSTR,SUPPRESS,NOASF) | ; New Document
; SUCCESS = (by ref) TIU DOCUMENT # (PTR to 8925) ; = 0^Explanatory message if no SUCCESS ; DFN = Patient (#2) ; TITLE = TIU Document Definition (#8925.1) ; [VDT] = Date(/Time) of Visit ; [VLOC] = Visit Location (HOSPITAL LOCATION) ; [VSIT] = Visit file ien (#9000010) ; [VSTR] = Visit string (i.e., VLOC;VDT;VTYPE) ; [NOASF] = if 1=Do Not Set ASAVE cross-reference ; TIUX = (by ref) array containing field data and document body |
|
| VSTRBLD(VSIT) | ; Given Visit ien, build Visit-Descriptor String
|
|
| SETXT0(TIUDA) | ; Set root node of "TEMP" WP-field
|
|
| MAKEADD(TIUDADD,TIUDA,TIUX,SUPPRESS) | ; Create addendum
; For backward compatibility ; Use MAKEADD^TIUSRVP2 now, please |
|
| UPDATE(SUCCESS,TIUDA,TIUX,SUPPRESS) | ; Update existing Document
|
|
| SETCOS(TIUDA,TIUX,TIUD0,TIUD12) | ; set cosig req
; For backward compatibility ; Use SETCOS^TIUSRVP2 now, please |
|
| UPDSTAT(DA,TITLE) | ; Update status on commit
|
|
| GETREC(DFN,TIU,TITLE,TIUNEW) | ; Get/create document record
|
|
| FILE(SUCCESS,TIUDA,TIUX,SUPPRESS,TIUCPF) | ; Call FM Filer & commit
|
|
| SIGN(ERR,TIUDA,TIUX) | ; API for /es/
; For backward compatibility ; Use SIGN^TIUSRVP2 now, please |
|
| DELETE(ERR,TIUDA,TIURSN,OVRRIDE) | ; delete document
|
|
| ANPKGMSG(RETURN,TIUDA,TIUACT) | ; return ancillary packages' message(s)
|
|
| LOCK(ERR,TIUDA) | ; Bid for lock on a TIU Document record
|
|
| UNLOCK(ERR,TIUDA) | ; Decrement Lock on a TIU Document record
|
| RPC Name | Call Tags |
|---|---|
| TIU SIGN RECORD | SIGN |
| TIU UPDATE RECORD | UPDATE |
| TIU CREATE ADDENDUM RECORD | MAKEADD |
| TIU CREATE RECORD | MAKE |
| TIU DELETE RECORD | DELETE |
| TIU LOCK RECORD | LOCK |
| TIU UNLOCK RECORD | UNLOCK |
| TIU ANCILLARY PACKAGE MESSAGE | ANPKGMSG |
