WVUTL11 ;ISP/RFR - TERATOGENIC DRUGS UTILITY FUNCTIONS;Dec 01, 2020@12:32
Source file <WVUTL11.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BC(WVDFN,WVDT) | ;Return patient's likelihood of becoming pregnant
; when on prescription contraceptives ; DT^DILF (IA #2054): This component converts a user-formatted date into FileMan date format ; DATA^PSS50 (IA #4533): This component returns DRUG file (#50) data ; OCL^PSOORRL (IA #2400): This component returns all medications for a patient in a date range ; INPUT: WVDFN - IEN from PATIENT file #2 ; WVDT - Date to use as today's date ; OUTPUT: 1 - HIGH, 2 - LOW |
|
| COBP(WVDFN,WVPIEN) | ;Determine patient's likelihood of becomming pregnant
; INPUT: WVDFN - IEN from PATIENT file #2 ; WVPIEN - IEN in PREGNANCY STATUSES sub-file #790.05 ; OUTPUT: -1 - Error (message text in second caret piece) ; 0 - Unknown risk of pregnancy ; 1 - High risk of pregnancy ; 2 - Low risk of pregnancy |
|
| FMERROR(WVRESULT) | ;RETURN FILEMAN ERROR MESSAGE AS STRING
|
|
| ISREG(WVDFN) | ;DETERMINE IF PATIENT IS REGISTERED
; INPUT: WVDFN - IEN IN WV PATIENT FILE [REQUIRED] ; OUTPUT: $$ISREG - 1: PATIENT IS/WAS SUCCESSFULLY REGISTERED ; 0^MESSAGE: PATIENT IS/WAS NOT SUCCESSFULLY REGISTERED |
|
| VISITIEN(WVDFN,WVVSTR) | ;RETURN VISIT FILE IEN GIVEN TIU VSTRING
|
|
| VSTRING(WVIEN) | ;RETURN TIU VSTRING GIVEN VISIT FILE IEN
|
|
| ISPREG(WVDFN,WVSDATE,WVEDATE,WVCDE) | ;DETERMINES IF PATIENT WAS PREGNANT ON DATE OR IN
; DATE RANGE |
|
| ISLACT(WVDFN,WVSDATE,WVEDATE,WVCDE) | ;DETERMINE IF PATIENT WAS LACTATING ON DATE OR IN
; DATE RANGE |
|
| ISIT(WVNODE,WVDFN,WVSDATE,WVEDATE,WVCDE,WVRIEN) | ;RETURNS PATIENT'S STATUS BASED ON TYPE AND
; DATE RANGE |
|
| PREGS(WVDFN,WVINDEX,WVCDE) | ;CREATES INDEX OF PREGNANCY STATUSES
; INPUT: WVDFN - PATIENT IEN IN WV PATIENT FILE (#790) ; WVINDEX - REFERENCE TO ARRAY IN WHICH TO RETURN THE INDEX OF STATUSES ; WVCDE - CALCULATE END DATE; FOR PREGNANCIES THAT DO NOT HAVE A SPECIFIED ; END DATE BUT HAVE A "NO LONGER PREGNANT" STATUS FOLLOWING IT, ; WVCDE=1 WILL SET THAT PREGNANCY'S END DATE TO TOMORROW ; AND WVCDE=0 WILL SET THAT PREGNANCY'S END DATE TO THE ; "NO LONGER PREGNANT" STATUS' D/T ENTERED. WVCDE=1 IS USED ; BY DIALOGS TO PROMPT FOR END OF PREGNANCY DATA ; OUTPUT: WVINDEX(START,STOP,STOP_IEN)="" |
|
| GETGRACD() | ;WRAPPER TO CALL GETGRACD^PXRMCWH1
|
|
| LACTS(WVDFN,WVINDEX,WVCDE) | ;CREATES INDEX OF LACTATION STATUSES
; INPUT: WVDFN - PATIENT IEN IN WV PATIENT FILE (#790) ; WVINDEX - REFERENCE TO ARRAY IN WHICH TO RETURN THE INDEX OF STATUSES ; WVCDE - CALCULATE END DATE; FOR LACTATIONS THAT DO NOT HAVE A SPECIFIED ; END DATE BUT HAVE A "NO LONGER LACTATING" STATUS FOLLOWING IT, ; WVCDE=1 WILL SET THAT LACTATION'S END DATE TO TOMORROW ; AND WVCDE=0 WILL SET THAT LACTATION'S END DATE TO THE ; "NO LONGER LACTATING" STATUS' D/T ENTERED. WVCDE=1 IS USED ; BY DIALOGS TO PROMPT FOR END OF LACTATION DATA ; OUTPUT: WVINDEX(START,STOP,STOP_IEN)="" |
|
| MOA(WVMOA,WVDFN,WVDT) | ;RETURN LIKELIHOOD OF BECOMING PREGNANT
; GIVEN THE METHOD OF CONTRACEPTION ; INPUT: WVMOA - CONTRACEPTIVE METHOD (NAME OR IEN IN FILE #791) ; WVDFN - PATIENT IEN IN WV PATIENT FILE (#790) ; WVDATE - DATE TO USE WHEN CALCULATING THE LIKELIHOOD ; OUTPUT: 1 - HIGH, 2 - LOW, -1 - Error |
|
| GETLREC(WVDFN,WVNODE) | ;RETURN "IEN^DATE^ENTERED BY^STATUS" OF MOST RECENT PREGNANCY
; OR LACTATION STATUS RECORD |
|
| REM(WVDFN,WVNAME,WVFIEVAL) | ;EVALUATE REMINDER DEFINITION
|
| FileNo | Call Tags |
|---|---|
| ^DIC(4 - [#4] | GET1^DIQ |
