- XU8P536 ;BT/BP-OAK Person Class File APIs; 10/22/09
- ;;8.0;KERNEL;**536**; July 10, 1995;Build 7
- ;;Per VHA Directive 2004-038, this routine should not be modified
- Q
- ;
- POST ;
- D DEL
- D ADD
- D DEF
- Q
- ;
- ADD ; Add new entries from 1159 and 1160
- N XUI,XUDATA
- F XUI=1:1:2 S XUDATA=$T(DATA+XUI) Q:XUDATA=" ;;END" D
- . S XUDATA=$P(XUDATA,";;",2) Q:XUDATA="END"
- . D ADD1(XUDATA)
- Q
- ;
- ADD1(XUDATA) ; add single entry
- N FDA,FDAIEN,XUD
- S XUD=$G(XUDATA)
- S FDAIEN(1)=$P(XUD,"^")
- S FDA(8932.1,"+1,",.01)=$P(XUD,"^",2)
- S FDA(8932.1,"+1,",1)=$P(XUD,"^",3)
- S FDA(8932.1,"+1,",2)=$P(XUD,"^",4)
- S FDA(8932.1,"+1,",3)="a"
- S FDA(8932.1,"+1,",5)=$P(XUD,"^",5)
- S FDA(8932.1,"+1,",6)=$P(XUD,"^",6)
- S FDA(8932.1,"+1,",8)=$P(XUD,"^",7)
- S FDA(8932.1,"+1,",90002)=$P(XUD,"^",8)
- D UPDATE^DIE("","FDA","FDAIEN","ERR")
- Q
- ;
- DEL ; Delete entry
- N XUI F XUI=1159,1160 D
- . N DIK,DA S DIK="^USC(8932.1,",DA=XUI D ^DIK
- Q
- ;
- DATA ; information of entries from 1153-1156
- ;;1159^Pharmacy Service Providers^Pharmacist^Oncology^V090108^1835X0200X^87^I
- ;;1160^Pharmacy Service Providers^Pharmacist^Geriatric^V090107^1835G0303X^87^I
- ;;END
- ;;
- DEF ; Update definitions 1159 and 1160
- N XUI
- F XUI=1159,1160 D
- . D DEF1(XUI)
- Q
- ;
- DEF1(XUI) ; Update definition for single entry XUI
- N XUI1,XUDATA,XUY
- K ^TMP($J,"XUBA")
- F XUY=1:1:100 S XUDATA=$T(@XUI+XUY) Q:XUDATA=" ;;END" D
- . S ^TMP($J,"XUBA",XUI,XUY,0)=$P(XUDATA,";;",2)
- S XUI1=XUI_","
- D WP^DIE(8932.1,XUI1,11,"K","^TMP($J,""XUBA"",XUI)")
- K ^TMP($J,"XUBA")
- Q
- ; information of definitions
- 1159 ;
- ;;A licensed pharmacist who has demonstrated specialized knowledge and
- ;;skill in developing, recommending, implementing, monitoring, and
- ;;modifying pharmacotherapeutic plans to optimize outcomes in patients with
- ;;malignant diseases.
- ;;
- ;;Source: Specialty certification and recertification program administered
- ;;by Board of Pharmaceutical Specialties, www.bpsweb.org [7/1/2006: new]
- ;;END
- 1160 ;
- ;;A pharmacist who is certified in geriatric pharmacy practice is
- ;;designated as a "Certified Geriatric Pharmacist" (CGP). To become
- ;;certified, candidates are expected to be knowledgeable about principles
- ;;of geriatric pharmacotherapy and the provision of pharmaceutical care to
- ;;the elderly.
- ;;
- ;;Source: Commission for Certification in Geriatric Pharmacy (www.ccgp.org)
- ;;[7/1/2006: new]
- ;;END
- XU8P536 ;BT/BP-OAK Person Class File APIs; 10/22/09
- +1 ;;8.0;KERNEL;**536**; July 10, 1995;Build 7
- +2 ;;Per VHA Directive 2004-038, this routine should not be modified
- +3 QUIT
- +4 ;
- POST ;
- +1 DO DEL
- +2 DO ADD
- +3 DO DEF
- +4 QUIT
- +5 ;
- ADD ; Add new entries from 1159 and 1160
- +1 NEW XUI,XUDATA
- +2 FOR XUI=1:1:2
- SET XUDATA=$TEXT(DATA+XUI)
- IF XUDATA=" ;;END"
- QUIT
- Begin DoDot:1
- +3 SET XUDATA=$PIECE(XUDATA,";;",2)
- IF XUDATA="END"
- QUIT
- +4 DO ADD1(XUDATA)
- End DoDot:1
- +5 QUIT
- +6 ;
- ADD1(XUDATA) ; add single entry
- +1 NEW FDA,FDAIEN,XUD
- +2 SET XUD=$GET(XUDATA)
- +3 SET FDAIEN(1)=$PIECE(XUD,"^")
- +4 SET FDA(8932.1,"+1,",.01)=$PIECE(XUD,"^",2)
- +5 SET FDA(8932.1,"+1,",1)=$PIECE(XUD,"^",3)
- +6 SET FDA(8932.1,"+1,",2)=$PIECE(XUD,"^",4)
- +7 SET FDA(8932.1,"+1,",3)="a"
- +8 SET FDA(8932.1,"+1,",5)=$PIECE(XUD,"^",5)
- +9 SET FDA(8932.1,"+1,",6)=$PIECE(XUD,"^",6)
- +10 SET FDA(8932.1,"+1,",8)=$PIECE(XUD,"^",7)
- +11 SET FDA(8932.1,"+1,",90002)=$PIECE(XUD,"^",8)
- +12 DO UPDATE^DIE("","FDA","FDAIEN","ERR")
- +13 QUIT
- +14 ;
- DEL ; Delete entry
- +1 NEW XUI
- FOR XUI=1159,1160
- Begin DoDot:1
- +2 NEW DIK,DA
- SET DIK="^USC(8932.1,"
- SET DA=XUI
- DO ^DIK
- End DoDot:1
- +3 QUIT
- +4 ;
- DATA ; information of entries from 1153-1156
- +1 ;;1159^Pharmacy Service Providers^Pharmacist^Oncology^V090108^1835X0200X^87^I
- +2 ;;1160^Pharmacy Service Providers^Pharmacist^Geriatric^V090107^1835G0303X^87^I
- +3 ;;END
- +4 ;;
- DEF ; Update definitions 1159 and 1160
- +1 NEW XUI
- +2 FOR XUI=1159,1160
- Begin DoDot:1
- +3 DO DEF1(XUI)
- End DoDot:1
- +4 QUIT
- +5 ;
- DEF1(XUI) ; Update definition for single entry XUI
- +1 NEW XUI1,XUDATA,XUY
- +2 KILL ^TMP($JOB,"XUBA")
- +3 FOR XUY=1:1:100
- SET XUDATA=$TEXT(@XUI+XUY)
- IF XUDATA=" ;;END"
- QUIT
- Begin DoDot:1
- +4 SET ^TMP($JOB,"XUBA",XUI,XUY,0)=$PIECE(XUDATA,";;",2)
- End DoDot:1
- +5 SET XUI1=XUI_","
- +6 DO WP^DIE(8932.1,XUI1,11,"K","^TMP($J,""XUBA"",XUI)")
- +7 KILL ^TMP($JOB,"XUBA")
- +8 QUIT
- +9 ; information of definitions
- 1159 ;
- +1 ;;A licensed pharmacist who has demonstrated specialized knowledge and
- +2 ;;skill in developing, recommending, implementing, monitoring, and
- +3 ;;modifying pharmacotherapeutic plans to optimize outcomes in patients with
- +4 ;;malignant diseases.
- +5 ;;
- +6 ;;Source: Specialty certification and recertification program administered
- +7 ;;by Board of Pharmaceutical Specialties, www.bpsweb.org [7/1/2006: new]
- +8 ;;END
- 1160 ;
- +1 ;;A pharmacist who is certified in geriatric pharmacy practice is
- +2 ;;designated as a "Certified Geriatric Pharmacist" (CGP). To become
- +3 ;;certified, candidates are expected to be knowledgeable about principles
- +4 ;;of geriatric pharmacotherapy and the provision of pharmaceutical care to
- +5 ;;the elderly.
- +6 ;;
- +7 ;;Source: Commission for Certification in Geriatric Pharmacy (www.ccgp.org)
- +8 ;;[7/1/2006: new]
- +9 ;;END
