VistA Analysis » VistA Reference » RPCs » ORWCV POLL

ORWCV POLL

This RPC is a process to poll the cover sheet tasks for completion anddisplay the information in the appropriate CPRS GUI cover sheet location.

Properties

Property Value
Label POLL
MUMPS Implementation ORWCV
Return Type ARRAY

MUMPS Method Description

Property Value
Method POLL^ORWCV
Method Comment poll for completed cover sheet parts
Input Parameters DFN, IP, HWND
Code 
 N I,ILST,ID,NODE,DONE
 S NODE="ORWCV "_IP_"-"_HWND_"-"_DFN,ILST=0,DONE=0
 I '$D(^XTMP(NODE,"DFN")) Q
 I ^XTMP(NODE,"DFN")'=DFN S LST(1)="~DONE=1" Q
 I $G(^XTMP(NODE,"DONE")) S ILST=ILST+1,LST(ILST)="~DONE=1",DONE=1
 F ID="PROB","CWAD","MEDS","RMND","LABS","VITL","VSIT" D
 . I '$G(^XTMP(NODE,ID)) Q
 . S ILST=ILST+1,LST(ILST)="~"_ID
 . S I=0 F  S I=$O(^XTMP(NODE,ID,I)) Q:'I  S ILST=ILST+1,LST(ILST)="i"_^(I)
 . K ^XTMP(NODE,ID)
 I DONE K ^XTMP(NODE) I +$G(^KMPTMP("KMPD-CPRS")) S $P(^KMPTMP("KMPDT","ORWCV",NODE),"^",2)=$H

CPRS

File Type Description
Pascal File rCover.pas


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