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

XUPCF.m

Go to the documentation of this file.
  1. XUPCF ;BT/BP-OAK Person Class File APIs; 2/4/2010
  1. ;;8.0;KERNEL;**541**; July 10, 1995;Build 8
  1. ;;Per VHA Directive 2004-038, this routine should not be modified
  1. ;;these APIs are for updating Person Class File and for Kernal Team only.
  1. ;;
  1. ;;REFERENCED BY: PROVIDER TYPE(B), PROVIDER TYPE(C), CLASSIFICATION(D),
  1. ;; AREA OF SPECIALIZATION(E), VA CODE(F), X12 CODE(G)
  1. ;;^USC(8932.1,D0,0)= (#.01) PROVIDER TYPE [1F] ^ (#1) CLASSIFICATION [2F] ^
  1. ;; ==>(#2) AREA OF SPECIALIZATION [3F] ^ (#3) STATUS [4S] ^ (#4)
  1. ;; ==>DATE INACTIVATED [5D] ^ (#5) VA CODE [6F] ^ (#6) X12 CODE
  1. ;; ==>[7F] ^ (#7) reserved [8F] ^ (#8) SPECIALTY CODE [9F] ^
  1. ;;^USC(8932.1,D0,11,0)=^8932.111^^ (#11) DEFINITION
  1. ;;^USC(8932.1,D0,11,D1,0)= (#.01) DEFINITION [1W] ^
  1. ;;^USC(8932.1,D0,90002)= ^ (#90002) INDIVIDUAL/NON [2S] ^
  1. Q
  1. ;
  1. GET(XUIEN) ;
  1. I $G(XUIEN)'=+$G(XUIEN) W !,"Invalid IEN" Q
  1. W !,"PROVIDER TYPE",?24,": ",$$GET01(XUIEN)
  1. W !,"CLASSIFICATION",?24,": ",$$GET1(XUIEN)
  1. W !,"AREA OF SPECIALIZATION",?24,": ",$$GET2(XUIEN)
  1. W !,"STATUS",?24,": ",$$GET3(XUIEN)
  1. W !,"DATE INACTIVATED",?24,": ",$$GET4(XUIEN)
  1. W !,"VA CODE",?24,": ",$$GET5(XUIEN)
  1. W !,"X12 CODE",?24,": ",$$GET6(XUIEN)
  1. W !,"SPECIALTY CODE",?24,": ",$$GET8(XUIEN)
  1. Q
  1. ;
  1. SET(XUIEN,XUDATA) ;
  1. I $G(XUIEN)'=+$G(XUIEN) W !,"Invalid IEN" Q
  1. I $G(XUDATA)="" W !,"Invalid data" Q
  1. N XUDA01 S XUDA01=$P(XUDATA,"^",1),XUDA01=$$SET01(XUDA01,XUIEN)
  1. N XUDA1 S XUDA1=$P(XUDATA,"^",2),XUDA1=$$SET1(XUDA01,XUIEN)
  1. N XUDA2 S XUDA2=$P(XUDATA,"^",3),XUDA2=$$SET2(XUDA2,XUIEN)
  1. N XUDA3 S XUDA3=$P(XUDATA,"^",4),XUDA3=$$SET3(XUDA3,XUIEN)
  1. N XUDA4 S XUDA4=$P(XUDATA,"^",5),XUDA4=$$SET4(XUDA4,XUIEN)
  1. N XUDA5 S XUDA5=$P(XUDATA,"^",6),XUDA5=$$SET5(XUDA5,XUIEN)
  1. N XUDA6 S XUDA6=$P(XUDATA,"^",7),XUDA6=$$SET6(XUDA6,XUIEN)
  1. N XUDA8 S XUDA8=$P(XUDATA,"^",8),XUDA8=$$SET8(XUDA8,XUIEN)
  1. Q
  1. ;
  1. GET01(XUIEN) ;get PROVIDER TYPE by IEN
  1. N XUNAME
  1. I $G(XUIEN)'=+$G(XUIEN) Q "Invalid IEN"
  1. S XUNAME=$G(^USC(8932.1,XUIEN,0)) I XUNAME="" Q "Invalid IEN"
  1. Q $P(XUNAME,"^",1)
  1. ;
  1. SET01(XUPRO,XUIEN) ;set/add a new PROVIDER TYPE by IEN
  1. I $G(XUPRO)="" Q 0
  1. I $G(XUIEN)'=+$G(XUIEN) Q 0
  1. N FDA,FDAIEN
  1. S FDAIEN(1)=XUIEN
  1. S FDA(8932.1,"+1,",.01)=XUPRO
  1. D UPDATE^DIE("","FDA","FDAIEN","ERR")
  1. Q 1
  1. ;
  1. GET1(XUIEN) ;get CLASSIFICATION by IEN
  1. N XUNAME
  1. I $G(XUIEN)'=+$G(XUIEN) Q "Invalid IEN"
  1. S XUNAME=$G(^USC(8932.1,XUIEN,0)) I XUNAME="" Q "Invalid IEN"
  1. Q $P(XUNAME,"^",2)
  1. ;
  1. SET1(XUPRO,XUIEN) ;set/add CLASSIFICATION by IEN
  1. I $G(XUPRO)="" Q 0
  1. I $G(XUIEN)'=+$G(XUIEN) Q 0
  1. N FDA,FDAIEN
  1. S FDAIEN(1)=XUIEN
  1. S FDA(8932.1,"+1,",1)=XUPRO
  1. D UPDATE^DIE("","FDA","FDAIEN","ERR")
  1. Q 1
  1. ;
  1. GET2(XUIEN) ;get AREA OF SPECIALIZATION by IEN
  1. N XUNAME
  1. I $G(XUIEN)'=+$G(XUIEN) Q "Invalid IEN"
  1. S XUNAME=$G(^USC(8932.1,XUIEN,0)) I XUNAME="" Q "Invalid IEN"
  1. Q $P(XUNAME,"^",3)
  1. ;
  1. SET2(XUPRO,XUIEN) ;set/add AREA OF SPECIALIZATION by IEN
  1. I $G(XUPRO)="" Q 0
  1. I $G(XUIEN)'=+$G(XUIEN) Q 0
  1. N FDA,FDAIEN
  1. S FDAIEN(1)=XUIEN
  1. S FDA(8932.1,"+1,",2)=XUPRO
  1. D UPDATE^DIE("","FDA","FDAIEN","ERR")
  1. Q 1
  1. ;
  1. GET3(XUIEN) ;get STATUS by IEN
  1. N XUNAME
  1. I $G(XUIEN)'=+$G(XUIEN) Q "Invalid IEN"
  1. S XUNAME=$G(^USC(8932.1,XUIEN,0)) I XUNAME="" Q "Invalid IEN"
  1. I $P(XUNAME,"^",4)="a" Q "Active"
  1. Q "Inactive"
  1. ;
  1. SET3(XUPRO,XUIEN) ;set/add STATUS by IEN
  1. I $G(XUPRO)="" Q 0
  1. I $G(XUIEN)'=+$G(XUIEN) Q 0
  1. N FDA,FDAIEN
  1. S FDAIEN(1)=XUIEN
  1. S FDA(8932.1,"+1,",3)=XUPRO
  1. D UPDATE^DIE("","FDA","FDAIEN","ERR")
  1. Q 1
  1. ;
  1. GET4(XUIEN) ;get DATE INACTIVATED by IEN
  1. N XUNAME,XUDATE
  1. I $G(XUIEN)'=+$G(XUIEN) Q "Invalid IEN"
  1. S XUNAME=$G(^USC(8932.1,XUIEN,0)) I XUNAME="" Q "Invalid IEN"
  1. S XUDATE=$P(XUNAME,"^",5)
  1. Q $$FMTE^XLFDT(XUDATE)
  1. ;
  1. SET4(XUPRO,XUIEN) ;set/add DATE INACTIVATED by IEN
  1. I $G(XUPRO)="" Q 0
  1. I $G(XUIEN)'=+$G(XUIEN) Q 0
  1. N FDA,FDAIEN
  1. S FDAIEN(1)=XUIEN
  1. S FDA(8932.1,"+1,",4)=XUPRO
  1. D UPDATE^DIE("","FDA","FDAIEN","ERR")
  1. Q 1
  1. ;
  1. GET5(XUIEN) ;get VA CODE by IEN
  1. N XUNAME
  1. I $G(XUIEN)'=+$G(XUIEN) Q "Invalid IEN"
  1. S XUNAME=$G(^USC(8932.1,XUIEN,0)) I XUNAME="" Q "Invalid IEN"
  1. Q $P(XUNAME,"^",6)
  1. ;
  1. SET5(XUPRO,XUIEN) ;set/add VA CODE by IEN
  1. I $G(XUPRO)="" Q 0
  1. I $G(XUIEN)'=+$G(XUIEN) Q 0
  1. N FDA,FDAIEN
  1. S FDAIEN(1)=XUIEN
  1. S FDA(8932.1,"+1,",5)=XUPRO
  1. D UPDATE^DIE("","FDA","FDAIEN","ERR")
  1. Q 1
  1. ;
  1. GET6(XUIEN) ;get X12 CODE by IEN
  1. N XUNAME
  1. I $G(XUIEN)'=+$G(XUIEN) Q "Invalid IEN"
  1. S XUNAME=$G(^USC(8932.1,XUIEN,0)) I XUNAME="" Q "Invalid IEN"
  1. Q $P(XUNAME,"^",7)
  1. ;
  1. SET6(XUPRO,XUIEN) ;set/add X12 CODE by IEN
  1. I $G(XUPRO)="" Q 0
  1. I $G(XUIEN)'=+$G(XUIEN) Q 0
  1. N FDA,FDAIEN
  1. S FDAIEN(1)=XUIEN
  1. S FDA(8932.1,"+1,",6)=XUPRO
  1. D UPDATE^DIE("","FDA","FDAIEN","ERR")
  1. Q 1
  1. ;
  1. GET8(XUIEN) ;get SPECIALTY CODE by IEN
  1. N XUNAME
  1. I $G(XUIEN)'=+$G(XUIEN) Q "Invalid IEN"
  1. S XUNAME=$G(^USC(8932.1,XUIEN,0)) I XUNAME="" Q "Invalid IEN"
  1. Q $P(XUNAME,"^",9)
  1. ;
  1. SET8(XUPRO,XUIEN) ;set/addSPECIALTY CODE by IEN
  1. I $G(XUPRO)="" Q 0
  1. I $G(XUIEN)'=+$G(XUIEN) Q 0
  1. N FDA,FDAIEN
  1. S FDAIEN(1)=XUIEN
  1. S FDA(8932.1,"+1,",8)=XUPRO
  1. D UPDATE^DIE("","FDA","FDAIEN","ERR")
  1. Q 1