WVUTL11 ;ISP/RFR - TERATOGENIC DRUGS UTILITY FUNCTIONS;May 22, 2018@14:18
Source file <WVUTL11.m>
Package | Total | Call Graph |
---|---|---|
Clinical Reminders | 3 | ITEMLIST^PXRMAPI ($$GETGRACD,GETGRACD)^PXRMCWH1 EN^PXRMGEV |
Pharmacy Data Management | 2 | DATA^PSS50 DRGIEN^PSS50P7 |
VA FileMan | 2 | C^%DTC $$GET1^DIQ |
Kernel | 1 | $$FMADD^XLFDT |
Outpatient Pharmacy | 1 | (OCL,OEL)^PSOORRL |
Toolkit | 1 | $$GET^XPAR |
Womens Health | 1 | AUTOADD^WVPATE |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
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 |
|
GETORDRS(WVDFN,WVLAC) | ;Entry point for retrieving harmful orders
; INPUT: WVLAC - 1 to indicate calling context is lactation ; 0 (default) to indicate calling context is not lactation ; OUTPUT: $$GETORDRS - Global node address where orders are stored |
|
IMGAGNT(WVOIIEN) | ;Return true if the orderable item resolves to an imaging agent
|
Name | Field # of Occurrence |
---|---|
C^%DTC | BC+10, BC+11 |
$$GET1^DIQ | ISREG+11 |
OCL^PSOORRL | BC+13 |
OEL^PSOORRL | BC+21 |
DATA^PSS50 | BC+23, IMGAGNT+12 |
DRGIEN^PSS50P7 | IMGAGNT+7 |
ITEMLIST^PXRMAPI | BC+12, IMGAGNT+6 |
$$GETGRACD^PXRMCWH1 | GETGRACD+3 |
GETGRACD^PXRMCWH1 | GETGRACD+3 |
EN^PXRMGEV | GETORDRS+17 |
AUTOADD^WVPATE | ISREG+10 |
$$FMADD^XLFDT | PREGS+22, PREGS+23, PREGS+30, PREGS+43, PREGS+48, PREGS+51, PREGS+58, PREGS+59, PREGS+64, PREGS+69 , PREGS+73, PREGS+80, LACTS+23, LACTS+24, LACTS+37, LACTS+42, LACTS+45 |
$$GET^XPAR | GETORDRS+10 |
FileNo | Call Tags |
---|---|
^DIC(4 - [#4] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNVSIT - [#9000010] | VSTRING+4 |
^AUPNVSIT("AA" | VISITIEN+7 |
^DPT - [#2] | ISREG+8, VISITIEN+2 |
^TMP("PS" | BC+14!, BC+21, BC+22, BC+28! |
^TMP("WVPS" | BC+14*, BC+16, BC+17, BC+28! |
^TMP($J | BC+24, BC+25, BC+26, BC+27, BC+28!, GETORDRS+18, GETORDRS+19, GETORDRS+20!, GETORDRS+23, GETORDRS+24 , GETORDRS+26*, GETORDRS+27!, GETORDRS+28*, IMGAGNT+8, IMGAGNT+9!, IMGAGNT+11, IMGAGNT+13, IMGAGNT+14, IMGAGNT+15, IMGAGNT+16! , IMGAGNT+17! |
^WV(790 - [#790] | COBP+9, COBP+11, ISREG+7, ISIT+15, ISIT+24, ISIT+31, PREGS+13, PREGS+14, PREGS+15, PREGS+19 , PREGS+21, PREGS+38, PREGS+40, PREGS+56, PREGS+83!, PREGS+84*, LACTS+13, LACTS+14, LACTS+15, LACTS+30 , LACTS+39, LACTS+44, LACTS+50!, LACTS+51* |
^WV(790.02 - [#790.02] | ISREG+10, ISREG+11 |
^WV(791 - [#791] | COBP+13, MOA+9, MOA+11, MOA+12 |
Name | Line Occurrences |
---|---|
$$GETGRACD | PREGS+22, PREGS+23, PREGS+48, PREGS+51 |
$$IMGAGNT | GETORDRS+25 |
$$ISIT | ISPREG+11, ISLACT+11 |
$$MOA | COBP+12 |
LACTS | ISIT+14 |
PREGS | ISIT+13 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%H | BC+8~ |
BDT1 | BC+9~ |
DRG | BC+9~ |
DT | ISPREG+11, ISLACT+11, PREGS+69, PREGS+77, PREGS+78, PREGS+80, LACTS+42, LACTS+44, LACTS+47, LACTS+48 , MOA+8, GETORDRS+11, IMGAGNT+7 |
DUZ(2 | ISREG+10, ISREG+11 |
EXDT | BC+9~ |
FL | BC+9~ |
I | BC+9~ |
IEN | BC+9~ |
II | BC+9~ |
INPUT | GETORDRS+6~, GETORDRS+17 |
INPUT("DFN" | GETORDRS+7* |
INPUT("ROC DI | SPLAY GROUPS" , GETORDRS+9*, GETORDRS+10*, GETORDRS+11* |
INPUT("ROC RE | TURN TYPE" , GETORDRS+16* |
INPUT("ROC ST | ATUS" , GETORDRS+12*, GETORDRS+13*, GETORDRS+14*, GETORDRS+15* |
INPUT("ROC" | GETORDRS+8* |
INPUT("SUB" | GETORDRS+7* |
ITFN | BC+9~ |
J | BC+9~ |
LSTDS | BC+9~ |
LSTFD | BC+9~ |
LSTRD | BC+9~ |
MDR | BC+9~ |
MIG | BC+9~ |
MR | BC+9~ |
PSBDT | BC+9~ |
PSEDT | BC+9~ |
PSOR | BC+9~ |
RX0 | BC+9~ |
RX2 | BC+9~ |
RX3 | BC+9~ |
SC | BC+9~ |
SCH | BC+9~ |
SG | BC+9~ |
ST | BC+9~ |
ST0 | BC+9~ |
STA | BC+9~ |
TFN | BC+9~ |
TRM | BC+9~ |
U | BC+19, BC+20, BC+21, BC+22, BC+24, BC+25, BC+26, COBP+11, COBP+13, COBP+17 , ISREG+6, ISREG+8, ISREG+13, VSTRING+5, ISIT+22, ISIT+24, ISIT+30, ISIT+31, ISIT+32, ISIT+33 , PREGS+14, PREGS+15, PREGS+19, PREGS+21, PREGS+38, PREGS+40, PREGS+56, LACTS+14, LACTS+15, LACTS+30 , LACTS+39, LACTS+44, MOA+12, GETORDRS+24, IMGAGNT+13, IMGAGNT+14, IMGAGNT+15 |
VSIT0 | VSTRING+3~, VSTRING+4*, VSTRING+5 |
WV100 | BC+8~, BC+10*, BC+21 |
WV465 | BC+8~, BC+11*, BC+13 |
WVAGENT | GETORDRS+22~, GETORDRS+23, GETORDRS+25*, GETORDRS+26 |
WVCDE | ISPREG~, ISPREG+11, ISLACT~, ISLACT+11, ISIT~, ISIT+10*, ISIT+12, ISIT+13, ISIT+14, PREGS~ , PREGS+11*, PREGS+12, PREGS+69, PREGS+78, LACTS~, LACTS+11*, LACTS+12, LACTS+42, LACTS+44 |
WVCODE | BC+8~ |
WVCONT | COBP+10~, COBP+11*, COBP+12, COBP+13 |
WVDATE | BC+8~, BC+20*, BC+21, ISIT+9~, PREGS+10~, PREGS+13*, PREGS+20, PREGS+39, PREGS+66, PREGS+69 , PREGS+74, LACTS+10~, LACTS+13*, LACTS+21, LACTS+42 |
WVDATE("LAST_START" | ISIT+20*, ISIT+22, ISIT+23!, ISIT+28*, ISIT+30 |
WVDATE(1 | ISIT+18*, ISIT+19, ISIT+20, ISIT+21, ISIT+26*, ISIT+27, ISIT+28, ISIT+29 |
WVDATE(2 | ISIT+19*, ISIT+21, ISIT+22, ISIT+27*, ISIT+29, ISIT+30 |
WVDFN | BC~, BC+13, BC+21, COBP~, COBP+9, COBP+11, COBP+12, ISREG~, ISREG+5, ISREG+6 , ISREG+7, ISREG+8, ISREG+10, VISITIEN~, VISITIEN+1*, VISITIEN+2, VISITIEN+7, ISPREG~, ISPREG+11, ISLACT~ , ISLACT+11, ISIT~, ISIT+13, ISIT+14, ISIT+15, ISIT+24, ISIT+31, PREGS~, PREGS+13, PREGS+14 , PREGS+15, PREGS+19, PREGS+21, PREGS+38, PREGS+40, PREGS+56, PREGS+83, PREGS+84, LACTS~, LACTS+13 , LACTS+14, LACTS+15, LACTS+30, LACTS+39, LACTS+44, LACTS+50, LACTS+51, MOA~, GETORDRS~, GETORDRS+4* , GETORDRS+5, GETORDRS+7 |
WVDIEN | IMGAGNT+4~, IMGAGNT+10*, IMGAGNT+11, IMGAGNT+12, IMGAGNT+13, IMGAGNT+14, IMGAGNT+15 |
WVDIENS | IMGAGNT+4~, IMGAGNT+8* |
WVDIENS( | IMGAGNT+10 |
WVDIENS(0 | IMGAGNT+8! |
WVDRUG | BC+8~, BC+21*, BC+22 |
WVDRUG(1 | BC+22*, BC+23, BC+24, BC+25, BC+26, BC+27 |
WVDT | BC~, BC+10, BC+11, BC+13, VISITIEN+4~, VISITIEN+5*, VISITIEN+6*, VISITIEN+7, MOA~, MOA+8* |
WVEDATE | ISPREG~, ISPREG+11, ISLACT~, ISLACT+11, ISIT~, ISIT+25, ISIT+29, ISIT+30 |
WVEDD | PREGS+10~, PREGS+12*, PREGS+21*, PREGS+22*, PREGS+23*, PREGS+25, PREGS+26, PREGS+36, PREGS+40*, PREGS+47 , PREGS+48*, PREGS+49, PREGS+50, PREGS+51*, PREGS+52, PREGS+55*, PREGS+78, PREGS+79, PREGS+80*, PREGS+81 |
WVEDD("OLD" | PREGS+21*, PREGS+25, PREGS+26, PREGS+28, PREGS+29, PREGS+30*, PREGS+31, PREGS+33, PREGS+34! |
WVEND | PREGS+10~, PREGS+12*, PREGS+41, PREGS+42*, PREGS+44, PREGS+45*, PREGS+54, PREGS+56*, PREGS+57, PREGS+58* , PREGS+61, PREGS+63, PREGS+64*, PREGS+65, PREGS+66*, PREGS+74*, PREGS+75*, PREGS+76, PREGS+77, LACTS+10~ , LACTS+12*, LACTS+22, LACTS+23*, LACTS+25, LACTS+26*, LACTS+29, LACTS+30*, LACTS+31, LACTS+34, LACTS+36 , LACTS+37*, LACTS+38, LACTS+39*, LACTS+45*, LACTS+46, LACTS+47, LACTS+48 |
WVEND("GUESS" | PREGS+18, PREGS+41, PREGS+42, PREGS+46!, PREGS+54, PREGS+59!, PREGS+68, PREGS+69*, PREGS+70, PREGS+71 , PREGS+73*, PREGS+74!, PREGS+75, LACTS+18, LACTS+22, LACTS+23, LACTS+27!, LACTS+29, LACTS+32!, LACTS+41 , LACTS+42*, LACTS+43, LACTS+44*, LACTS+45 |
WVERR | COBP+7~, COBP+9, COBP+13*, COBP+17, COBP+18 |
WVERRADD | ISREG+9~, ISREG+10, ISREG+11*, ISREG+12 |
WVERRNUM | FMERROR+1~, FMERROR+2*, FMERROR+3, FMERROR+4, FMERROR+5, FMERROR+6 |
WVERRORS | FMERROR+1~, FMERROR+6*, FMERROR+7 |
WVERRORS( | FMERROR+3, FMERROR+7* |
WVERRTXT | FMERROR+1~, FMERROR+5*, FMERROR+8 |
WVEXTRA | ISREG+9~, ISREG+11*, ISREG+13 |
>> WVFKST | ISPREG+10, ISLACT+10 |
WVGNAME | IMGAGNT+4~, IMGAGNT+5*, IMGAGNT+6, IMGAGNT+11, IMGAGNT+13, IMGAGNT+14, IMGAGNT+15 |
WVIEN | COBP+7~, COBP+9*, COBP+11, VSTRING~, VSTRING+1*, VSTRING+2, VSTRING+4, ISIT+9~, PREGS+10~, PREGS+13* , PREGS+14, PREGS+15, PREGS+19, PREGS+21, PREGS+25, PREGS+32, PREGS+33, PREGS+36, PREGS+38, PREGS+40 , PREGS+49, PREGS+52, PREGS+54, PREGS+56, PREGS+61, LACTS+10~, LACTS+13*, LACTS+14, LACTS+15, LACTS+19 , LACTS+21, LACTS+29, LACTS+30, LACTS+34, LACTS+39, LACTS+44, MOA+7~, MOA+9*, MOA+10, MOA+11 , MOA+12 |
WVIEN("CONT-END" | PREGS+44, PREGS+46!, PREGS+54*, PREGS+77, LACTS+25, LACTS+27!, LACTS+29*, LACTS+47 |
WVIEN("CONT-START" | PREGS+33*, PREGS+35, PREGS+63!, PREGS+71, PREGS+72!, LACTS+19*, LACTS+36!, LACTS+43!, LACTS+48 |
WVIEN("END" | PREGS+44, PREGS+46!, PREGS+56*, PREGS+77, LACTS+25, LACTS+27!, LACTS+30*, LACTS+47 |
WVIEN("START" | PREGS+25*, PREGS+31, PREGS+32*, PREGS+40*, PREGS+63!, PREGS+71, PREGS+74!, PREGS+81, LACTS+21*, LACTS+36! , LACTS+43, LACTS+44!, LACTS+48 |
WVINAME | ISIT+9~, ISIT+11*, ISIT+15 |
WVINDEX | ISIT+9~, ISIT+13, ISIT+14, ISIT+15*, ISIT+16, PREGS~, PREGS+84, LACTS~, LACTS+51 |
WVINDEX( | ISIT+18, ISIT+19, ISIT+21, ISIT+22, ISIT+26, ISIT+27, ISIT+29, ISIT+30, PREGS+25!, PREGS+26! , PREGS+29!, PREGS+31*, PREGS+36*, PREGS+44*, PREGS+49*, PREGS+52*, PREGS+55!, PREGS+59!, PREGS+63*, PREGS+71* , PREGS+77*, PREGS+79!, PREGS+81*, LACTS+25*, LACTS+32!, LACTS+36*, LACTS+43*, LACTS+47*, LACTS+48* |
WVINDEX(1410102 | PREGS+61*, LACTS+34* |
WVITM | FMERROR+1~, FMERROR+4*, FMERROR+5 |
WVLAC | GETORDRS~, GETORDRS+4*, GETORDRS+21 |
WVMOA | MOA~, MOA+6, MOA+9 |
WVNODE | BC+8~, BC+17*, BC+19, BC+20, BC+21, ISIT~, ISIT+10*, ISIT+11, ISIT+13, ISIT+14 , ISIT+15, ISIT+22, ISIT+24, ISIT+30, ISIT+31, PREGS+10~, PREGS+12*, PREGS+13, PREGS+14, PREGS+15 , PREGS+19, PREGS+21, PREGS+38, PREGS+40, PREGS+56, PREGS+83, PREGS+84, LACTS+10~, LACTS+12*, LACTS+13 , LACTS+14, LACTS+15, LACTS+30, LACTS+39, LACTS+44, LACTS+50, LACTS+51 |
WVNPFLAG | ISREG+4~, ISREG+5, ISREG+6*, ISREG+7, ISREG+8*, ISREG+12*, ISREG+13* |
WVOIIEN | IMGAGNT~, IMGAGNT+2*, IMGAGNT+3, IMGAGNT+7 |
WVOIN | GETORDRS+22~, GETORDRS+23*, GETORDRS+24 |
WVON | BC+8~, BC+16*, BC+17 |
WVORDCHK | GETORDRS+6~, GETORDRS+19*, GETORDRS+20, GETORDRS+21 |
WVORN | GETORDRS+6~, GETORDRS+18*, GETORDRS+19, GETORDRS+20, GETORDRS+23, GETORDRS+24, GETORDRS+26, GETORDRS+27 |
WVPIEN | COBP~, COBP+9, COBP+11 |
WVPKG | GETORDRS+22~, GETORDRS+24*, GETORDRS+25 |
WVREC | ISIT+9~, ISIT+32* |
WVRECS | ISIT+9~ |
WVRECS( | ISIT+32 |
WVRECS(1 | ISIT+18, ISIT+21*, ISIT+22*, ISIT+24*, ISIT+31 |
WVRECS(2 | ISIT+26, ISIT+29*, ISIT+30*, ISIT+31* |
WVRESULT | FMERROR~ |
WVRESULT("DIERR" | FMERROR+2, FMERROR+3, FMERROR+4, FMERROR+5, FMERROR+6 |
WVRET | IMGAGNT+4~, IMGAGNT+10, IMGAGNT+11*, IMGAGNT+13*, IMGAGNT+14*, IMGAGNT+15*, IMGAGNT+18 |
WVRETURN | COBP+7~, COBP+8*, COBP+17*, COBP+18*, COBP+19, MOA+7~, MOA+8*, MOA+10, MOA+12*, MOA+13* , MOA+14, GETORDRS+6~, GETORDRS+17, GETORDRS+29 |
WVRIEN | ISIT~, ISIT+17*, ISIT+32 |
WVRISK | BC+8~, BC+15*, BC+16, BC+24*, BC+25*, BC+26*, BC+27*, BC+29, COBP+7~, COBP+14* , COBP+15*, COBP+18 |
WVRISK(1 | COBP+12*, COBP+13, COBP+14, COBP+15, COBP+16! |
WVRTN | ISIT+9~, ISIT+17*, ISIT+32*, ISIT+33*, ISIT+34 |
WVRX | BC+8~ |
WVSAVE | PREGS+10~, PREGS+12*, PREGS+82, LACTS+10~, LACTS+12*, LACTS+49 |
WVSDATE | ISPREG~, ISPREG+11, ISLACT~, ISLACT+11, ISIT~, ISIT+8, ISIT+21, ISIT+22 |
WVSTART | PREGS+10~, PREGS+12*, PREGS+17, PREGS+18*, PREGS+19*, PREGS+20*, PREGS+23, PREGS+24, PREGS+25, PREGS+26 , PREGS+27, PREGS+28, PREGS+30, PREGS+33, PREGS+36, PREGS+37, PREGS+38*, PREGS+39*, PREGS+43, PREGS+49 , PREGS+51, PREGS+52, PREGS+55, PREGS+59, PREGS+60, PREGS+62, PREGS+63*, PREGS+66, PREGS+67, PREGS+70 , PREGS+71, PREGS+74*, PREGS+79, PREGS+81, LACTS+10~, LACTS+12*, LACTS+17, LACTS+18*, LACTS+20, LACTS+21* , LACTS+24, LACTS+32, LACTS+33, LACTS+35, LACTS+36*, LACTS+39, LACTS+40, LACTS+43, LACTS+44*, LACTS+48 |
WVSTART("INDEX" | PREGS+43*, PREGS+44, PREGS+46!, LACTS+24*, LACTS+25, LACTS+27! |
WVSTART("OLD" | PREGS+19*, PREGS+24, PREGS+27, PREGS+29, PREGS+31, PREGS+34! |
WVSTATUS | PREGS+10~, PREGS+15*, PREGS+16, PREGS+53, PREGS+78, LACTS+10~, LACTS+15*, LACTS+16, LACTS+28 |
WVVISIT | ISIT+9~ |
WVVSTR | VISITIEN~, VISITIEN+1*, VISITIEN+3, VISITIEN+5 |
X | BC+8~, BC+10, BC+11 |
X1 | BC+8~, BC+10*, BC+11* |
X2 | BC+8~, BC+10*, BC+11* |
Name | Field # of Occurrence |
---|---|
$T(GETGRACD^PXRMCWH1 | GETGRACD+3 |