VistA Analysis » VistA Reference » RPCs » ORQQPXRM GET WH LETTER TEXT

ORQQPXRM GET WH LETTER TEXT

Retrieve letter text for a WH letter

Properties

Property Value
Label LETTER
MUMPS Implementation WVRPCNO1
Return Type ARRAY

Input Parameters

Name Type Maximum Data Length Required Description
WVIEN LITERAL   true  

MUMPS Method Description

Property Value
Method LETTER^WVRPCNO1
Method Comment Returns the letter text for the purpose of
Input Parameters WVIEN
First Comment 
 notification
  Input: RESULT - array name to return data in [required]
          WVIEN - FILE 790.404 IEN [required]

 Output: RESULT(0)=First line of letter text   
                   -1^error message
         RESULT(n)= remaining lines of letter text
Code 
 I '$G(WVIEN) S RESULT(0)="-1^Purpose IEN not greater than 0" Q
 I '$D(^WV(790.404,WVIEN,0)) D  Q
 .S RESULT(0)="-1^No such purpose of notification"
 .Q
 I '$O(^WV(790.404,WVIEN,1,0)) D  Q
 .S RESULT(0)="-1^No letter defined for this purpose"
 .Q
 N WVCNT,WVLOOP
 S RESULT(0)="",(WVCNT,WVLOOP)=0
 F  S WVLOOP=$O(^WV(790.404,WVIEN,1,WVLOOP)) Q:'WVLOOP  D
 .S WVCNT=WVCNT+1
 .S RESULT(WVCNT)=$G(^WV(790.404,WVIEN,1,WVLOOP,0))
 .Q

CPRS

File Type Description
Pascal File uReminders.pas


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