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

PXAAVCPT.m

Go to the documentation of this file.
  1. PXAAVCPT ;ISA/Zoltan,KWP - APIs for V CPT (#9000010.18). ;Jun 21, 1999
  1. ;;1.0;PCE PATIENT CARE ENCOUNTER;**77**;Aug 12, 1996
  1. ;
  1. ;+APIs for V CPT (#9000010.18)
  1. ;+See PXAADOC for additional comments on the PXAA routines
  1. ;
  1. GETIENS(VSITIEN,ARRAY) ;+Gets all iens associated with the visit.
  1. K ARRAY N X ;+Wipe out any exisiting array contents.
  1. Q:'$D(^AUPNVCPT("AD",VSITIEN)) 0 ;+Exit if no such record.
  1. S X="" F S X=$O(^AUPNVCPT("AD",VSITIEN,X)) Q:X="" S ARRAY(X)=""
  1. Q 1
  1. LOADFLDS(IEN,ARRAY) ;+Loads all fields for V CPT (#9000010.18).
  1. K ARRAY ;+Wipe out any exisiting array contents.
  1. N SIEN
  1. Q:'$D(^AUPNVCPT(IEN)) 0 ;+Exit if no such record.
  1. ;+ ARRAY(.01) = CPT field.
  1. S ARRAY(.01)=$P($G(^AUPNVCPT(IEN,0)),"^",1)
  1. ;+ ARRAY(.02) = PATIENT NAME field.
  1. S ARRAY(.02)=$P($G(^AUPNVCPT(IEN,0)),"^",2)
  1. ;+ ARRAY(.03) = VISIT field.
  1. S ARRAY(.03)=$P($G(^AUPNVCPT(IEN,0)),"^",3)
  1. ;+ ARRAY(.04) = PROVIDER NARRATIVE field.
  1. S ARRAY(.04)=$P($G(^AUPNVCPT(IEN,0)),"^",4)
  1. ;+ ARRAY(.05) = DIAGNOSIS field.
  1. S ARRAY(.05)=$P($G(^AUPNVCPT(IEN,0)),"^",5)
  1. ;+ ARRAY(.07) = PRINCIPAL PROCEDURE field.
  1. S ARRAY(.07)=$P($G(^AUPNVCPT(IEN,0)),"^",7)
  1. ;+ ARRAY(.16) = QUANTITY field.
  1. S ARRAY(.16)=$P($G(^AUPNVCPT(IEN,0)),"^",16)
  1. ;+ ARRAY(1) contains the CPT MODIFIER field (multiple):
  1. S SIEN=0
  1. F S SIEN=$O(^AUPNVCPT(IEN,1,SIEN)) Q:'SIEN D
  1. . ;+ ARRAY(1,SIEN,.01) = CPT MODIFIER sub-field.
  1. . S ARRAY(1,SIEN,.01)=$P($G(^AUPNVCPT(IEN,1,SIEN,0)),"^",1)
  1. ;+ ARRAY(1201) = EVENT DATE AND TIME field.
  1. S ARRAY(1201)=$P($G(^AUPNVCPT(IEN,12)),"^",1)
  1. ;+ ARRAY(1202) = ORDERING PROVIDER field.
  1. S ARRAY(1202)=$P($G(^AUPNVCPT(IEN,12)),"^",2)
  1. ;+ ARRAY(1204) = ENCOUNTER PROVIDER field.
  1. S ARRAY(1204)=$P($G(^AUPNVCPT(IEN,12)),"^",4)
  1. ;+ ARRAY(80101) = EDITED FLAG field.
  1. S ARRAY(80101)=$P($G(^AUPNVCPT(IEN,801)),"^",1)
  1. ;+ ARRAY(80102) = AUDIT TRAIL field.
  1. S ARRAY(80102)=$P($G(^AUPNVCPT(IEN,801)),"^",2)
  1. ;+ ARRAY(80201) = PROVIDER NARRATIVE CATEGORY field.
  1. S ARRAY(80201)=$P($G(^AUPNVCPT(IEN,802)),"^",1)
  1. ;+ ARRAY(81101) = COMMENTS field.
  1. S ARRAY(81101)=$P($G(^AUPNVCPT(IEN,811)),"^",1)
  1. ;+ ARRAY(81201) = VERIFIED field.
  1. S ARRAY(81201)=$P($G(^AUPNVCPT(IEN,812)),"^",1)
  1. ;+ ARRAY(81202) = PACKAGE field.
  1. S ARRAY(81202)=$P($G(^AUPNVCPT(IEN,812)),"^",2)
  1. ;+ ARRAY(81203) = DATA SOURCE field.
  1. S ARRAY(81203)=$P($G(^AUPNVCPT(IEN,812)),"^",3)
  1. Q 1
  1. CPT(IEN) ;+ Returns #.01 CPT.
  1. Q $P($G(^AUPNVCPT(IEN,0)),"^",1)
  1. PATINAME(IEN) ;+ Returns #.02 PATIENT NAME.
  1. Q $P($G(^AUPNVCPT(IEN,0)),"^",2)
  1. VISIT(IEN) ;+ Returns #.03 VISIT.
  1. Q $P($G(^AUPNVCPT(IEN,0)),"^",3)
  1. PROVNARR(IEN) ;+ Returns #.04 PROVIDER NARRATIVE.
  1. Q $P($G(^AUPNVCPT(IEN,0)),"^",4)
  1. DIAGNOSI(IEN) ;+ Returns #.05 DIAGNOSIS.
  1. Q $P($G(^AUPNVCPT(IEN,0)),"^",5)
  1. PRINPROC(IEN) ;+ Returns #.07 PRINCIPAL PROCEDURE.
  1. Q $P($G(^AUPNVCPT(IEN,0)),"^",7)
  1. QUANTITY(IEN) ;+ Returns #.16 QUANTITY.
  1. Q $P($G(^AUPNVCPT(IEN,0)),"^",16)
  1. CPTMODIF(IEN,ARRAY) ;+ Returns #1 CPT MODIFIER.
  1. N SIEN
  1. S SIEN=0
  1. F S SIEN=$O(^AUPNVCPT(IEN,1,SIEN)) Q:'SIEN D
  1. . ;+ ARRAY(1,SIEN,.01) = CPT MODIFIER field.
  1. . S ARRAY(1,SIEN,.01)=$P($G(^AUPNVCPT(IEN,1,SIEN,0)),"^",1)
  1. Q
  1. EVENTDT(IEN) ;+ Returns #1201 EVENT DATE AND TIME.
  1. Q $P($G(^AUPNVCPT(IEN,12)),"^",1)
  1. ORDEPROV(IEN) ;+ Returns #1202 ORDERING PROVIDER.
  1. Q $P($G(^AUPNVCPT(IEN,12)),"^",2)
  1. ENCOPROV(IEN) ;+ Returns #1204 ENCOUNTER PROVIDER.
  1. Q $P($G(^AUPNVCPT(IEN,12)),"^",4)
  1. EDITFLAG(IEN) ;+ Returns #80101 EDITED FLAG.
  1. Q $P($G(^AUPNVCPT(IEN,801)),"^",1)
  1. AUDITRAI(IEN) ;+ Returns #80102 AUDIT TRAIL.
  1. Q $P($G(^AUPNVCPT(IEN,801)),"^",2)
  1. PRONARCA(IEN) ;+ Returns #80201 PROVIDER NARRATIVE CATEGORY.
  1. Q $P($G(^AUPNVCPT(IEN,802)),"^",1)
  1. COMMENTS(IEN) ;+ Returns #81101 COMMENTS.
  1. Q $P($G(^AUPNVCPT(IEN,811)),"^",1)
  1. VERIFIED(IEN) ;+ Returns #81201 VERIFIED.
  1. Q $P($G(^AUPNVCPT(IEN,812)),"^",1)
  1. PACKAGE(IEN) ;+ Returns #81202 PACKAGE.
  1. Q $P($G(^AUPNVCPT(IEN,812)),"^",2)
  1. DATASRC(IEN) ;+ Returns #81203 DATA SOURCE.
  1. Q $P($G(^AUPNVCPT(IEN,812)),"^",3)