SDPPAT1 ;ALB/CAW-Patient Profile (Generic Patient Info) Screen 1;5/4/92
Source file <SDPPAT1.m>
Package | Total | Call Graph |
---|---|---|
Registration | 2 | $$LST^DGMTU ($$FTIME,$$SETSTR)^VALM1 |
Kernel | 1 | $$FMTE^XLFDT |
Scheduling | 1 | ^SDPPAT2 |
Name | Comments | DBIA/ICR reference |
---|---|---|
PRIME | ; Primary Eligibility
|
|
OTHERE | ; Other Eligibilities and Date of Death
|
|
PTDOB | ; Date of Birth and Marital Status Info
|
|
FELIG(ELIG) | ;
; input - pointer to eligibility file ; output - name of eligibility |
|
OTH1 | ; First 'Other' Eligibility' and VETERAN(Y/N)
|
|
VET | ; List of other eligibilities and VETERAN(Y/N)
|
|
PDATA | ; Patient Data
|
|
SET(X) | ; Set in ^TMP global for display
|
|
REMARK | ; Remark
|
|
MT | ; Current Means Test - if applicable
|
|
PTRACE | ; SSN and Occupation Info
|
|
OTHM | ; Rest of 'Other Eligibilities'
|
|
OTH2 | ; Second 'Other Eligbility' and TYPE
|
|
PWHO | ; Who entered and Place of Birth
|
|
PWHEN | ; Date entered
|
|
PTSEX | ; Sex and Religions Pref. Info
|
Name | Field # of Occurrence |
---|---|
$$LST^DGMTU | PDATA+8 |
^SDPPAT2 | VET+10 |
$$FTIME^VALM1 | PTDOB+3 |
$$SETSTR^VALM1 | PTDOB+2, PTDOB+3, PTDOB+4, PTDOB+5, PTSEX+2, PTSEX+3, PTSEX+4, PTSEX+5, PTRACE+2, PTRACE+3 , PTRACE+4, PTRACE+5, PWHO+2, PWHO+3, PWHO+4, PWHO+5, PWHEN+1, PWHEN+2, MT+3, MT+4 , MT+5, MT+6, MT+8, MT+9, MT+10, MT+11, REMARK+2, REMARK+3, PRIME+2, PRIME+3 , OTHERE+2, OTHERE+3, VET+1, VET+3, VET+4, VET+6, VET+7, OTH1+1, OTH1+2, OTH1+3 , OTH2+1, OTH2+2, OTH2+3, OTHM+2 |
$$FMTE^XLFDT | PWHEN+2, MT+6, MT+11, OTHERE+3 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DG(391 - [#391] | VET+7, OTH2+3 |
^DIC(11 - [#11] | PTDOB+5 |
^DIC(13 - [#13] | PTSEX+5 |
^DIC(31 - [#31] | PDATA+5 |
^DIC(5 - [#5] | PWHO+5 |
^DIC(8 - [#8] | FELIG+3 |
^DPT - [#2] | PDATA+2, PDATA+3, PDATA+4, PDATA+7 |
^TMP("SDPP" | SET+2* |
^VA(200 - [#200] | PWHO+3 |
Name | Line Occurrences |
---|---|
$$FELIG | PRIME+3, OTH1+1, OTH2+1, OTHM+2 |
@( | VET+1 |
SET | PTDOB+6, PTSEX+6, PTRACE+6, PWHO+6, PWHEN+3, MT+12, REMARK+4, PRIME+4, OTHERE+4, VET+1 , VET+5, VET+8, VET+9, OTH1+4, OTH2+4, OTHM+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CNT | PDATA+1~ |
>> DFN | PDATA+2, PDATA+3, PDATA+4, PDATA+7, PDATA+8 |
ELIG | FELIG~, FELIG+3 |
>> ROU | VET+1* |
SD | PDATA+1~, PDATA+2*, VET+9* |
SD( | PDATA+2*, PDATA+7, PRIME+3, OTHERE+3 |
SD("MT" | PDATA+8*, MT+2, MT+4, MT+6 |
SD("TYPE" | VET+7, OTH2+3 |
SD("VET" | VET+4, OTH1+3 |
SD(0 | PTDOB+3, PTDOB+5, PTSEX+3, PTSEX+5, PTRACE+5, PWHO+3, PWHO+5, PWHEN+2, REMARK+1, REMARK+3 |
SDCNT | PDATA+1~ |
SDCNT( | PDATA+6* |
SDCOPS | PDATA+1~, PDATA+8*, MT+7, MT+9, MT+11 |
SDCT | PDATA+1~, VET+1*, VET+2, OTHM+1 |
SDDIS | PDATA+1~, PDATA+3*, PDATA+4, PDATA+5, PDATA+6 |
SDDIS( | PDATA+4*, PDATA+5*, PDATA+6 |
SDELIG | PDATA+1~, PDATA+7*, VET+1*, OTH1+1, OTH2+1, OTHM+2 |
SDELIG( | PDATA+7*, VET+1, OTH1+1, OTH2+1, OTHM+2 |
>> SDFSTCOL | PDATA+9*, PTDOB+3, PTSEX+3, PTRACE+3, PWHO+3, PWHEN+2, MT+4, MT+9, REMARK+3, PRIME+3 |
>> SDLN | VET+9, VET+11, SET+2* |
>> SDSECCOL | PDATA+9*, PTDOB+5, PTSEX+5, PTRACE+5, PWHO+5, MT+6, MT+11, OTHERE+3, VET+4, VET+7 , OTH1+3, OTH2+3 |
U | PDATA+5, PDATA+6, PTDOB+3, PTDOB+5, PTSEX+3, PTSEX+5, PTRACE+5, PWHO+3, PWHO+5, PWHEN+2 , MT+4, MT+6, MT+9, MT+11, REMARK+1, REMARK+3, OTHERE+3, VET+7, OTH2+3, FELIG+3 |
>> VA("PID" | PTRACE+3 |
>> VALMCNT | VET+11* |
X | PTDOB+2*, PTDOB+3*, PTDOB+4*, PTDOB+5*, PTDOB+6, PTSEX+2*, PTSEX+3*, PTSEX+4*, PTSEX+5*, PTSEX+6 , PTRACE+2*, PTRACE+3*, PTRACE+4*, PTRACE+5*, PTRACE+6, PWHO+2*, PWHO+3*, PWHO+4*, PWHO+5*, PWHO+6 , PWHEN+1*, PWHEN+2*, PWHEN+3, MT+2*, MT+3*, MT+4*, MT+5*, MT+6*, MT+8*, MT+9* , MT+10*, MT+11*, MT+12, REMARK+1*, REMARK+2*, REMARK+3*, REMARK+4, PRIME+2*, PRIME+3*, PRIME+4 , OTHERE+2*, OTHERE+3*, OTHERE+4, VET+1*, VET+3*, VET+4*, VET+5, VET+6*, VET+7*, VET+8 , SET~, SET+2, OTH1+1*, OTH1+2*, OTH1+3*, OTH1+4, OTH2+1*, OTH2+2*, OTH2+3*, OTH2+4 , OTHM+2*, OTHM+3 |