Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IVMLDEM5

IVMLDEM5.m

Go to the documentation of this file. 
  1. IVMLDEM5 ;ALB/KCL - IVM DEMOGRAPHIC UPLOAD HELP ; 05-MAY-94
  1.  ;;2.0;INCOME VERIFICATION MATCH;**10**; 21-OCT-94
  1.  ;;Per VHA Directive 10-93-142, this routine should not be modified.
  1.  ;
  1.  ;
  1. EN ; - Extended help for the IVM demographic upload
  1.  ;
  1.  D FULL^VALM1
  1.  D CLEAR^VALM1
  1.  W !,?15,"***** IVM DEMOGRAPHIC UPLOAD - EXTENDED HELP *****"
  1.  W !," "
  1.  W !,?5,"As part of the Income Verification Match process, patient demographic"
  1.  W !,?5,"information will be returned to field facilities.  During the course"
  1.  W !,?5,"of verifying a Means Test, HEC contact representatives"
  1.  W !,?5,"may determine that certain patient demographic and eligibility information"
  1.  W !,?5,"has changed.  HEC may electronically transmit these changes"
  1.  W !,?5,"to the field facilities in the Demographic Data Transmission message."
  1.  W !,?5,"These demographic elements are classified as either 'UPLOADABLE' or"
  1.  W !,?5,"'NON-UPLOADABLE'.  The Demographic Upload option will allow field"
  1.  W !,?5,"facilities to review this data and either load (automatically or manually,"
  1.  W !,?5,"depending upon whether the field is uploadable or non-uploadable) or"
  1.  W !,?5,"reject the data."
  1.  W !,?5," "
  1.  W !,?5,"Uploadable demographic elements will be compared to the patient "
  1.  W !,?5,"demographic elements that are currently on file in DHCP and displayed"
  1.  W !,?5,"to the user.  The user may review these elements and choose to either"
  1.  W !,?5,"upload or delete them."
  1.  D PAUSE^VALM1
  1.  W !,?5,"Non-uploadable demographic elements will be compared to the patient"
  1.  W !,?5,"demographic elements that are currently on file in DHCP and displayed"
  1.  W !,?5,"to the user.  This demographic information is provided to the facility"
  1.  W !,?5,"for informational purposes only.  The user may review these elements,"
  1.  W !,?5,"but will not be given the option to automatically load them into DHCP."
  1.  ;
  1.  D PAUSE^VALM1
  1.  S VALMBCK="R"
  1.  Q
  1.  ;
  1.  ;
  1. DEMO(X,Y,TYPE) ; - extrinsic function to see if IVM patient has has demographic
  1.  ;information for uploading or display
  1.  ;
  1.  ;  Input: X  --  as internal entry number of IVM PATIENT (#301.5) file
  1.  ;         Y  --  as internal entry number of the (#301.501) sub-file
  1.  ;         TYPE  --  as the type of demographic data:
  1.  ;              - 0 for demographic data that is information only
  1.  ;              - 1 for demograpic data that is uploadable
  1.  ;
  1.  ; Output: 1  --  if patient has specified type of demographic data
  1.  ;         0  --  if patient does not have specified type of demographic data
  1.  ;
  1.  N IVMSTAT,IVMPTR
  1.  S IVMCHK=0
  1.  F IVMSTAT=0:0 S IVMSTAT=$O(^IVM(301.5,X,"IN",Y,"DEM","B",IVMSTAT)) Q:'IVMSTAT  D
  1.  .S IVMPTR=$P($G(^IVM(301.92,IVMSTAT,0)),"^",3)
  1.  .I IVMPTR=TYPE S IVMCHK=1 Q
  1.  K X,Y,TYPE
  1.  Q $S(IVMCHK=1:1,1:0)
  1.  ;
  1.  ;
  1. 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.
  1.  ;
  1.  ;  Input:   IVMDA2  --  Pointer to the case record in file #301.5
  1.  ;           IVMDA1  --  Pointer to PID msg in sub-file #301.501
  1.  ;             NAME  --  as patient name from the array
  1.  ;                          ^tmp("ivmlst",$j,"idx",ctr,ctr)
  1.  ;
  1.  ; Output:  None
  1.  ;
  1.  ; - delete segment name (.02 field from the #301.501 sub-file) from
  1.  ;   the IVM Patient #301.5 file to remove from ASEG x-ref.
  1.  ;
  1.  S DA=IVMDA1,DA(1)=IVMDA2
  1.  S DIE="^IVM(301.5,"_DA(1)_",""IN"","
  1.  S DR=".02////@" D ^DIE
  1.  ;
  1.  ; - delete entry from list manager array
  1.  K ^TMP("IVMDUPL",$J,NAME,IVMDA2,IVMDA1)
  1.  Q