| 1 | DGRPH ;ALB/MRL,TMK - REGISTRATION HELP ROUTINE ;19 OCT 05
|
|---|
| 2 | ;;5.3;Registration;**114,343,397,415,489,545,638,624,689**;Aug 13, 1993;Build 1
|
|---|
| 3 | S DGRPH="" D H^DGRPU K DGRPH W !,"Enter '^' to stop the display ",$S(DGRPV:"",1:"and edit "),"of data, '^N' to jump to screen #N (see",!,"listing below), <RET> to continue on to the next available screen" I DGRPV W "." G M
|
|---|
| 4 | W " or enter",!,"the field group number(s) you wish to edit using commas and dashes as",!,"delimiters. Those groups enclosed in brackets ""[]"" are editable while those",!,"enclosed in arrows ""<>"" are not."
|
|---|
| 5 | W " Enter 'ALL' to edit all editable data",!,"elements on the screen."
|
|---|
| 6 | M I DGRPS=9,DGRPSEL="V" W !!,"You may precede your selection with 'V' to denote veteran."
|
|---|
| 7 | I DGRPS=9,DGRPSEL]"V" W !!,"To edit a specific column, enter 'V'",$S($D(DGREL("S")):", 'S'",1:""),$S($D(DGREL("D")):", 'D'",1:"")," in front of the selected items."
|
|---|
| 8 | S Z="DATA GROUPS ON SCREEN "_DGRPS,DGRPCM=1 W ! D WW^DGRPV S DGRPCM=0 D:DGRPS=1.1 A1 D:DGRPS'=1.1 @DGRPS D:$S(DGRPS<11:1,DGRPS=14:1,1:0) W D S W ! F I=$Y:1:20 W !
|
|---|
| 9 | ;S Z="Press RETURN key",DGRPCM=1 D WW^DGRPV S DGRPCM=0 W " to EXIT Screen ",DGRPS," HELP " R X:DTIME S X="" Q
|
|---|
| 10 | S DGRPW=0 W "Press " S Z="<RETURN>",DGRPCM=1 D WW^DGRPV W " KEY " S Z="TO EXIT" D WW^DGRPV W " SCREEN ",DGRPS," " S Z="HELP" D WW^DGRPV W " " R X:DTIME S (DGRPCM,DGRPW)=0 Q
|
|---|
| 11 | 1 S X="Name, SSN, DOB, Sex^Alias Name & SSN (if applicable)^Remarks concerning this patient^Home Address, Phone & Work Phone^Temporary Address, Dates, Phone" Q
|
|---|
| 12 | A1 S X="Conf. Address,Dates and Types^E-Mail, Cell Phone & Pager #s" Q
|
|---|
| 13 | 2 S X="POB, Parents, etc.^Dates/Locations of Previous Care^Race and Ethnicity^Date of Death Information" Q
|
|---|
| 14 | 3 S X="Primary Next-of-Kin^Secondary Next-of-Kin^Primary Emergency Contact^Secondary Emergency Contact^Designee to receive personal effects" Q
|
|---|
| 15 | 4 S X="Applicant Employer, Address^Spouses Employer, Address" Q
|
|---|
| 16 | 5 S X="Unexpired Insurance Policies^Eligibile for Medicaid" Q
|
|---|
| 17 | 6 S X="Service History^Conflict Locations^Exposure Factors^Prisoner of War^Combat^Military Retirement/Disability^Dental History^Purple Heart Recipient" Q
|
|---|
| 18 | 7 S X="Patient Type, SC Data, Claim Info^VA Monetary Benefits^POS, Eligibility Code(s)^SC Conditions relayed by applicant" Q
|
|---|
| 19 | 8 S X="Spouse's Demographic Info^Dependents' Demographic Info" Q
|
|---|
| 20 | 9 S X="Social Security^U.S. Civil Service^U.S. Railroad Retirement^Military Retirement^Unemployment^Other Retirement^Total Employment Income^Interest,Dividend,Annuity^Workers Comp or Black Lung^Other Income" Q
|
|---|
| 21 | 10 S X="Ineligible Patient Information^Missing Patient Information" Q
|
|---|
| 22 | 11 S X="Eligibility Verification^Monetary Benefits Verification^Service Record Verification^Rated Disabilities (VA)" Q
|
|---|
| 23 | 12 W !,"Four most recent admission episodes on file for this applicant are displayed",!,"in inverse order." Q
|
|---|
| 24 | 13 W !,"Four most recent applications for care (registrations) are displayed in",!,"inverse order." Q
|
|---|
| 25 | 14 S X="Clinics in which actively enrolled^Pending (future) appointments" Q
|
|---|
| 26 | 15 W !,"Sponsor information is displayed for patients." Q
|
|---|
| 27 | S W ! S Z="AVAILABLE SCREENS",DGRPCM=1 D WW^DGRPV S DGRPCM=0
|
|---|
| 28 | S X="Demographic^Confidential Address^Patient^Contact^Employment^Insurance^Service Record^Eligibility^Family Demographic^Income Screening^Missing/Ineligible^Eligibility Verification^"
|
|---|
| 29 | S X=X_"Admission Info^Application Info^Appointment Info^Sponsor Demograhics"
|
|---|
| 30 | ;S C=0 F I=1:1 S J=$P(X,"^",I) Q:J="" I '$E(DGRPVV,I) S C=C+1,Z="^"_I,DGRPW=(C#2) D WW^DGRPV S Z=$S(I?1N:" ",1:" ")_J_" Data",Z1=$S((C#2)&(I?1N):36,(C#2):35,1:1) D WW1^DGRPV:(C#2) I '(C#2) W Z
|
|---|
| 31 | N DGJ
|
|---|
| 32 | S DGJ=""
|
|---|
| 33 | S C=0 F I=1:1 S DGJ=$O(DGRPVV(DGJ)) Q:DGJ="" I '$E(DGRPVV,DGJ) D
|
|---|
| 34 | .S C=C+1,Z="^"_DGJ,DGRPW=(C#2)
|
|---|
| 35 | .D WW^DGRPV
|
|---|
| 36 | .S Z1=$S((C#2)&(DGJ?1N):36,(C#2):35,1:1)
|
|---|
| 37 | .S Z=$S(DGJ?1N:" ",1:" ")_$P(X,U,I)_" Data"
|
|---|
| 38 | .D WW1^DGRPV:(C#2)
|
|---|
| 39 | .I '(C#2) W Z
|
|---|
| 40 | Q
|
|---|
| 41 | W F I=1:1 S J=$P(X,"^",I) Q:J="" S Z=I,DGRPW=(I#2) D WW^DGRPV S Z=$S(I<10:" ",1:" ")_J,Z1=$S((I#2)&(I>10):36,(I#2):37,1:1) D WW1^DGRPV
|
|---|
| 42 | W:'((I-1)#2) ! Q
|
|---|
