IVMLDEM5 ;ALB/KCL - IVM DEMOGRAPHIC UPLOAD HELP ; 05-MAY-94
;;2.0;INCOME VERIFICATION MATCH;**10**; 21-OCT-94
;;Per VHA Directive 10-93-142, this routine should not be modified.
;
;
EN ; - Extended help for the IVM demographic upload
;
D FULL^VALM1
D CLEAR^VALM1
W !,?15,"***** IVM DEMOGRAPHIC UPLOAD - EXTENDED HELP *****"
W !," "
W !,?5,"As part of the Income Verification Match process, patient demographic"
W !,?5,"information will be returned to field facilities. During the course"
W !,?5,"of verifying a Means Test, HEC contact representatives"
W !,?5,"may determine that certain patient demographic and eligibility information"
W !,?5,"has changed. HEC may electronically transmit these changes"
W !,?5,"to the field facilities in the Demographic Data Transmission message."
W !,?5,"These demographic elements are classified as either 'UPLOADABLE' or"
W !,?5,"'NON-UPLOADABLE'. The Demographic Upload option will allow field"
W !,?5,"facilities to review this data and either load (automatically or manually,"
W !,?5,"depending upon whether the field is uploadable or non-uploadable) or"
W !,?5,"reject the data."
W !,?5," "
W !,?5,"Uploadable demographic elements will be compared to the patient "
W !,?5,"demographic elements that are currently on file in DHCP and displayed"
W !,?5,"to the user. The user may review these elements and choose to either"
W !,?5,"upload or delete them."
D PAUSE^VALM1
W !,?5,"Non-uploadable demographic elements will be compared to the patient"
W !,?5,"demographic elements that are currently on file in DHCP and displayed"
W !,?5,"to the user. This demographic information is provided to the facility"
W !,?5,"for informational purposes only. The user may review these elements,"
W !,?5,"but will not be given the option to automatically load them into DHCP."
;
D PAUSE^VALM1
S VALMBCK="R"
Q
;
;
DEMO(X,Y,TYPE) ; - extrinsic function to see if IVM patient has has demographic
;information for uploading or display
;
; Input: X -- as internal entry number of IVM PATIENT (#301.5) file
; Y -- as internal entry number of the (#301.501) sub-file
; TYPE -- as the type of demographic data:
; - 0 for demographic data that is information only
; - 1 for demograpic data that is uploadable
;
; Output: 1 -- if patient has specified type of demographic data
; 0 -- if patient does not have specified type of demographic data
;
N IVMSTAT,IVMPTR
S IVMCHK=0
F IVMSTAT=0:0 S IVMSTAT=$O(^IVM(301.5,X,"IN",Y,"DEM","B",IVMSTAT)) Q:'IVMSTAT D
.S IVMPTR=$P($G(^IVM(301.92,IVMSTAT,0)),"^",3)
.I IVMPTR=TYPE S IVMCHK=1 Q
K X,Y,TYPE
Q $S(IVMCHK=1:1,1:0)
;
;
DELETE(IVMDA2,IVMDA1,NAME) ; - delete segment name (.02 field from the #301.501 sub-file)
; from the IVM Patient #301.5 file to remove from ASEG x-ref.
;
; Input: IVMDA2 -- Pointer to the case record in file #301.5
; IVMDA1 -- Pointer to PID msg in sub-file #301.501
; NAME -- as patient name from the array
; ^tmp("ivmlst",$j,"idx",ctr,ctr)
;
; Output: None
;
; - delete segment name (.02 field from the #301.501 sub-file) from
; the IVM Patient #301.5 file to remove from ASEG x-ref.
;
S DA=IVMDA1,DA(1)=IVMDA2
S DIE="^IVM(301.5,"_DA(1)_",""IN"","
S DR=".02////@" D ^DIE
;
; - delete entry from list manager array
K ^TMP("IVMDUPL",$J,NAME,IVMDA2,IVMDA1)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIVMLDEM5 3525 printed Apr 09, 2024@21:01:47 Page 2
IVMLDEM5 ;ALB/KCL - IVM DEMOGRAPHIC UPLOAD HELP ; 05-MAY-94
+1 ;;2.0;INCOME VERIFICATION MATCH;**10**; 21-OCT-94
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+3 ;
+4 ;
EN ; - Extended help for the IVM demographic upload
+1 ;
+2 DO FULL^VALM1
+3 DO CLEAR^VALM1
+4 WRITE !,?15,"***** IVM DEMOGRAPHIC UPLOAD - EXTENDED HELP *****"
+5 WRITE !," "
+6 WRITE !,?5,"As part of the Income Verification Match process, patient demographic"
+7 WRITE !,?5,"information will be returned to field facilities. During the course"
+8 WRITE !,?5,"of verifying a Means Test, HEC contact representatives"
+9 WRITE !,?5,"may determine that certain patient demographic and eligibility information"
+10 WRITE !,?5,"has changed. HEC may electronically transmit these changes"
+11 WRITE !,?5,"to the field facilities in the Demographic Data Transmission message."
+12 WRITE !,?5,"These demographic elements are classified as either 'UPLOADABLE' or"
+13 WRITE !,?5,"'NON-UPLOADABLE'. The Demographic Upload option will allow field"
+14 WRITE !,?5,"facilities to review this data and either load (automatically or manually,"
+15 WRITE !,?5,"depending upon whether the field is uploadable or non-uploadable) or"
+16 WRITE !,?5,"reject the data."
+17 WRITE !,?5," "
+18 WRITE !,?5,"Uploadable demographic elements will be compared to the patient "
+19 WRITE !,?5,"demographic elements that are currently on file in DHCP and displayed"
+20 WRITE !,?5,"to the user. The user may review these elements and choose to either"
+21 WRITE !,?5,"upload or delete them."
+22 DO PAUSE^VALM1
+23 WRITE !,?5,"Non-uploadable demographic elements will be compared to the patient"
+24 WRITE !,?5,"demographic elements that are currently on file in DHCP and displayed"
+25 WRITE !,?5,"to the user. This demographic information is provided to the facility"
+26 WRITE !,?5,"for informational purposes only. The user may review these elements,"
+27 WRITE !,?5,"but will not be given the option to automatically load them into DHCP."
+28 ;
+29 DO PAUSE^VALM1
+30 SET VALMBCK="R"
+31 QUIT
+32 ;
+33 ;
DEMO(X,Y,TYPE) ; - extrinsic function to see if IVM patient has has demographic
+1 ;information for uploading or display
+2 ;
+3 ; Input: X -- as internal entry number of IVM PATIENT (#301.5) file
+4 ; Y -- as internal entry number of the (#301.501) sub-file
+5 ; TYPE -- as the type of demographic data:
+6 ; - 0 for demographic data that is information only
+7 ; - 1 for demograpic data that is uploadable
+8 ;
+9 ; Output: 1 -- if patient has specified type of demographic data
+10 ; 0 -- if patient does not have specified type of demographic data
+11 ;
+12 NEW IVMSTAT,IVMPTR
+13 SET IVMCHK=0
+14 FOR IVMSTAT=0:0
SET IVMSTAT=$ORDER(^IVM(301.5,X,"IN",Y,"DEM","B",IVMSTAT))
if 'IVMSTAT
QUIT
Begin DoDot:1
+15 SET IVMPTR=$PIECE($GET(^IVM(301.92,IVMSTAT,0)),"^",3)
+16 IF IVMPTR=TYPE
SET IVMCHK=1
QUIT
End DoDot:1
+17 KILL X,Y,TYPE
+18 QUIT $SELECT(IVMCHK=1:1,1:0)
+19 ;
+20 ;
DELETE(IVMDA2,IVMDA1,NAME) ; - delete segment name (.02 field from the #301.501 sub-file)
+1 ; from the IVM Patient #301.5 file to remove from ASEG x-ref.
+2 ;
+3 ; Input: IVMDA2 -- Pointer to the case record in file #301.5
+4 ; IVMDA1 -- Pointer to PID msg in sub-file #301.501
+5 ; NAME -- as patient name from the array
+6 ; ^tmp("ivmlst",$j,"idx",ctr,ctr)
+7 ;
+8 ; Output: None
+9 ;
+10 ; - delete segment name (.02 field from the #301.501 sub-file) from
+11 ; the IVM Patient #301.5 file to remove from ASEG x-ref.
+12 ;
+13 SET DA=IVMDA1
SET DA(1)=IVMDA2
+14 SET DIE="^IVM(301.5,"_DA(1)_",""IN"","
+15 SET DR=".02////@"
DO ^DIE
+16 ;
+17 ; - delete entry from list manager array
+18 KILL ^TMP("IVMDUPL",$JOB,NAME,IVMDA2,IVMDA1)
+19 QUIT
