source: FOIAVistA/trunk/r/INCOME_VERIFICATION_MATCH-IVM/IVMLDEM5.m@ 794

Last change on this file since 794 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 3.4 KB
Line 
1IVMLDEM5 ;ALB/KCL - IVM DEMOGRAPHIC UPLOAD HELP ; 05-MAY-94
2 ;;2.0;INCOME VERIFICATION MATCH;**10**; 21-OCT-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5 ;
6EN ; - Extended help for the IVM demographic upload
7 ;
8 D FULL^VALM1
9 D CLEAR^VALM1
10 W !,?15,"***** IVM DEMOGRAPHIC UPLOAD - EXTENDED HELP *****"
11 W !," "
12 W !,?5,"As part of the Income Verification Match process, patient demographic"
13 W !,?5,"information will be returned to field facilities. During the course"
14 W !,?5,"of verifying a Means Test, HEC contact representatives"
15 W !,?5,"may determine that certain patient demographic and eligibility information"
16 W !,?5,"has changed. HEC may electronically transmit these changes"
17 W !,?5,"to the field facilities in the Demographic Data Transmission message."
18 W !,?5,"These demographic elements are classified as either 'UPLOADABLE' or"
19 W !,?5,"'NON-UPLOADABLE'. The Demographic Upload option will allow field"
20 W !,?5,"facilities to review this data and either load (automatically or manually,"
21 W !,?5,"depending upon whether the field is uploadable or non-uploadable) or"
22 W !,?5,"reject the data."
23 W !,?5," "
24 W !,?5,"Uploadable demographic elements will be compared to the patient "
25 W !,?5,"demographic elements that are currently on file in DHCP and displayed"
26 W !,?5,"to the user. The user may review these elements and choose to either"
27 W !,?5,"upload or delete them."
28 D PAUSE^VALM1
29 W !,?5,"Non-uploadable demographic elements will be compared to the patient"
30 W !,?5,"demographic elements that are currently on file in DHCP and displayed"
31 W !,?5,"to the user. This demographic information is provided to the facility"
32 W !,?5,"for informational purposes only. The user may review these elements,"
33 W !,?5,"but will not be given the option to automatically load them into DHCP."
34 ;
35 D PAUSE^VALM1
36 S VALMBCK="R"
37 Q
38 ;
39 ;
40DEMO(X,Y,TYPE) ; - extrinsic function to see if IVM patient has has demographic
41 ;information for uploading or display
42 ;
43 ; Input: X -- as internal entry number of IVM PATIENT (#301.5) file
44 ; Y -- as internal entry number of the (#301.501) sub-file
45 ; TYPE -- as the type of demographic data:
46 ; - 0 for demographic data that is information only
47 ; - 1 for demograpic data that is uploadable
48 ;
49 ; Output: 1 -- if patient has specified type of demographic data
50 ; 0 -- if patient does not have specified type of demographic data
51 ;
52 N IVMSTAT,IVMPTR
53 S IVMCHK=0
54 F IVMSTAT=0:0 S IVMSTAT=$O(^IVM(301.5,X,"IN",Y,"DEM","B",IVMSTAT)) Q:'IVMSTAT D
55 .S IVMPTR=$P($G(^IVM(301.92,IVMSTAT,0)),"^",3)
56 .I IVMPTR=TYPE S IVMCHK=1 Q
57 K X,Y,TYPE
58 Q $S(IVMCHK=1:1,1:0)
59 ;
60 ;
61DELETE(IVMDA2,IVMDA1,NAME) ; - delete segment name (.02 field from the #301.501 sub-file)
62 ; from the IVM Patient #301.5 file to remove from ASEG x-ref.
63 ;
64 ; Input: IVMDA2 -- Pointer to the case record in file #301.5
65 ; IVMDA1 -- Pointer to PID msg in sub-file #301.501
66 ; NAME -- as patient name from the array
67 ; ^tmp("ivmlst",$j,"idx",ctr,ctr)
68 ;
69 ; Output: None
70 ;
71 ; - delete segment name (.02 field from the #301.501 sub-file) from
72 ; the IVM Patient #301.5 file to remove from ASEG x-ref.
73 ;
74 S DA=IVMDA1,DA(1)=IVMDA2
75 S DIE="^IVM(301.5,"_DA(1)_",""IN"","
76 S DR=".02////@" D ^DIE
77 ;
78 ; - delete entry from list manager array
79 K ^TMP("IVMDUPL",$J,NAME,IVMDA2,IVMDA1)
80 Q
Note: See TracBrowser for help on using the repository browser.