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

EASEZT2.m

Go to the documentation of this file.
  1. EASEZT2 ;ALB/jap - Data Transformation Logic for 1010EZ Processing ;10/12/00 13:08
  1. ;;1.0;ENROLLMENT APPLICATION SYSTEM;**51,57,66**;Mar 15, 2001
  1. ;
  1. WORKPH(EASAPP,TYPE) ;
  1. ;input EASAPP = application ien in file #712
  1. ; TYPE = "APPLICANT", "SPOUSE", "NEXT-OF-KIN", "E-CONTACT",
  1. ;output PHONE = formatted work phone or null;
  1. ; example: (432)987-1234 X123
  1. ;
  1. N PHONE,MULTIPLE,AC,NUM,EXT,KEY,T
  1. S PHONE="",MULTIPLE=1
  1. S KEY=+$$KEY711^EASEZU1(TYPE_" WORK PHONE AREA CODE") I KEY D
  1. .S AC=$P($$DATA712^EASEZU1(EASAPP,KEY,MULTIPLE),U,1)
  1. S KEY=+$$KEY711^EASEZU1(TYPE_" WORK PHONE NUMBER") I KEY D
  1. .S NUM=$P($$DATA712^EASEZU1(EASAPP,KEY,MULTIPLE),U,1)
  1. .F T=1,2 S ^TMP("EZDATA",$J,KEY,MULTIPLE,T)=""
  1. S KEY=+$$KEY711^EASEZU1(TYPE_" WORK PHONE EXTENSION") I KEY D
  1. .S EXT=$P($$DATA712^EASEZU1(EASAPP,KEY,MULTIPLE),U,1)
  1. .F T=1,2 S ^TMP("EZDATA",$J,KEY,MULTIPLE,T)=""
  1. I AC'="" S AC="("_AC_")"
  1. I NUM="-" S NUM=""
  1. I NUM'="" S:NUM'["-" NUM=$E(NUM,1,3)_"-"_$E(NUM,4,7)
  1. I EXT'="" S EXT=" X"_EXT
  1. I NUM="" Q PHONE
  1. S PHONE=AC_NUM_EXT
  1. Q PHONE
  1. ;
  1. HOMEPH(EASAPP,TYPE) ;
  1. ;input EASAPP = application ien in file #712
  1. ; TYPE = "APPLICANT", "SPOUSE", "NEXT-OF-KIN", "E-CONTACT"
  1. ;output PHONE = formatted home phone;
  1. ; example: (432)987-1234
  1. ;
  1. N PHONE,MULTIPLE,AC,NUM,KEY,T
  1. S PHONE="",MULTIPLE=1
  1. S KEY=+$$KEY711^EASEZU1(TYPE_" HOME PHONE AREA CODE") I KEY D
  1. .S AC=$P($$DATA712^EASEZU1(EASAPP,KEY,MULTIPLE),U,1)
  1. S KEY=+$$KEY711^EASEZU1(TYPE_" HOME PHONE NUMBER") I KEY D
  1. .S NUM=$P($$DATA712^EASEZU1(EASAPP,KEY,MULTIPLE),U,1)
  1. .F T=1,2 S ^TMP("EZDATA",$J,KEY,MULTIPLE,T)=""
  1. I AC'="" S AC="("_AC_")"
  1. I NUM="-" S NUM=""
  1. I NUM'="" S:NUM'["-" NUM=$E(NUM,1,3)_"-"_$E(NUM,4,7)
  1. I NUM="" Q PHONE
  1. S PHONE=AC_NUM
  1. Q PHONE
  1. ;
  1. INSPH(EASAPP,TYPE,MULTIPLE) ;
  1. ;input EASAPP = application ien in file #712
  1. ; TYPE = "APPLICANT", "OTHER(N)"
  1. ; MULTIPLE = EASMULT Value def=1
  1. ;output PHONE = formatted home phone;
  1. ; example: (432)987-1234
  1. ;
  1. N PHONE,AC,NUM,KEY,T
  1. S PHONE="",MULTIPLE=+$G(MULTIPLE) I MULTIPLE<2 S MULTIPLE=1
  1. S KEY=+$$KEY711^EASEZU1(TYPE_" INSURANCE PHONE AREA CODE") I KEY D
  1. .S AC=$P($$DATA712^EASEZU1(EASAPP,KEY,MULTIPLE),U,1)
  1. S KEY=+$$KEY711^EASEZU1(TYPE_" INSURANCE PHONE NUMBER") I KEY D
  1. .S NUM=$P($$DATA712^EASEZU1(EASAPP,KEY,MULTIPLE),U,1)
  1. .F T=1,2 S ^TMP("EZDATA",$J,KEY,MULTIPLE,T)=""
  1. I AC'="" S AC="("_AC_")"
  1. I NUM="-" S NUM=""
  1. I NUM'="" S:NUM'["-" NUM=$E(NUM,1,3)_"-"_$E(NUM,4,7)
  1. I NUM="" Q PHONE
  1. S PHONE=AC_NUM
  1. Q PHONE
  1. ;
  1. EMPLPH(EASAPP,TYPE) ;
  1. ;input EASAPP = application ien in file #712
  1. ; TYPE = "APPLICANT", "SPOUSE"
  1. ;output PHONE = formatted employer phone or null;
  1. ; example: (432)987-1234 X123
  1. ;
  1. N PHONE,MULTIPLE,AC,NUM,EXT,KET,T
  1. S PHONE="",MULTIPLE=1
  1. S KEY=+$$KEY711^EASEZU1(TYPE_" EMPLOYER PHONE AREA CODE") I KEY D
  1. .S AC=$P($$DATA712^EASEZU1(EASAPP,KEY,MULTIPLE),U,1)
  1. S KEY=+$$KEY711^EASEZU1(TYPE_" EMPLOYER PHONE NUMBER") I KEY D
  1. .S NUM=$P($$DATA712^EASEZU1(EASAPP,KEY,MULTIPLE),U,1)
  1. .F T=1,2 S ^TMP("EZDATA",$J,KEY,MULTIPLE,T)=""
  1. S KEY=+$$KEY711^EASEZU1(TYPE_" EMPLOYER PHONE EXTENSION") I KEY D
  1. .S EXT=$P($$DATA712^EASEZU1(EASAPP,KEY,MULTIPLE),U,1)
  1. .F T=1,2 S ^TMP("EZDATA",$J,KEY,MULTIPLE,T)=""
  1. I AC'="" S AC="("_AC_")"
  1. I NUM="-" S NUM=""
  1. I NUM'="" S:NUM'["-" NUM=$E(NUM,1,3)_"-"_$E(NUM,4,7)
  1. I EXT'="" S EXT=" X"_EXT
  1. I NUM="" Q PHONE
  1. S PHONE=AC_NUM_EXT
  1. Q PHONE
  1. ;
  1. CELLPH(EASAPP,TYPE) ;
  1. ;input EASAPP = application ien in file #712
  1. ; TYPE = "APPLICANT"
  1. ;output PHONE = formatted cell phone or null;
  1. ; example: (432)987-1234
  1. ;
  1. N PHONE,MULTIPLE,AC,NUM,EXT,KEY,T
  1. S PHONE="",MULTIPLE=1
  1. S KEY=+$$KEY711^EASEZU1(TYPE_" CELLULAR PHONE AREA CODE") I KEY D
  1. .S AC=$P($$DATA712^EASEZU1(EASAPP,KEY,MULTIPLE),U,1)
  1. S KEY=+$$KEY711^EASEZU1(TYPE_" CELLULAR PHONE NUMBER") I KEY D
  1. .S NUM=$P($$DATA712^EASEZU1(EASAPP,KEY,MULTIPLE),U,1)
  1. .F T=1,2 S ^TMP("EZDATA",$J,KEY,MULTIPLE,T)=""
  1. I AC'="" S AC="("_AC_")"
  1. I NUM="-" S NUM=""
  1. I NUM'="" S:NUM'["-" NUM=$E(NUM,1,3)_"-"_$E(NUM,4,7)
  1. I NUM="" Q PHONE
  1. S PHONE=AC_NUM
  1. Q PHONE
  1. ;
  1. PAGERPH(EASAPP,TYPE) ;
  1. ;input EASAPP = application ien in file #712
  1. ; TYPE = "APPLICANT"
  1. ;output PHONE = formatted pager phone or null;
  1. ; example: (432)987-1234
  1. ;
  1. N PHONE,MULTIPLE,AC,NUM,EXT,KEY,T
  1. S PHONE="",MULTIPLE=1
  1. S KEY=+$$KEY711^EASEZU1(TYPE_" PAGER PHONE AREA CODE") I KEY D
  1. .S AC=$P($$DATA712^EASEZU1(EASAPP,KEY,MULTIPLE),U,1)
  1. S KEY=+$$KEY711^EASEZU1(TYPE_" PAGER PHONE NUMBER") I KEY D
  1. .S NUM=$P($$DATA712^EASEZU1(EASAPP,KEY,MULTIPLE),U,1)
  1. .F T=1,2 S ^TMP("EZDATA",$J,KEY,MULTIPLE,T)=""
  1. I AC'="" S AC="("_AC_")"
  1. I NUM="-" S NUM=""
  1. I NUM'="" S:NUM'["-" NUM=$E(NUM,1,3)_"-"_$E(NUM,4,7)
  1. I NUM="" Q PHONE
  1. S PHONE=AC_NUM
  1. Q PHONE
  1. ;
  1. ZIP(XDATA) ;
  1. N X
  1. I XDATA="-" S XDATA=""
  1. I XDATA["-",($L(XDATA)'=10) Q $E(XDATA,1,5)
  1. I $L(XDATA)<5 S XDATA=""
  1. Q XDATA
  1. ;
  1. EMPLOY(XDATA) ;
  1. N X
  1. I XDATA="" Q "UNKNOWN"
  1. I XDATA="EMPLOYED" Q "EMPLOYED FULL TIME"
  1. Q XDATA
  1. ;
  1. MARR(XDATA) ;
  1. N X
  1. I XDATA="" Q "UNKNOWN"
  1. I XDATA["WIDOW" S XDATA="WIDOW/WIDOWER"
  1. S X=$O(^DIC(11,"B",XDATA,0))
  1. I X="" Q "UNKNOWN"
  1. Q XDATA
  1. ;
  1. RELIGION(XDATA) ;
  1. N X
  1. I XDATA="" Q "UNKNOWN/NO PREFERENCE"
  1. S X=$O(^DIC(13,"B",XDATA,0))
  1. I X="" Q "UNKNOWN/NO PREFERENCE"
  1. Q XDATA
  1. ;
  1. SVCBRCH(XDATA) ;
  1. N X
  1. I XDATA="" Q "OTHER"
  1. S X=$O(^DIC(23,"B",XDATA,0))
  1. I X="" Q "OTHER"
  1. Q XDATA
  1. ;
  1. SUMSSI(XDATA,IEN) ; glomb income fields for print
  1. N NODE,CIVIL,RAIL,MILIT,UNEMP,OTHER,INTER,COMP,OUT
  1. S NODE=$G(^DGMT(408.21,IEN,0))
  1. S CIVIL=$P(NODE,U,9)
  1. S RAIL=$P(NODE,U,10)
  1. S MILIT=$P(NODE,U,11)
  1. S UNEMP=$P(NODE,U,12)
  1. S OTHER=$P(NODE,U,13)
  1. S INTER=$P(NODE,U,15)
  1. S COMP=$P(NODE,U,16)
  1. I (XDATA=""),(CIVIL=""),(RAIL=""),(MILIT=""),(UNEMP=""),(OTHER=""),(INTER=""),(COMP="") Q "" ;EAS*66 - IF ALL NULL, PRINT NULL
  1. S OUT=XDATA+CIVIL+RAIL+MILIT+UNEMP+OTHER+INTER+COMP
  1. Q OUT
  1. ;
  1. SUMCASH(XDATA,IEN) ; glomb net worth fields for print
  1. N NODE,STOCKS,OUT
  1. S NODE=$G(^DGMT(408.21,IEN,2))
  1. S STOCKS=$P(NODE,U,2)
  1. I (XDATA=""),(STOCKS="") Q "" ;EAS*66 - IF ALL NULL, PRINT NULL
  1. S OUT=XDATA+STOCKS
  1. Q OUT
  1. ;
  1. SUMPROP(XDATA,IEN) ; glomb net worth fields for print
  1. N NODE,DEBT,OUT
  1. S NODE=$G(^DGMT(408.21,IEN,2))
  1. S DEBT=$P(NODE,U,5)
  1. I (XDATA=""),(DEBT="") Q "" ;EAS*66 - IF ALL NULL, PRINT NULL
  1. S OUT=XDATA-DEBT
  1. Q OUT
  1. ;