{"aaData": [["VPR PATIENT ID", "2\n", "", "", "", "SDA\n", "PatientID\n", "\n- \n
\n- \n
- PatientNumbers
\n- SEQUENCE: 1
\n- ITEM TYPE: LIST
\n- LIST TYPE: COMPLEX
\n- XML NAME: PatientNumber
\n- COMPLEX TYPE:
\n- \n
\n- \n
- COMPLEX ITEM SEQUENCE: 1
\n- COMPLEX ITEM NAME: SSN
\n \n- \n
- COMPLEX ITEM SEQUENCE: 2
\n- COMPLEX ITEM NAME: MRN
\n \n- \n
- COMPLEX ITEM SEQUENCE: 3
\n- COMPLEX ITEM NAME: ICN
\n \n
\n
\n \n- \n
- SSN
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .09
\n- ENTITY: VPR PATIENT NUMBER
\n- OUTPUT TRANSFORM: S VALUE=VALUE_\"^SSN^^SSA\"
\n \n- \n
- MRN
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- ENTITY: VPR PATIENT NUMBER
\n- GET ACTION: S VALUE=DIEN_\"^MRN^\"_$G(VASTN)_U_$G(VASTN)
\n \n- \n
- ICN
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- ENTITY: VPR PATIENT NUMBER
\n- GET ACTION: S VALUE=$$GETICN^MPIF001(DIEN)_\"^ICN\"
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT, and expects the Patient file #2 ien\nas the ID. It builds an abbreviated version of VPR PATIENT that includes\nonly the patient numbers.\n
\n\n", "", "", "", "", "N X S X=$$SITE^VASITE S:X>0 VASITE=+X,VASTN=$P(X,U,3) I X'>0 S VASITE=$$KSP^XUPARAM(\"INST\"),VASTN=$$STA^XUAF4(VASITE)\n", "K VASITE,VASTN\n", "S DNAME=\"Patient\"\n", "", "", "", "", ""], ["VPR ICD", "80\n", "", "", "", "SDA\n", "DiagnosisCode\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 80
\n- FIELD NUMBER: .01
\n- GET ACTION: S:$G(VPRCODE) VALUE=$P(VPRCODE,U,2)
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P($G(VPRCODE),U,4)
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 80
\n- GET ACTION: S VALUE=$$SNAM^ICDEX($P(VPRCODE,U,20))
\n \n- \n
- OriginalText
\n- SEQUENCE: 3
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$G(DATA(\"TEXT\"))
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "S VPRSYS=$G(DATA(\"SYS\")),VPRDT=$G(DATA(\"DATE\"),DT)\n", "K VPRSYS,VPRDT,VPRCODE\n", "S:VPRSYS=\"\" VPRSYS=$$SAB^ICDEX($$CSI^ICDEX(80,DIEN),VPRDT) S VPRCODE=$$ICDDATA^ICDXCODE(VPRSYS,DIEN,VPRDT,\"I\")\n", "", "", "", "", ""], ["VPR COMMENT", "", "", "", "", "SDA\n", "Comment\n", "\n- \n
\n- \n
- Id
\n- SEQUENCE: 1
\n- ITEM TYPE: ID
\n \n- \n
- EnteredAt
\n- SEQUENCE: 2
\n- ITEM TYPE: ENTITY
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$P(VPRCMT,U,5)
\n \n- \n
- EnteredBy
\n- SEQUENCE: 3
\n- ITEM TYPE: ENTITY
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$P(VPRCMT,U,3)
\n \n- \n
- EnteredOn
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE,1)
\n- GET ACTION: S VALUE=$P(VPRCMT,U,2)
\n \n- \n
- CommentType
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- GET ACTION: S VALUE=$P(VPRCMT,U,4)
\n \n- \n
- CommentText
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- GET ACTION: S VALUE=$P(VPRCMT,U,6)
\n \n- \n
- EnteredOnTime
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P(VPRCMT,U,2)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports comments in multiple SDA containers, such as \nAllergies and Problems; it returns a single comment, and is intended to \nbe used with a List property. A string in the following format is \nexpected as the ID:\n id ^ date ^ user ^ type ^ facility ^ text\n
\n\n", "", "", "", "", "", "K VPRCMT\n", "S VPRCMT=$G(DIEN),DIEN=$P(DIEN,U)\n", "", "", "", "", ""], ["VPR ALLERGY EXTENSION", "120.8\n", "", "", "", "SDA\n", "AllergyExtension\n", "\n- \n
\n- \n
- Mechanism
\n- SEQUENCE: 1
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 120.8
\n- FIELD NUMBER: 17
\n- ENTITY: VPR CODE ONLY
\n- GET ACTION: S VALUE=$P($G(GMRAY),U,6)
\n \n- \n
- Source
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 120.8
\n- FIELD NUMBER: 6
\n- GET ACTION: S VALUE=$P($G(GMRAY),U,5)
\n \n- \n
- Comments
\n- SEQUENCE: 3
\n- ITEM TYPE: LIST
\n- ENTITY: VPR COMMENT
\n- LIST TYPE: ARRAY
\n- XML NAME: Comment
\n- GET ACTION: D CMTS^VPRSDAL(DIEN)
\n \n- \n
- Reactions
\n- SEQUENCE: 4
\n- ITEM TYPE: LIST
\n- ENTITY: VPR ALLERGY SIGN/SYMPTOM
\n- LIST TYPE: ARRAY
\n- XML NAME: Reaction
\n- GET ACTION: N I,X S I=0 F S I=$O(VPRALG(\"S\",I)) Q:I<1 S X=$G(VPRALG(\"S\",I)),DLIST(I)=+$P($P(X,U),\";\",2)_U_$P($P(X,U),\";\")_$S($L($P(X,U,2))>1:U_$P($P(X,U,2),\";\",2),1:\"\")
\n \n- \n
- DrugClasses
\n- SEQUENCE: 5
\n- ITEM TYPE: LIST
\n- ENTITY: VPR DRUG CLASS
\n- GET ACTION: N I S I=0 F S I=$O(GMRAY(\"V\",I)) Q:I<1 S DLIST(I)=I_U_GMRAY(\"V\",I)
\n \n- \n
- DrugProducts
\n- SEQUENCE: 6
\n- ITEM TYPE: LIST
\n- ENTITY: VPR DRUG INGREDIENT
\n- LIST TYPE: ARRAY
\n- XML NAME: DrugProduct
\n- GET ACTION: M DLIST=GMRAY(\"I\")
\n \n- \n
- OriginalCode
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 120.8
\n- FIELD NUMBER: 1
\n- RETURN INTERNAL VALUE: YES
\n- GET ACTION: S VALUE=$P($G(VPRALG),U,9)
\n \n- \n
- InactiveUser
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 120.8
\n- FIELD NUMBER: 24
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n \n- \n
- AllergyObservations
\n- SEQUENCE: 9
\n- ITEM TYPE: LIST
\n- ENTITY: VPR ALLERGY OBSERVATION
\n- GET ACTION: M DLIST=GMRAY(\"O\")
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR ALLERGY. It expects the GMRAY variable and array\nto be defined, from the GET ID ACTION call to GMRAOR2.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR DRUG INGREDIENT", "50.416\n", "", "", "", "SDA\n", "DrugProduct\n", "\n- \n
\n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA50.416
\n- GET ACTION: S VALUE=$P($G(VPRCODE),U,3)
\n \n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: ID
\n- FILE NUMBER: 50.416
\n- GET ACTION: S VALUE=$P($G(VPRCODE),U)
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 50.416
\n- FIELD NUMBER: .01
\n- GET ACTION: S VALUE=$P($G(VPRCODE),U,2)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "K VPRCODE\n", "D INGRD^VPRSDAP(.DIEN)\n", "", "", "", "", ""], ["VPR VISIT EXTENSION", "9000010\n", "", "", "", "SDA\n", "EncounterExtension\n", "\n- \n
\n- \n
- Cpt
\n- SEQUENCE: 1
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.18
\n- ENTITY: VPR CPT
\n- GET ACTION: S VALUE=$$CPT^VPRDVSIT(DIEN),VPRDT=$P($G(@VPRVST@(0)),U),VPRVAL=VALUE
\n \n- \n
- IsServiceConnected
\n- SEQUENCE: 9
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010
\n- FIELD NUMBER: 80001
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",1:\"false\")
\n- GET ACTION: S VPRVSC=$G(@VPRVST@(800)),VALUE=$P(VPRVSC,U)
\n \n- \n
- IsExposureAO
\n- SEQUENCE: 10
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010
\n- FIELD NUMBER: 80002
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",1:\"false\")
\n- GET ACTION: S VALUE=$P(VPRVSC,U,2)
\n \n- \n
- IsExposureIR
\n- SEQUENCE: 11
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010
\n- FIELD NUMBER: 80003
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",1:\"false\")
\n- GET ACTION: S VALUE=$P(VPRVSC,U,3)
\n \n- \n
- IsExposureSWA
\n- SEQUENCE: 12
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010
\n- FIELD NUMBER: 80004
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",1:\"false\")
\n- GET ACTION: S VALUE=$P(VPRVSC,U,4)
\n \n- \n
- IsExposureMST
\n- SEQUENCE: 13
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010
\n- FIELD NUMBER: 80005
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",1:\"false\")
\n- GET ACTION: S VALUE=$P(VPRVSC,U,5)
\n \n- \n
- IsExposureHNC
\n- SEQUENCE: 14
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010
\n- FIELD NUMBER: 80006
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",1:\"false\")
\n- GET ACTION: S VALUE=$P(VPRVSC,U,6)
\n \n- \n
- IsExposureCV
\n- SEQUENCE: 15
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010
\n- FIELD NUMBER: 80007
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",1:\"false\")
\n- GET ACTION: S VALUE=$P(VPRVSC,U,7)
\n \n- \n
- IsExposureSHAD
\n- SEQUENCE: 16
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010
\n- FIELD NUMBER: 80008
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",1:\"false\")
\n- GET ACTION: S VALUE=$P(VPRVSC,U,8)
\n \n- \n
- OriginatingProcess
\n- SEQUENCE: 17
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 409.68
\n- FIELD NUMBER: .08
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S IEN=$O(^SCE(\"AVSIT\",DIEN,0)) S:IEN<1 DDEOUT=1
\n \n- \n
- Status
\n- SEQUENCE: 18
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 409.68
\n- FIELD NUMBER: .12
\n- GET ACTION: S IEN=$O(^SCE(\"AVSIT\",DIEN,0)) S:IEN<1 DDEOUT=1
\n \n- \n
- StopCode
\n- SEQUENCE: 2
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010
\n- FIELD NUMBER: .08
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- OUTPUT TRANSFORM: S VALUE=$$AMIS^VPRDVSIT(VALUE)_\"^AMIS\"
\n- GET ACTION: S VALUE=$P($G(@VPRVST@(0)),U,8)
\n \n- \n
- Cpt
\n- SEQUENCE: 1.1
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: I VPRVAL=\"\" N SEQ S SEQ=+$G(FILTER(\"sequence\")) S:$P($G(^XTMP(\"VPR-\"_SEQ,+$G(DIEN))),U,6) VALUE=$$NULL^VPRSDA(3) ;delete values
\n \n- \n
- ParentEncounterNumber
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010
\n- FIELD NUMBER: .12
\n- RETURN INTERNAL VALUE: YES
\n- GET ACTION: S VALUE=$P($G(@VPRVST@(0)),U,12)
\n \n- \n
- Eligibility
\n- SEQUENCE: 4
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010
\n- FIELD NUMBER: .21
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR ELIGIBILITY
\n- GET ACTION: S VALUE=$P($G(@VPRVST@(0)),U,21)
\n \n- \n
- VisitID
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010
\n- FIELD NUMBER: 15001
\n- GET ACTION: S VALUE=$P($G(@VPRVST@(150)),U)
\n \n- \n
- Comments
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010
\n- FIELD NUMBER: 81101
\n- GET ACTION: S VALUE=$P($G(@VPRVST@(811)),U)
\n \n- \n
- Package
\n- SEQUENCE: 7
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010
\n- FIELD NUMBER: 81202
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PACKAGE
\n- GET ACTION: S VALUE=$P($G(@VPRVST@(812)),U,2)
\n \n- \n
- DataSource
\n- SEQUENCE: 8
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010
\n- FIELD NUMBER: 81203
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR VISIT; it is intended to only be used within \nthat Entity. It expects ^TMP("PXKENC",$J) to be defined.\n\n\n", "", "", "", "", "", "K VPRDT,VPRVAL,VPRVSC\n", "", "", "", "", "", ""], ["VPR ADMISSION EXTENSION", "405\n", "", "", "", "SDA\n", "EncounterExtension\n", "\n- \n
\n- \n
- Admitnumber
\n- SEQUENCE: 1
\n- ITEM TYPE: ID
\n \n- \n
- Complaint
\n- SEQUENCE: 11
\n- ITEM TYPE: WORD PROCESSING
\n- FILE NUMBER: 405
\n- FIELD NUMBER: 99
\n- WORD WRAP: 1
\n- GET ACTION: I '$O(^DGPM(DIEN,\"DX\",0)) N ADT S ADT=+$G(VAIP(13,1)),IEN=+$O(^DGPM(\"APTT6\",DFN,ADT,0)) S:'IEN DDEOUT=1
\n \n- \n
- VisitID
\n- SEQUENCE: 9
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010
\n- FIELD NUMBER: 15001
\n- GET ACTION: S IEN=+$G(VPRVST)
\n \n- \n
- Status
\n- SEQUENCE: 12
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 405
\n- FIELD NUMBER: .17
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"ADMITTED\",1:\"DISCHARGED\")
\n- GET ACTION: S VALUE=$G(VAIP(17))
\n \n- \n
- Ptf
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 405
\n- FIELD NUMBER: .16
\n- RETURN INTERNAL VALUE: YES
\n- GET ACTION: S VALUE=$G(VAIP(12))
\n \n- \n
- OriginalTime
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 405
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- GET ACTION: S VALUE=$P($G(VAIP(13,1)),U)
\n \n- \n
- LastTransferDate
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 405
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: N MDT,I S MDT=0 F S MDT=$O(^DGPM(\"APCA\",DFN,DIEN,MDT)) Q:MDT<1 S I=$O(^(MDT,0)) I $P($G(^DGPM(+I,0)),U,2)=2 S VALUE=MDT
\n \n- \n
- Movements
\n- SEQUENCE: 5
\n- ITEM TYPE: LIST
\n- FILE NUMBER: 405
\n- ENTITY: VPR ADMISSION MOVEMENT
\n- LIST TYPE: ARRAY
\n- XML NAME: Movement
\n- GET ACTION: D MVTS^VPRSDAV(DIEN)
\n \n- \n
- CurrentMovement
\n- SEQUENCE: 6
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$S(DIEN=$G(VPRCA):$P($G(^DPT(DFN,.102)),U),1:$P($G(^DGPM(DIEN,0)),U,17)) ;Use Discharge Mvt if prior admission
\n \n- \n
- ExcludeFromFacDirectory
\n- SEQUENCE: 7
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: I DIEN=$G(VPRCA) N X S X=+$G(^DPT(DFN,.109)),VALUE=$S(X:\"true\",1:\"false\") ;only defined for current admission
\n \n- \n
- Eligibility
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010
\n- FIELD NUMBER: .21
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR ELIGIBILITY
\n- GET ACTION: S IEN=+$G(VPRVST)
\n \n- \n
- IsServiceConnected
\n- SEQUENCE: 10
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 405
\n- FIELD NUMBER: .11
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",1:\"false\")
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR ADMISSION; it expects the VAIP array from VADPT\nto be defined, and is intended to be called within VPR ADMISSION.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR APPOINTMENT EXTENSION", "2.98\n", "", "", "", "SDA\n", "AppointmentExtension\n", "\n- \n
\n- \n
- PatientStatus
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2.98
\n- FIELD NUMBER: 3
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S($E(VALUE)=\"I\":\"INPATIENT\",1:\"AMBULATORY\")
\n- GET ACTION: S VALUE=$P($G(VPRAPPT),U,3)
\n \n- \n
- CancelReason
\n- SEQUENCE: 10
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2.98
\n- FIELD NUMBER: 16
\n- GET ACTION: S VALUE=$P($P(VPRAPPT(0),U,5),\";\",2)
\n \n- \n
- ServiceStatus
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2.98
\n- FIELD NUMBER: 3
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S($E(VALUE)=\"I\":\"INPATIENT VISIT\",1:\"AMBULATORY\")
\n- GET ACTION: S VALUE=$P($G(VPRAPPT),U,3)
\n \n- \n
- AssociatedEncounterNumber
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2.98
\n- FIELD NUMBER: 21
\n- EXTENDED POINTER LKUP: .05
\n- RETURN INTERNAL VALUE: YES
\n- GET ACTION: N SDOE S SDOE=$P($G(VPRAPPT),U,12) I SDOE S VALUE=$P($$GETOE^SDOE(SDOE),U,5)
\n \n- \n
- Purpose
\n- SEQUENCE: 4
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2.98
\n- FIELD NUMBER: 9
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=$P($P($G(VPRAPPT),U,18),\";\")
\n \n- \n
- Eligibility
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 44.003
\n- FIELD NUMBER: 30
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR ELIGIBILITY
\n- GET ACTION: S VALUE=$P($P($G(VPRAPPT),U,8),\";\") S:VALUE=\"\" DDEOUT=1
\n \n- \n
- Length
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 44.003
\n- FIELD NUMBER: 1
\n- GET ACTION: S VALUE=$P($G(VPRAPPT),U,5) S:VALUE=\"\" DDEOUT=1
\n \n- \n
- CheckedIn
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 44.003
\n- FIELD NUMBER: 309
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(VPRAPPT),U,9) S:VALUE=\"\" DDEOUT=1
\n \n- \n
- CancelledOn
\n- SEQUENCE: 8
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2.98
\n- FIELD NUMBER: 15
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(VPRAPPT),U,25)
\n \n- \n
- CancelledBy
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2.98
\n- FIELD NUMBER: 14
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$P($G(VPRAPPT),U,29)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR APPOINTMENT; it expects the local variable VPRAPPT\nto be defined, as the ^TMP($J,"SDAMA301") node for this appointment.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR PRF EXTENSION", "26.13\n", "", "", "", "SDA\n", "AlertExtension\n", "\n- \n
\n- \n
- OwnSite
\n- SEQUENCE: 1
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 26.13
\n- FIELD NUMBER: .04
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$P($G(VPRF(\"OWNER\")),U)
\n \n- \n
- Category
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 26.15
\n- FIELD NUMBER: .03
\n- GET ACTION: S IEN=+$G(VPRF(\"FLAG\"))
\n \n- \n
- DocumentNumber
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 26.14
\n- FIELD NUMBER: .06
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=VALUE_\";TIU\"
\n- GET ACTION: S VALUE=$P($G(VPRFLH(\"TIULINK\")),U),IEN=+$G(VPRFLH)
\n \n- \n
- DBRSNumbers
\n- SEQUENCE: 4
\n- ITEM TYPE: LIST
\n- ENTITY: VPR PRF DBRS RECORD
\n- LIST TYPE: ARRAY
\n- XML NAME: DBRS
\n- GET ACTION: N I S I=0 F S I=$O(VPRF(\"DBRS#\",I)) Q:I<1 S DLIST(I)=$P($G(VPRF(\"DBRS#\",I)),U)_U_$P($G(VPRF(\"DBRS OTHER\",I)),U)
\n \n- \n
- ApprovedBy
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 26.14
\n- FIELD NUMBER: .05
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$P($G(VPRFLH(\"APPRVBY\")),U),IEN=+$G(VPRFLH)
\n \n- \n
- Action
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 26.14
\n- FIELD NUMBER: .03
\n- GET ACTION: S VALUE=$P($G(VPRFLH(\"ACTION\")),U,2),IEN=+$G(VPRFLH)
\n \n- \n
- Assignments
\n- SEQUENCE: 7
\n- ITEM TYPE: LIST
\n- ENTITY: VPR PRF HISTORY
\n- LIST TYPE: ARRAY
\n- XML NAME: Assignment
\n- GET ACTION: N VPRAH,IEN,N S N=$$GETALL^DGPFAAH(DIEN,.VPRAH),IEN=0 F N=1:1 S IEN=$O(VPRAH(IEN)) Q:IEN<1 S DLIST(N)=IEN
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR PATIENT RECORD FLAG; it expects the VPRF array\nto be defined.\n
\n\n", "", "", "", "", "", "K VPRDBRS,VPRDBRS1\n", "", "", "", "", "", ""], ["VPR PROBLEM EXTENSION", "9000011\n", "", "", "", "SDA\n", "ProblemExtension\n", "\n- \n
\n- \n
- Comments
\n- SEQUENCE: 13
\n- ITEM TYPE: LIST
\n- ENTITY: VPR COMMENT
\n- LIST TYPE: ARRAY
\n- XML NAME: Comment
\n- GET ACTION: I $P($G(GMPFLD(1.02)),U)'=\"H\" D PROBCMT^VPRSDAG(DIEN) ;skip if hidden
\n \n- \n
- Removed
\n- SEQUENCE: 9
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000011
\n- FIELD NUMBER: 1.02
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE=\"H\":\"true\",1:\"false\")
\n- GET ACTION: S DDEOUT=1 ;VALUE=$P($G(GMPFLD(1.02)),U)
\n \n- \n
- IsSc
\n- SEQUENCE: 10
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000011
\n- FIELD NUMBER: 1.1
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",1:\"false\")
\n- GET ACTION: S VALUE=$P($G(GMPFLD(1.1)),U)
\n \n- \n
- Service
\n- SEQUENCE: 11
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000011
\n- FIELD NUMBER: 1.06
\n- GET ACTION: S VALUE=$P($G(GMPFLD(1.06)),U,2)
\n \n- \n
- OnsetDate
\n- SEQUENCE: 12
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000011
\n- FIELD NUMBER: .13
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: N D S D=$P(VALUE,\".\"),VALUE=(1700+$E(D,1,3))_\"-\"_$E(D,4,5)_\"-\"_$E(D,6,7)
\n- GET ACTION: S VALUE=$P($G(GMPFLD(.13)),U)
\n \n- \n
- LexiconId
\n- SEQUENCE: 14
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000011
\n- FIELD NUMBER: 1.01
\n- RETURN INTERNAL VALUE: YES
\n- GET ACTION: S VALUE=$P($G(GMPFLD(1.01)),U)
\n \n- \n
- Priority
\n- SEQUENCE: 15
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000011
\n- FIELD NUMBER: 1.14
\n- GET ACTION: S VALUE=$P($G(GMPFLD(1.14)),U,2)
\n \n- \n
- IsVerified
\n- SEQUENCE: 16
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000011
\n- FIELD NUMBER: 1.02
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE=\"P\":\"true\",VALUE=\"T\":\"false\",1:\"\")
\n- GET ACTION: S VALUE=$P($G(GMPFLD(1.02)),U)
\n \n- \n
- IsRemoved
\n- SEQUENCE: 17
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000011
\n- FIELD NUMBER: 1.02
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE=\"H\":\"true\",1:\"false\")
\n- GET ACTION: S VALUE=$P($G(GMPFLD(1.02)),U)
\n \n- \n
- IsExposureAO
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000011
\n- FIELD NUMBER: 1.11
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",1:\"false\")
\n- GET ACTION: S VALUE=$P($G(GMPFLD(1.11)),U)
\n \n- \n
- IsExposureIR
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000011
\n- FIELD NUMBER: 1.12
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",1:\"false\")
\n- GET ACTION: S VALUE=$P($G(GMPFLD(1.12)),U)
\n \n- \n
- IsExposurePG
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000011
\n- FIELD NUMBER: 1.13
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",1:\"false\")
\n- GET ACTION: S VALUE=$P($G(GMPFLD(1.13)),U)
\n \n- \n
- IsExposureHNC
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000011
\n- FIELD NUMBER: 1.15
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",1:\"false\")
\n- GET ACTION: S VALUE=$P($G(GMPFLD(1.15)),U)
\n \n- \n
- IsExposureMST
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000011
\n- FIELD NUMBER: 1.16
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",1:\"false\")
\n- GET ACTION: S VALUE=$P($G(GMPFLD(1.16)),U)
\n \n- \n
- IsExposureCV
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000011
\n- FIELD NUMBER: 1.17
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",1:\"false\")
\n- GET ACTION: S VALUE=$P($G(GMPFLD(1.17)),U)
\n \n- \n
- IsExposureSH
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000011
\n- FIELD NUMBER: 1.18
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",1:\"false\")
\n- GET ACTION: S VALUE=$P($G(GMPFLD(1.18)),U)
\n \n- \n
- Location
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000011
\n- FIELD NUMBER: 1.08
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR LOCATION
\n- GET ACTION: S VALUE=$P($G(GMPFLD(1.08)),U)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR PROBLEM. It expects the GMPFLD array to be defined.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR PTF EXTENSION", "45\n", "", "", "", "SDA\n", "DiagnosisExtension\n", "\n- \n
\n- \n
- Package
\n- SEQUENCE: 1
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 45
\n- ENTITY: VPR PACKAGE
\n- GET ACTION: S VALUE=+$O(^DIC(9.4,\"C\",\"DG\",0)) S:VALUE<1 DDEOUT=1
\n \n- \n
- PresentOnAdmission
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 45
\n- FIELD NUMBER: 82.01
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=$G(VPRPOA) S:VALUE=\"\" DDEOUT=1
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR PTF; it expects the VPRPOA variable set in the\nVPR PTF ID action for this record.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR DOCUMENT EXTENSION", "8925\n", "", "", "", "SDA\n", "DocumentExtension\n", "\n- \n
\n- \n
- CareProviders
\n- SEQUENCE: 1
\n- ITEM TYPE: LIST
\n- ENTITY: VPR SIGNER
\n- LIST TYPE: ARRAY
\n- XML NAME: CareProvider
\n- GET ACTION: D TIUS^VPRSDAT(DIEN)
\n \n- \n
- PatientLocation
\n- SEQUENCE: 11
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: 1205
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR LOCATION
\n- GET ACTION: S VALUE=$G(VPRTIU(DIEN,1205,\"I\"))
\n \n- \n
- SignatureMode
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: 1505
\n \n- \n
- Service
\n- SEQUENCE: 12
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: 1404
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR SERVICE
\n- GET ACTION: S VALUE=$G(VPRTIU(DIEN,1404,\"I\"))
\n \n- \n
- SecondaryVisit
\n- SEQUENCE: 13
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: 1207
\n- RETURN INTERNAL VALUE: YES
\n- GET ACTION: S VALUE=$G(VPRTIU(DIEN,1207,\"I\"))
\n \n- \n
- VisitID
\n- SEQUENCE: 14
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: 15001
\n- GET ACTION: S VALUE=$G(VPRTIU(DIEN,15001,\"I\"))
\n \n- \n
- AmendedOn
\n- SEQUENCE: 15
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: 1601
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRTIU(DIEN,1601,\"I\"))
\n \n- \n
- AmendedBy
\n- SEQUENCE: 16
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: 1602
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$G(VPRTIU(DIEN,1602,\"I\"))
\n \n- \n
- AmendedSigned
\n- SEQUENCE: 17
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: 1603
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRTIU(DIEN,1603,\"I\"))
\n \n- \n
- AdminClosureMode
\n- SEQUENCE: 18
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: 1613
\n \n- \n
- Class
\n- SEQUENCE: 19
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: .04
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR DOCUMENT CLASS
\n- GET ACTION: S VALUE=$G(VPRTIU(DIEN,.04,\"I\"))
\n \n- \n
- Parent
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: 2101
\n- RETURN INTERNAL VALUE: YES
\n- GET ACTION: N X S X=$G(VPRTIU(DIEN,2101,\"I\")) S:X VALUE=X_\";TIU\"
\n \n- \n
- Subject
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: 1701
\n- GET ACTION: S VALUE=$G(VPRTIU(DIEN,1701,\"I\"))
\n \n- \n
- NationalTitle
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR DOCUMENT TITLE
\n- GET ACTION: S VALUE=$G(VPRTIU(DIEN,.01,\"I\")),VPRNATL=+$G(^TIU(8925.1,+VALUE,15)) S:'VPRNATL DDEOUT=1
\n \n- \n
- NationalTitleRole
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: .01
\n- EXTENDED POINTER LKUP: 1501
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR DOCUMENT ROLE
\n- OUTPUT TRANSFORM: S VALUE=$P($G(^TIU(8926.1,+VALUE,0)),U,5)
\n- GET ACTION: S:'$G(VPRNATL) DDEOUT=1 S:$G(VPRNATL) VALUE=VPRNATL
\n \n- \n
- NationalTitleService
\n- SEQUENCE: 7
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: .01
\n- EXTENDED POINTER LKUP: 1501
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR DOCUMENT SERVICE
\n- OUTPUT TRANSFORM: S VALUE=$P($G(^TIU(8926.1,+VALUE,0)),U,7)
\n- GET ACTION: S:'$G(VPRNATL) DDEOUT=1 S:$G(VPRNATL) VALUE=VPRNATL
\n \n- \n
- NationalTitleSetting
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: .01
\n- EXTENDED POINTER LKUP: 1501
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR DOCUMENT SETTING
\n- OUTPUT TRANSFORM: S VALUE=$P($G(^TIU(8926.1,+VALUE,0)),U,6)
\n- GET ACTION: S:'$G(VPRNATL) DDEOUT=1 S:$G(VPRNATL) VALUE=VPRNATL
\n \n- \n
- NationalTitleSubject
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: .01
\n- EXTENDED POINTER LKUP: 1501
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR DOCUMENT SUBJECT
\n- OUTPUT TRANSFORM: S VALUE=$P($G(^TIU(8926.1,+VALUE,0)),U,4)
\n- GET ACTION: S:'$G(VPRNATL) DDEOUT=1 S:$G(VPRNATL) VALUE=VPRNATL
\n \n- \n
- NationalTitleType
\n- SEQUENCE: 10
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: .01
\n- EXTENDED POINTER LKUP: 1501
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR DOCUMENT TYPE
\n- OUTPUT TRANSFORM: S VALUE=$P($G(^TIU(8926.1,+VALUE,0)),U,8)
\n- GET ACTION: S:'$G(VPRNATL) DDEOUT=1 S:$G(VPRNATL) VALUE=VPRNATL
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR DOCUMENT; it expects the VPRTIU array to be defined.\n
\n\n", "", "", "", "", "", "K VPRNATL\n", "", "", "", "", "", ""], ["VPR PROBLEM", "9000011\n", "", "", "", "SDA\n", "Problem\n", "\n- \n
\n- \n
- Extension
\n- SEQUENCE: 4
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000011
\n- ENTITY: VPR PROBLEM EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- FromTime
\n- SEQUENCE: 17
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000011
\n- FIELD NUMBER: .13
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(GMPFLD(.13)),U)
\n \n- \n
- ToTime
\n- SEQUENCE: 18
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000011
\n- FIELD NUMBER: 1.07
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S:VALUE VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(GMPFLD(1.07)),U) I 'VALUE,$$DELETED^VPRSDAG(DIEN,1.07) S VALUE=$$NULL^VPRSDA
\n \n- \n
- Problem
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000011
\n- FIELD NUMBER: 80001
\n- ENTITY: VPR CODE TABLE
\n- OUTPUT TRANSFORM: S VALUE=VALUE_U_$$SCTTEXT^VPRSDAG(VALUE,DIEN)_\"^SNOMED CT\"
\n- GET ACTION: S VALUE=$P($G(GMPFLD(80001)),U)
\n \n- \n
- ExternalId
\n- SEQUENCE: 19
\n- ITEM TYPE: ID
\n- OUTPUT TRANSFORM: S VALUE=VALUE_\";PL\"
\n \n- \n
- UpdatedOn
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000011
\n- FIELD NUMBER: .03
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(GMPFLD(.03)),U)
\n \n- \n
- EnteredOn
\n- SEQUENCE: 16
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000011
\n- FIELD NUMBER: .08
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(GMPFLD(.08)),U)
\n \n- \n
- EnteredBy
\n- SEQUENCE: 14
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000011
\n- FIELD NUMBER: 1.03
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n \n- \n
- EnteredAt
\n- SEQUENCE: 15
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000011
\n- FIELD NUMBER: .06
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR FACILITY
\n \n- \n
- Problem
\n- SEQUENCE: 6.1
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000011
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR ICD
\n- GET ACTION: S:$L($G(GMPFLD(80001))) DDEOUT=1 I $G(GMPFLD(80001))=\"\" S VALUE=$P($G(GMPFLD(.01)),U),DATA(\"DATE\")=$P($G(GMPFLD(80201)),U),DATA(\"SYS\")=$P($G(GMPFLD(80202)),U)
\n \n- \n
- ProblemDetails
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000011
\n- FIELD NUMBER: .05
\n- GET ACTION: S VALUE=$P($G(GMPFLD(.05)),U,2)
\n \n- \n
- Clinician
\n- SEQUENCE: 7
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000011
\n- FIELD NUMBER: 1.05
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$P($G(GMPFLD(1.05)),U)
\n \n- \n
- Status
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000011
\n- FIELD NUMBER: .12
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE=\"A\":\"55561003^Active^SNOMED CT\",VALUE=\"I\":\"73425007^Inactive^SNOMED CT\",1:\"\")
\n- GET ACTION: S VALUE=$P($G(GMPFLD(.12)),U)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populates the Problem container in HealthShare from the\nPROBLEM (#9000011) file; it expects the record IEN as the ID (DIEN).\n \nA problem will be removed from SDA if it is removed or hidden in VistA.\n \nThis entity is supported by code in routine VPRSDAG, which uses the\nGMPLUTL2 and GMPLEDT3 routines to extract problems. Data in SDA is\nmaintained by monitoring the GMPL EVENT protocol event.\n
\n\n", "", "", "", "", "", "K GMPFLD,GMPORIG\n", "D PROB1^VPRSDAG(DIEN)\n", "PROBLEMS^VPRSDAG\n", "", "", "", ""], ["VPR DOCUMENT ROLE", "8926.3\n", "", "", "", "SDA\n", "NationalTitleRole\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8926.3
\n- FIELD NUMBER: 99.99
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8926.3
\n- FIELD NUMBER: .01
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VHAT
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR DOCUMENT EXTENSION.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR DOCUMENT SERVICE", "8926.5\n", "", "", "", "SDA\n", "NationalTitleService\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8926.5
\n- FIELD NUMBER: 99.99
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8926.5
\n- FIELD NUMBER: .01
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VHAT
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity support VPR DOCUMENT EXTENSION.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR DOCUMENT SETTING", "8926.4\n", "", "", "", "SDA\n", "NationalTitleSetting\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8926.4
\n- FIELD NUMBER: 99.99
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8926.4
\n- FIELD NUMBER: .01
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VHAT
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR DOCUMENT EXTENSION.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR DOCUMENT SUBJECT", "8926.2\n", "", "", "", "SDA\n", "NationalTitleSubject\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8926.2
\n- FIELD NUMBER: 99.99
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8926.2
\n- FIELD NUMBER: .01
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VHAT
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR DOCUMENT EXTENSION.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR DOCUMENT TYPE", "8926.6\n", "", "", "", "SDA\n", "NationalTitleType\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8926.6
\n- FIELD NUMBER: 99.99
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8926.6
\n- FIELD NUMBER: .01
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VHAT
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR DOCUMENT EXTENSION.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR ORDER EXTENSION", "100\n", "", "", "", "SDA\n", "OrderExtension\n", "\n- \n
\n- \n
- Released
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.008
\n- FIELD NUMBER: 16
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(OR8),U,16),IEN=\"1,\"_DIEN
\n \n- \n
- ReleasedBy
\n- SEQUENCE: 2
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100.008
\n- FIELD NUMBER: 17
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$P($G(OR8),U,17),IEN=\"1,\"_DIEN
\n \n- \n
- OrderType
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 8.1
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE=1:\"EDIT\",VALUE=2:\"RENEW\",1:\"NEW\")
\n- GET ACTION: S VALUE=$P($G(OR3),U,11)
\n \n- \n
- NatureOfOrder
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.008
\n- FIELD NUMBER: 12
\n- GET ACTION: S IEN=\"1,\"_DIEN
\n \n- \n
- ReplacedOrder
\n- SEQUENCE: 8
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 9
\n- RETURN INTERNAL VALUE: YES
\n- GET ACTION: S VALUE=$P($G(OR3),U,5)
\n \n- \n
- ReplacementOrder
\n- SEQUENCE: 9
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 9.1
\n- RETURN INTERNAL VALUE: YES
\n- GET ACTION: S VALUE=$P($G(OR3),U,6)
\n \n- \n
- DiscontinueType
\n- SEQUENCE: 10
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 61
\n \n- \n
- PatientClass
\n- SEQUENCE: 16
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 10
\n- RETURN INTERNAL VALUE: YES
\n- GET ACTION: S VALUE=$P($G(OR0),U,12)
\n \n- \n
- Specialty
\n- SEQUENCE: 17
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 11
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR SPECIALTY
\n- GET ACTION: S VALUE=$P($G(OR0),U,13)
\n \n- \n
- OrderEvent
\n- SEQUENCE: 18
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 15
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR ORDER EVENT
\n- GET ACTION: S IEN=$S($G(ORDAD):ORDAD,1:DIEN)
\n \n- \n
- DCEvent
\n- SEQUENCE: 14
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 68
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR ORDER DC EVENT
\n- GET ACTION: S VALUE=$P($G(OR6),U,8)
\n \n- \n
- SignatureStatus
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.008
\n- FIELD NUMBER: 4
\n- GET ACTION: S VALUE=$P($G(ORSIG),U),IEN=\"1,\"_DIEN
\n \n- \n
- Package
\n- SEQUENCE: 20
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 12
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PACKAGE
\n- GET ACTION: S VALUE=$P($G(OR0),U,14)
\n \n- \n
- DiscontinuedDateTime
\n- SEQUENCE: 11
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 63
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(OR6),U,3)
\n \n- \n
- DiscontinuedBy
\n- SEQUENCE: 12
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 62
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$P($G(OR6),U,2)
\n \n- \n
- DiscontinuedReason
\n- SEQUENCE: 13
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 65
\n- GET ACTION: N X S X=$P($G(OR6),U,4),VALUE=$S(X:$$GET1^DIQ(100.03,X,.01),1:$P($G(OR6),U,5)) S:VALUE=\"\" DDEOUT=1
\n \n- \n
- Content
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.008
\n- FIELD NUMBER: .1
\n- GET ACTION: N VPRTXT,ORIGVIEW S ORIGVIEW=2 D TEXT^ORQ12(.VPRTXT,+DIEN) S VALUE=$$STRING^VPRD(.VPRTXT) S:VALUE=\"\" DDEOUT=1
\n \n- \n
- VAStatus
\n- SEQUENCE: 15
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 5
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR ORDER STATUS
\n- GET ACTION: S VALUE=$P($G(OR3),U,3)
\n \n- \n
- CollectionSample
\n- SEQUENCE: 19
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.045
\n- FIELD NUMBER: 1
\n- GET ACTION: S VALUE=$$VALUE^ORX8(DIEN,\"SAMPLE\",,\"E\") S:VALUE=\"\" DDEOUT=1
\n \n- \n
- SignedBy
\n- SEQUENCE: 4
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100.008
\n- FIELD NUMBER: 5
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$P($G(ORSIG),U,2),IEN=\"1,\"_DIEN
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends the VPR * ORDER entities: VPR LAB ORDER, VPR RAD ORDER,\nand VPR OTHER ORDER. It expects the ORDER (#100) ien as the ID, as well as\nthe other context variables defined in their ID Actions.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR LRCH RESULT EXTENSION", "63.04\n", "", "", "", "SDA\n", "ResultExtension\n", "\n- \n
\n- \n
- GroupName
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 63.04
\n- FIELD NUMBER: .06
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR LRCH RESULT.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR RAD RESULT EXTENSION", "74\n", "", "", "", "SDA\n", "ResultExtension\n", "\n- \n
\n- \n
- IsImagePresent
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 74
\n- FIELD NUMBER: 2005
\n- GET ACTION: S VALUE=$S($O(^RARPT(DIEN,2005,0)):\"true\",1:\"false\")
\n \n- \n
- VAResultStatus
\n- SEQUENCE: 2
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 74
\n- FIELD NUMBER: 5
\n- ENTITY: VPR CODE ONLY
\n- GET ACTION: S VALUE=$P(@VPRAE2,U)
\n \n- \n
- DocumentNumbers
\n- SEQUENCE: 3
\n- ITEM TYPE: LIST
\n- LIST TYPE: ARRAY
\n- XML NAME: DocumentNumbersItem
\n- GET ACTION: M DLIST=RARPT
\n \n- \n
- CaseNumber
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 74
\n- FIELD NUMBER: 4
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR RAD RESULT; it expects the Radiology Report #74 ien.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR PROCEDURE EXTENSION", "702\n", "", "", "", "SDA\n", "ProcedureExtension\n", "\n- \n
\n- \n
- Category
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: CP
\n \n- \n
- Package
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 702
\n- ENTITY: VPR PACKAGE
\n- GET ACTION: S VALUE=+$O(^DIC(9.4,\"C\",\"MD\",0)) S:VALUE<1 DDEOUT=1
\n \n- \n
- Consult
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 702
\n- FIELD NUMBER: .05
\n- GET ACTION: S VALUE=$P($G(VPRCP),U,13)
\n \n- \n
- IsImagePresent
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 702
\n- FIELD NUMBER: .1
\n- GET ACTION: N I S VALUE=\"false\",I=0 F S I=$O(^MDD(702,DIEN,.1,I)) Q:I<1 I +$P($G(^(I,0)),U,9)=3 S VALUE=\"true\" Q
\n \n- \n
- Interpretation
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 702
\n- FIELD NUMBER: .06
\n- EXTENDED POINTER LKUP: 70201
\n- GET ACTION: S VALUE=$P($G(VPRCP),U,7)
\n \n- \n
- Location
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 702
\n- FIELD NUMBER: .06
\n- EXTENDED POINTER LKUP: 1211
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR LOCATION
\n- GET ACTION: S VALUE=$G(VPRTIU(1211,\"I\"))
\n \n- \n
- OrderNumber
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 123
\n- FIELD NUMBER: .03
\n- RETURN INTERNAL VALUE: YES
\n- GET ACTION: S VALUE=$P($G(VPRCN),U,3),IEN=+$P($G(VPRCP),U,13)
\n \n- \n
- Status
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 123
\n- FIELD NUMBER: 8
\n- OUTPUT TRANSFORM: S VALUE=$$EXTERNAL^DILFD(123,8,,VALUE)
\n- GET ACTION: S VALUE=$P($G(VPRCN),U,12),IEN=+$P($G(VPRCP),U,13)
\n \n- \n
- DocumentNumbers
\n- SEQUENCE: 12
\n- ITEM TYPE: LIST
\n- LIST TYPE: ARRAY
\n- XML NAME: DocumentNumbersItem
\n- GET ACTION: N I,X S I=0 F S I=$O(VPRCN(I)) Q:I<1 S X=+$G(VPRCN(I)) S:(X'=81) DLIST(I)=X_\";TIU\" ;filter out addenda
\n \n- \n
- DataSource
\n- SEQUENCE: 8
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: CLINICAL PROCEDURES
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PROCEDURE. It expects ^TMP("MDHSP",$J) to be\ndefined, from the main entity query.\n\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR SURGERY EXTENSION", "130\n", "", "", "", "SDA\n", "ProcedureExtension\n", "\n- \n
\n- \n
- Category
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: SR
\n \n- \n
- SecondaryVisit
\n- SEQUENCE: 13
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 130
\n- FIELD NUMBER: .015
\n- RETURN INTERNAL VALUE: YES
\n \n- \n
- IsNonOR
\n- SEQUENCE: 14
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 130
\n- FIELD NUMBER: 118
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",VALUE=\"Y\":\"true\",1:\"false\")
\n- GET ACTION: S VALUE=$G(VPRNONOR)
\n \n- \n
- Specialty
\n- SEQUENCE: 15
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 130
\n- FIELD NUMBER: .04
\n- EXTENDED POINTER LKUP: 1
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR SURG SPECIALTY
\n- GET ACTION: S:$G(VPRNONOR) DDEOUT=1 I '$G(DDEOUT) S DATA=$$GET1^DIQ(130,DIEN,.04)
\n \n- \n
- AttendingClinician
\n- SEQUENCE: 16
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 130
\n- FIELD NUMBER: .164
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S:$G(VPRNONOR) DDEOUT=1
\n \n- \n
- Specialty
\n- SEQUENCE: 15.1
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 130
\n- FIELD NUMBER: 125
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR MED SPECIALTY
\n- GET ACTION: S:'$G(VPRNONOR) DDEOUT=1
\n \n- \n
- AttendingClinician
\n- SEQUENCE: 16.1
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 130
\n- FIELD NUMBER: 124
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S:'$G(VPRNONOR) DDEOUT=1
\n \n- \n
- DictatedOn
\n- SEQUENCE: 17
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 130
\n- FIELD NUMBER: 15
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n- \n
- TranscribedOn
\n- SEQUENCE: 18
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 130
\n- FIELD NUMBER: 39
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n- \n
- Status
\n- SEQUENCE: 7
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$S($P(VPRSR(DIEN),U,2)[\"Aborted\":\"ABORTED\",$P(VPRSR(DIEN),U,2)=\"\":\"\",1:\"COMPLETED\")
\n \n- \n
- DocumentNumbers
\n- SEQUENCE: 12
\n- ITEM TYPE: LIST
\n- LIST TYPE: ARRAY
\n- XML NAME: DocumentNumbersItem
\n- GET ACTION: D RPTS^VPRSDASR(DIEN)
\n \n- \n
- CptModifiers
\n- SEQUENCE: 10
\n- ITEM TYPE: LIST
\n- FILE NUMBER: 136
\n- FIELD NUMBER: 1
\n- ENTITY: VPR CPT MODIFIER
\n- LIST TYPE: ARRAY
\n- XML NAME: CptModifier
\n- GET ACTION: N I S I=0 F S I=$O(^SRO(136,DIEN,1,I)) Q:I<1 S DLIST(I)=+$G(^(I,0))
\n \n- \n
- CPTs
\n- SEQUENCE: 11
\n- ITEM TYPE: LIST
\n- FILE NUMBER: 136
\n- FIELD NUMBER: 3
\n- ENTITY: VPR CPT
\n- LIST TYPE: ARRAY
\n- XML NAME: CPT
\n- GET ACTION: N I S I=0 F S I=$O(^SRO(136,DIEN,3,I)) Q:I<1 S DLIST(I)=+$G(^(I,0))
\n \n- \n
- Location
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: 1211
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR LOCATION
\n- GET ACTION: N I S I=+$O(VPRSR(DIEN,0)),IEN=+$G(VPRSR(DIEN,I)) S:IEN<1 DDEOUT=1 ;use 1st report
\n \n- \n
- OrderNumber
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 130
\n- FIELD NUMBER: 100
\n- RETURN INTERNAL VALUE: YES
\n \n- \n
- DataSource
\n- SEQUENCE: 8
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: SURGERY DATA
\n \n- \n
- Package
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 130
\n- ENTITY: VPR PACKAGE
\n- GET ACTION: S VALUE=+$O(^DIC(9.4,\"C\",\"SR\",0)) S:VALUE<1 DDEOUT=1
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR SURGERY; it expects the VPRSR array. CPT codes \nare extracted from the SURGERY PROCEDURE/DIAGNOSIS CODES (#136) file, \nwhich is DINUM'd to the SURGERY (#130) file.\n
\n\n", "", "", "", "", "S VPRDT=$P(VPRSR(DIEN),U,3)\n", "K VPRDT\n", "", "", "", "", "", ""], ["VPR LOINC", "95.3\n", "", "", "", "SDA\n", "ObservationValueCode\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 95.3
\n- FIELD NUMBER: .01
\n \n- \n
- Description
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 95.3
\n- FIELD NUMBER: 80
\n- GET ACTION: S VALUE=$G(^LAB(95.3,DIEN,83)) ;use field #83 if installed
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: LOINC
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR REFERRAL EXTENSION", "123\n", "", "", "", "SDA\n", "ReferralExtension\n", "\n- \n
\n- \n
- Name
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$$CONSNAME^VPRSDAC(DIEN) ;CPRS display text
\n \n- \n
- PlaceOfConsultation
\n- SEQUENCE: 12
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 123
\n- FIELD NUMBER: 6
\n- GET ACTION: S VALUE=$P($G(VPRCONS(0)),U,10)
\n \n- \n
- LastActionTaken
\n- SEQUENCE: 13
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 123
\n- FIELD NUMBER: 9
\n- GET ACTION: S VALUE=$P($G(VPRCONS(0)),U,13)
\n \n- \n
- ServiceType
\n- SEQUENCE: 14
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 123
\n- FIELD NUMBER: 14
\n- RETURN INTERNAL VALUE: YES
\n- GET ACTION: S VALUE=$P($G(VPRCONS(0)),U,18)
\n \n- \n
- DesiredDate
\n- SEQUENCE: 15
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 123
\n- FIELD NUMBER: 17
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(VPRCONS(0)),U,24)
\n \n- \n
- ProvisionalDxDate
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 123
\n- FIELD NUMBER: 30.2
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(VPRCONS(30.1)),U,2)
\n \n- \n
- RequestActions
\n- SEQUENCE: 22
\n- ITEM TYPE: LIST
\n- ENTITY: VPR REFERRAL ACTIVITY
\n- LIST TYPE: ARRAY
\n- XML NAME: RequestAction
\n- GET ACTION: D GETACT^VPRSDAC(DIEN)
\n \n- \n
- ClinicalProcedure
\n- SEQUENCE: 3
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 123
\n- FIELD NUMBER: 1.01
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR MDD PROCEDURE
\n \n- \n
- Interpretation
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 123
\n- FIELD NUMBER: 16
\n- EXTENDED POINTER LKUP: 70201
\n \n- \n
- ProcedureTime
\n- SEQUENCE: 16
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 123
\n- FIELD NUMBER: 16
\n- EXTENDED POINTER LKUP: 70202
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n- \n
- AssociatedEncounterNumber
\n- SEQUENCE: 17
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 123
\n- FIELD NUMBER: 16
\n- EXTENDED POINTER LKUP: .03
\n- RETURN INTERNAL VALUE: YES
\n \n- \n
- Procedure
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 123
\n- FIELD NUMBER: 4
\n- GET ACTION: S VALUE=$P($G(VPRCONS(0)),U,8)
\n \n- \n
- UCID
\n- SEQUENCE: 18
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 123
\n- FIELD NUMBER: 80
\n \n- \n
- IFCRole
\n- SEQUENCE: 19
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 123
\n- FIELD NUMBER: .125
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE=\"P\":\"PLACER\",VALUE=\"F\":\"FILLER\",1:\"\")
\n- GET ACTION: S VALUE=$P($G(VPRIFC),U,5)
\n \n- \n
- RemoteConsultId
\n- SEQUENCE: 20
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 123
\n- FIELD NUMBER: .06
\n- GET ACTION: S VALUE=$P($G(VPRIFC),U,7)
\n \n- \n
- DSTId
\n- SEQUENCE: 23
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 123
\n- FIELD NUMBER: 85
\n- GET ACTION: S VALUE=$P($G(VPRCONS(75)),U)
\n \n- \n
- ProvisionalDx
\n- SEQUENCE: 4
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 123
\n- FIELD NUMBER: 30.1
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=$$PROVDX^VPRSDAC(DIEN)
\n \n- \n
- Result
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 123
\n- FIELD NUMBER: 15
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE=\"Y\":\"SIGNIFICANT FINDINGS\",VALUE=\"N\":\"NO SIGNIFICANT FINDINGS\",1:\"UNKNOWN\")
\n- GET ACTION: S VALUE=$P($G(VPRCONS(0)),U,19)
\n \n- \n
- Status
\n- SEQUENCE: 8
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 123
\n- FIELD NUMBER: 8
\n- GET ACTION: S VALUE=$P($G(VPRCONS(0)),U,12)
\n \n- \n
- Type
\n- SEQUENCE: 9
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 123
\n- FIELD NUMBER: 13
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE=\"C\":\"Consult\",1:\"Procedure\")
\n- GET ACTION: S VALUE=$P($G(VPRCONS(0)),U,17)
\n \n- \n
- Urgency
\n- SEQUENCE: 10
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 123
\n- FIELD NUMBER: 5
\n- GET ACTION: S VALUE=$P($G(VPRCONS(0)),U,9)
\n \n- \n
- DocumentNumbers
\n- SEQUENCE: 21
\n- ITEM TYPE: LIST
\n- LIST TYPE: ARRAY
\n- XML NAME: DocumentNumbersItem
\n- GET ACTION: N VPRI,VPRX S VPRI=0 F S VPRI=$O(VPRCONS(50,VPRI)) Q:VPRI<1 S VPRX=+$G(VPRCONS(50,VPRI)) S:$$COMP^VPRSDAT(VPRX) DLIST(VPRI)=VPRX_\";TIU\"
\n \n- \n
- PatientLocation
\n- SEQUENCE: 11
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 123
\n- FIELD NUMBER: .04
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR LOCATION
\n- GET ACTION: S VALUE=$P($G(VPRCONS(0)),U,4)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR REFERRAL; it expects the VPRCONS and VPRCACT\narrays as defined by GMRCAPI in the main entity GET ID ACTION.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR HF EXTENSION", "9000010.23\n", "", "", "", "SDA\n", "HealthConcernExtension\n", "\n- \n
\n- \n
- Severity
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: .04
\n \n- \n
- Category
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: .01
\n- EXTENDED POINTER LKUP: .03
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR FAMILY HISTORY and VPR SOCIAL HISTORY.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR MED EXTENSION", "100\n", "", "", "", "SDA\n", "MedicationExtension\n", "\n- \n
\n- \n
- Sig
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.045
\n- FIELD NUMBER: 1
\n- GET ACTION: S VALUE=$$SIG^VPRSDAP(DIEN) S:VALUE=\"\" DDEOUT=1
\n \n- \n
- IVRate
\n- SEQUENCE: 28
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.045
\n- FIELD NUMBER: 1
\n- GET ACTION: S:$G(PSTYPE)=\"V\" VALUE=$P($G(@VPRPS@(0)),U,2) S:VALUE=\"\" DDEOUT=1
\n \n- \n
- VAStatus
\n- SEQUENCE: 15
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: N X S X=$P($G(@VPRPS@(0)),U,6) I $L(X) S VALUE=X_U_X_\"^VHAT\"
\n \n- \n
- PharmacyOrderItem
\n- SEQUENCE: 21
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$G(PSOI)
\n \n- \n
- IsNonFormulary
\n- SEQUENCE: 22
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 50.7
\n- FIELD NUMBER: 5
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",1:\"false\")
\n- GET ACTION: S IEN=+$G(PSOI) S:'IEN DDEOUT=1
\n \n- \n
- Released
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.008
\n- FIELD NUMBER: 16
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(OR8),U,16),IEN=\"1,\"_DIEN
\n \n- \n
- OrderType
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 8.1
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE=1:\"EDIT\",VALUE=2:\"RENEW\",1:\"NEW\")
\n- GET ACTION: S VALUE=$P($G(OR3),U,11)
\n \n- \n
- IVCategory
\n- SEQUENCE: 26
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.045
\n- FIELD NUMBER: 1
\n- GET ACTION: S:$G(PSTYPE)=\"V\" VALUE=$$VALUE^ORX8(DIEN,\"TYPE\") S:VALUE=\"\" DDEOUT=1
\n \n- \n
- IVType
\n- SEQUENCE: 27
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: I $G(PSTYPE)=\"V\" S VALUE=$$IVTYPE^VPRSDAP(DIEN)
\n \n- \n
- NatureOfOrder
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.008
\n- FIELD NUMBER: 12
\n- GET ACTION: S IEN=$$LASTACT^VPRSDAOR(DIEN)_\",\"_DIEN
\n \n- \n
- IsServiceConnected
\n- SEQUENCE: 24
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.045
\n- FIELD NUMBER: 1
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",1:\"false\")
\n- GET ACTION: N X S X=$$VALUE^ORX8(ORIFN,\"SC\") S:$L(X) VALUE=X S:VALUE=\"\" DDEOUT=1
\n \n- \n
- IsIMO
\n- SEQUENCE: 25
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 6
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$IMO^VPRSDAP(+VALUE,$G(PSTYPE)) ;true or false
\n- GET ACTION: S VALUE=$P($G(OR0),U,10)
\n \n- \n
- DiscontinuedDateTime
\n- SEQUENCE: 11
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 63
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(OR6),U,3)
\n \n- \n
- DiscontinueType
\n- SEQUENCE: 10
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 61
\n- GET ACTION: I $G(PSTYPE)=\"O\",$G(ORPK)[\"R\" S VALUE=$$GET1^DIQ(52,+ORPK,100.1)
\n \n- \n
- Statement
\n- SEQUENCE: 29
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.045
\n- FIELD NUMBER: 1
\n- GET ACTION: S VALUE=$$WP^VPRSDAOR(ORIFN,\"STATEMENTS\") S:VALUE=\"\" DDEOUT=1
\n \n- \n
- TradeName
\n- SEQUENCE: 35
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52
\n- FIELD NUMBER: 6.5
\n- GET ACTION: S:$S($G(PSTYPE)'=\"O\":1,$G(ORPK)'[\"R\":1,1:0) DDEOUT=1 I '$G(DDEOUT) S IEN=+$G(ORPK)
\n \n- \n
- PickupInstructions
\n- SEQUENCE: 36
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52
\n- FIELD NUMBER: 35
\n- GET ACTION: S:$S($G(PSTYPE)'=\"O\":1,$G(ORPK)'[\"R\":1,1:0) DDEOUT=1 I '$G(DDEOUT) S IEN=+$G(ORPK)
\n \n- \n
- WasPatientCounseled
\n- SEQUENCE: 37
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52
\n- FIELD NUMBER: 41
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",1:\"false\")
\n- GET ACTION: S:$S($G(PSTYPE)'=\"O\":1,$G(ORPK)'[\"R\":1,1:0) DDEOUT=1 I '$G(DDEOUT) S IEN=+$G(ORPK)
\n \n- \n
- Remarks
\n- SEQUENCE: 38
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: I $G(PSTYPE)=\"O\",$G(ORPK)[\"R\" S VALUE=$G(@VPRX52@(12))
\n \n- \n
- OutpatientSite
\n- SEQUENCE: 39
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: I $G(PSTYPE)=\"O\",$G(ORPK)[\"R\" S:$G(@VPRX52@(20)) VALUE=@VPRX52@(20)_\"^VA59\"
\n \n- \n
- CopayTransactionType
\n- SEQUENCE: 40
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: I $G(PSTYPE)=\"O\",$G(ORPK)[\"R\" S VALUE=$P($G(@VPRX52@(105)),U,2)
\n \n- \n
- CMOP
\n- SEQUENCE: 41
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: I $G(PSTYPE)=\"O\",$G(ORPK)[\"R\" S VALUE=$$CMOP^VPRSDAP(+ORPK)
\n \n- \n
- IsSupply
\n- SEQUENCE: 30
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 50.7
\n- FIELD NUMBER: .09
\n- RETURN INTERNAL VALUE: YES
\n- GET ACTION: S:$G(PSTYPE)=\"O\" VALUE=$$SUPPLY^VPRSDAP(DIEN),IEN=+$G(PSOI) S:VALUE=\"\" DDEOUT=1
\n \n- \n
- Titration
\n- SEQUENCE: 42
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: I $G(PSTYPE)=\"O\" S VALUE=$S($G(ORPK)[\"R\":$$TITRX^PSOUTL(+ORPK),$$VALUE^ORX8(ORIFN,\"TITR\"):\"t\",1:\"\")
\n \n- \n
- EBilling
\n- SEQUENCE: 43
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: I $G(PSTYPE)=\"O\",$G(ORPK)[\"R\" S VALUE=$$ECME^PSOBPSUT(+ORPK)
\n \n- \n
- IsERX
\n- SEQUENCE: 44
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: N X S X=+$O(^PS(52.49,\"ORN\",ORIFN,0)),VALUE=$S(X:\"true\",1:\"false\")
\n \n- \n
- DiscontinuedBy
\n- SEQUENCE: 12
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 62
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$P($G(OR6),U,2)
\n \n- \n
- DiscontinuedReason
\n- SEQUENCE: 13
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 65
\n- GET ACTION: N X S X=$P($G(OR6),U,4),VALUE=$S(X:$$GET1^DIQ(100.03,X,.01),1:$P(OR6,U,5)) S:VALUE=\"\" DDEOUT=1
\n \n- \n
- SignedBy
\n- SEQUENCE: 4
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100.008
\n- FIELD NUMBER: 5
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$P($G(ORSIG),U,2),IEN=\"1,\"_DIEN
\n \n- \n
- SignatureStatus
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.008
\n- FIELD NUMBER: 4
\n- GET ACTION: S VALUE=$P($G(ORSIG),U),IEN=\"1,\"_DIEN
\n \n- \n
- ReleasedBy
\n- SEQUENCE: 2
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100.008
\n- FIELD NUMBER: 17
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$P($G(OR8),U,17),IEN=\"1,\"_DIEN
\n \n- \n
- ReplacedOrder
\n- SEQUENCE: 8
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 9
\n- RETURN INTERNAL VALUE: YES
\n- GET ACTION: S VALUE=$P($G(OR3),U,5)
\n \n- \n
- ReplacementOrder
\n- SEQUENCE: 9
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 9.1
\n- RETURN INTERNAL VALUE: YES
\n- GET ACTION: S VALUE=$P($G(OR3),U,6)
\n \n- \n
- Routing
\n- SEQUENCE: 31
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.045
\n- FIELD NUMBER: 1
\n- GET ACTION: S:$G(PSTYPE)=\"O\" VALUE=$$VALUE^ORX8(DIEN,\"PICKUP\",1,\"E\") S:VALUE=\"\" DDEOUT=1
\n \n- \n
- PatientClass
\n- SEQUENCE: 16
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 10
\n- RETURN INTERNAL VALUE: YES
\n- GET ACTION: S VALUE=$P($G(OR0),U,12)
\n \n- \n
- Specialty
\n- SEQUENCE: 17
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 11
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR SPECIALTY
\n- GET ACTION: S VALUE=$P($G(OR0),U,13)
\n \n- \n
- OrderEvent
\n- SEQUENCE: 18
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 15
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR ORDER EVENT
\n- GET ACTION: S IEN=$S($G(ORDAD):ORDAD,1:DIEN)
\n \n- \n
- VAStartDate
\n- SEQUENCE: 19
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S:$P($G(OR0),U,8) VALUE=$P($G(@VPRPS@(0)),U,5) ;use PS value
\n \n- \n
- IsParked
\n- SEQUENCE: 45
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",1:\"false\")
\n- GET ACTION: I $G(PSTYPE)=\"O\",$G(ORPK) S VALUE=+$P($G(^PSRX(+ORPK,\"PARK\")),U)
\n \n- \n
- DCEvent
\n- SEQUENCE: 14
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 68
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR ORDER DC EVENT
\n- GET ACTION: S VALUE=$P($G(OR6),U,8)
\n \n- \n
- Package
\n- SEQUENCE: 20
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 12
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PACKAGE
\n- GET ACTION: S VALUE=$P($G(OR0),U,14)
\n \n- \n
- IsFlagged
\n- SEQUENCE: 46
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$$FLAGS^VPRSDAOR(ORIFN,.VPRFLAG)
\n \n- \n
- Flags
\n- SEQUENCE: 47
\n- ITEM TYPE: LIST
\n- ENTITY: VPR ORDER FLAG
\n- LIST TYPE: ARRAY
\n- XML NAME: Flag
\n- GET ACTION: M DLIST=VPRFLAG
\n \n- \n
- Expires
\n- SEQUENCE: 23
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: N X S X=$P($G(@VPRPS@(0)),U,3) S:X VALUE=$$DATE^VPRSDA(X)
\n \n- \n
- DaysSupply
\n- SEQUENCE: 32
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.045
\n- FIELD NUMBER: 1
\n- GET ACTION: S:$G(PSTYPE)=\"O\" VALUE=$S($G(ORPK)[\"S\":$G(@VPRX52P@(101)),1:$P($G(@VPRPS@(0)),U,7)) S:VALUE=\"\" DDEOUT=1
\n \n- \n
- LastFilled
\n- SEQUENCE: 33
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: I $G(PSTYPE)=\"O\" N X S X=$P($G(@VPRPS@(0)),U,12) S:X VALUE=$$DATE^VPRSDA(X)
\n \n- \n
- Fills
\n- SEQUENCE: 34
\n- ITEM TYPE: LIST
\n- ENTITY: VPR MED FILL
\n- LIST TYPE: ARRAY
\n- XML NAME: Fill
\n- GET ACTION: I $G(PSTYPE)=\"O\" D GETFILLS^VPRSDAP
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR MEDICATION. It expects the ORDER (#100) ien as \nthe ID, as well as the VPRPS array defined in the ID Action.\n
\n\n", "", "", "", "", "", "K:$D(VPRX52) @VPRX52 K:$D(VPRX52P) @VPRX52P K VPRX52,VPRX52P,VPRFLAG\n", "D PSRX^VPRSDAP($G(ORPK))\n", "", "", "", "", ""], ["VPR MED FILL", "52\n", "", "", "", "SDA\n", "Fill\n", "\n- \n
\n- \n
- FillDate
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE,1)
\n- GET ACTION: S VALUE=$P(VPREF,U)
\n \n- \n
- FillRouting
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE=\"M\":\"MAIL\",VALUE=\"W\":\"WINDOW\",VALUE=\"C\":\"ADMINISTERED IN CLINIC\",1:\"\")
\n- GET ACTION: S VALUE=$P(VPREF,U,5)
\n \n- \n
- ReleaseDate
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P(VPREF,U,4)
\n \n- \n
- FillQuantity
\n- SEQUENCE: 4
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P(VPREF,U,3)
\n \n- \n
- FillDaysSupply
\n- SEQUENCE: 5
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P(VPREF,U,2)
\n \n- \n
- IsPartial
\n- SEQUENCE: 6
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$S(DIEN[\"P\":\"true\",1:\"false\")
\n \n- \n
- ReturnedToStock
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P(VPREF,U,7)
\n \n- \n
- Remarks
\n- SEQUENCE: 8
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P(VPREF,U,6)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity returns a refill of a medication; it is intended to be used\nwith VPR MEDICATION, and the VPRPS array from OEL^PSOORRL. It expects:\n ID = fill date ^ days supply ^ qty ^ release date ^ routing\nto support the original fill, refills, and partial fills.\n
\n\n", "", "", "", "", "", "K VPREF\n", "S VPREF=$P(DIEN,U,2,99),DIEN=$P(DIEN,U)\n", "", "", "", "", ""], ["VPR IMM EXTENSION", "9000010.11\n", "", "", "", "SDA\n", "VaccinationExtension\n", "\n- \n
\n- \n
- IsContraindicated
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.11
\n- FIELD NUMBER: .07
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",1:\"false\")
\n- GET ACTION: S VALUE=$G(VPRM(\"CONTRAINDICATED\"))
\n \n- \n
- IsWarningAcknowledged
\n- SEQUENCE: 11
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.11
\n- FIELD NUMBER: 1220
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",1:\"false\")
\n- GET ACTION: S VALUE=$G(VPRM(\"WARNING ACK\"))
\n \n- \n
- WarningOverride
\n- SEQUENCE: 12
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.11
\n- FIELD NUMBER: 1601
\n- GET ACTION: S VALUE=$G(VPRM(\"OVERRIDE REASON\"))
\n \n- \n
- Manufacturer
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.11
\n- FIELD NUMBER: 1207
\n- EXTENDED POINTER LKUP: .02
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR IMM MANUFACTURER
\n- GET ACTION: S VALUE=$P($G(VPRM(\"MANUFACTURER\")),U)
\n \n- \n
- Reaction
\n- SEQUENCE: 2
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.11
\n- FIELD NUMBER: .06
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- OUTPUT TRANSFORM: S VALUE=VALUE_U_$$EXTERNAL^DILFD(9000010.11,.06,,VALUE)
\n- GET ACTION: S VALUE=$G(VPRM(\"REACTION\"))
\n \n- \n
- Source
\n- SEQUENCE: 3
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.11
\n- FIELD NUMBER: 1301
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: N X S X=$G(VPRM(\"INFO SOURCE\")) S:X VALUE=$P(X,U,2,3)_\"^HL7\" S:X<1 DDEOUT=1 ;HL7 code ^ name
\n \n- \n
- VISOffers
\n- SEQUENCE: 5
\n- ITEM TYPE: LIST
\n- ENTITY: VPR IMM VIS
\n- LIST TYPE: ARRAY
\n- XML NAME: VISOffer
\n- GET ACTION: N I S I=0 F S I=$O(VPRM(\"VIS OFFERED\",I)) Q:I<1 S DLIST(I)=$G(VPRM(\"VIS OFFERED\",I,0))
\n \n- \n
- CPT
\n- SEQUENCE: 4
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.11
\n- ENTITY: VPR CPT
\n- GET ACTION: S VALUE=$P($G(VPRM(\"CODES\",\"CPT\")),U)
\n \n- \n
- NDCCode
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.11
\n- FIELD NUMBER: 1207
\n- EXTENDED POINTER LKUP: .18
\n- RETURN INTERNAL VALUE: YES
\n- GET ACTION: S VALUE=$G(VPRM(\"NDC CODE (VA)\"))
\n \n- \n
- CDCName
\n- SEQUENCE: 7
\n- ITEM TYPE: WORD PROCESSING
\n- FILE NUMBER: 9999999.14
\n- FIELD NUMBER: 2
\n- WORD WRAP: 1
\n- GET ACTION: S IEN=+$G(VPRM(\"IMMUNIZATION\")),WP(1)=$G(VPRM(\"CDC FULL VACCINE NAME\")) I WP(1)=\"\" K WP
\n \n- \n
- DataSource
\n- SEQUENCE: 9
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.11
\n- FIELD NUMBER: 81203
\n- GET ACTION: S VALUE=$P($G(VPRM(\"DATA SOURCE\")),U,2)
\n \n- \n
- Package
\n- SEQUENCE: 10
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.11
\n- FIELD NUMBER: 81202
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PACKAGE
\n- GET ACTION: S VALUE=$P($G(VPRM(\"PACKAGE\")),U)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR VACCINATION; it expects the VPRM array defined by\nVIMM^PXPXRM, called by the GET ID ACTION for each immunization.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR IMM VIS", "920\n", "", "", "", "SDA\n", "VIS\n", "\n- \n
\n- \n
- Date
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P(VPRVIS,U,2) S:VALUE VALUE=$$DATE^VPRSDA(VALUE)
\n \n- \n
- Name
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 920
\n- FIELD NUMBER: .01
\n- GET ACTION: S VALUE=$P(VPRVIS,U,3)
\n \n- \n
- EditionDate
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 920
\n- FIELD NUMBER: .02
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P(VPRVIS,U,4)
\n \n- \n
- Language
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 920
\n- FIELD NUMBER: .04
\n- GET ACTION: S VALUE=$P(VPRVIS,U,5)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity returns a Vaccine Information Sheet (VIS) for an immunization,\nwithin VPR IMM EXTENSION as part of the VPR VACCINATION entity.\n
\n\n", "", "", "", "", "", "K VPRVIS\n", "S VPRVIS=DIEN,DIEN=+DIEN\n", "", "", "", "", ""], ["VPR VITAL EXTENSION", "120.5\n", "", "", "", "SDA\n", "ObservationExtension\n", "\n- \n
\n- \n
- Location
\n- SEQUENCE: 1
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 120.5
\n- FIELD NUMBER: .05
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR LOCATION
\n- GET ACTION: S VALUE=$P($G(VPRGMV),U,5) S:VALUE=\"\" DDEOUT=1
\n \n- \n
- High
\n- SEQUENCE: 2
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P($G(VPRANGE),U)
\n \n- \n
- Low
\n- SEQUENCE: 3
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P($G(VPRANGE),U,2)
\n \n- \n
- BMI
\n- SEQUENCE: 4
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: N X S X=$P($G(VPRGMV),U,14) S:X VALUE=+X
\n \n- \n
- Removed
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 120.5
\n- FIELD NUMBER: 2
\n- RETURN INTERNAL VALUE: YES
\n- GET ACTION: S:'$G(VPRV(2)) DDEOUT=1 I $G(VPRV(2)) S VALUE=$$EXTERNAL^DILFD(120.506,.01,,+$P(VPRV(2),U,3))
\n \n- \n
- SupplementalO2
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 120.5
\n- FIELD NUMBER: 1.4
\n- GET ACTION: S VALUE=$P($G(VPRGMV),U,10) S:VALUE=\"\" DDEOUT=1
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR VITAL MEASUREMENT; it expects VPRGMV and the VPRV\narray, defined by the main GET ID ACTION.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR CPT MODIFIER", "81.3\n", "", "", "", "SDA\n", "CPTModifier\n", "\n- \n
\n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA81.3
\n- GET ACTION: Q ;S VALUE=$S($P(VPRMOD,U,5)=\"C\":\"CPT-4\",$P(VPRMOD,U,5)=\"H\":\"HCPCS\",1:\"VA81.3\")
\n \n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P(VPRMOD,U,2)
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P(VPRMOD,U,3)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity expects a pointer to the CPT Modifiers file #81.3 as the ID, \nand optionally a FM date.time in local variable VPRDT, and returns the \nformatted code, date-versioned description, and coding system using\n$$MOD^ICPTMOD. \n
\n\n", "", "", "", "", "", "K VPRMOD\n", "S VPRMOD=$$MOD^ICPTMOD(DIEN,\"I\",$G(VPRDT)) S:VPRMOD<0 DDEOUT=1\n", "", "", "", "", ""], ["VPR ALLERGY ASSESSMENT", "120.86\n", "", "", "", "SDA\n", "Allergy\n", "\n- \n
\n- \n
- Allergy
\n- SEQUENCE: 3
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 120.86
\n- FIELD NUMBER: 1
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=$S($G(GMRAL)=0:\"NKA^No Known Allergies\",$G(GMRAL)=1:\"ALG^Assessment\",1:\"NONE^No Assessment\")
\n \n- \n
- EnteredBy
\n- SEQUENCE: 22
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 120.86
\n- FIELD NUMBER: 2
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n \n- \n
- EnteredOn
\n- SEQUENCE: 24
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 120.86
\n- FIELD NUMBER: 3
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n- \n
- EnteredAt
\n- SEQUENCE: 23
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 120.86
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$$SITE^VPRSDA ;default #4 ien
\n \n- \n
- Clinician
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 120.86
\n- FIELD NUMBER: 2
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n \n- \n
- FromTime
\n- SEQUENCE: 25
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 120.86
\n- FIELD NUMBER: 3
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n- \n
- ExternalId
\n- SEQUENCE: 27
\n- ITEM TYPE: ID
\n- OUTPUT TRANSFORM: S VALUE=VALUE_\";DFN\"
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populates the Allergy container in HealthShare from the\nmaintained by monitoring the GMRA ASSESSMENT CHANGE protocol event.\nADVERSE REACTION ASSESSMENT (#120.86) file; it expects the record IEN\nas the ID (DIEN).\n \nThis entity is used instead of VPR ALLERGY if the patient has not been\nassessed or was determined to have No Known Allergies (NKA).\n \nThis entity is supported by code in routine VPRSDAL, which uses the\nGMRADPT and GMRAOR2 routines to extract allergies. Data in SDA is\n
\n\n", "", "", "", "", "", "K GMRAL\n", "S:'$G(DFN) DFN=DIEN S GMRAL=$P($G(^GMR(120.86,+DFN,0)),U,2)\n", "ASSESS^VPRSDAL\n", "", "", "", ""], ["VPR RAD RPT EXTENSION", "74\n", "", "", "", "SDA\n", "DocumentExtension\n", "\n- \n
\n- \n
- CareProviders
\n- SEQUENCE: 1
\n- ITEM TYPE: LIST
\n- ENTITY: VPR SIGNER
\n- LIST TYPE: ARRAY
\n- XML NAME: CareProvider
\n- GET ACTION: N X S X=$P($G(@VPRAE2@(\"V\")),U) S:X DLIST(1)=X_\"^V\" ;verifier
\n \n- \n
- NationalTitle
\n- SEQUENCE: 4
\n- ITEM TYPE: ENTITY
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=\"18726-0^RADIOLOGY STUDIES^LOINC\"
\n \n- \n
- NationalTitleSubject
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=\"4693357^RADIOLOGY^VHAT\"
\n \n- \n
- PatientLocation
\n- SEQUENCE: 10
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 74
\n- FIELD NUMBER: 54
\n- ENTITY: VPR LOCATION
\n- OUTPUT TRANSFORM: S VALUE=$O(^SC(\"B\",VALUE,0))
\n \n- \n
- DayCaseNumber
\n- SEQUENCE: 19
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 74
\n- FIELD NUMBER: .01
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR RAD REPORT; it expects the VPRAE2 variable\nand ^TMP array to be defined.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR LAB ORDER", "100\n", "", "", "", "SDA\n", "LabOrder\n", "\n- \n
\n- \n
- EnteredAt
\n- SEQUENCE: 35
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 6
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR FACILITY
\n- GET ACTION: N X S X=$P($G(OR0),U,10) S:X VALUE=$$GET1^DIQ(44,+X,3,\"I\") S:'VALUE VALUE=$$SITE^VPRSDA ;#4 ien
\n \n- \n
- ResultCopiesTo
\n- SEQUENCE: 29
\n- ITEM TYPE: LIST
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 35
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- LIST TYPE: ARRAY
\n- XML NAME: CareProvider
\n- GET ACTION: N X S IEN=$S($G(ORDAD):ORDAD,1:DIEN),X=$$GET1^DIQ(100,IEN,35,\"I\") S:X DLIST(1)=X
\n \n- \n
- Specimen
\n- SEQUENCE: 12
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.045
\n- FIELD NUMBER: 1
\n- GET ACTION: S VALUE=$$VALUE^ORX8(DIEN,\"SPECIMEN\",,\"E\") S:VALUE=\"\" DDEOUT=1
\n \n- \n
- SpecimenCollectedTime
\n- SEQUENCE: 13
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 21
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VPRCDT=$P($G(OR0),U,8),VALUE=VPRCDT
\n \n- \n
- Status
\n- SEQUENCE: 18
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 5
\n- EXTENDED POINTER LKUP: .02
\n- OUTPUT TRANSFORM: N X S X=VALUE,VALUE=$S(X=\"dc\":\"D\",X=\"canc\":\"C\",X=\"laps\":\"C\",X=\"dc/e\":\"R\",X=\"comp\":\"E\",X=\"exp\":\"E\",X=\"hold\":\"H\",X=\"part\":\"A\",1:\"IP\")
\n \n- \n
- Result
\n- SEQUENCE: 39
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 33
\n- ENTITY: VPR LRCH RESULT
\n- GET ACTION: D RSLT^VPRSDAB
\n \n- \n
- PlacerId
\n- SEQUENCE: 1
\n- ITEM TYPE: ID
\n \n- \n
- EnteringOrganization
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 6
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR LOCATION
\n- OUTPUT TRANSFORM: S VALUE=+VALUE
\n- GET ACTION: S VALUE=$P($G(OR0),U,10) S:VALUE<1 DDEOUT=1
\n \n- \n
- FromTime
\n- SEQUENCE: 37
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 21
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRCDT)
\n \n- \n
- ToTime
\n- SEQUENCE: 38
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 22
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(OR0),U,9)
\n \n- \n
- UpdatedOn
\n- SEQUENCE: 50
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 31
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(OR3),U)
\n \n- \n
- EnteredBy
\n- SEQUENCE: 34
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 3
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$P($G(OR0),U,6)
\n \n- \n
- AuthorizationTime
\n- SEQUENCE: 26
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.008
\n- FIELD NUMBER: 6
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(ORSIG),U,3),IEN=\"1,\"_DIEN
\n \n- \n
- Extension
\n- SEQUENCE: 53
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- ENTITY: VPR ORDER EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- ExternalId
\n- SEQUENCE: 51
\n- ITEM TYPE: ID
\n \n- \n
- Comments
\n- SEQUENCE: 24
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.045
\n- FIELD NUMBER: 1
\n- GET ACTION: S VALUE=$$VALUE^ORX8(DIEN,\"COMMENT\") S:VALUE=\"\" DDEOUT=1
\n \n- \n
- GroupId
\n- SEQUENCE: 30
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 36
\n- RETURN INTERNAL VALUE: YES
\n- GET ACTION: S VALUE=$G(ORDAD) S:VALUE=\"\" DDEOUT=1
\n \n- \n
- EnteredOn
\n- SEQUENCE: 36
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 4
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(OR0),U,7)
\n \n- \n
- FillerId
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 33
\n- GET ACTION: S ORPK=$$PKGID^ORX8(DIEN),VALUE=ORPK S:VALUE?1.\";\" DDEOUT=1
\n \n- \n
- OrderCategory
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 23
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR DISPLAY GROUP
\n- OUTPUT TRANSFORM: D DG^VPRSDAB(.VALUE) ;cks VALUE, sets LRSUB
\n- GET ACTION: S VALUE=$P($G(OR0),U,11)
\n \n- \n
- OrderItem
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100.001
\n- FIELD NUMBER: .01
\n- ENTITY: VPR ORDERABLE ITEM
\n- GET ACTION: S ORIT=$$OI^ORX8(DIEN),VALUE=+ORIT S:VALUE<1 DDEOUT=1 ;first/only
\n \n- \n
- OrderedBy
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 1
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$P($G(OR0),U,4)
\n \n- \n
- Priority
\n- SEQUENCE: 19
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100.045
\n- FIELD NUMBER: 1
\n- ENTITY: VPR LAB URGENCY
\n- GET ACTION: S VALUE=$$VALUE^ORX8(DIEN,\"URGENCY\") S:VALUE=\"\" DDEOUT=1
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populates the LabOrder container in HealthShare from the\nORDER (#100) file; it expects the record ien as its ID (DIEN). Result\ndata is pulled from the LAB DATA (#63) file.\n \nThis entity is supported by code in routines VPRSDAOR and VPRSDAB, \nwhich uses various LR7O* calls to extract lab data. Data in SDA\nis maintained by monitoring the OR EVSEND LR* and LR* EVSEND OR\nprotocol events.\n
\n\n", "", "", "", "", "S:'DFN&ID DFN=+$P($G(^OR(100,ID,0)),U,2) S LRDFN=+$G(^DPT(DFN,\"LR\"))\n", "K LRDFN,LRSUB,ORDAD,ORIT,ORPK,VPRCDT,OR0,OR3,OR6,OR8,ORSIG\n", "D OR1^VPRSDAOR(DIEN)\n", "ORDERS^VPRSDAOR(\"LAB\")\n", "", "", "", ""], ["VPR LRAP EXTENSION", "63.08\n", "", "", "", "SDA\n", "DocumentExtension\n", "\n- \n
\n- \n
- CareProviders
\n- SEQUENCE: 1
\n- ITEM TYPE: LIST
\n- ENTITY: VPR SIGNER
\n- LIST TYPE: ARRAY
\n- XML NAME: CareProvider
\n- GET ACTION: N X S X=$P($G(LR0),U,13) S:X DLIST(1)=X_\"^V\" ;verifier
\n \n- \n
- NationalTitle
\n- SEQUENCE: 4
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.08
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=$S(LRSUB=\"CY\":\"26438-2^CYTOLOGY\",LRSUB=\"EM\":\"50668-3^MICROSCOPY\",1:\"27898-6^PATHOLOGY\")_\" STUDIES^LOINC\"
\n \n- \n
- NationalTitleSubject
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.08
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=\"4697104^LABORATORY^VHAT\"
\n \n- \n
- PatientLocation
\n- SEQUENCE: 10
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.08
\n- FIELD NUMBER: .08
\n- ENTITY: VPR LOCATION
\n- OUTPUT TRANSFORM: S VALUE=$O(^SC(\"B\",VALUE,0))
\n- GET ACTION: S VALUE=$P($G(LR0),U,8)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR LRAP REPORT; it expects the LR0 and LRSUB local\nvariables to be defined.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR LRMI EXTENSION", "63.05\n", "", "", "", "SDA\n", "DocumentExtension\n", "\n- \n
\n- \n
- CareProviders
\n- SEQUENCE: 1
\n- ITEM TYPE: LIST
\n- ENTITY: VPR SIGNER
\n- LIST TYPE: ARRAY
\n- XML NAME: CareProvider
\n- GET ACTION: N X S X=$P($G(LR0),U,4) S:X DLIST(1)=X_\"^V\" ;verifier
\n \n- \n
- NationalTitle
\n- SEQUENCE: 4
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.05
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=\"18725-2^MICROBIOLOGY STUDIES^LOINC\"
\n \n- \n
- NationalTitleSubject
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.05
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=\"4697104^LABORATORY^VHAT\"
\n \n- \n
- PatientLocation
\n- SEQUENCE: 10
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.05
\n- FIELD NUMBER: .111
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR LOCATION
\n- GET ACTION: N X1,X2 S X1=$P($G(LR0),U,13),X2=$P($G(LR0),U,8),VALUE=$S(X1?1.N1\";SC(\":+X1,$L(X2):$O(^SC(\"B\",X2,0)),1:\"\") S:VALUE=\"\" DDEOUT=1
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR LRMI REPORT; it expects the LR0 variable to be\ndefined.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR SIGNER", "200\n", "", "", "", "SDA\n", "CareProvider\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 4
\n- ITEM TYPE: ID
\n \n- \n
- Extension
\n- SEQUENCE: 3
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 200
\n- ENTITY: VPR SIGNER EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- Description
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 200
\n- FIELD NUMBER: .01
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA200
\n \n- \n
- Name
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 200
\n- FIELD NUMBER: .01
\n- ENTITY: VPR NAME
\n \n- \n
- ContactInfo
\n- SEQUENCE: 8
\n- ITEM TYPE: COMPLEX GROUP
\n- COMPLEX TYPE:
\n- \n
\n- \n
- COMPLEX ITEM SEQUENCE: 3
\n- COMPLEX ITEM NAME: WorkPhoneNumber
\n \n- \n
- COMPLEX ITEM SEQUENCE: 4
\n- COMPLEX ITEM NAME: MobilePhoneNumber
\n \n- \n
- COMPLEX ITEM SEQUENCE: 5
\n- COMPLEX ITEM NAME: EmailAddress
\n \n
\n
\n \n- \n
- WorkPhoneNumber
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 200
\n- FIELD NUMBER: .132
\n \n- \n
- MobilePhoneNumber
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 200
\n- FIELD NUMBER: .137
\n \n- \n
- EmailAddress
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 200
\n- FIELD NUMBER: .151
\n \n- \n
- CareProviderType
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 200
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: N X S X=$G(VPROLE),VALUE=$S(X=\"S\":\"S^SIGNER\",X=\"C\":\"C^COSIGNER\",X=\"V\":\"V^VERIFIER\",1:\"\")
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity returns a coded element for a New Person file #200 entry,\nvery similar to VPR PROVIDER except for the CareProviderType property\nwhich here reflects the signature role of the user. ID should be a \ntwo-piece string, consisting of the IEN^[type] where type is S (signer) \nor C (cosigner) or V (verifier).\n
\n\n", "", "", "", "", "", "K VPROLE\n", "S VPROLE=$P(DIEN,U,2),DIEN=+DIEN S:'DIEN DDEOUT=1\n", "", "", "", "", ""], ["VPR FIM", "783\n", "", "", "", "SDA\n", "Problem\n", "\n- \n
\n- \n
- UpdatedOn
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 783
\n- FIELD NUMBER: .12
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n- \n
- FromTime
\n- SEQUENCE: 17
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 783
\n- FIELD NUMBER: .1
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: N X S X=$P($G(VPRM(1)),U,10) S:$L(X) VALUE=$$INTDATE^VPRSDA(X)
\n \n- \n
- ToTime
\n- SEQUENCE: 18
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 783
\n- FIELD NUMBER: .11
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: N X S X=$P($G(VPRM(1)),U,11) S:$L(X) VALUE=$$INTDATE^VPRSDA(X)
\n \n- \n
- ExternalId
\n- SEQUENCE: 19
\n- ITEM TYPE: ID
\n- OUTPUT TRANSFORM: S VALUE=VALUE_\";FIM\"
\n \n- \n
- Extension
\n- SEQUENCE: 4
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 783
\n- ENTITY: VPR FIM EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- Status
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 783
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=\"55561003^Active^SNOMED CT\"
\n \n- \n
- CustomPairs
\n- SEQUENCE: 3
\n- ITEM TYPE: LIST
\n- ENTITY: VPR CUSTOM PAIR
\n- GET ACTION: D FIMS^VPRSDAG ;sets VPRFIMS, DLIST array
\n \n- \n
- ProblemDetails
\n- SEQUENCE: 5
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$G(VPRFIMS)
\n \n- \n
- Problem
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 783
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=\"408907016^Functional independence measure^SNOMED CT\"
\n \n- \n
- Clinician
\n- SEQUENCE: 7
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 783
\n- FIELD NUMBER: .16
\n- EXTENDED POINTER LKUP: 1202
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$G(VPRM(\"TIU\",1202,\"I\"))
\n \n- \n
- Category
\n- SEQUENCE: 10
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 783
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=\"248536006^Finding of functional performance and activity^SNOMED CT\"
\n \n- \n
- EnteredBy
\n- SEQUENCE: 14
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 783
\n- FIELD NUMBER: .16
\n- EXTENDED POINTER LKUP: 1302
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$G(VPRM(\"TIU\",1302,\"I\"))
\n \n- \n
- EnteredAt
\n- SEQUENCE: 15
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 783
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$$IEN^XUAF4($P(VPRSITE(1),U,2)) S:'VALUE VALUE=$$SITE^VPRSDA
\n \n- \n
- EnteredOn
\n- SEQUENCE: 16
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 783
\n- FIELD NUMBER: .16
\n- EXTENDED POINTER LKUP: 1201
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRM(\"TIU\",1201,\"I\"))
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populates the Problem container in HealthShare from the\nFUNCTIONAL INDEPENDENCE MEASUREMENT RECORD (#783) file; it expects the\nSite Case Number (#.02) field value as the ID (DIEN).\n \nThis entity is supported by code in routine VPRSDAG, which uses the\nRMIMRP routine to extract measurements. Data in SDA is maintained by\nmonitoring the RMIM DRIVER protocol event.\n
\n\n", "", "", "", "", "", "K VPRM,VPRSITE,VPRFIMS\n", "D FIM1^VPRSDAG(DIEN)\n", "FIMQ^VPRSDAG\n", "", "", "", ""], ["VPR CUSTOM PAIR", "", "", "", "", "SDA\n", "NVPair\n", "\n- \n
\n- \n
- Name
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P(VPRITM,U)
\n \n- \n
- Value
\n- SEQUENCE: 2
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P(VPRITM,U,2)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "K VPRITM\n", "S VPRITM=$G(DIEN)\n", "", "", "", "", ""], ["VPR HEALTH CONCERN", "9000010.23\n", "", "", "", "SDA\n", "HealthConcern\n", "\n- \n
\n- \n
- EnteredBy
\n- SEQUENCE: 1
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: .03
\n- EXTENDED POINTER LKUP: .23
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$P(VPRVST0,U,23)
\n \n- \n
- EnteredAt
\n- SEQUENCE: 2
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: .03
\n- EXTENDED POINTER LKUP: .06
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$P(VPRVST0,U,6)
\n \n- \n
- EnteredOn
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: .03
\n- EXTENDED POINTER LKUP: .02
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P(VPRVST0,U,2)
\n \n- \n
- EncounterNumber
\n- SEQUENCE: 8
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: .03
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S:'$D(^AUPNVSIT(VALUE,0)) VALUE=\"\"
\n- GET ACTION: S VALUE=$G(VPRVST)
\n \n- \n
- Description
\n- SEQUENCE: 10
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: .01
\n- GET ACTION: S:$P(VPRHF,U,2) VALUE=$P($G(^AUTTHF(+$P(VPRHF,U,2),0)),U)
\n \n- \n
- Status
\n- SEQUENCE: 11
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: .04
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- OUTPUT TRANSFORM: S:$L(VALUE) VALUE=VALUE_U_$$EXTERNAL^DILFD(9000010.23,.04,,VALUE)
\n- GET ACTION: S VALUE=$G(VPRHF(\"LEVEL/SEVERITY\"))
\n \n- \n
- FromTime
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: .03
\n- EXTENDED POINTER LKUP: .02
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P(VPRVST0,U,2)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populates the Health Concern container in HealthShare from \nthe V HEALTH FACTORS (#9000010.23) file; it expects the record IEN as\nthe ID (DIEN).\n \nThis entity is supported by code in routine VPRSDAVF, which uses the\n^PXRMINDX reminder index and VHF^PXPXRM call to extract V POV data. \nData in SDA is maintained by monitoring the PXK VISIT DATA EVENT\nprotocol event.\n
\n\n", "", "", "", "", "", "K VPRHF,VPRVST,VPRVST0\n", "D HF1^VPRSDAVF\n", "HFACTORS^VPRSDAVF\n", "", "", "", ""], ["VPR FIM EXTENSION", "783\n", "", "", "", "SDA\n", "ProblemExtension\n", "\n- \n
\n- \n
- OnsetDate
\n- SEQUENCE: 12
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 783
\n- FIELD NUMBER: .09
\n- RETURN INTERNAL VALUE: YES
\n- GET ACTION: N X S X=$P($G(VPRM(1)),U,9) S:$L(X) VALUE=$$INTDATE^VPRSDA(X)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR FIM, matching the relevant properties in VPR\nPROBLEM EXTENSION for the Problem container.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR ORDER STATUS", "100.01\n", "", "", "", "SDA\n", "OrderStatus\n", "\n- \n
\n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VHAT
\n \n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.01
\n- FIELD NUMBER: 99.99
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.01
\n- FIELD NUMBER: .01
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR AMIS", "40.7\n", "", "", "", "SDA\n", "StopCode\n", "\n- \n
\n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: AMIS
\n \n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 40.7
\n- FIELD NUMBER: 1
\n- GET ACTION: S VALUE=$P(VPRCODE,U)
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 40.7
\n- FIELD NUMBER: .01
\n- GET ACTION: S VALUE=$P(VPRCODE,U,2)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "K VPRCODE\n", "S VPRCODE=$$AMIS^VPRDVSIT(DIEN) S:VPRCODE=\"\" DDEOUT=1\n", "", "", "", "", ""], ["VPR TEAM MEMBER", "200\n", "", "", "", "SDA\n", "CareProvider\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 4
\n- ITEM TYPE: ID
\n \n- \n
- AtOrganization
\n- SEQUENCE: 12
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 200
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$G(VASITE)
\n \n- \n
- Extension
\n- SEQUENCE: 3
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 200
\n- ENTITY: VPR PROVIDER EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- Description
\n- SEQUENCE: 5
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$G(VPROLE)
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA200
\n \n- \n
- Name
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 200
\n- FIELD NUMBER: .01
\n- ENTITY: VPR NAME
\n \n- \n
- ContactInfo
\n- SEQUENCE: 8
\n- ITEM TYPE: COMPLEX GROUP
\n- COMPLEX TYPE:
\n- \n
\n- \n
- COMPLEX ITEM SEQUENCE: 3
\n- COMPLEX ITEM NAME: WorkPhoneNumber
\n \n- \n
- COMPLEX ITEM SEQUENCE: 4
\n- COMPLEX ITEM NAME: MobilePhoneNumber
\n \n- \n
- COMPLEX ITEM SEQUENCE: 5
\n- COMPLEX ITEM NAME: EmailAddress
\n \n
\n
\n \n- \n
- WorkPhoneNumber
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 200
\n- FIELD NUMBER: .132
\n \n- \n
- MobilePhoneNumber
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 200
\n- FIELD NUMBER: .137
\n \n- \n
- EmailAddress
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 200
\n- FIELD NUMBER: .151
\n \n- \n
- CareProviderType
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 200
\n- ENTITY: VPR PERSON CLASS
\n- GET ACTION: S DATA=$$TAXIND^XUSTAX(DIEN) I DATA'=\"^\",$P(DATA,U)'=-1 S VALUE=$P(DATA,U,2)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "K VPROLE\n", "S VPROLE=$P(DIEN,U,2),DIEN=+DIEN S:'DIEN DDEOUT=1\n", "", "", "", "", ""], ["VPR DISPLAY GROUP", "100.98\n", "", "", "", "SDA\n", "OrderCategory\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.98
\n- FIELD NUMBER: 3
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.98
\n- FIELD NUMBER: .01
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA100.98
\n \n- \n
- OriginalText
\n- SEQUENCE: 3
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$G(DATA)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR FACILITY ADDRESS", "4\n", "", "", "", "SDA\n", "Address\n", "\n- \n
\n- \n
- Street
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 4
\n- FIELD NUMBER: 1.01
\n- GET ACTION: S VALUE=$P($G(VAPA),U)
\n \n- \n
- City
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 4
\n- FIELD NUMBER: 1.03
\n- ENTITY: VPR CODE ONLY
\n- OUTPUT TRANSFORM: S VALUE=$E(VALUE,1,50)
\n- GET ACTION: S VALUE=$P($G(VAPA),U,2)
\n \n- \n
- State
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 4
\n- FIELD NUMBER: .02
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR STATE
\n- GET ACTION: Q ;S VALUE=$P($G(VAPA),U,3)
\n \n- \n
- Zip
\n- SEQUENCE: 7
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 4
\n- FIELD NUMBER: 1.04
\n- ENTITY: VPR CODE ONLY
\n- GET ACTION: S VALUE=$P($G(VAPA),U,4)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR FAMILY DOCTOR, and expects the Institution file #4\nien as the ID.\n
\n\n", "", "", "", "", "", "K VAPA\n", "S VAPA=$$PADD^XUAF4(DIEN)\n", "", "", "", "", ""], ["VPR FAMILY DOCTOR", "200\n", "", "", "", "SDA\n", "CareProvider\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 4
\n- ITEM TYPE: ID
\n \n- \n
- Description
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 200
\n- FIELD NUMBER: .01
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA200
\n \n- \n
- Name
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 200
\n- FIELD NUMBER: .01
\n- ENTITY: VPR NAME
\n \n- \n
- ContactInfo
\n- SEQUENCE: 8
\n- ITEM TYPE: COMPLEX GROUP
\n- COMPLEX TYPE:
\n- \n
\n- \n
- COMPLEX ITEM SEQUENCE: 3
\n- COMPLEX ITEM NAME: WorkPhoneNumber
\n \n- \n
- COMPLEX ITEM SEQUENCE: 4
\n- COMPLEX ITEM NAME: MobilePhoneNumber
\n \n- \n
- COMPLEX ITEM SEQUENCE: 5
\n- COMPLEX ITEM NAME: EmailAddress
\n \n
\n
\n \n- \n
- WorkPhoneNumber
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 200
\n- FIELD NUMBER: .132
\n \n- \n
- MobilePhoneNumber
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 200
\n- FIELD NUMBER: .137
\n \n- \n
- EmailAddress
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 200
\n- FIELD NUMBER: .151
\n \n- \n
- Address
\n- SEQUENCE: 7
\n- ITEM TYPE: ENTITY
\n- ENTITY: VPR FACILITY ADDRESS
\n- GET ACTION: S VALUE=$G(VASITE)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR PROVIDER EXTENSION", "200\n", "", "", "", "SDA\n", "CareProviderExtension\n", "\n- \n
\n- \n
- Role
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$G(VPROLE)
\n \n- \n
- Title
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 200
\n- FIELD NUMBER: 8
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PROVIDER, and expects the New Person file #200\nien as the ID. It will also optionally include the name of the Role the\nprovider is playing in the context used, if set into local variable\nVPROLE.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR PATIENT LANGUAGE", "2.07\n", "", "", "", "SDA\n", "PatientLanguage\n", "\n- \n
\n- \n
- PreferredLanguage
\n- SEQUENCE: 7
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2.07
\n- FIELD NUMBER: .02
\n- ENTITY: VPR LANGUAGE
\n- GET ACTION: S VALUE=+$G(VPRLNG) S:VALUE<1 DDEOUT=1 I VALUE S DATA=$P(VPRLNG,U,2)
\n \n- \n
- Use
\n- SEQUENCE: 8
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$G(VASTN)
\n \n- \n
- EnteredOn
\n- SEQUENCE: 9
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2.07
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(VADM(13)),U) I VALUE,(VALUE<1500000)!($P(VALUE,\".\")>DT) S VALUE=$$GET1^DIQ(2,DFN,.097,\"I\") S:VALUE VALUE=VALUE_\".12\"
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT, returning the patient's preferred\nlanguage from the Language Date/Time sub-file. It expects VPRLNG and the\nVADM array to be defined.\n
\n\n", "", "", "", "", "", "K VPRLNG\n", "S:'$G(VPRLNG) DDEOUT=1\n", "", "", "", "", ""], ["VPR SOURCE FACILITY", "2\n", "", "", "", "SDA\n", "LastTreated\n", "\n- \n
\n- \n
- EnteredAt
\n- SEQUENCE: 1
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=+$G(VASITE) ;default #4 ien
\n \n- \n
- EnteredOn
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$$LAST^VPRSDAV(DFN)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity is included in VPR PATIENT EXTENSION to pass the date the\npatient was last treated at this facility to the Patient Registry in\nthe HealthConnect Edge Cache Repository.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR LRSP RESULT", "63.08\n", "", "", "", "SDA\n", "Result\n", "\n- \n
\n- \n
- Extension
\n- SEQUENCE: 3
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.08
\n- ENTITY: VPR LR RESULT EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- AuthorizationTime
\n- SEQUENCE: 16
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 63.08
\n- FIELD NUMBER: .11
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(LR0),U,11)
\n \n- \n
- PerformedAt
\n- SEQUENCE: 17
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.08
\n- FIELD NUMBER: .345
\n- ENTITY: VPR LAB FACILITY
\n- GET ACTION: S VALUE=+$G(^LR(+$G(LRDFN),\"SP\",+IEN,\"RF\")) S:VALUE<1 DDEOUT=1
\n \n- \n
- EnteredBy
\n- SEQUENCE: 21
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.08
\n- FIELD NUMBER: .02
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$P($G(LR0),U,2)
\n \n- \n
- EnteredAt
\n- SEQUENCE: 22
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.08
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$$SITE^VPRSDA
\n \n- \n
- EnteredOn
\n- SEQUENCE: 23
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 63.08
\n- FIELD NUMBER: .1
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(LR0),U,10)
\n \n- \n
- FromTime
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 63.08
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=9999999-(+DIEN)
\n \n- \n
- ResultType
\n- SEQUENCE: 4
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: IM
\n \n- \n
- VerifiedBy
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.08
\n- FIELD NUMBER: .13
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$P($G(LR0),U,13)
\n \n- \n
- ResultTime
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 63.08
\n- FIELD NUMBER: .03
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(LR0),U,3)
\n \n- \n
- ResultStatus
\n- SEQUENCE: 8
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 63.08
\n- FIELD NUMBER: .11
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"F\",1:\"P\")
\n- GET ACTION: S VALUE=$P($G(LR0),U,11)
\n \n- \n
- ResultText
\n- SEQUENCE: 9
\n- ITEM TYPE: WORD PROCESSING
\n- FILE NUMBER: 63.08
\n- GET ACTION: Q D RPT^VPRSDAB(\"SP\",+DIEN)
\n \n- \n
- FileType
\n- SEQUENCE: 10
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: TXT
\n \n- \n
- DocumentName
\n- SEQUENCE: 11
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S:$P($G(LR0),U,11) VALUE=\"LR SURGICAL PATHOLOGY REPORT\" ;return if final
\n \n- \n
- DocumentNumber
\n- SEQUENCE: 14
\n- ITEM TYPE: FIXED STRING
\n- FILE NUMBER: 63.08
\n- GET ACTION: S:$P($G(LR0),U,11) VALUE=$$LRTIU^VPRSDAB(+DIEN,\"SP\") ;SP or TIU, return if final
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR LAB ORDER, providing Surgical Pathology results.\n
\n\n", "", "", "", "", "", "K LR0\n", "S:'$G(LRDFN) LRDFN=+$P(DIEN,\",\",2) S LR0=$G(^LR(LRDFN,\"SP\",+DIEN,0)) I '$L(LR0) S DDEOUT=1\n", "", "", "", "", ""], ["VPR LRCY RESULT", "63.09\n", "", "", "", "SDA\n", "Result\n", "\n- \n
\n- \n
- Extension
\n- SEQUENCE: 3
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.09
\n- ENTITY: VPR LR RESULT EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- AuthorizationTime
\n- SEQUENCE: 16
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 63.09
\n- FIELD NUMBER: .11
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(LR0),U,11)
\n \n- \n
- PerformedAt
\n- SEQUENCE: 17
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.09
\n- FIELD NUMBER: .345
\n- ENTITY: VPR LAB FACILITY
\n- GET ACTION: S VALUE=+$G(^LR(+$G(LRDFN),\"CY\",+IEN,\"RF\")) S:VALUE<1 DDEOUT=1
\n \n- \n
- EnteredBy
\n- SEQUENCE: 21
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.09
\n- FIELD NUMBER: .02
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$P($G(LR0),U,2)
\n \n- \n
- EnteredAt
\n- SEQUENCE: 22
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.09
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$$SITE^VPRSDA
\n \n- \n
- EnteredOn
\n- SEQUENCE: 23
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 63.09
\n- FIELD NUMBER: .1
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(LR0),U,10)
\n \n- \n
- FromTime
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 63.09
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=9999999-(+DIEN)
\n \n- \n
- ResultType
\n- SEQUENCE: 4
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: IM
\n \n- \n
- VerifiedBy
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.09
\n- FIELD NUMBER: .13
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$P($G(LR0),U,13)
\n \n- \n
- ResultTime
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 63.09
\n- FIELD NUMBER: .03
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(LR0),U,3)
\n \n- \n
- ResultStatus
\n- SEQUENCE: 8
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 63.09
\n- FIELD NUMBER: .11
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"F\",1:\"P\")
\n- GET ACTION: S VALUE=$P($G(LR0),U,11)
\n \n- \n
- ResultText
\n- SEQUENCE: 9
\n- ITEM TYPE: WORD PROCESSING
\n- FILE NUMBER: 63.09
\n- GET ACTION: Q D RPT^VPRSDAB(\"CY\",+DIEN)
\n \n- \n
- FileType
\n- SEQUENCE: 10
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: TXT
\n \n- \n
- DocumentName
\n- SEQUENCE: 11
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S:$P($G(LR0),U,11) VALUE=\"LR CYTOPATHOLOGY REPORT\" ;return if final
\n \n- \n
- DocumentNumber
\n- SEQUENCE: 14
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S:$P($G(LR0),U,11) VALUE=$$LRTIU^VPRSDAB(+DIEN,\"CY\") ;CY or TIU, return if final
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR LAB ORDER, providing Cytopathology results.\n
\n\n", "", "", "", "", "", "K LR0\n", "S:'$G(LRDFN) LRDFN=+$P(DIEN,\",\",2) S LR0=$G(^LR(LRDFN,\"CY\",+DIEN,0)) I '$L(LR0) S DDEOUT=1\n", "", "", "", "", ""], ["VPR LREM RESULT", "63.02\n", "", "", "", "SDA\n", "Result\n", "\n- \n
\n- \n
- Extension
\n- SEQUENCE: 3
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.02
\n- ENTITY: VPR LR RESULT EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- AuthorizationTime
\n- SEQUENCE: 16
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 63.02
\n- FIELD NUMBER: .11
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(LR0),U,11)
\n \n- \n
- PerformedAt
\n- SEQUENCE: 17
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.02
\n- FIELD NUMBER: .345
\n- ENTITY: VPR LAB FACILITY
\n- GET ACTION: S VALUE=+$G(^LR(+$G(LRDFN),\"EM\",+IEN,\"RF\")) S:VALUE<1 DDEOUT=1
\n \n- \n
- EnteredBy
\n- SEQUENCE: 21
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.02
\n- FIELD NUMBER: .02
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$P($G(LR0),U,2)
\n \n- \n
- EnteredAt
\n- SEQUENCE: 22
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.02
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$$SITE^VPRSDA
\n \n- \n
- EnteredOn
\n- SEQUENCE: 23
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 63.02
\n- FIELD NUMBER: .1
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(LR0),U,10)
\n \n- \n
- FromTime
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 63.02
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=9999999-(+DIEN)
\n \n- \n
- ResultType
\n- SEQUENCE: 4
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: IM
\n \n- \n
- VerifiedBy
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.02
\n- FIELD NUMBER: .13
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$P($G(LR0),U,13)
\n \n- \n
- ResultTime
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 63.02
\n- FIELD NUMBER: .03
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(LR0),U,3)
\n \n- \n
- ResultStatus
\n- SEQUENCE: 8
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 63.02
\n- FIELD NUMBER: .11
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"F\",1:\"P\")
\n- GET ACTION: S VALUE=$P($G(LR0),U,11)
\n \n- \n
- ResultText
\n- SEQUENCE: 9
\n- ITEM TYPE: WORD PROCESSING
\n- FILE NUMBER: 63.02
\n- GET ACTION: Q D RPT^VPRSDAB(\"EM\",+DIEN)
\n \n- \n
- FileType
\n- SEQUENCE: 10
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: TXT
\n \n- \n
- DocumentName
\n- SEQUENCE: 11
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S:$P($G(LR0),U,11) VALUE=\"LR ELECTRON MICROSCOPY REPORT\" ;return if final
\n \n- \n
- DocumentNumber
\n- SEQUENCE: 14
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S:$P($G(LR0),U,11) VALUE=$$LRTIU^VPRSDAB(+DIEN,\"EM\") ;EM or TIU, return if final
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR LAB ORDER, providing Electron Microscopy results.\n
\n\n", "", "", "", "", "", "K LR0\n", "S:'$G(LRDFN) LRDFN=+$P(DIEN,\",\",2) S LR0=$G(^LR(LRDFN,\"EM\",+DIEN,0)) I '$L(LR0) S DDEOUT=1\n", "", "", "", "", ""], ["VPR LRMI RESULT", "63.05\n", "", "", "", "SDA\n", "Result\n", "\n- \n
\n- \n
- Extension
\n- SEQUENCE: 3
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.05
\n- ENTITY: VPR LR RESULT EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- PerformedAt
\n- SEQUENCE: 17
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.05
\n- FIELD NUMBER: .345
\n- ENTITY: VPR LAB FACILITY
\n- GET ACTION: S VALUE=+$G(^LR(+$G(LRDFN),\"MI\",+IEN,\"RF\")) S:VALUE<1 DDEOUT=1
\n \n- \n
- EnteredAt
\n- SEQUENCE: 22
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.05
\n- FIELD NUMBER: .112
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$P($G(LR0),U,14) S:'VALUE VALUE=$$SITE^VPRSDA
\n \n- \n
- EnteredOn
\n- SEQUENCE: 23
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 63.05
\n- FIELD NUMBER: .1
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(LR0),U,10)
\n \n- \n
- FromTime
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 63.05
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=9999999-(+DIEN)
\n \n- \n
- EnteredBy
\n- SEQUENCE: 21
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.05
\n- FIELD NUMBER: 11.55
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$P($G(LR1),U,3)
\n \n- \n
- AuthorizationTime
\n- SEQUENCE: 16
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 63.05
\n- FIELD NUMBER: 11
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(LR1),U)
\n \n- \n
- ResultType
\n- SEQUENCE: 4
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: IM
\n \n- \n
- VerifiedBy
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.05
\n- FIELD NUMBER: .04
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$P($G(LR0),U,4)
\n \n- \n
- ResultTime
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 63.05
\n- FIELD NUMBER: .03
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(LR0),U,3) S:'VALUE VALUE=$P($G(LR1),U)
\n \n- \n
- ResultStatus
\n- SEQUENCE: 8
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 63.05
\n- FIELD NUMBER: 11.5
\n- RETURN INTERNAL VALUE: YES
\n- GET ACTION: S VALUE=$P($G(LR1),U,2)
\n \n- \n
- ResultText
\n- SEQUENCE: 9
\n- ITEM TYPE: WORD PROCESSING
\n- FILE NUMBER: 63.05
\n- GET ACTION: Q D LRPT^VPRSDA(\"MI\",+DIEN)
\n \n- \n
- FileType
\n- SEQUENCE: 10
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: TXT
\n \n- \n
- DocumentName
\n- SEQUENCE: 11
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S:$G(LR1) VALUE=\"LR MICROBIOLOGY REPORT\"
\n \n- \n
- DocumentNumber
\n- SEQUENCE: 14
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S:$G(LR1) VALUE=+DIEN_\";MI\"
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR LAB ORDER, providing Microbiology results.\n
\n\n", "", "", "", "", "", "K LR0,LR1\n", "S:'$G(LRDFN) LRDFN=+$P(DIEN,\",\",2) S LR0=$G(^LR(LRDFN,\"MI\",+DIEN,0)),LR1=$$MI1^VPRSDAB(LRDFN,+DIEN) I '$L(LR0) S DDEOUT=1\n", "", "", "", "", ""], ["VPR LR RESULT EXTENSION", "63\n", "", "", "", "SDA\n", "ResultExtension\n", "\n- \n
\n- \n
- GroupName
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P($G(LR0),U,6) ;field #.06 Accession Number
\n \n- \n
- DocumentNumbers
\n- SEQUENCE: 3
\n- ITEM TYPE: LIST
\n- LIST TYPE: ARRAY
\n- XML NAME: DocumentNumbersItem
\n- GET ACTION: D RR^VPRSDAB
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports the VPR LRxx RESULT entities. It expects the local\nvariable LR0, set to the appropriate Lab Data specimen zero node.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR ORDERABLE ITEM", "101.43\n", "", "", "", "SDA\n", "Order\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: ID
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 101.43
\n- FIELD NUMBER: .01
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA101.43
\n \n- \n
- Extension
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 101.43
\n- ENTITY: VPR ORDERABLE ITEM EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity returns an Orderable Item #101.43 entry as a coded element.\n
\n\n", "", "", "", "", "", "", "I +$G(DIEN)<1 S DDEOUT=1\n", "", "", "", "", ""], ["VPR PRF DBRS RECORD", "26.131\n", "", "", "", "SDA\n", "DBRSRecord\n", "\n- \n
\n- \n
- DBRSNumber
\n- SEQUENCE: 2
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P($G(VPRDBRS2),U)
\n \n- \n
- DBRSOtherText
\n- SEQUENCE: 3
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P($G(VPRDBRS2),U,2)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nContainer for DBRS multiple of file 26.13\n
\n\n", "", "", "", "", "", "K VPRDBRS2\n", "S VPRDBRS2=$G(DIEN) S:VPRDBRS2=\"\" DDEOUT=1\n", "", "", "", "", ""], ["VPR PRF HISTORY", "26.14\n", "", "", "", "SDA\n", "Assignment\n", "\n- \n
\n- \n
- AssignmentId
\n- SEQUENCE: 1
\n- ITEM TYPE: ID
\n \n- \n
- UpdateTime
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 26.14
\n- FIELD NUMBER: .02
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(VPRH(\"ASSIGNDT\")),U)
\n \n- \n
- Action
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 26.14
\n- FIELD NUMBER: .03
\n- GET ACTION: S VALUE=$P($G(VPRH(\"ACTION\")),U,2)
\n \n- \n
- Site
\n- SEQUENCE: 4
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 26.14
\n- FIELD NUMBER: .09
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$P($G(VPRH(\"ORIGFAC\")),U)
\n \n- \n
- Comment
\n- SEQUENCE: 5
\n- ITEM TYPE: WORD PROCESSING
\n- FILE NUMBER: 26.14
\n- FIELD NUMBER: 1
\n- GET ACTION: N I S I=0 F S I=$O(VPRH(\"COMMENT\",I)) Q:I<1 S WP(I)=$G(VPRH(\"COMMENT\",I,0))
\n \n- \n
- DBRSNumbers
\n- SEQUENCE: 6
\n- ITEM TYPE: LIST
\n- ENTITY: VPR PRF DBRS RECORD
\n- LIST TYPE: ARRAY
\n- XML NAME: DBRS
\n- GET ACTION: N I S I=0 F S I=$O(VPRH(\"DBRS\",I)) Q:I<1 S DLIST(I)=$P($G(VPRH(\"DBRS\",I)),U,1,2)
\n \n- \n
- EnteredBy
\n- SEQUENCE: 7
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 26.14
\n- FIELD NUMBER: .04
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$P($G(VPRH(\"ENTERBY\")),U)
\n \n- \n
- ApprovedBy
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 26.14
\n- FIELD NUMBER: .05
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$P($G(VPRH(\"APPRVBY\")),U)
\n \n- \n
- DocumentNumber
\n- SEQUENCE: 9
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 26.14
\n- FIELD NUMBER: .06
\n- OUTPUT TRANSFORM: S VALUE=VALUE_\";TIU\"
\n- GET ACTION: S VALUE=$P($G(VPRH(\"TIULINK\")),U)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT RECORD FLAG, to return each entry in the\nPRF Assignment History file #26.14 for the flag. It is intended to be \nused within the VPR PRF EXTENSION entity.\n
\n\n", "", "", "", "", "", "K VPRH\n", "K VPRH S:'$$GETHIST^DGPFAAH(DIEN,.VPRH,1) DDEOUT=1\n", "", "", "", "", ""], ["VPR LRCH RESULT ITEM EXTENSION", "63.04\n", "", "", "", "SDA\n", "LabResultItemExtension\n", "\n- \n
\n- \n
- CriticalHigh
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P($P(VPRLR,U,5),\"!\",5)
\n \n- \n
- CriticalLow
\n- SEQUENCE: 2
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P($P(VPRLR,U,5),\"!\",4)
\n \n- \n
- RawResultNormalRange
\n- SEQUENCE: 3
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$$REFRNG^VPRSDAB($P($P(VPRLR,U,5),\"!\",2),$P($P(VPRLR,U,5),\"!\",3))
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR LRCH RESULT ITEM. It expects the LR data node \nstring as the input ID, and parses additional data into properties.\n
\n\n", "", "", "", "", "", "K VPRLR\n", "S VPRLR=$G(DIEN)\n", "", "", "", "", ""], ["VPR PATIENT ADDRESS EXTENSION", "2\n", "", "", "", "SDA\n", "AddressExtension\n", "\n- \n
\n- \n
- BadAddressIndicator
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: N X S X=$$BADADR^DGUTL3(DIEN),VALUE=$S(X:$$EXTERNAL^DILFD(2,.121,,X),1:\"OK\") ;send \"\" to delete value
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT ADDRESS; it expects the patient DFN as \nthe ID.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR ORDERABLE ITEM CODE", "101.43\n", "", "", "", "SDA\n", "NationalItem\n", "\n- \n
\n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 101.43
\n- FIELD NUMBER: 4
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE=\"CPT\":\"CPT-4\",1:VALUE)
\n \n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 101.43
\n- FIELD NUMBER: 3
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR ORDERABLE ITEM, returning the national code and\ncoding system provided by the application in the Orderable Item file \n#101.43 when available.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR ORDERABLE ITEM EXTENSION", "101.43\n", "", "", "", "SDA\n", "OrderExtension\n", "\n- \n
\n- \n
- NationalItem
\n- SEQUENCE: 1
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 101.43
\n- ENTITY: VPR ORDERABLE ITEM CODE
\n- GET ACTION: S VALUE=+$G(DIEN)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR ORDERABLE ITEM.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR SIGNER EXTENSION", "200\n", "", "", "", "SDA\n", "CareProviderExtension\n", "\n- \n
\n- \n
- Title
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 200
\n- FIELD NUMBER: 8
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR SIGNER, and expects the New Person file #200\nien as the ID.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR VISIT STUB", "9000010\n", "", "", "", "SDA\n", "Encounter\n", "\n- \n
\n- \n
- EncounterNumber
\n- SEQUENCE: 3
\n- ITEM TYPE: ID
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports the removal of an entry from the Encounter\ncontainer in HealthShare when a VISIT (#900010) record has been\ndeleted in VistA; it returns only the EncounterNumber property.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR LAB URGENCY", "62.05\n", "", "", "", "SDA\n", "Priority\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 62.05
\n- FIELD NUMBER: 3
\n \n- \n
- Description
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 62.05
\n- FIELD NUMBER: .01
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA62.05
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR VFILE DELETE", "", "", "", "", "SDA\n", "VFile\n", "\n- \n
\n- \n
- ExternalId
\n- SEQUENCE: 1
\n- ITEM TYPE: ID
\n- OUTPUT TRANSFORM: S VALUE=VALUE_$S(VPRVFN=9000010.07:\";POV\",VPRVFN=9000010.18:\";PX\",VPRVFN=9000010.23:\";HF\",1:\"\")
\n \n- \n
- EncounterNumber
\n- SEQUENCE: 2
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$G(VPRVST)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity is called from the Entry Action of the V File entities when a\nrecord ien and visit number for matching in HS to remove the record.\nrecord has been deleted. It CANNOT be called independently.\n \nIf the ID requested is in the form "IEN~VISIT", VDEL^VPRSDAV is called to\nset the following variables:\n VPRVST = visit# (second ~-piece of ID)\n VPRFN = default file# of Entity\n ID = record IEN (first ~-piece of ID)\nControl then passes to this Entity, to return a stub containing only the\n
\n\n", "", "", "", "", "", "K VPRVST,VPRVFN,VPRVT\n", "S DNAME=$G(^DDE(VPRVT,.1))\n", "", "", "", "", ""], ["VPR LAB FACILITY", "4\n", "", "", "", "SDA\n", "Organization\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 4
\n- FIELD NUMBER: 99
\n- GET ACTION: S VALUE=$$STA^XUAF4(DIEN)
\n \n- \n
- Description
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 4
\n- FIELD NUMBER: .01
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA4
\n \n- \n
- Address
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 4
\n- ENTITY: VPR FACILITY ADDRESS
\n- GET ACTION: S VALUE=DIEN
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR LAB ORDER, to return detailed information about\nthe performing and reporting labs. It expects an Institution file #4 ien\nand returns the facility address in addition to the name and station\nnumber.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR ADMISSION MOVEMENT", "405\n", "", "", "", "SDA\n", "Movement\n", "\n- \n
\n- \n
- MovementNumber
\n- SEQUENCE: 1
\n- ITEM TYPE: ID
\n \n- \n
- EnteredBy
\n- SEQUENCE: 12
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 405
\n- FIELD NUMBER: 100
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n \n- \n
- EnteredOn
\n- SEQUENCE: 13
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 405
\n- FIELD NUMBER: 101
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n- \n
- SpecialtyMovement
\n- SEQUENCE: 5
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$G(VPRDGTS)
\n \n- \n
- PrimaryClinician
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 405
\n- FIELD NUMBER: .08
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S IEN=+$G(VPRDGTS) S:IEN<1 DDEOUT=1 ;VALUE=$P(VPRDGPM,U,8)
\n \n- \n
- SpecMovementType
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 405
\n- FIELD NUMBER: .04
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR MAS MOVEMENT TYPE
\n- GET ACTION: S IEN=+$G(VPRDGTS) S:IEN<1 DDEOUT=1
\n \n- \n
- MovementTime
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 405
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P(VPRDGPM,U)
\n \n- \n
- TransactionType
\n- SEQUENCE: 3
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 405
\n- FIELD NUMBER: .02
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR MAS TRANSACTION TYPE
\n- GET ACTION: S VALUE=$P(VPRDGPM,U,2)
\n \n- \n
- MovementType
\n- SEQUENCE: 4
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 405
\n- FIELD NUMBER: .04
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR MAS MOVEMENT TYPE
\n- GET ACTION: S VALUE=$P(VPRDGPM,U,4)
\n \n- \n
- AssignedWard
\n- SEQUENCE: 7
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 405
\n- FIELD NUMBER: .06
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR WARD LOCATION
\n- GET ACTION: S VALUE=$P(VPRDGPM,U,6)
\n \n- \n
- AssignedRoomBed
\n- SEQUENCE: 8
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 405
\n- FIELD NUMBER: .07
\n \n- \n
- AttendingClinician
\n- SEQUENCE: 10
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 405
\n- FIELD NUMBER: .19
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S IEN=+$G(VPRDGTS) S:IEN<1 DDEOUT=1 ;VALUE=$P(VPRDGPM,U,19)
\n \n- \n
- Specialty
\n- SEQUENCE: 11
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 405
\n- FIELD NUMBER: .09
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR SPECIALTY
\n- GET ACTION: S IEN=+$G(VPRDGTS) S:IEN<1 DDEOUT=1 ;VALUE=$P(VPRDGPM,U,9)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR ADMISSION EXTENSION, providing a single patient \nmovement.\n
\n\n", "", "", "", "", "", "K VPRDGPM,VPRDGTS\n", "S VPRDGTS=$P($G(DIEN),\";\",2),DIEN=+$G(DIEN),VPRDGPM=$G(^DGPM(DIEN,0))\n", "", "", "", "", ""], ["VPR EDP CODE", "233.1\n", "", "", "", "SDA\n", "CodeTable\n", "\n- \n
\n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA233.1
\n \n- \n
- Code
\n- SEQUENCE: 2
\n- ITEM TYPE: ID
\n \n- \n
- Description
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 233.1
\n- FIELD NUMBER: .02
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR EDP LOG that populates the Encounter container.\nIt returns an item from the TRACKING CODE (#233.1) file as a coded \nelement. Names of entries here are stored in the format of:\n edp.type.value\n stn.type.value\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR EDP EXTENSION", "230\n", "", "", "", "SDA\n", "EncounterExtension\n", "\n- \n
\n- \n
- Cpt
\n- SEQUENCE: 1
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.18
\n- ENTITY: VPR CPT
\n- GET ACTION: S VALUE=$$CPT^VPRDVSIT(+$G(VPRV)),VPRDT=$P($G(@VPRVST@(0)),U),VPRVAL=VALUE
\n \n- \n
- VisitID
\n- SEQUENCE: 9
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 230
\n- FIELD NUMBER: .12
\n- EXTENDED POINTER LKUP: 15001
\n- GET ACTION: S VALUE=$P($G(@VPRVST@(150)),U)
\n \n- \n
- IsServiceConnected
\n- SEQUENCE: 10
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 230
\n- FIELD NUMBER: .12
\n- EXTENDED POINTER LKUP: 80001
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",1:\"false\")
\n- GET ACTION: S VALUE=$P($G(@VPRVST@(800)),U)
\n \n- \n
- Package
\n- SEQUENCE: 11
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 230
\n- FIELD NUMBER: .12
\n- EXTENDED POINTER LKUP: 81202
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PACKAGE
\n- GET ACTION: S VALUE=$P($G(@VPRVST@(812)),U,2)
\n \n- \n
- DataSource
\n- SEQUENCE: 12
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 230
\n- FIELD NUMBER: .12
\n- EXTENDED POINTER LKUP: 81203
\n \n- \n
- Status
\n- SEQUENCE: 13
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 230
\n- FIELD NUMBER: 3.2
\n- EXTENDED POINTER LKUP: .02
\n \n- \n
- StopCode
\n- SEQUENCE: 2
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 230
\n- FIELD NUMBER: .12
\n- EXTENDED POINTER LKUP: .08
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- OUTPUT TRANSFORM: S VALUE=$$AMIS^VPRDVSIT(VALUE)_\"^AMIS\"
\n- GET ACTION: S VALUE=$P($G(@VPRVST@(0)),U,8)
\n \n- \n
- DispositionTime
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 230
\n- FIELD NUMBER: 1.3
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(EDP1),U,3)
\n \n- \n
- Acuity
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 230
\n- FIELD NUMBER: 3.3
\n- EXTENDED POINTER LKUP: .03
\n \n- \n
- Cpt
\n- SEQUENCE: 1.1
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: I VPRVAL=\"\" N SEQ S SEQ=+$G(FILTER(\"sequence\")) S:$P($G(^XTMP(\"VPR-\"_SEQ,+$G(DIEN))),U,6) VALUE=$$NULL^VPRSDA(3) ;delete values
\n \n- \n
- Complaint
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 230
\n- FIELD NUMBER: 2
\n \n- \n
- Comments
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 230
\n- FIELD NUMBER: 3.8
\n- GET ACTION: S VALUE=$P($G(EDP3),U,8)
\n \n- \n
- IsClosed
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 230
\n- FIELD NUMBER: .07
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",1:\"false\")
\n- GET ACTION: S VALUE=$P($G(EDP0),U,7)
\n \n- \n
- Eligibility
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 230
\n- FIELD NUMBER: .12
\n- EXTENDED POINTER LKUP: .21
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR ELIGIBILITY
\n- GET ACTION: S VALUE=$P($G(@VPRVST@(0)),U,21)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR EDP LOG. It uses VPRVST and the ^TMP("PXKENC",$J) \narray, as defined in VPR EDP LOG.\n\n\n", "", "", "", "", "", "K VPRDT,VPRVAL\n", "", "", "", "", "", ""], ["VPR EDP LOG", "230\n", "", "", "", "SDA\n", "Encounter\n", "\n- \n
\n- \n
- Extension
\n- SEQUENCE: 2
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 230
\n- ENTITY: VPR EDP EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- SeparationMode
\n- SEQUENCE: 29
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 230
\n- FIELD NUMBER: 1.2
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR EDP CODE
\n- GET ACTION: S VALUE=$P($G(EDP1),U,2)
\n \n- \n
- Priority
\n- SEQUENCE: 35
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 230
\n- FIELD NUMBER: .12
\n- EXTENDED POINTER LKUP: 15003
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- OUTPUT TRANSFORM: S VALUE=VALUE_U_$$EXTERNAL^DILFD(9000010,15003,,VALUE)
\n- GET ACTION: S VALUE=$P($G(@VPRVST@(150)),U,3) S:VALUE=\"\" VALUE=\"P\"
\n \n- \n
- EnteredBy
\n- SEQUENCE: 41
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 230
\n- FIELD NUMBER: .12
\n- EXTENDED POINTER LKUP: .23
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$P($G(@VPRVST@(0)),U,23)
\n \n- \n
- EnteredOn
\n- SEQUENCE: 43
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 230
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(EDP0),U)
\n \n- \n
- EnteredAt
\n- SEQUENCE: 42
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 230
\n- FIELD NUMBER: .02
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$P($G(EDP0),U,2)
\n \n- \n
- FromTime
\n- SEQUENCE: 44
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 230
\n- FIELD NUMBER: .08
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(EDP0),U,8)
\n \n- \n
- ToTime
\n- SEQUENCE: 45
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 230
\n- FIELD NUMBER: .09
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(EDP0),U,9)
\n \n- \n
- EncounterNumber
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 230
\n- FIELD NUMBER: .12
\n- RETURN INTERNAL VALUE: YES
\n- GET ACTION: S VALUE=$P($G(EDP0),U,12)
\n \n- \n
- EncounterType
\n- SEQUENCE: 5
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: E
\n \n- \n
- EncounterCodedType
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 230
\n- FIELD NUMBER: .12
\n- EXTENDED POINTER LKUP: .07
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: N X S X=$P($G(@VPRVST@(0)),U,7) S:$L(X) VALUE=X_U_$$EXTERNAL^DILFD(9000010,.07,,X)
\n \n- \n
- ConsultingClinicians
\n- SEQUENCE: 9
\n- ITEM TYPE: LIST
\n- ENTITY: VPR PROVIDER
\n- LIST TYPE: ARRAY
\n- XML NAME: CareProvider
\n- GET ACTION: N I,P S I=0 F P=5,6,7 I $P($G(EDP3),U,P) S I=I+1,DLIST(I)=$P(EDP3,U,P)_U_$S(P=5:\"PRIMARY\",1:\"SECONDARY\")
\n \n- \n
- AccountingNumber
\n- SEQUENCE: 11
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 230
\n- FIELD NUMBER: .12
\n- EXTENDED POINTER LKUP: .26
\n- GET ACTION: S VALUE=$P($G(@VPRVST@(0)),U,26)
\n \n- \n
- AdmissionSource
\n- SEQUENCE: 14
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 230
\n- FIELD NUMBER: .1
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR EDP CODE
\n- GET ACTION: S VALUE=$P($G(EDP0),U,10)
\n \n- \n
- AdmitReason
\n- SEQUENCE: 21
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 230
\n- FIELD NUMBER: 1.1
\n- ENTITY: VPR TEXT ONLY
\n- GET ACTION: S VALUE=$P($G(EDP1),U)
\n \n- \n
- HealthCareFacility
\n- SEQUENCE: 22
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 230
\n- FIELD NUMBER: .14
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR LOCATION
\n- GET ACTION: S VALUE=$P($G(EDP0),U,14)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populates the Encounter container in HealthShare with\nENCEVENT^PXAPI call and VA FileMan to extract Visit and ED Log data. \nData in SDA is maintained by monitoring the PXK VISIT DATA EVENT\nprotocol event and the AVPR index on file #230.\nemergency visits from the EDP LOG (#230) file; it expects the record\nIEN as the ID (DIEN).\n \nControl is passed to this entity from the GET ID ACTION of VPR VISIT,\nwhich resets DIEN to the #230 IEN of the Visit's corresponding EDP Log\nfile entry. It is not intended to be called independently.\n \nThis entity is supported by code in routine VPRSDAVF, which uses the\n
\n\n", "", "", "", "", "", "K:$D(VPRVST) @VPRVST K EDP0,EDP1,EDP3,VPRV,VPRVST\n", "D EDP1^VPRSDAV\n", "EDPQ^VPRSDAV\n", "", "", "", ""], ["VPR MAS MOVEMENT TYPE", "405.1\n", "", "", "", "SDA\n", "MovementType\n", "\n- \n
\n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA405.1
\n \n- \n
- OriginalText
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 405.1
\n- FIELD NUMBER: .03
\n \n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: ID
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 405.1
\n- FIELD NUMBER: .01
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity returns a FACILITY MOVEMENT TYPE (#405.1) as a coded element;\nit expects the record ien as the ID.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR MAS TRANSACTION TYPE", "405.3\n", "", "", "", "SDA\n", "TransactionType\n", "\n- \n
\n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA405.3
\n \n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: ID
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 405.3
\n- FIELD NUMBER: .01
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity returns a MAS MOVEMENT TRANSACTION TYPE (#405.3) as a coded\nelement; it expects the record ien as the ID.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR WARD LOCATION", "42\n", "", "", "", "SDA\n", "WardLocation\n", "\n- \n
\n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA42
\n \n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: ID
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 42
\n- FIELD NUMBER: .01
\n \n- \n
- HospLocationId
\n- SEQUENCE: 8
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 42
\n- FIELD NUMBER: 44
\n- RETURN INTERNAL VALUE: YES
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity returns a WARD LOCATION (#42) as a coded element; it expects\nthe record ien as the ID.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR SCH ADM EXTENSION", "41.1\n", "", "", "", "SDA\n", "AppointmentExtension\n", "\n- \n
\n- \n
- ExpectedLOS
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 41.1
\n- FIELD NUMBER: 3
\n- GET ACTION: S VALUE=$P($G(VPRADM),U,3)
\n \n- \n
- CancelReason
\n- SEQUENCE: 10
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 41.1
\n- FIELD NUMBER: 15
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE=\"1\":\"EXPIRED\",VALUE=\"2\":\"OVERDUE\",VALUE=\"3\":\"REFUSED ADMISSION\",VALUE=\"4\":\"NO AVAILABLE BEDS\",VALUE=\"5\":\"OTHER\",1:\"\")
\n- GET ACTION: S VALUE=$P(VPRADM,U,15)
\n \n- \n
- AdmittingDX
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 41.1
\n- FIELD NUMBER: 4
\n- GET ACTION: S VALUE=$P($G(VPRADM),U,4)
\n \n- \n
- IsSurgeryPlanned
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 41.1
\n- FIELD NUMBER: 6
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE=\"Y\":\"true\",VALUE=\"N\":\"false\",1:\"\")
\n- GET ACTION: S VALUE=$P($G(VPRADM),U,6)
\n \n- \n
- Specialty
\n- SEQUENCE: 7
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 41.1
\n- FIELD NUMBER: 9
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR SPECIALTY
\n- GET ACTION: S VALUE=$P($G(VPRADM),U,9)
\n \n- \n
- ServiceStatus
\n- SEQUENCE: 2
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: ADMISSION
\n \n- \n
- PatientStatus
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: INPATIENT
\n \n- \n
- AssociatedEncounterNumber
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 41.1
\n- FIELD NUMBER: 17
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$VNUM^VPRSDAV(VALUE)
\n- GET ACTION: S VALUE=$P($G(VPRADM),U,17)
\n \n- \n
- CancelledOn
\n- SEQUENCE: 8
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 41.1
\n- FIELD NUMBER: 13
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P(VPRADM,U,13)
\n \n- \n
- CancelledBy
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 41.1
\n- FIELD NUMBER: 14
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$P(VPRADM,U,14)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR SCHEDULED ADMISSION.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR LRCH RESULT", "63.04\n", "", "", "", "SDA\n", "Result\n", "\n- \n
\n- \n
- Extension
\n- SEQUENCE: 3
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.04
\n- ENTITY: VPR LRCH RESULT EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- PerformedAt
\n- SEQUENCE: 17
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.04
\n- FIELD NUMBER: .345
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR LAB FACILITY
\n- GET ACTION: S VALUE=+$G(^LR(+$G(LRDFN),\"CH\",+IEN,\"RF\")) S:VALUE<1 DDEOUT=1
\n \n- \n
- EnteredAt
\n- SEQUENCE: 22
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.04
\n- FIELD NUMBER: .112
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$P($G(LR0),U,14) S:'VALUE VALUE=$G(LRFAC)
\n \n- \n
- ResultTime
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 63.04
\n- FIELD NUMBER: .03
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(LR0),U,3)
\n \n- \n
- ResultStatus
\n- SEQUENCE: 8
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 63.04
\n- FIELD NUMBER: .03
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"F\",1:\"P\") ;Date Rpt Comp = Final
\n- INPUT TRANSFORM: S VALUE=\"\"
\n- GET ACTION: S VALUE=$P($G(LR0),U,3)
\n \n- \n
- ResultType
\n- SEQUENCE: 4
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: AT
\n \n- \n
- VerifiedBy
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.04
\n- FIELD NUMBER: .04
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$G(LRVER) S:'VALUE VALUE=$P($G(LR0),U,4)
\n \n- \n
- Comments
\n- SEQUENCE: 15
\n- ITEM TYPE: WORD PROCESSING
\n- FILE NUMBER: 63.04
\n- FIELD NUMBER: .99
\n- WORD WRAP: 1
\n- GET ACTION: N I S I=0 F S I=$O(^LR(+$G(LRDFN),\"CH\",+IEN,1,I)) S:(I=\"\")&'$D(WP) DDEOUT=1 Q:I<1 S WP(I)=$P($G(^(I,0)),U)
\n \n- \n
- ResultItems
\n- SEQUENCE: 5
\n- ITEM TYPE: LIST
\n- ENTITY: VPR LRCH RESULT ITEM
\n- LIST TYPE: ARRAY
\n- XML NAME: LabResultItem
\n- GET ACTION: D CH^VPRSDAB(+DATA) ;build DLIST(60 ien) = CH data node#,LRIDT,LRDFN
\n \n- \n
- ExternalId
\n- SEQUENCE: 24
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=\"CH;\"_+DIEN
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity expects ID = IENS string of the desired accession in the Chem\nsub-file #63.04 ('IDT,LRDFN'), and DATA = #60 ien of the ordered test or \npanel. It is intended to be used with VPR LAB ORDER.\n\n\n", "", "", "", "", "", "K LR0,LRVER,LRFAC\n", "S LR0=$G(^LR(LRDFN,\"CH\",+DIEN,0)) I '$L(LR0) S DDEOUT=1\n", "", "", "", "", ""], ["VPR VCPT EXTENSION", "9000010.18\n", "", "", "", "SDA\n", "ProcedureExtension\n", "\n- \n
\n- \n
- Category
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: PX
\n \n- \n
- Comments
\n- SEQUENCE: 12
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.18
\n- FIELD NUMBER: 81101
\n- GET ACTION: S VALUE=$G(VPRCPT(\"COMMENTS\")) I VALUE=\"\",$G(VPRSK) S FILE=9000010.12 ;skin test
\n \n- \n
- CptModifiers
\n- SEQUENCE: 10
\n- ITEM TYPE: LIST
\n- FILE NUMBER: 9000010.18
\n- FIELD NUMBER: .01
\n- ENTITY: VPR CPT MODIFIER
\n- LIST TYPE: ARRAY
\n- XML NAME: CptModifier
\n- GET ACTION: N I S I=0 F S I=$O(^AUPNVCPT(DIEN,1,I)) Q:I<1 S DLIST(I)=+$G(^(I,0))
\n \n- \n
- IsPrimary
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.18
\n- FIELD NUMBER: .07
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE=\"Y\":\"true\",VALUE=\"N\":\"false\",1:\"\")
\n- GET ACTION: S VALUE=$G(VPRCPT(\"PRINCIPAL PROCEDURE\"))
\n \n- \n
- Location
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.18
\n- FIELD NUMBER: .03
\n- EXTENDED POINTER LKUP: .22
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR LOCATION
\n- GET ACTION: S VALUE=$P(VPRVST0,U,22)
\n \n- \n
- OrderNumber
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.18
\n- FIELD NUMBER: .17
\n- RETURN INTERNAL VALUE: YES
\n \n- \n
- Quantity
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.18
\n- FIELD NUMBER: .16
\n- GET ACTION: S VALUE=$G(VPRCPT(\"QUANTITY\"))
\n \n- \n
- Interpretation
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.12
\n- FIELD NUMBER: .04
\n- GET ACTION: N ITM S ITM=+$G(^AUPNVCPT(DIEN,0)) I ITM?5N S VPRSK=$$DUP^VPRSDAVF(+$G(VPRVST),ITM,\"SK\") S:VPRSK IEN=VPRSK I 'VPRSK S DDEOUT=1
\n \n- \n
- DataSource
\n- SEQUENCE: 8
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.18
\n- FIELD NUMBER: 81203
\n- GET ACTION: S VALUE=$P($G(VPRCPT(\"DATA SOURCE\")),U,2)
\n \n- \n
- Package
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.18
\n- FIELD NUMBER: 81202
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PACKAGE
\n- GET ACTION: S VALUE=$P($G(VPRCPT(\"PACKAGE\")),U)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR V CPT; it expects VPRVST, VPRVST0, and the VPRCPT\narray to be defined.\n
\n\n", "", "", "", "", "", "K VPRSK\n", "", "", "", "", "", ""], ["VPR VACC HF REFUSAL", "9000010.23\n", "", "", "", "SDA\n", "Vaccination\n", "\n- \n
\n- \n
- FillerId
\n- SEQUENCE: 3
\n- ITEM TYPE: ID
\n \n- \n
- EncounterNumber
\n- SEQUENCE: 61
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: .03
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S:'$D(^AUPNVSIT(VALUE,0)) VALUE=\"\"
\n- GET ACTION: S VALUE=$G(VPRVST)
\n \n- \n
- OrderedBy
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: 1202
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$P($G(VPRHF(\"ORDERING PROVIDER\")),U)
\n \n- \n
- ExternalId
\n- SEQUENCE: 60
\n- ITEM TYPE: ID
\n- OUTPUT TRANSFORM: S VALUE=VALUE_\";HF\"
\n \n- \n
- Extension
\n- SEQUENCE: 62
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.23
\n- ENTITY: VPR VACC HF EXT
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- EnteredBy
\n- SEQUENCE: 30
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: .03
\n- EXTENDED POINTER LKUP: .23
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$P(VPRVST0,U,23)
\n \n- \n
- EnteredAt
\n- SEQUENCE: 31
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: .03
\n- EXTENDED POINTER LKUP: .06
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$P(VPRVST0,U,6) S:'VALUE VALUE=$$SITE^VPRSDA
\n \n- \n
- EnteredOn
\n- SEQUENCE: 32
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: .03
\n- EXTENDED POINTER LKUP: .01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P(VPRVST0,U)
\n \n- \n
- FromTime
\n- SEQUENCE: 33
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: 1201
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRHF(\"EVENT DATE AND TIME\")) S:VALUE<1 VALUE=$P(VPRVST0,U) S VPRDT=$G(VALUE)
\n \n- \n
- ToTime
\n- SEQUENCE: 34
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: 1201
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRDT) S:VALUE<1 DDEOUT=1
\n \n- \n
- OrderItem
\n- SEQUENCE: 35
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: N HF,NM,CVX S HF=+$G(^AUPNVHF(DIEN,0)),NM=$$GET1^DIQ(9000010.23,DIEN,.01),CVX=$P(NM,\" CVX \",2),VALUE=$S(CVX:CVX_U_NM_\"^CVX\",1:HF_U_NM_\"^VA9999999.64\")
\n \n- \n
- Administrations
\n- SEQUENCE: 53
\n- ITEM TYPE: LIST
\n- ENTITY: VPR VACC HF ADMIN
\n- LIST TYPE: ARRAY
\n- XML NAME: Administration
\n- GET ACTION: S DLIST(1)=DIEN
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports the temporary placement of vaccination refusals in\nthe V HEALTH FACTOR (#9000010.23) file, with the record IEN as the ID.\n \nThis entity is supported by code in routine VPRSDAVF, which uses the\n^PXRMINDX reminder index and VHF^PXPXRM call to extract V HEALTH FACTOR\ndata. Data in SDA is maintained by monitoring the PXK VISIT DATA EVENT\nprotocol event.\n
\n\n", "", "", "", "", "", "K VPRHF,VPRVST,VPRVST0\n", "D HF1^VPRSDAVF\n", "HFCVR^VPRSDAVF\n", "", "", "", ""], ["VPR VACC HF ADMIN", "9000010.23\n", "", "", "", "SDA\n", "Administration\n", "\n- \n
\n- \n
- AdministeringProvider
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: 1204
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$P($G(VPRHF(\"ENCOUNTER PROVIDER\")),U)
\n \n- \n
- AdministeredAtLocation
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: .03
\n- EXTENDED POINTER LKUP: .22
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR LOCATION
\n- GET ACTION: S VALUE=$P(VPRVST0,U,22)
\n \n- \n
- AdministrationStatus
\n- SEQUENCE: 7
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.23
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=\"R^REFUSED\"
\n \n- \n
- RefusalReason
\n- SEQUENCE: 13
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: 81101
\n- ENTITY: VPR TEXT ONLY
\n- GET ACTION: S VALUE=$G(VPRHF(\"COMMENTS\"))
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR VACC HF REFUSAL, populating the Administrations\nproperty.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR PACKAGE", "9.4\n", "", "", "", "SDA\n", "Package\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9.4
\n- FIELD NUMBER: 1
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9.4
\n- FIELD NUMBER: .01
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA9.4
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity returns a reference to the VistA PACKAGE (#9.4) file as a\ncoded element. It expects the record IEN as the ID, but returns the \nPrefix (name-space) as the Code for HealthShare.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR VACC HF EXT", "9000010.23\n", "", "", "", "SDA\n", "VaccinationExtension\n", "\n- \n
\n- \n
- DataSource
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: 81203
\n \n- \n
- Package
\n- SEQUENCE: 2
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: 81202
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PACKAGE
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR VACC HF REFUSAL.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR ALLERGY SIGN EXTENSION", "120.8\n", "", "", "", "SDA\n", "ReactionExtension\n", "\n- \n
\n- \n
- EnteredOn
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$$DATE^VPRSDA(DIEN)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR ALLERGY SIGN/SYMPTOM. It expects the Reaction Date\nas the input string, to return just that one additional data element. \n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR ALLERGY OBSERVATION", "120.85\n", "", "", "", "SDA\n", "AllergyObservation\n", "\n- \n
\n- \n
- ObservationTime
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 120.85
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRDT) S:VALUE=\"\" DDEOUT=1
\n \n- \n
- Severity
\n- SEQUENCE: 2
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 120.85
\n- FIELD NUMBER: 14.5
\n- ENTITY: VPR CODE TABLE
\n- OUTPUT TRANSFORM: S VALUE=$$SNOMED^VPRSDAL(VALUE)
\n- GET ACTION: S VALUE=$G(VPRSEV) S:VALUE=\"\" DDEOUT=1
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR ALLERGY, adding a list of observation dates and \nseverities to VPR ALLERGY EXTENSION. It expects a string in the form \nID=date^severity, both in internal format.\n
\n\n", "", "", "", "", "", "K VPRDT,VPRSEV\n", "S VPRDT=+$G(DIEN),VPRSEV=$P($G(DIEN),U,2)\n", "", "", "", "", ""], ["VPR REFERRAL ACTIVITY", "123.02\n", "", "", "", "SDA\n", "RequestAction\n", "\n- \n
\n- \n
- Action
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 123.02
\n- FIELD NUMBER: 1
\n- GET ACTION: S VALUE=$P($G(VPRACT),U,2)
\n \n- \n
- ActionDate
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 123.02
\n- FIELD NUMBER: 2
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(VPRACT),U,3)
\n \n- \n
- Provider
\n- SEQUENCE: 3
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 123.02
\n- FIELD NUMBER: 3
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$P($G(VPRACT),U,4)
\n \n- \n
- EnteredBy
\n- SEQUENCE: 4
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 123.02
\n- FIELD NUMBER: 4
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$P($G(VPRACT),U,5)
\n \n- \n
- ActionId
\n- SEQUENCE: 5
\n- ITEM TYPE: ID
\n \n- \n
- Comment
\n- SEQUENCE: 6
\n- ITEM TYPE: WORD PROCESSING
\n- FILE NUMBER: 123.02
\n- FIELD NUMBER: 5
\n- GET ACTION: M WP=VPRCACT(+DIEN,1) S:'$O(WP(0)) DDEOUT=1
\n \n- \n
- ForwardedFrom
\n- SEQUENCE: 7
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 123.02
\n- FIELD NUMBER: 6
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CONSULT SERVICE
\n- GET ACTION: S VALUE=$P($G(VPRACT),U,6)
\n \n- \n
- PriorProvider
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 123.02
\n- FIELD NUMBER: 7
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$P($G(VPRACT),U,7)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR REFERRAL EXTENSION, returning an entry in the \nRequest Processing Activity multiple of the Request/Consultation file \n#123. It expects the VPRCACT array, defined in the GET ACTION field \nof the Extension property RequestActions.\n
\n\n", "", "", "", "", "", "K VPRACT\n", "S VPRACT=$G(VPRCACT(+DIEN,0))\n", "", "", "", "", ""], ["VPR PATIENT TEMP ADDRESS", "2\n", "", "", "", "SDA\n", "Address\n", "\n- \n
\n- \n
- Street
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .1211
\n- OUTPUT TRANSFORM: N I F I=2,3 S:$L($P(VATEMP,U,I)) VALUE=VALUE_\";\"_$P(VATEMP,U,I)
\n- GET ACTION: S VALUE=$P($G(VATEMP),U)
\n \n- \n
- Extension
\n- SEQUENCE: 1
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- ENTITY: VPR PAT TEMP ADD EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- City
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .1214
\n- ENTITY: VPR CODE ONLY
\n- OUTPUT TRANSFORM: S VALUE=$E(VALUE,1,50)
\n- GET ACTION: S VALUE=$P($G(VATEMP),U,4)
\n \n- \n
- State
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .1215
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR STATE
\n- GET ACTION: S VALUE=$S(VATEMP(\"HasCountry\")=1:VATEMP(\"Province\"),1:$P($G(VATEMP),U,5))
\n \n- \n
- Zip
\n- SEQUENCE: 7
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .1216
\n- ENTITY: VPR CODE ONLY
\n- GET ACTION: S VALUE=$S(VATEMP(\"HasCountry\")=1:VATEMP(\"PostalCode\"),$P($G(VATEMP),U,12)'=\"\":$P(VATEMP,U,12),1:$P($G(VATEMP),U,6))
\n \n- \n
- Country
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .1223
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR COUNTRY
\n \n- \n
- County
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .12111
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=$$COUNTY^VPRSDA($P($G(VATEMP),U,5),$P($G(VATEMP),U,11)) S:'VALUE DDEOUT=1 I VALUE S VALUE=VALUE_\"^VA5.01\" ;subfile ptr, can't use FM
\n \n- \n
- FromTime
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .1217
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(VATEMP),U,7)
\n \n- \n
- ToTime
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .1218
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(VATEMP),U,8)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT, and expects the Patient file #2 ien\nas the ID.\n
\n\n", "", "", "", "", "S DFN=ID,VATEMP=$G(^DPT(DFN,.121))\n", "K VATEMP,VPR(\"ForeignCountryFlag\")\n", "D TEMP^VPRSDAD(DFN) I '$L($P($G(VATEMP),U)) S DDEOUT=1 ;no temp address\n", "", "", "", "", ""], ["VPR PAT TEMP ADD EXTENSION", "2\n", "", "", "", "SDA\n", "AddressExtension\n", "\n- \n
\n- \n
- Phone
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .1219
\n \n- \n
- IsTemporary
\n- SEQUENCE: 2
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: true
\n \n- \n
- IsActive
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .12105
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE=\"Y\":\"true\",1:\"false\")
\n- GET ACTION: S VALUE=$P($G(VATEMP),U,9)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT TEMP ADDRESS; it expects the patient DFN \nas the ID.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR LRCH RESULT ITEM", "63.04\n", "", "", "", "SDA\n", "ResultItem\n", "\n- \n
\n- \n
- ObservationTime
\n- SEQUENCE: 18
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 63.04
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=9999999-$P(IEN,\",\",2)
\n \n- \n
- Extension
\n- SEQUENCE: 3
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.04
\n- ENTITY: VPR LRCH RESULT ITEM EXTENSION
\n- GET ACTION: S VALUE=$G(LRNODE)
\n \n- \n
- TestItemStatus
\n- SEQUENCE: 11
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$S($P(LRNODE,U)[\"pending\":\"P\",1:\"F\")
\n \n- \n
- ResultValue
\n- SEQUENCE: 5
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P(LRNODE,U)
\n \n- \n
- ResultValueUnits
\n- SEQUENCE: 7
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P($P(LRNODE,U,5),\"!\",7)
\n \n- \n
- ResultInterpretation
\n- SEQUENCE: 9
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: N X S X=$P(LRNODE,U,2) S:$L(X) VALUE=$E(X)_$S($E(X,2)=\"*\":$E(X),1:\"\")
\n \n- \n
- ResultNormalRange
\n- SEQUENCE: 8
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: N X,LOW,HI S X=$P(LRNODE,U,5),LOW=$P(X,\"!\",2),HI=$P(X,\"!\",3),VALUE=\"\" I $$VALRNG^VPRSDAB(LOW,HI) S VALUE=$$REFRNG^VPRSDAB(LOW,HI)
\n \n- \n
- TestItemCode
\n- SEQUENCE: 4
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.04
\n- ENTITY: VPR LAB TEST
\n- GET ACTION: S VALUE=$P($P(LRNODE,U,3),\"!\",7) S:VALUE=\"\" VALUE=$$TEST^LRPXAPIU(+IEN)
\n \n- \n
- PerformedAt
\n- SEQUENCE: 13
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.04
\n- ENTITY: VPR LAB FACILITY
\n- GET ACTION: S VALUE=$P(LRNODE,U,9),LRFAC=VALUE
\n \n- \n
- ResultCodedValue
\n- SEQUENCE: 17
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.04
\n- ENTITY: VPR LOINC
\n- GET ACTION: S VALUE=$P($P(LRNODE,U,3),\"!\",3)
\n \n- \n
- ExternalId
\n- SEQUENCE: 23
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=\"CH;\"_+$P(DIEN,\",\",2)_\";\"_+DIEN
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity expects ID = IENS string of the desired test result in the \nChem sub-file #63.04 ('DN,IDT,LRDFN'). It is intended to be used with VPR \nLRCH RESULT.\n\n\n", "", "", "", "", "", "K LRNODE\n", "D LRVALUE^LRPXAPI(.LRNODE,+$P(DIEN,\",\",3),+$P(DIEN,\",\",2),+DIEN) S LRVER=$P(LRNODE,\"|\",4) S:LRNODE=\"\" DDEOUT=1\n", "", "", "", "", ""], ["VPR PATIENT ECON2 ADDRESS", "2\n", "", "", "", "SDA\n", "Address\n", "\n- \n
\n- \n
- Street
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .3313
\n- GET ACTION: S VALUE=$G(VAOA(1)) I $L(VALUE) N I F I=2,3 S:$L($G(VAOA(I))) VALUE=VALUE_\";\"_VAOA(I)
\n \n- \n
- City
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .3316
\n- ENTITY: VPR CODE ONLY
\n- OUTPUT TRANSFORM: S VALUE=$E(VALUE,1,50)
\n- GET ACTION: S VALUE=$G(VAOA(4))
\n \n- \n
- State
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .3317
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR STATE
\n- GET ACTION: S VALUE=$S(VAOA(\"HasCountry\")=1:VAOA(\"Province\"),1:$P($G(VAOA(5)),U))
\n \n- \n
- Zip
\n- SEQUENCE: 7
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .3318
\n- ENTITY: VPR CODE ONLY
\n- GET ACTION: S VALUE=$S(VAOA(\"HasCountry\")=1:VAOA(\"PostalCode\"),$P($G(VAOA(11)),U,2)'=\"\":$P(VAOA(11),U,2),1:$G(VAOA(6)))
\n \n- \n
- Country
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .331012
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR COUNTRY
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT, and expects the Patient file #2 ien\nas the ID. It returns the address of the patient's secondary Emergency\nContact.\n
\n\n", "", "", "", "", "", "K VPR(\"ForeignCountryFlag\")\n", "D ECON2^VPRSDAD(DFN)\n", "", "", "", "", ""], ["VPR PATIENT ECON2", "2\n", "", "", "", "SDA\n", "SupportContact\n", "\n- \n
\n- \n
- Name
\n- SEQUENCE: 2
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .3311
\n- ENTITY: VPR NAME
\n- GET ACTION: S VALUE=$G(VAOA(9))
\n \n- \n
- Address
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- ENTITY: VPR PATIENT ECON2 ADDRESS
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- ContactInfo
\n- SEQUENCE: 7
\n- ITEM TYPE: COMPLEX GROUP
\n- COMPLEX TYPE:
\n- \n
\n- \n
- COMPLEX ITEM SEQUENCE: 2
\n- COMPLEX ITEM NAME: HomePhoneNumber
\n \n- \n
- COMPLEX ITEM SEQUENCE: 3
\n- COMPLEX ITEM NAME: WorkPhoneNumber
\n \n
\n
\n \n- \n
- HomePhoneNumber
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .3319
\n- GET ACTION: S VALUE=$G(VAOA(8))
\n \n- \n
- WorkPhoneNumber
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .331011
\n \n- \n
- Relationship
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .3312
\n- ENTITY: VPR TEXT ONLY
\n- GET ACTION: S VALUE=$G(VAOA(10)) S:VALUE=\"\" VALUE=$G(VAOA(12))
\n \n- \n
- ContactType
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=\"ECON^Emergency Contact\"
\n \n- \n
- PrimaryContact
\n- SEQUENCE: 10
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: false
\n \n- \n
- EnteredAt
\n- SEQUENCE: 13
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$G(VASITE) ;default #4 ien
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT, and expects the Patient file #2 ien\nas the ID. It returns the patient's secondary Emergency Contact.\n
\n\n", "", "", "", "", "S VAOA(\"A\")=4,DFN=ID D OAD^VADPT\n", "K VAOA\n", "S:$G(VAOA(9))=\"\" DDEOUT=1\n", "", "", "", "", ""], ["VPR PATIENT NOK2", "2\n", "", "", "", "SDA\n", "SupportContact\n", "\n- \n
\n- \n
- Name
\n- SEQUENCE: 2
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .2191
\n- ENTITY: VPR NAME
\n- GET ACTION: S VALUE=$G(VAOA(9))
\n \n- \n
- Address
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- ENTITY: VPR PATIENT NOK2 ADDRESS
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- ContactInfo
\n- SEQUENCE: 7
\n- ITEM TYPE: COMPLEX GROUP
\n- COMPLEX TYPE:
\n- \n
\n- \n
- COMPLEX ITEM SEQUENCE: 2
\n- COMPLEX ITEM NAME: HomePhoneNumber
\n \n- \n
- COMPLEX ITEM SEQUENCE: 3
\n- COMPLEX ITEM NAME: WorkPhoneNumber
\n \n
\n
\n \n- \n
- HomePhoneNumber
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .2199
\n- GET ACTION: S VALUE=$G(VAOA(8))
\n \n- \n
- WorkPhoneNumber
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .211011
\n \n- \n
- Relationship
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .2192
\n- ENTITY: VPR TEXT ONLY
\n- GET ACTION: S VALUE=$G(VAOA(10)) S:VALUE=\"\" VALUE=$G(VAOA(12))
\n \n- \n
- ContactType
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=\"NOK^Next of Kin\"
\n \n- \n
- PrimaryContact
\n- SEQUENCE: 10
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: false
\n \n- \n
- EnteredAt
\n- SEQUENCE: 13
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$G(VASITE) ;default #4 ien
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT, and expects the Patient file #2 ien\nas the ID. It returns the patient's secondary Next of Kin.\n
\n\n", "", "", "", "", "S VAOA(\"A\")=3,DFN=ID D OAD^VADPT\n", "K VAOA\n", "S:$G(VAOA(9))=\"\" DDEOUT=1\n", "", "", "", "", ""], ["VPR PATIENT NOK2 ADDRESS", "2\n", "", "", "", "SDA\n", "Address\n", "\n- \n
\n- \n
- Street
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .2193
\n- GET ACTION: S VALUE=$G(VAOA(1)) I $L(VALUE) N I F I=2,3 S:$L($G(VAOA(I))) VALUE=VALUE_\";\"_VAOA(I)
\n \n- \n
- City
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .2196
\n- ENTITY: VPR CODE ONLY
\n- OUTPUT TRANSFORM: S VALUE=$E(VALUE,1,50)
\n- GET ACTION: S VALUE=$G(VAOA(4))
\n \n- \n
- State
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .2197
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR STATE
\n- GET ACTION: S VALUE=$S(VAOA(\"HasCountry\")=1:VAOA(\"Province\"),1:$P($G(VAOA(5)),U))
\n \n- \n
- Zip
\n- SEQUENCE: 7
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .2198
\n- ENTITY: VPR CODE ONLY
\n- GET ACTION: S VALUE=$S(VAOA(\"HasCountry\")=1:VAOA(\"PostalCode\"),$P($G(VAOA(11)),U,2)'=\"\":$P(VAOA(11),U,2),1:$G(VAOA(6)))
\n \n- \n
- Country
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .2101
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR COUNTRY
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT, and expects the Patient file #2 ien\nas the ID. It returns the address of the patient's secondary Next of Kin.\n
\n\n", "", "", "", "", "", "K VPR(\"ForeignCountryFlag\")\n", "D NOK2^VPRSDAD(DFN)\n", "", "", "", "", ""], ["VPR VIETNAM SERVICE", "2\n", "", "", "", "SDA\n", "Conflict\n", "\n- \n
\n- \n
- IsIndicated
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .32101
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",VALUE=\"Y\":\"true\",1:\"false\")
\n- GET ACTION: S VALUE=+$G(VASV(1))
\n \n- \n
- FromTime
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .32104
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(VASV(1,1)),U) I VALUE=\"\",'$G(VASV(1)) S DDEOUT=1
\n \n- \n
- ToTime
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .32105
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(VASV(1,2)),U) I VALUE=\"\",'$G(VASV(1)) S DDEOUT=1
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT EXTENSION, adding information about the \npatient's service in the Vietnam conflict. It expects the VASV array.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR LEBANON SERVICE", "2\n", "", "", "", "SDA\n", "Conflict\n", "\n- \n
\n- \n
- IsIndicated
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .3221
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE=\"Y\":\"true\",1:\"false\")
\n \n- \n
- FromTime
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .3222
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n- \n
- ToTime
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .3223
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT EXTENSION, adding information about the \npatient's service in the Lebanon conflict.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR GRENADA SERVICE", "2\n", "", "", "", "SDA\n", "Conflict\n", "\n- \n
\n- \n
- IsIndicated
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .3224
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE=\"Y\":\"true\",1:\"false\")
\n \n- \n
- FromTime
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .3225
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n- \n
- ToTime
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .3226
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT EXTENSION, adding information about the \npatient's service in the Grenada conflict.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR PANAMA SERVICE", "2\n", "", "", "", "SDA\n", "Conflict\n", "\n- \n
\n- \n
- IsIndicated
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .3227
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE=\"Y\":\"true\",1:\"false\")
\n \n- \n
- FromTime
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .3228
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n- \n
- ToTime
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .3229
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT EXTENSION, adding information about the \npatient's service in the Panama conflict.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR PERSIAN GULF SERVICE", "2\n", "", "", "", "SDA\n", "Conflict\n", "\n- \n
\n- \n
- IsIndicated
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .32201
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE=\"Y\":\"true\",1:\"false\")
\n \n- \n
- FromTime
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .322011
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n- \n
- ToTime
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .322012
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT EXTENSION, adding information about the \npatient's service in the Persian Gulf conflict.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR SOMALIA SERVICE", "2\n", "", "", "", "SDA\n", "Conflict\n", "\n- \n
\n- \n
- IsIndicated
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .322016
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE=\"Y\":\"true\",1:\"false\")
\n \n- \n
- FromTime
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .322017
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n- \n
- ToTime
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .322018
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT EXTENSION, adding information about the \npatient's service in the Somalia conflict.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR LAB TEST", "60\n", "", "", "", "SDA\n", "LabTestItem\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 4
\n- ITEM TYPE: ID
\n \n- \n
- Description
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 60
\n- FIELD NUMBER: .01
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA60
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR YUGOSLAVIA SERVICE", "2\n", "", "", "", "SDA\n", "Conflict\n", "\n- \n
\n- \n
- IsIndicated
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .322019
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE=\"Y\":\"true\",1:\"false\")
\n \n- \n
- FromTime
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .32202
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n- \n
- ToTime
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .322021
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT EXTENSION, adding information about the \npatient's service in the Yugoslavia conflict.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR POW STATUS", "2\n", "", "", "", "SDA\n", "Conflict\n", "\n- \n
\n- \n
- IsIndicated
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .525
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",1:\"false\")
\n- GET ACTION: S VALUE=+$G(VASV(4))
\n \n- \n
- FromTime
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .527
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(VASV(4,1)),U) I VALUE=\"\",'$G(VASV(4)) S DDEOUT=1
\n \n- \n
- ToTime
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .528
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(VASV(4,2)),U) I VALUE=\"\",'$G(VASV(4)) S DDEOUT=1
\n \n- \n
- Period
\n- SEQUENCE: 4
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .526
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR COMBAT PERIOD
\n- GET ACTION: S VALUE=$G(VASV(4,3)) I VALUE=\"\",'$G(VASV(4)) S DDEOUT=1
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT EXTENSION, adding information about the \npatient's status as a POW.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR COMBAT SERVICE", "2\n", "", "", "", "SDA\n", "Conflict\n", "\n- \n
\n- \n
- IsIndicated
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .5291
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",1:\"false\")
\n- GET ACTION: S VALUE=+$G(VASV(5))
\n \n- \n
- FromTime
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .5293
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(VASV(5,1)),U) I VALUE=\"\",'$G(VASV(5)) S DDEOUT=1
\n \n- \n
- ToTime
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .5294
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(VASV(5,2)),U) I VALUE=\"\",'$G(VASV(5)) S DDEOUT=1
\n \n- \n
- Period
\n- SEQUENCE: 4
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .5292
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR COMBAT PERIOD
\n- GET ACTION: S VALUE=$G(VASV(5,3)) I VALUE=\"\",'$G(VASV(5)) S DDEOUT=1
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT EXTENSION, adding information about the \npatient's service in combat.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR PATIENT AO", "2\n", "", "", "", "SDA\n", "Exposure\n", "\n- \n
\n- \n
- IsIndicated
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .32102
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",VALUE=\"Y\":\"true\",1:\"false\")
\n- GET ACTION: S VALUE=+$G(VASV(2))
\n \n- \n
- RegistrationDate
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .32107
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(VASV(2,1)),U) I VALUE=\"\",'$G(VASV(2)) S DDEOUT=1
\n \n- \n
- ExamDate
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .32109
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(VASV(2,2)),U) I VALUE=\"\",'$G(VASV(2)) S DDEOUT=1
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT EXTENSION, adding information about the \npatient's exposure to Agent Orange. It expects the VASV array.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR PATIENT IR", "2\n", "", "", "", "SDA\n", "Exposure\n", "\n- \n
\n- \n
- IsIndicated
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .32103
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",VALUE=\"Y\":\"true\",1:\"false\")
\n- GET ACTION: S VALUE=+$G(VASV(3))
\n \n- \n
- RegistrationDate
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .32111
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(VASV(3,1)),U) I VALUE=\"\",'$G(VASV(3)) S DDEOUT=1
\n \n- \n
- Method
\n- SEQUENCE: 4
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .3212
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=$G(VASV(3,2)) I VALUE=\"\",'$G(VASV(3)) S DDEOUT=1
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT EXTENSION, adding information about the \npatient's exposure to radiation. It expects the VASV array.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR PATIENT SWA", "2\n", "", "", "", "SDA\n", "Exposure\n", "\n- \n
\n- \n
- IsIndicated
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .322013
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE=\"Y\":\"true\",1:\"false\")
\n \n- \n
- RegistrationDate
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .322014
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n- \n
- ExamDate
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .322015
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT EXTENSION, adding information about the \npatient's exposure to conditions in SW Asia.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR COMBAT PERIOD", "22\n", "", "", "", "SDA\n", "Period\n", "\n- \n
\n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA22
\n \n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: ID
\n- GET ACTION: S VALUE=$P(VPRPRD,U)
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 22
\n- FIELD NUMBER: .01
\n- GET ACTION: S VALUE=$P(VPRPRD,U,2)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity returns an entry in the POW Period file #22 as a coded \nelement.\n
\n\n", "", "", "", "", "", "K VPRPRD\n", "S VPRPRD=$G(DIEN) S:VPRPRD=\"\" DDEOUT=1\n", "", "", "", "", ""], ["VPR PATIENT MILITARY SERVICE", "2\n", "", "", "", "SDA\n", "ServiceEpisode\n", "\n- \n
\n- \n
- EntryDate
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(VPRSV(DIEN,3)),U)
\n \n- \n
- SeparationDate
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(VPRSV(DIEN,4)),U)
\n \n- \n
- Branch
\n- SEQUENCE: 3
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=$G(VPRSV(DIEN,2))_\"^VA23\" I 'VALUE S DDEOUT=1
\n \n- \n
- Number
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- GET ACTION: S VALUE=$G(VPRSV(DIEN,5))
\n \n- \n
- DischargeType
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=$G(VPRSV(DIEN,1))_\"^VA25\" I 'VALUE S DDEOUT=1
\n \n- \n
- Component
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- GET ACTION: S VALUE=$P($G(VPRSV(DIEN,6)),U,2)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nServiceEpisodes list all episodes from the MILITARY SERVICE EPISODE \nSUB-FILE (#2.3216) of the PATIENT (#2) FILE using the API call \nGETMSE^DGMSEUTL. Listing them in last SERVICE ENTRY DATE \nentered (2.3216,.01) to first order.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR PATIENT ENROLLMENT", "2.001\n", "", "", "", "SDA\n", "Enrollment\n", "\n- \n
\n- \n
- Clinic
\n- SEQUENCE: 1
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2.001
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR LOCATION
\n- GET ACTION: S VALUE=$P($G(VAEN),U)
\n \n- \n
- EnrollmentDate
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2.001
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(VAEN),U,2)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity returns a clinic from the Enrollment Clinic sub-file, to \nsupport the VPR PATIENT EXTENSION.\n
\n\n", "", "", "", "", "", "K VAEN\n", "S VAEN=$G(DIEN),DIEN=+$O(^DPT(DFN,\"DE\",\"B\",+VAEN,0))_\",\"_DFN\n", "", "", "", "", ""], ["VPR CDC EXTENSION", "10.3\n", "", "", "", "SDA\n", "CDCExtension\n", "\n- \n
\n- \n
- Method
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 10.3
\n- FIELD NUMBER: .01
\n- GET ACTION: S VALUE=$P($G(VPRCM),U,2)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends the Race and EthnicGroup properties of VPR PATIENT; \nsource is expected to come from VADM(11,#,1) or VADM(12,#,1) via VADPT.\n
\n\n", "", "", "", "", "", "K VPRCM\n", "S VPRCM=$G(DIEN),DIEN=+$G(DIEN)\n", "", "", "", "", ""], ["VPR INSURANCE", "2.312\n", "", "", "", "SDA\n", "MemberEnrollment\n", "\n- \n
\n- \n
- EnteredBy
\n- SEQUENCE: 1
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2.312
\n- FIELD NUMBER: 1.02
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n \n- \n
- PrescriptionCoverage
\n- SEQUENCE: 21
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: N X S X=$G(VPRINS(VPRP,15)),VALUE=$S(X=\"\":3,+X:1,1:2) ;1=YES, 2=NO, 3=UNK
\n \n- \n
- PrimaryInsuranceIndicator
\n- SEQUENCE: 22
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2.312
\n- FIELD NUMBER: .2
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(+VALUE=1:1,VALUE:4,1:3) ;1=YES,3=UNK,4=OTHER
\n- GET ACTION: S VALUE=$G(VPRINS(VPRP,7))
\n \n- \n
- PlanSpecificSubscriberID
\n- SEQUENCE: 26
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2.312
\n- FIELD NUMBER: 7.02
\n- GET ACTION: S VALUE=$G(VPRINS(VPRP,14))
\n \n- \n
- HealthFund
\n- SEQUENCE: 30
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2.312
\n- ENTITY: VPR INSURANCE PLAN
\n- GET ACTION: S VALUE=+$G(VPRINS(VPRP,8)),VPRPIEN=DIEN
\n \n- \n
- MemberEnrollmentNumber
\n- SEQUENCE: 10
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=+$G(VPRINS(VPRP,1))_\";\"_+$G(VPRINS(VPRP,8))_\";\"_$G(VPRINS(VPRP,14)) ; = Company#;Policy#;SubscriberID
\n \n- \n
- Extension
\n- SEQUENCE: 31
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2.312
\n- ENTITY: VPR INSURANCE EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- UpdatedOn
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2.312
\n- FIELD NUMBER: 1.03
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRINS(VPRP,25))
\n \n- \n
- EnteredAt
\n- SEQUENCE: 2
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2.312
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$G(VASITE) ; default #4 ien
\n \n- \n
- EnteredOn
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2.312
\n- FIELD NUMBER: 1.01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n- \n
- FromTime
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2.312
\n- FIELD NUMBER: 8
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRINS(VPRP,10))
\n \n- \n
- ToTime
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2.312
\n- FIELD NUMBER: 3
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRINS(VPRP,11))
\n \n- \n
- CarrierSpecificMemberID
\n- SEQUENCE: 12
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2.312
\n- FIELD NUMBER: 5.01
\n \n- \n
- InsuranceTypeOrProductCode
\n- SEQUENCE: 15
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2.312
\n- FIELD NUMBER: .18
\n- EXTENDED POINTER LKUP: .09
\n- ENTITY: VPR CODE TABLE
\n- OUTPUT TRANSFORM: S VALUE=VALUE_\"^^VHAT\"
\n- GET ACTION: S VALUE=$P($G(VPRINS(VPRP,21)),U,2)
\n \n- \n
- IndividualRelationshipCode
\n- SEQUENCE: 17
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2.312
\n- FIELD NUMBER: 16
\n- ENTITY: VPR CODE TABLE
\n- OUTPUT TRANSFORM: S VALUE=VALUE_\"^^VHAT\"
\n- GET ACTION: S VALUE=$P($G(VPRINS(VPRP,19)),U,2)
\n \n- \n
- InsuredGroupOrPolicyNumber
\n- SEQUENCE: 18
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2.312
\n- FIELD NUMBER: .18
\n- EXTENDED POINTER LKUP: .04
\n- GET ACTION: S VALUE=$G(VPRINS(VPRP,18))
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populates the Member Enrollment container in HealthShare from\nthe PATIENT INSURANCE TYPE (#2.312) sub-file. It expects the record IENS\nstring as the ID (DIEN).\n \nThis entity is supported by code in routine VPRSDAIB, which uses the\nsupported IBBAPI call to extract insurance information. Data is maintained\nby monitoring the IBCN NEW INSURANCE EVENTS protocol event.\n
\n\n", "", "", "", "", "S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM(\"INST\")\n", "K VPRINS,VPRP,VASITE,VPRPIEN\n", "D INS1^VPRSDAIB(DIEN)\n", "INQ^VPRSDAIB\n", "", "", "", ""], ["VPR PATIENT", "2\n", "", "", "", "SDA\n", "Patient\n", "\n- \n
\n- \n
- Name
\n- SEQUENCE: 3
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .01
\n- ENTITY: VPR NAME
\n- GET ACTION: S VALUE=$G(VADM(1))
\n \n- \n
- Gender
\n- SEQUENCE: 12
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .02
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=$G(VADM(5))
\n \n- \n
- Races
\n- SEQUENCE: 15
\n- ITEM TYPE: LIST
\n- FILE NUMBER: 2.02
\n- ENTITY: VPR RACE
\n- LIST TYPE: ARRAY
\n- XML NAME: Race
\n- GET ACTION: N I S I=0 F S I=$O(VADM(12,I)) Q:I<1 S DLIST(I)=I ;M DLIST=VADM(12)
\n \n- \n
- EthnicGroup
\n- SEQUENCE: 16
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2.06
\n- ENTITY: VPR ETHNICITY
\n- GET ACTION: S VALUE=$P($G(VADM(11,1)),U)
\n \n- \n
- SupportContacts
\n- SEQUENCE: 17
\n- ITEM TYPE: LIST
\n- FILE NUMBER: 2
\n- LIST TYPE: COMPLEX
\n- XML NAME: SupportContact
\n- COMPLEX TYPE:
\n- \n
\n- \n
- COMPLEX ITEM SEQUENCE: 1
\n- COMPLEX ITEM NAME: NOK
\n \n- \n
- COMPLEX ITEM SEQUENCE: 2
\n- COMPLEX ITEM NAME: ECON
\n \n- \n
- COMPLEX ITEM SEQUENCE: 3
\n- COMPLEX ITEM NAME: NOK2
\n \n- \n
- COMPLEX ITEM SEQUENCE: 4
\n- COMPLEX ITEM NAME: ECON2
\n \n
\n
\n \n- \n
- BirthTime
\n- SEQUENCE: 18
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .03
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(VADM(3)),U) I $E(VALUE,4,5)=\"00\"!($E(VALUE,6,7)=\"00\") S DDEOUT=1
\n \n- \n
- IsProtected
\n- SEQUENCE: 21
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 38.1
\n- FIELD NUMBER: 2
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",VALUE=0:\"false\",1:\"\")
\n- INPUT TRANSFORM: S VALUE=$S(VALUE=\"true\":1,VALUE=\"false\":0,1:\"\")
\n \n- \n
- ProtectedEffectiveDate
\n- SEQUENCE: 22
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 38.1
\n- FIELD NUMBER: 4
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n- \n
- DeathTime
\n- SEQUENCE: 23
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .351
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(VADM(6)),U)
\n \n- \n
- IsDead
\n- SEQUENCE: 24
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .351
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",1:\"false\")
\n- INPUT TRANSFORM: S VALUE=\"\"
\n- GET ACTION: S VALUE=+$G(VADM(6))
\n \n- \n
- PatientNumbers
\n- SEQUENCE: 28
\n- ITEM TYPE: LIST
\n- LIST TYPE: COMPLEX
\n- XML NAME: PatientNumber
\n- COMPLEX TYPE:
\n- \n
\n- \n
- COMPLEX ITEM SEQUENCE: 1
\n- COMPLEX ITEM NAME: SSN
\n \n- \n
- COMPLEX ITEM SEQUENCE: 2
\n- COMPLEX ITEM NAME: MRN
\n \n
\n
\n \n- \n
- Addresses
\n- SEQUENCE: 30
\n- ITEM TYPE: LIST
\n- LIST TYPE: COMPLEX
\n- XML NAME: Address
\n- COMPLEX TYPE:
\n- \n
\n- \n
- COMPLEX ITEM SEQUENCE: 1
\n- COMPLEX ITEM NAME: PermanentAddress
\n \n- \n
- COMPLEX ITEM SEQUENCE: 2
\n- COMPLEX ITEM NAME: TemporaryAddress
\n \n
\n
\n \n- \n
- ContactInfo
\n- SEQUENCE: 31
\n- ITEM TYPE: COMPLEX GROUP
\n- COMPLEX TYPE:
\n- \n
\n- \n
- COMPLEX ITEM SEQUENCE: 1
\n- COMPLEX ITEM NAME: HomePhoneNumber
\n \n- \n
- COMPLEX ITEM SEQUENCE: 2
\n- COMPLEX ITEM NAME: WorkPhoneNumber
\n \n- \n
- COMPLEX ITEM SEQUENCE: 3
\n- COMPLEX ITEM NAME: MobilePhoneNumber
\n \n- \n
- COMPLEX ITEM SEQUENCE: 4
\n- COMPLEX ITEM NAME: EmailAddress
\n \n
\n
\n \n- \n
- FamilyDoctor
\n- SEQUENCE: 32
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- ENTITY: VPR FAMILY DOCTOR
\n- GET ACTION: N X S X=$$OUTPTPR^SDUTL3(DIEN) S:X VALUE=+X ;pcProvider
\n \n- \n
- Occupation
\n- SEQUENCE: 34
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .07
\n- ENTITY: VPR TEXT ONLY
\n- GET ACTION: S VALUE=$G(VAPD(6))
\n \n- \n
- Comments
\n- SEQUENCE: 37
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .091
\n- GET ACTION: S VALUE=$G(VADM(7))
\n \n- \n
- EnteredBy
\n- SEQUENCE: 43
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- ENTITY: VPR USER
\n- GET ACTION: S DDEOUT=1 ;no longer used
\n \n- \n
- EnteredAt
\n- SEQUENCE: 45
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$G(VASITE) ;default #4 ien
\n \n- \n
- EnteredOn
\n- SEQUENCE: 46
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .097
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$$LAST^VPRSDAV(DFN)
\n \n- \n
- PermanentAddress
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- ENTITY: VPR PATIENT ADDRESS
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- HomePhoneNumber
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .131
\n- GET ACTION: S VALUE=$G(VPRPHONE) ;from Addresses/Permanent
\n \n- \n
- WorkPhoneNumber
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .132
\n \n- \n
- MobilePhoneNumber
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .134
\n \n- \n
- EmailAddress
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .133
\n \n- \n
- SSN
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .09
\n- ENTITY: VPR PATIENT NUMBER
\n- OUTPUT TRANSFORM: S VALUE=VALUE_\"^SSN^^SSA\"
\n- GET ACTION: S VALUE=$P($G(VADM(2)),U)
\n \n- \n
- MothersMaidenName
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .2403
\n- OUTPUT TRANSFORM: S VALUE=$P(VALUE,\",\")
\n- GET ACTION: S VALUE=$G(VAPD(5))
\n \n- \n
- MRN
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- ENTITY: VPR PATIENT NUMBER
\n- GET ACTION: S VALUE=DIEN_\"^MRN^\"_$G(VASTN)_U_$G(VASTN)
\n \n- \n
- BirthPlace
\n- SEQUENCE: 19
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- ENTITY: VPR PATIENT BIRTHPLACE
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- NOK
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- ENTITY: VPR PATIENT NOK
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- ECON
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- ENTITY: VPR PATIENT ECON
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- Extension
\n- SEQUENCE: 1
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- ENTITY: VPR PATIENT EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- MothersFullName
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .2402
\n- ENTITY: VPR NAME
\n- GET ACTION: S VALUE=$G(VAPD(4))
\n \n- \n
- OtherLanguages
\n- SEQUENCE: 9
\n- ITEM TYPE: LIST
\n- ENTITY: VPR PATIENT LANGUAGE
\n- LIST TYPE: ARRAY
\n- XML NAME: PatientLanguage
\n- GET ACTION: N I S I=+$G(VADM(13,1)) I I,$G(VPRLNG) S DLIST(1)=I_\",\"_$G(DFN)
\n \n- \n
- TemporaryAddress
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- ENTITY: VPR PATIENT TEMP ADDRESS
\n- GET ACTION: S VALUE=DIEN S:'$L($P($G(^DPT(DIEN,.121)),U)) DDEOUT=1
\n \n- \n
- NOK2
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- ENTITY: VPR PATIENT NOK2
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- ECON2
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- ENTITY: VPR PATIENT ECON2
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- CreatedBy
\n- SEQUENCE: 44
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .096
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n \n- \n
- CreatedOn
\n- SEQUENCE: 47
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .097
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n- \n
- Aliases
\n- SEQUENCE: 7
\n- ITEM TYPE: LIST
\n- FILE NUMBER: 2.01
\n- ENTITY: VPR PATIENT ALIAS
\n- LIST TYPE: SUBFILE
\n- XML NAME: Name
\n \n- \n
- PrimaryLanguage
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2.07
\n- ENTITY: VPR LANGUAGE
\n- GET ACTION: N X S X=$P($G(VADM(13,1)),U,2) I $L(X) S DATA=X,VALUE=$$FIND1^DIC(.85,,\"X\",X) S:VALUE<1 DDEOUT=1 I VALUE>0 S VPRLNG=VALUE_U_DATA
\n \n- \n
- Religion
\n- SEQUENCE: 10
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .08
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR RELIGION
\n- GET ACTION: S VALUE=$P($G(VADM(9)),U),DATA=$P($G(VADM(9)),U,2)
\n \n- \n
- MaritalStatus
\n- SEQUENCE: 11
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .05
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR MARITAL STATUS
\n- GET ACTION: N X S X=$G(VADM(10)) S:'X DDEOUT=1 I X S VALUE=+$G(^DIC(11,+X,\"MASTER\")) S:'VALUE DATA=X
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populates the Patient container in HealthShare. Data is pulled\nfrom the Registration package using supported calls to VADPT.\n
\n\n", "", "", "", "", "N X S X=$$SITE^VASITE S:X>0 VASITE=+X,VASTN=$P(X,U,3) I X'>0 S VASITE=$$KSP^XUPARAM(\"INST\"),VASTN=$$STA^XUAF4(VASITE)\n", "K VA,VADM,VAPD,DDESC,VASITE,VASTN,VPRPHONE\n", "S DFN=DIEN D DEM^VADPT,OPD^VADPT\n", "", "", "", "", ""], ["VPR DRUG PRODUCT EXTENSION", "50\n", "", "", "", "SDA\n", "DrugProductExtension\n", "\n- \n
\n- \n
- DEACode
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 50
\n- FIELD NUMBER: 3
\n \n- \n
- FederalSchedule
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 50.68
\n- FIELD NUMBER: 19
\n- GET ACTION: S IEN=$P($G(@VPRVAP@(22)),U) S:'IEN DDEOUT=1
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR DRUG PRODUCT.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR DOSE EXTENSION", "100\n", "", "", "", "", "DosageStepExtension\n", "\n- \n
\n- \n
- UnitsPerDose
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P($$VALUE^ORX8(ORIFN,\"DOSE\",IEN),\"&\",3)
\n \n- \n
- Noun
\n- SEQUENCE: 2
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P($$VALUE^ORX8(ORIFN,\"DOSE\",IEN),\"&\",4)
\n \n- \n
- Verb
\n- SEQUENCE: 3
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P($G(@VPRPS@(\"SIG\",1,0)),\" \")
\n \n- \n
- Conjunction
\n- SEQUENCE: 4
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: N X S X=$$VALUE^ORX8(ORIFN,\"CONJ\",IEN) S:$L(X) VALUE=$S(X=\"A\":\"AND\",X=\"T\":\"THEN\",X=\"X\":\"EXCEPT\",1:X)
\n \n- \n
- ScheduleType
\n- SEQUENCE: 5
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P($G(VPRSCH),U,2)
\n \n- \n
- AdminTimes
\n- SEQUENCE: 6
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P($G(VPRSCH),U,3)
\n \n- \n
- Interval
\n- SEQUENCE: 7
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P($G(VPRSCH),U,4)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR DOSAGE STEP, part of the Medication container.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR MDD PROCEDURE", "702.01\n", "", "", "", "SDA\n", "ClinicalProcedure\n", "\n- \n
\n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA702.01
\n \n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: ID
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 702.01
\n- FIELD NUMBER: .01
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity returns a reference to the CP DEFINITION (#702.01) file as\na basic SDA coded element.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR REFERRING PROVIDER", "123\n", "", "", "", "SDA\n", "CareProvider\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 4
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: IFC
\n \n- \n
- Description
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 123
\n- FIELD NUMBER: .126
\n- GET ACTION: S VALUE=$P($G(VPRIFC),U,6)
\n \n- \n
- WorkPhoneNumber
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 123
\n- FIELD NUMBER: .132
\n- GET ACTION: S VALUE=$P($G(VPRIFC),U,2)
\n \n- \n
- MobilePhoneNumber
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 123
\n- FIELD NUMBER: .133
\n- GET ACTION: S VALUE=$P($G(VPRIFC),U,3)
\n \n- \n
- ContactInfo
\n- SEQUENCE: 8
\n- ITEM TYPE: COMPLEX GROUP
\n- COMPLEX TYPE:
\n- \n
\n- \n
- COMPLEX ITEM SEQUENCE: 1
\n- COMPLEX ITEM NAME: WorkPhoneNumber
\n \n- \n
- COMPLEX ITEM SEQUENCE: 2
\n- COMPLEX ITEM NAME: MobilePhoneNumber
\n \n
\n
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR REFERRAL, to return the name and phone numbers\nof the remote requesting provider. It expects the variable VPRIFC from\nthe main entity.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR DEL V POV", "9000010.07\n", "", "", "", "SDA\n", "Diagnosis\n", "\n- \n
\n- \n
- ExternalId
\n- SEQUENCE: 19
\n- ITEM TYPE: ID
\n- OUTPUT TRANSFORM: S VALUE=VALUE_\";POV\"
\n \n- \n
- EncounterNumber
\n- SEQUENCE: 4
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P($G(VPR0),U,3)
\n \n- \n
- Diagnosis
\n- SEQUENCE: 7
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.07
\n- ENTITY: VPR ICD
\n- GET ACTION: S VALUE=$P($G(VPR0),U) ;S DATA(\"DATE\")=+$G(VPRVST0)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity is called from inside GET^VPRHS when Health Connect requests\na record by its sequence number in the AVPR upload list, and that update\nis a delete. The PCE-VPR listener will save the deleted record's info in\n^XTMP("VPR-seq#") for this entity, to send the data elements needed by HC\nto find the record and remove it.\n\n\n", "", "", "", "", "", "K VPR0\n", "D DEL1^VPRSDAV\n", "", "", "", "", ""], ["VPR DEL VACCINATION", "9000010.11\n", "", "", "", "SDA\n", "Vaccination\n", "\n- \n
\n- \n
- ExternalId
\n- SEQUENCE: 19
\n- ITEM TYPE: ID
\n \n- \n
- FillerId
\n- SEQUENCE: 3
\n- ITEM TYPE: ID
\n \n- \n
- EncounterNumber
\n- SEQUENCE: 61
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P($G(VPR0),U,3)
\n \n- \n
- OrderItem
\n- SEQUENCE: 35
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.11
\n- ENTITY: VPR IMMUNIZATION
\n- GET ACTION: S VALUE=$P($G(VPR0),U)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity is called from inside GET^VPRHS when Health Connect requests\na record by its sequence number in the AVPR upload list, and that update\nis a delete. The PCE-VPR listener will save the deleted record's info in\n^XTMP("VPR-seq#") for this entity, to send the data elements needed by HC\nto find the record and remove it.\n\n\n", "", "", "", "", "", "K VPR0\n", "D DEL1^VPRSDAV\n", "", "", "", "", ""], ["VPR DEL HF VACC REFUSAL", "9000010.23\n", "", "", "", "SDA\n", "Vaccination\n", "\n- \n
\n- \n
- ExternalId
\n- SEQUENCE: 19
\n- ITEM TYPE: ID
\n- OUTPUT TRANSFORM: S VALUE=VALUE_\";HF\"
\n \n- \n
- FillerId
\n- SEQUENCE: 3
\n- ITEM TYPE: ID
\n \n- \n
- EncounterNumber
\n- SEQUENCE: 61
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P($G(VPR0),U,3)
\n \n- \n
- OrderItem
\n- SEQUENCE: 35
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.23
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: N HF,NM,CVX S HF=$P($G(VPR0),U),NM=$P($G(^AUTTHF(+HF,0)),U),CVX=$P(NM,\" CVX \",2),VALUE=$S(CVX:CVX_U_NM_\"^CVX\",HF:HF_U_NM_\"^VA9999999.64\",1:\"\")
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity is called from inside GET^VPRHS when Health Connect requests\na record by its sequence number in the AVPR upload list, and that update\nis a delete. The PCE-VPR listener will save the deleted record's info in\n^XTMP("VPR-seq#") for this entity, to send the data elements needed by HC\nto find the record and remove it.\n\n\n", "", "", "", "", "", "K VPR0\n", "D DEL1^VPRSDAV\n", "", "", "", "", ""], ["VPR DEL SOCIAL HX", "9000010.23\n", "", "", "", "SDA\n", "SocialHistory\n", "\n- \n
\n- \n
- EncounterNumber
\n- SEQUENCE: 2
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P($G(VPR0),U,3)
\n \n- \n
- SocialHabit
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.23
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S:$G(VPR0) VALUE=$P($G(^AUTTHF(+VPR0,0)),U)_\"^^VHAT\"
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity is called from inside GET^VPRHS when Health Connect requests\na record by its sequence number in the AVPR upload list, and that update\nis a delete. The PCE-VPR listener will save the deleted record's info in\n^XTMP("VPR-seq#") for this entity, to send the data elements needed by HC\nto find the record and remove it.\n\n\n", "", "", "", "", "", "K VPR0\n", "D DEL1^VPRSDAV\n", "", "", "", "", ""], ["VPR DEL FAMILY HX", "9000010.23\n", "", "", "", "SDA\n", "FamilyHistory\n", "\n- \n
\n- \n
- EncounterNumber
\n- SEQUENCE: 2
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P($G(VPR0),U,3)
\n \n- \n
- FamilyMember
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.23
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=\"UNK^UNKNOWN\"
\n \n- \n
- ExternalId
\n- SEQUENCE: 15
\n- ITEM TYPE: ID
\n- OUTPUT TRANSFORM: S VALUE=VALUE_\";HF\"
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity is called from inside GET^VPRHS when Health Connect requests\na record by its sequence number in the AVPR upload list, and that update\nis a delete. The PCE-VPR listener will save the deleted record's info in\n^XTMP("VPR-seq#") for this entity, to send the data elements needed by HC\nto find the record and remove it.\n\n\n", "", "", "", "", "", "K VPR0\n", "D DEL1^VPRSDAV\n", "", "", "", "", ""], ["VPR DEL V EXAM", "9000010.13\n", "", "", "", "SDA\n", "PhysicalExam\n", "\n- \n
\n- \n
- EncounterNumber
\n- SEQUENCE: 5
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P($G(VPR0),U,3)
\n \n- \n
- ExternalId
\n- SEQUENCE: 4
\n- ITEM TYPE: ID
\n \n- \n
- PhysExamCode
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.13
\n- ENTITY: VPR EXAM
\n- GET ACTION: S VALUE=$P($G(VPR0),U)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity is called from inside GET^VPRHS when Health Connect requests\na record by its sequence number in the AVPR upload list, and that update\nis a delete. The PCE-VPR listener will save the deleted record's info in\n^XTMP("VPR-seq#") for this entity, to send the data elements needed by HC\nto find the record and remove it.\n\n\n", "", "", "", "", "", "K VPR0\n", "D DEL1^VPRSDAV\n", "", "", "", "", ""], ["VPR PATIENT ALIAS", "2.01\n", "", "", "", "SDA\n", "Alias\n", "\n- \n
\n- \n
- FamilyName
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P(DPTNM,U)
\n \n- \n
- GivenName
\n- SEQUENCE: 3
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P(DPTNM,U,2)
\n \n- \n
- NameSuffix
\n- SEQUENCE: 2
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P(DPTNM,U,4)
\n \n- \n
- MiddleName
\n- SEQUENCE: 4
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P(DPTNM,U,3)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT, and expects the FileMan IENS string as \nthe ID for each entry in the Alias sub-file.\n
\n\n", "", "", "", "", "", "K DPTNM\n", "K DPTNM S DPTNM=$$GET1^DIQ(2.01,DIEN_\",\",.01),DPTNM=$$NAMECOMP^VPRSDA(DPTNM)\n", "", "", "", "", ""], ["VPR DEL V CPT", "9000010.18\n", "", "", "", "SDA\n", "Procedure\n", "\n- \n
\n- \n
- ExternalId
\n- SEQUENCE: 13
\n- ITEM TYPE: ID
\n- OUTPUT TRANSFORM: S VALUE=VALUE_\";PX\"
\n \n- \n
- EncounterNumber
\n- SEQUENCE: 4
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P($G(VPR0),U,3)
\n \n- \n
- Procedure
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.18
\n- ENTITY: VPR CPT
\n- GET ACTION: S VALUE=$P($G(VPR0),U) ;S DATA(\"DATE\")=+$G(VPRVST0)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity is called from inside GET^VPRHS when Health Connect requests\na record by its sequence number in the AVPR upload list, and that update\nis a delete. The PCE-VPR listener will save the deleted record's info in\n^XTMP("VPR-seq#") for this entity, to send the data elements needed by HC\nto find the record and remove it.\n\n\n", "", "", "", "", "", "K VPR0\n", "D DEL1^VPRSDAV\n", "", "", "", "", ""], ["VPR DEL PTF", "45\n", "", "", "", "SDA\n", "Diagnosis\n", "\n- \n
\n- \n
- ExternalId
\n- SEQUENCE: 19
\n- ITEM TYPE: ID
\n- OUTPUT TRANSFORM: S VALUE=VALUE_\";PTF\"
\n \n- \n
- EncounterNumber
\n- SEQUENCE: 4
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P($G(VPR0),U,3)
\n \n- \n
- Diagnosis
\n- SEQUENCE: 7
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 45
\n- ENTITY: VPR ICD
\n- GET ACTION: S VALUE=$P($G(VPR0),U) ;S DATA(\"DATE\")=+$G(VPRVST0)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity is called from inside GET^VPRHS when Health Connect requests\na record by its sequence number in the AVPR upload list, and that update\nis a delete. The PTF VPR listener will save the deleted record's info in\n^XTMP("VPR-seq#") for this entity, to send the data elements needed by HC\nto find the record and remove it.\n\n\n", "", "", "", "", "", "K VPR0\n", "D DEL1^VPRSDA\n", "", "", "", "", ""], ["VPR DEL TIU DOCUMENT", "8925\n", "", "", "", "SDA\n", "Document\n", "\n- \n
\n- \n
- EncounterNumber
\n- SEQUENCE: 3
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P($G(VPR0),U,3)
\n \n- \n
- DocumentNumber
\n- SEQUENCE: 16
\n- ITEM TYPE: ID
\n- OUTPUT TRANSFORM: S VALUE=VALUE_\";TIU\"
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity is called from inside GET^VPRHS when Health Connect requests\na record by its sequence number in the AVPR upload list, and that update\nis a delete. The TIU-VPR listener will save the deleted record's info in\n^XTMP("VPR-seq#") for this entity, to send the data elements needed by HC\nto find the record and remove it.\n\n\n", "", "", "", "", "", "K VPR0\n", "D DEL1^VPRSDAV\n", "", "", "", "", ""], ["VPR TEXT ONLY", "", "", "", "", "SDA\n", "CodeTable\n", "\n- \n
\n- \n
- Description
\n- SEQUENCE: 1
\n- ITEM TYPE: ID
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity creates a basic Code Table property for SDA that sets only \nthe Description sub-property, for use with VistA text fields that are \ncoded elements in SDA.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR ELIGIBILITY", "8\n", "", "", "", "SDA\n", "Eligibility\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 2
\n- ITEM TYPE: ID
\n \n- \n
- Description
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8
\n- FIELD NUMBER: .01
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA8
\n \n- \n
- PrintName
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8
\n- FIELD NUMBER: 5
\n \n- \n
- VACode
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8
\n- FIELD NUMBER: 3
\n \n- \n
- MASCode
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8
\n- FIELD NUMBER: 8
\n- RETURN INTERNAL VALUE: YES
\n \n- \n
- Type
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8
\n- FIELD NUMBER: 4
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity expands an ELIGIBILITY (#8) pointer into a coded element.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR ORDER EVENT", "100.2\n", "", "", "", "SDA\n", "OrderEvent\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 2
\n- ITEM TYPE: ID
\n \n- \n
- Description
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.2
\n- FIELD NUMBER: 2
\n- EXTENDED POINTER LKUP: 8
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA100.2
\n \n- \n
- Type
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.2
\n- FIELD NUMBER: 2
\n- EXTENDED POINTER LKUP: 2
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity expands an OE/RR PATIENT EVENT (#100.2) pointer into a coded\nelement.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR RELEASE EVENT", "100.5\n", "", "", "", "SDA\n", "ReleaseEvent\n", "\n- \n
\n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA100.5
\n \n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: ID
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.5
\n- FIELD NUMBER: 8
\n \n- \n
- OriginalText
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.5
\n- FIELD NUMBER: .01
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity returns an SDA coded element given an OE/RR RELEASE EVENTS\n(#100.5) file pointer.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR ICR EVENT", "9000010.707\n", "", "", "", "SDA\n", "Vaccination\n", "\n- \n
\n- \n
- FillerId
\n- SEQUENCE: 3
\n- ITEM TYPE: ID
\n \n- \n
- Administrations
\n- SEQUENCE: 53
\n- ITEM TYPE: LIST
\n- ENTITY: VPR ICR ADMINISTRATION
\n- LIST TYPE: ARRAY
\n- XML NAME: Administration
\n- GET ACTION: S DLIST(1)=DIEN
\n \n- \n
- EncounterNumber
\n- SEQUENCE: 61
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.707
\n- FIELD NUMBER: .03
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S:'$D(^AUPNVSIT(VALUE,0)) VALUE=\"\"
\n- GET ACTION: S VALUE=$G(VPRVST)
\n \n- \n
- ToTime
\n- SEQUENCE: 34
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.707
\n- FIELD NUMBER: .05
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRM(\"WARN UNTIL DATE\"))
\n \n- \n
- Extension
\n- SEQUENCE: 62
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.707
\n- ENTITY: VPR ICR EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- ExternalId
\n- SEQUENCE: 60
\n- ITEM TYPE: ID
\n- OUTPUT TRANSFORM: S VALUE=VALUE_\";ICR\"
\n \n- \n
- VXUObservations
\n- SEQUENCE: 63
\n- ITEM TYPE: LIST
\n- ENTITY: VPR ICR OBSERVATION
\n- LIST TYPE: ARRAY
\n- XML NAME: Observation
\n- GET ACTION: S DLIST(1)=DIEN
\n \n- \n
- Comments
\n- SEQUENCE: 21
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.707
\n- FIELD NUMBER: 81101
\n- GET ACTION: S VALUE=$G(VPRM(\"COMMENTS\"))
\n \n- \n
- EnteredBy
\n- SEQUENCE: 30
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.707
\n- FIELD NUMBER: .03
\n- EXTENDED POINTER LKUP: .23
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$P($G(VPRVST0),U,23)
\n \n- \n
- EnteredAt
\n- SEQUENCE: 31
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.707
\n- FIELD NUMBER: .03
\n- EXTENDED POINTER LKUP: .06
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$P($G(VPRVST0),U,6) S:VALUE<1 VALUE=$$SITE^VPRSDA
\n \n- \n
- EnteredOn
\n- SEQUENCE: 32
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.707
\n- FIELD NUMBER: .06
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRM(\"D/T RECORDED\"))
\n \n- \n
- FromTime
\n- SEQUENCE: 33
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.707
\n- FIELD NUMBER: 1201
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRM(\"EVENT D/T\")) S:VALUE<1 VALUE=$P($G(VPRVST0),U) S VPRDT=$G(VALUE)
\n \n- \n
- OrderItem
\n- SEQUENCE: 35
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.707
\n- FIELD NUMBER: .04
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR IMMUNIZATION
\n- GET ACTION: S DATA=$P($G(VPRM(\"IMMUN\")),U),VALUE=$P(DATA,U)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populates the Vaccination container in HealthShare. it \nexpects the V IMM CONTRA/REFUSAL EVENT (#9000010.707) ien as the record\nID (DIEN).\n \nThis entity is supported by code in routine VPRSDAVF, which uses the\n^PXRMINDX reminder index and VICR^PXPXRM call to extract V IMM refusal\ndata. Data in SDA is maintained by monitoring the PXK VISIT DATA EVENT\nprotocol event.\n
\n\n", "", "", "", "", "", "K VPRM,VPRDT,VPRVST,VPRVST0\n", "K VPRM D:$D(^AUPNVICR(+DIEN)) VICR^PXPXRM(+DIEN,.VPRM) S VPRVST=$G(VPRM(\"VISIT\")),VPRVST0=$G(^AUPNVSIT(+VPRVST,0))\n", "ICR^VPRSDAVF\n", "", "", "", ""], ["VPR ICR EXTENSION", "9000010.707\n", "", "", "", "SDA\n", "VaccinationExtension\n", "\n- \n
\n- \n
- IsContraindicated
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.707
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE[\"920.4\":\"true\",1:\"false\")
\n- GET ACTION: S VALUE=$P($G(VPRM(\"CONTRA/REFUSAL\")),U)
\n \n- \n
- CDCName
\n- SEQUENCE: 7
\n- ITEM TYPE: WORD PROCESSING
\n- FILE NUMBER: 9999999.14
\n- FIELD NUMBER: 2
\n- WORD WRAP: 1
\n- GET ACTION: S IEN=+$G(VPRM(\"IMMUN\"))
\n \n- \n
- DataSource
\n- SEQUENCE: 8
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.707
\n- FIELD NUMBER: 81203
\n- GET ACTION: S VALUE=$P($G(VPRM(\"DATA SOURCE\")),U,2)
\n \n- \n
- Package
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.707
\n- FIELD NUMBER: 81202
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PACKAGE
\n- GET ACTION: S VALUE=$P($G(VPRM(\"PACKAGE\")),U)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR ICR EVENT; it expects the VPRM array defined by\nVICR^PXPXRM, called by the GET ID ACTION for each immunization event.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR ICR ADMINISTRATION", "9000010.707\n", "", "", "", "SDA\n", "Administration\n", "\n- \n
\n- \n
- AdministeringProvider
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.707
\n- FIELD NUMBER: 1204
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$P($G(VPRM(\"ENC PROVIDER\")),U)
\n \n- \n
- AdministeredAtLocation
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.707
\n- FIELD NUMBER: .03
\n- EXTENDED POINTER LKUP: .22
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR LOCATION
\n- GET ACTION: S VALUE=$P($G(VPRVST0),U,22)
\n \n- \n
- AdministrationStatus
\n- SEQUENCE: 7
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.707
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE[\"920.4\":\"N^NOT ADMINISTERED\",VALUE[\"920.5\":\"R^REFUSED\",1:\"\")
\n- GET ACTION: S VALUE=$P($G(VPRM(\"CONTRA/REFUSAL\")),U)
\n \n- \n
- RefusalReason
\n- SEQUENCE: 13
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.707
\n- FIELD NUMBER: .01
\n- ENTITY: VPR TEXT ONLY
\n- GET ACTION: N X S X=$G(VPRM(\"CONTRA/REFUSAL\")) S:X[\"920.5\" VALUE=$P(X,U,2) I X[\"920.4\" S DDEOUT=1
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR ICR EVENT, populating the Administrations\nproperty. It expects the VPRM array defined by VICR^PXPXRM, called\nby the GET ID ACTION for each immunization event.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR LANGUAGE", ".85\n", "", "", "", "SDA\n", "Language\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: .85
\n- FIELD NUMBER: .02
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: .85
\n- FIELD NUMBER: .01
\n- GET ACTION: S VALUE=$G(DATA)
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: ISO639
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT, and expects the Language file #.85 ien\nas the ID. \n \nIf the local variable DATA is defined, it will be used as the value for \nthe Description.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR ICR OBSERVATION", "9000010.707\n", "", "", "", "SDA\n", "Observation\n", "\n- \n
\n- \n
- ExternalId
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.707
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- GET ACTION: S VALUE=$G(VPRICR)
\n \n- \n
- ObservationTime
\n- SEQUENCE: 8
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.707
\n- FIELD NUMBER: 1201
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRDT)
\n \n- \n
- ObservationCode
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 920.4
\n- FIELD NUMBER: .06
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- OUTPUT TRANSFORM: S VALUE=VALUE_U_$S(VALUE=\"C\":\"CONTRAINDICATION\",VALUE=\"P\":\"PRECAUTION\",VALUE=\"R\":\"REFUSAL\",1:\"UNKNOWN\")
\n- GET ACTION: S:$G(VPRICR)[\"920.4\" IEN=+$G(VPRICR) I $G(VPRICR)'[\"920.4\" S VALUE=\"R\"
\n \n- \n
- ObservationValue
\n- SEQUENCE: 10
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.707
\n- FIELD NUMBER: .01
\n- GET ACTION: S VALUE=$P($G(VPRM(\"CONTRA/REFUSAL\")),U,2)
\n \n- \n
- ObservationCodedValue
\n- SEQUENCE: 13
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.707
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR ICR CONTRAINDICATION
\n- OUTPUT TRANSFORM: S:VALUE[\"920.5\" ENTITY=+$O(^DDE(\"B\",\"VPR ICR REFUSAL\",0)) S VALUE=+VALUE
\n- GET ACTION: S VALUE=$G(VPRICR)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR ICR EVENT, populating the VXUObservations\nproperty. It expects VPRICR and the VPRM array defined by VICR^PXPXRM,\ncalled by the GET ID ACTION for each immunization event.\n
\n\n", "", "", "", "", "", "K VPRICR\n", "S VPRICR=$P($G(VPRM(\"CONTRA/REFUSAL\")),U)\n", "", "", "", "", ""], ["VPR ICR CONTRAINDICATION", "920.4\n", "", "", "", "SDA\n", "ObservationValueCode\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 920.4
\n- FIELD NUMBER: .02
\n \n- \n
- Description
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 920.4
\n- FIELD NUMBER: 1
\n- OUTPUT TRANSFORM: S:$E(VALUE,$L(VALUE))=\" \" VALUE=$E(VALUE,1,$L(VALUE)-1)
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 920.4
\n- FIELD NUMBER: .05
\n- OUTPUT TRANSFORM: S:$E(VALUE,$L(VALUE))=\" \" VALUE=$E(VALUE,1,$L(VALUE)-1)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR ICR REFUSAL", "920.5\n", "", "", "", "SDA\n", "ObservationValueCode\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 920.5
\n- FIELD NUMBER: .02
\n \n- \n
- Description
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 920.5
\n- FIELD NUMBER: .01
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: NIP002
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR DEL ICR", "9000010.707\n", "", "", "", "SDA\n", "Vaccination\n", "\n- \n
\n- \n
- ExternalId
\n- SEQUENCE: 19
\n- ITEM TYPE: ID
\n- OUTPUT TRANSFORM: S VALUE=VALUE_\";ICR\"
\n \n- \n
- FillerId
\n- SEQUENCE: 3
\n- ITEM TYPE: ID
\n \n- \n
- EncounterNumber
\n- SEQUENCE: 61
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P($G(VPR0),U,3)
\n \n- \n
- OrderItem
\n- SEQUENCE: 35
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.11
\n- ENTITY: VPR IMMUNIZATION
\n- GET ACTION: S VALUE=$P($G(VPR0),U,4)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity is called from inside GET^VPRHS when Health Connect requests\na record by its sequence number in the AVPR upload list, and that update\nis a delete. The PCE-VPR listener will save the deleted record's info in\n^XTMP("VPR-seq#") for this entity, to send the data elements needed by HC\nto find the record and remove it.\n\n\n", "", "", "", "", "", "K VPR0\n", "D DEL1^VPRSDAV\n", "", "", "", "", ""], ["VPR IMM MANUFACTURER", "9999999.04\n", "", "", "", "SDA\n", "Manufacturer\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9999999.04
\n- FIELD NUMBER: .02
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9999999.04
\n- FIELD NUMBER: .01
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: MVX
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity returns information from the IMM MANFACTURER (#9999999.04)\nfile, expecting an ien as its ID. It is used by the Vaccination Extension.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR SERVICE", "49\n", "", "", "", "", "Service\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: ID
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 49
\n- FIELD NUMBER: .01
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA49
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity returns a coded element for a pointer to the SERVICE/SECTION file\nfile #49.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR DOCUMENT CLASS", "8925.1\n", "", "", "", "SDA\n", "DocumentClass\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: ID
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8925.1
\n- FIELD NUMBER: .01
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA8925.1
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity accepts a pointer to the TIU DOCUMENT TYPE (#8925.1) file and\nreturns a standard coded element. It is used in the Document Extension to\nreturn a document's immediate parent class.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR PATIENT TYPE", "391\n", "", "", "", "SDA\n", "PatientType\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: ID
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 391
\n- FIELD NUMBER: .01
\n- GET ACTION: S VALUE=$P($G(VPRTYPE),U,2)
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA391
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity accepts a pointer to the PATIENT TYPE (#391) file and returns\na coded element.\n
\n\n", "", "", "", "", "", "K VPRTYPE\n", "S VPRTYPE=$G(DIEN),DIEN=+$G(DIEN)\n", "", "", "", "", ""], ["VPR PTF 601", "45.05\n", "", "", "", "SDA\n", "Procedure\n", "\n- \n
\n- \n
- FromTime
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 45.05
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n- \n
- EncounterNumber
\n- SEQUENCE: 4
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$G(VPRVST)
\n \n- \n
- Procedure
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 45.05
\n- FIELD NUMBER: 4
\n- ENTITY: VPR ICD OP
\n- GET ACTION: N I S I=$P(VPRPTF,\"-\",2) S:I VALUE=$$GET1^DIQ(45.05,DIEN,I+3,\"I\") S:VALUE<1 DDEOUT=1
\n \n- \n
- ProcedureTime
\n- SEQUENCE: 10
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 45.05
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n- \n
- EnteredAt
\n- SEQUENCE: 12
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 45
\n- FIELD NUMBER: 3
\n- ENTITY: VPR FACILITY
\n- OUTPUT TRANSFORM: S VALUE=$$IEN^XUAF4(VALUE)
\n- GET ACTION: S IEN=+$P(VPRPTF,\",\",2)
\n \n- \n
- ExternalId
\n- SEQUENCE: 14
\n- ITEM TYPE: ID
\n- GET ACTION: S VALUE=$G(VPRPTF)_\";PTF\"
\n \n- \n
- ProcedurePriority
\n- SEQUENCE: 7
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S:$G(VPRPTF)[\"-\" VALUE=+$P(VPRPTF,\"-\",2)
\n \n- \n
- Extension
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 45.05
\n- ENTITY: VPR PTF 601 EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populates the Procedure container in HealthShare with ICD OP\nevent.\ncodes from the 601 sub-file of the PTF (#45) file; it expects an ID in \nthe form IENS-nn where:\n IENS = ien string for the sub-file record\n nn = the number from the code's field name, i.e. PROCEDURE CODE nn\n \nThis entity is supported by code in routine VPRSDADG, which uses the\nPTFIEN^DGPTFUT call to extract PTF procedure data. Data in SDA is\nmaintained by monitoring the DG PTF ICD PROCEDURE NOTIFIER protocol\n
\n\n", "", "", "", "", "", "K VPRPTF,VPRVST\n", "D OP1^VPRSDADG\n", "OPQ^VPRSDADG\n", "", "", "", ""], ["VPR FAM HX EXTENSION", "9000010.23\n", "", "", "", "SDA\n", "FamilyHistoryExtension\n", "\n- \n
\n- \n
- Category
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: .01
\n- EXTENDED POINTER LKUP: .03
\n \n- \n
- DataSource
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: 81203
\n- GET ACTION: S VALUE=$P($G(VPRHF(\"DATA SOURCE\")),U,2)
\n \n- \n
- Package
\n- SEQUENCE: 3
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: 81202
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PACKAGE
\n- GET ACTION: S VALUE=$P($G(VPRHF(\"PACKAGE\")),U)
\n \n- \n
- Severity
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: .04
\n- GET ACTION: Q ;S VALUE=$P($G(VPRHF(\"LEVEL/SEVERITY\")),U)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR FAMILY HISTORY and expects the VPRHF array to be\ndefined.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR RACE", "10.99\n", "", "", "", "SDA\n", "Race\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 10.99
\n- FIELD NUMBER: 1
\n- GET ACTION: I '$G(DIEN),$G(DATA) S VALUE=$$GET1^DIQ(10,+DATA,3,\"I\") ;use #10 code if no master
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 10.99
\n- FIELD NUMBER: .01
\n- GET ACTION: I '$G(DIEN),$G(DATA) S VALUE=$$LOWER^VALM1($P(DATA,U,2)) ;use #10 name if no master
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: CDC
\n \n- \n
- Extension
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 10.99
\n- ENTITY: VPR CDC EXTENSION
\n- GET ACTION: S VALUE=$G(DATA1) ;VADM(12,#,1)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT, and expects the VADM(12,#) array from \nVADPT where ID is the subscript. The GET ID ACTION logic will get the \nRace file #10 ien from the current VADM(12) entry and convert it to Race \nMaster file #10.99 ien; the #10 ien^name will be available in DATA, and \nthe method of collection in DATA1.\n
\n\n", "", "", "", "", "", "K DATA,DATA1\n", "S DATA=$G(VADM(12,DIEN)),DATA1=$G(VADM(12,DIEN,1)),DIEN=+$G(^DIC(10,+DATA,\"MASTER\")) ;convert #10 ien^name to #10.99 ien\n", "", "", "", "", ""], ["VPR DEL PTF 601", "45.05\n", "", "", "", "SDA\n", "Procedure\n", "\n- \n
\n- \n
- ExternalId
\n- SEQUENCE: 14
\n- ITEM TYPE: ID
\n- OUTPUT TRANSFORM: S VALUE=VALUE_\";PTF\"
\n \n- \n
- EncounterNumber
\n- SEQUENCE: 4
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P($G(VPR0),U,3)
\n \n- \n
- Procedure
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 45
\n- ENTITY: VPR ICD OP
\n- GET ACTION: S VALUE=$P($G(VPR0),U) ;S DATA(\"DATE\")=+$G(VPRVST0)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity is called from inside GET^VPRHS when Health Connect requests\na record by its sequence number in the AVPR upload list, and that update\nis a delete. The PTF VPR listener will save the deleted record's info in\n^XTMP("VPR-seq#") for this entity, to send the data elements needed by HC\nto find the record and remove it.\n\n\n", "", "", "", "", "", "K VPR0\n", "D DEL1^VPRSDA\n", "", "", "", "", ""], ["VPR SURG SPECIALTY", "45.3\n", "", "", "", "SDA\n", "Specialty\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 45.3
\n- FIELD NUMBER: .01
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 45.3
\n- FIELD NUMBER: 1
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA45.3
\n \n- \n
- OriginalText
\n- SEQUENCE: 8
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$G(DATA)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nReturns a coded element for the SURGICAL SPECIALTY (#45.3) file.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR MED SPECIALTY", "723\n", "", "", "", "SDA\n", "Specialty\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: ID
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 723
\n- FIELD NUMBER: .01
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA723
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nReturns a coded element for the MEDICAL SPECIALTY (#723) file.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR MAS SPECIALTY", "42.4\n", "", "", "", "SDA\n", "Specialty\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: ID
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 42.4
\n- FIELD NUMBER: .01
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA42.4
\n \n- \n
- PrintName
\n- SEQUENCE: 8
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 42.4
\n- FIELD NUMBER: 1
\n \n- \n
- Service
\n- SEQUENCE: 9
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 42.4
\n- FIELD NUMBER: 3
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nReturns a coded element for the SPECIALTY (#42.4) file.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR PTF 601 EXTENSION", "45.05\n", "", "", "", "SDA\n", "ProcedureExtension\n", "\n- \n
\n- \n
- Category
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: PTF
\n \n- \n
- Package
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 45.05
\n- ENTITY: VPR PACKAGE
\n- GET ACTION: S VALUE=+$O(^DIC(9.4,\"C\",\"DG\",0)) S:VALUE<1 DDEOUT=1
\n \n- \n
- Specialty
\n- SEQUENCE: 15
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 45.05
\n- FIELD NUMBER: 1
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR MAS SPECIALTY
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR PTF 601.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR ORDER DC EVENT", "100.2\n", "", "", "", "SDA\n", "OrderEvent\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 2
\n- ITEM TYPE: ID
\n \n- \n
- Description
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.2
\n- FIELD NUMBER: 13
\n- EXTENDED POINTER LKUP: 5
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA100.2
\n \n- \n
- Type
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.2
\n- FIELD NUMBER: 13
\n- EXTENDED POINTER LKUP: 2
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity expands an OE/RR PATIENT EVENT (#100.2) pointer into a coded\nelement.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR VPOV EXTENSION", "9000010.07\n", "", "", "", "SDA\n", "DiagnosisExtension\n", "\n- \n
\n- \n
- Comments
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.07
\n- FIELD NUMBER: 81101
\n- FIXED RESPONSE: PX
\n- GET ACTION: S VALUE=$G(VPRPOV(\"COMMENTS\"))
\n \n- \n
- DataSource
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.07
\n- FIELD NUMBER: 81203
\n- GET ACTION: S VALUE=$P($G(VPRPOV(\"DATA SOURCE\")),U,2)
\n \n- \n
- Package
\n- SEQUENCE: 1
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.07
\n- FIELD NUMBER: 81202
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PACKAGE
\n- GET ACTION: S VALUE=$P($G(VPRPOV(\"PACKAGE\")),U)
\n \n- \n
- ProblemId
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.07
\n- FIELD NUMBER: .16
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=VALUE_\";PL\"
\n- GET ACTION: S VALUE=$G(VPRPOV(\"PROBLEM LIST ENTRY\"))
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR V POV; it expects the VPRPOV array.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR VXAM EXTENSION", "9000010.13\n", "", "", "", "SDA\n", "PhysicalExamExtension\n", "\n- \n
\n- \n
- DataSource
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.13
\n- FIELD NUMBER: 81203
\n- GET ACTION: S VALUE=$P($G(VPRXM(\"DATA SOURCE\")),U,2)
\n \n- \n
- Package
\n- SEQUENCE: 2
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.13
\n- FIELD NUMBER: 81203
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PACKAGE
\n- GET ACTION: S VALUE=$P($G(VPRXM(\"PACKAGE\")),U)
\n \n- \n
- ResultValue
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.13
\n- FIELD NUMBER: 220
\n- GET ACTION: S VALUE=$P($G(VPRXM(\"MEASUREMENT\")),U)
\n \n- \n
- Units
\n- SEQUENCE: 4
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.13
\n- FIELD NUMBER: 221
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR UNITS
\n- GET ACTION: S VALUE=$P($G(VPRXM(\"MEASUREMENT\")),U,2)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR V EXAM; it expects VPRVST, VPRVST0, and the\nVPRXM array.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR UNITS", "757.5\n", "", "", "", "SDA\n", "UoM\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 757.5
\n- FIELD NUMBER: 1
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 757.5
\n- FIELD NUMBER: .01
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA757.5
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nReturns a coded element for the UCUM CODES (#757.5) file.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR ICD OP", "80.1\n", "", "", "", "SDA\n", "ProcedureCode\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 80.1
\n- FIELD NUMBER: .01
\n- GET ACTION: S:$G(VPRCODE) VALUE=$P(VPRCODE,U,2)
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P($G(VPRCODE),U,5)
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 80.1
\n- FIELD NUMBER: 1.1
\n- OUTPUT TRANSFORM: S VALUE=$$SNAM^ICDEX(VALUE)
\n- GET ACTION: S VALUE=$P(VPRCODE,U,15)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "S VPRDT=$G(DATA(\"DATE\"),DT)\n", "K VPRDT,VPRCODE\n", "S VPRCODE=$$ICDOP^ICDEX(DIEN,VPRDT,,\"I\")\n", "", "", "", "", ""], ["VPR PATIENT ADDRESS", "2\n", "", "", "", "SDA\n", "Address\n", "\n- \n
\n- \n
- Street
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .111
\n- GET ACTION: S VALUE=$G(VAPA(1)) I $L(VALUE) N I F I=2,3 S:$L($G(VAPA(I))) VALUE=VALUE_\";\"_VAPA(I)
\n \n- \n
- City
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .114
\n- ENTITY: VPR CODE ONLY
\n- OUTPUT TRANSFORM: S VALUE=$E(VALUE,1,50)
\n- GET ACTION: S VALUE=$G(VAPA(4))
\n \n- \n
- State
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .115
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR STATE
\n- GET ACTION: S VALUE=$S($G(VAPA(\"HasCountry\"))=1:$G(VAPA(23)),1:$P($G(VAPA(5)),U))
\n \n- \n
- Zip
\n- SEQUENCE: 7
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .116
\n- ENTITY: VPR CODE ONLY
\n- GET ACTION: S VALUE=$S($G(VAPA(\"HasCountry\"))=1:$G(VAPA(24)),$P($G(VAPA(11)),U,2)'=\"\":$P(VAPA(11),U,2),1:$G(VAPA(6)))
\n \n- \n
- Country
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .1173
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR COUNTRY
\n \n- \n
- Extension
\n- SEQUENCE: 1
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- ENTITY: VPR PATIENT ADDRESS EXTENSION
\n- GET ACTION: S VALUE=DIEN N X S X=$G(^DPT(DIEN,.11)) I $L($P(X,U,1,6))<6,'$P(X,U,10) S DDEOUT=1
\n \n- \n
- FromTime
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .118
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n- \n
- County
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .117
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: N X S X=$G(VAPA(7)) S:X VALUE=X_\"^VA5.01\" I X<1 S DDEOUT=1
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT, and expects the Patient file #2 ien\nas the ID.\n
\n\n", "", "", "", "", "S DFN=DIEN,VAPA(\"P\")=\"\" D ADD^VADPT\n", "K VAPA,VPR(\"ForeignCountryFlag\")\n", "D ADD^VPRSDAD(DFN)\n", "", "", "", "", ""], ["VPR ORDER DIALOG", "101.41\n", "", "", "", "SDA\n", "OrderItem\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: ID
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 101.41
\n- FIELD NUMBER: 2
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA101.41
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity returns the Order Dialog of an order as a coded element. It can\nbe used as the Order Item for text-only orders.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR INSURANCE EXTENSION", "", "", "", "", "SDA\n", "MemberEnrollementExtension\n", "\n- \n
\n- \n
- HasOutpatientCoverage
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: N X S X=$G(VPRINS(VPRP,16)),VALUE=$S(X:\"true\",1:\"false\")
\n \n- \n
- HasInpatientCoverage
\n- SEQUENCE: 2
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: N X S X=$G(VPRINS(VPRP,16)),VALUE=$S(X:\"true\",1:\"false\")
\n \n- \n
- IsPolicyReimbursable
\n- SEQUENCE: 3
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: N X S X=$G(VPRINS(VPRP,9)),VALUE=$S(X:\"true\",1:\"false\")
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR INSURANCE, and expects the VPRINS array to be\ndefined.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR DEL INSURANCE", "2.312\n", "", "", "", "SDA\n", "MemberEnrollment\n", "\n- \n
\n- \n
- MemberEnrollmentNumber
\n- SEQUENCE: 10
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=+$G(VPRINS(1))_\";\"_+$G(VPRINS(8))_\";\"_$G(VPRINS(14)) ; = Company#;Policy#;SubscriberID
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity is called from inside GET^VPRHS when Health Connect requests\na record by its sequence number in the AVPR upload list, and that update\nis a delete. The IBCN-VPR listener will save the deleted record's info in\n^XTMP("VPR-seq#") for this entity, to send the data elements needed by HC\nto find the record and remove it.\n\n\n", "", "", "", "", "", "K VPRIB,VPRINS\n", "D DEL^VPRSDAIB\n", "", "", "", "", ""], ["VPR SOCIAL HX EXTENSION", "9000010.23\n", "", "", "", "SDA\n", "SocialHistoryExtension\n", "\n- \n
\n- \n
- Category
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: .01
\n- EXTENDED POINTER LKUP: .03
\n \n- \n
- DataSource
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: 81203
\n- GET ACTION: S VALUE=$P($G(VPRHF(\"DATA SOURCE\")),U,2)
\n \n- \n
- Package
\n- SEQUENCE: 3
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: 81202
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PACKAGE
\n- GET ACTION: S VALUE=$P($G(VPRHF(\"PACKAGE\")),U)
\n \n- \n
- Severity
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: .04
\n- GET ACTION: Q ;S VALUE=$P($G(VPRHF(\"LEVEL/SEVERITY\")),U)
\n \n- \n
- Quantity
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: 220
\n- GET ACTION: S VALUE=$P($G(VPRHF(\"MEASUREMENT\")),U)
\n \n- \n
- QuantityLabel
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: .01
\n- EXTENDED POINTER LKUP: 224
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR SOCIAL HISTORY and expects the VPRHF array to be \ndefined.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["PSO ACTIVITY LIST", "52.3\n", "", "", "", "", "ACTIVITY LOG\n", "\n- \n
\n- \n
- activityLogDate
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.3
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$FMTHL7^XLFDT(VALUE)
\n \n- \n
- reason
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.3
\n- FIELD NUMBER: .02
\n \n- \n
- initiatorOfActivity
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.3
\n- FIELD NUMBER: .03
\n \n- \n
- rxReference
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.3
\n- FIELD NUMBER: .04
\n \n- \n
- comment
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.3
\n- FIELD NUMBER: .05
\n \n- \n
- otherComments
\n- SEQUENCE: 6
\n- ITEM TYPE: LIST
\n- FILE NUMBER: 52.34
\n- ENTITY: PSO ACTIVITY OTHER COMMENTS
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nFile of fields from Activity log (#52.3) in the PRESCRIPTION (#52) file.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["PSO ACTIVITY LOG", "52\n", "", "", "", "", "ACTIVITY LOG\n", "\n- \n
\n- \n
- Rx#
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52
\n- FIELD NUMBER: .01
\n \n- \n
- listItem
\n- SEQUENCE: 2
\n- ITEM TYPE: LIST
\n- FILE NUMBER: 52.3
\n- ENTITY: PSO ACTIVITY LIST
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nFile of fields from Activity log (#52.3) in the PRESCRIPTION (#52) file.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["PSO ACTIVITY OTHER COMMENTS", "52.34\n", "", "", "", "", "ACTIVITY LOG OTHER COMMENTS\n", "\n- \n
\n- \n
- otherComments
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.34
\n- FIELD NUMBER: .01
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity pulles the OTHER COMMENTS (#4) field from the ACTIVITY LOG\n(#52.3) subfile inside the PRECRIPTION (#52) fiel for a given \nprescription.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["PSO CMOP LOG", "52.01\n", "", "", "", "", "CMOP Log\n", "\n- \n
\n- \n
- dateShipped
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.01
\n- FIELD NUMBER: 9
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$FMTHL7^XLFDT(VALUE)
\n \n- \n
- fdaMedGuide
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.01
\n- FIELD NUMBER: 35
\n \n- \n
- ndcReceived
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.01
\n- FIELD NUMBER: 4
\n \n- \n
- rxReference
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.01
\n- FIELD NUMBER: 2
\n \n- \n
- sequenceNumber
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.01
\n- FIELD NUMBER: 1
\n \n- \n
- status
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.01
\n- FIELD NUMBER: 3
\n \n- \n
- transmissionNumber
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.01
\n- FIELD NUMBER: .01
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""], ["PSO CMOP M", "52\n", "", "", "", "", "PSO CMOP M\n", "\n- \n
\n- \n
- rXnumber
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52
\n- FIELD NUMBER: .01
\n \n- \n
- cmopList
\n- SEQUENCE: 2
\n- ITEM TYPE: LIST
\n- FILE NUMBER: 52.3
\n- ENTITY: PSO CMOP LOG
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""], ["PSO COPAY LIST", "52.0107\n", "B\n", "", "", "", "COPAY LOG\n", "\n- \n
\n- \n
- copayActivityLogDate
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.0107
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$FMTHL7^XLFDT(VALUE)
\n \n- \n
- reason
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.0107
\n- FIELD NUMBER: 1
\n \n- \n
- initiatorOfCopayActivity
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.0107
\n- FIELD NUMBER: 2
\n \n- \n
- rxReference
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.0107
\n- FIELD NUMBER: 3
\n \n- \n
- comment
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.0107
\n- FIELD NUMBER: 4
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nList of entries from COPAY Transaction Log in PRESCRIPTION (#52) file.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR STATE", "5\n", "", "", "", "SDA\n", "State\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 5
\n- FIELD NUMBER: 1
\n \n- \n
- Description
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 5
\n- FIELD NUMBER: .01
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "D SID^VPRSDAD\n", "", "", "", "", ""], ["PSO COPAY LOG", "52\n", "B\n", "", "", "", "COPAY LOG\n", "\n- \n
\n- \n
- listItem
\n- SEQUENCE: 2
\n- ITEM TYPE: LIST
\n- FILE NUMBER: 52.0107
\n- ENTITY: PSO COPAY LIST
\n \n- \n
- Rx#
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52
\n- FIELD NUMBER: .01
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nList of entries from COPAY Transaction Log in PRESCRIPTION (#52) file.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["PSO DIVISION", "59\n", "", "", "", "", "DIVISION\n", "\n- \n
\n- \n
- Division
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 59
\n- OUTPUT TRANSFORM: S VALUE=$$GET1^DIQ(59,VALUE,.06,\"I\")
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""], ["PSO DIVISION NAME", "59\n", "", "", "", "", "DIVISION NAME\n", "\n- \n
\n- \n
- Division Name
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 59
\n- FIELD NUMBER: .06
\n- OUTPUT TRANSFORM: S VALUE=$$GET1^DIQ(59,VALUE_C,.06)
\n- GET ACTION: S VALUE=$$GET1^DIQ(59,VALUE_C,.06)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""], ["PSO ECME LOG", "52\n", "", "", "", "", "ECME LOG\n", "\n- \n
\n- \n
- ecmeLogDate
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.3
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$FMTHL7^XLFDT(VALUE)
\n \n- \n
- reason
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.3
\n- FIELD NUMBER: .02
\n \n- \n
- initiatorOfActivity
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.3
\n- FIELD NUMBER: .03
\n \n- \n
- rxReference
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.3
\n- FIELD NUMBER: .04
\n \n- \n
- comment
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.3
\n- FIELD NUMBER: .05
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nFile of fields from Activity log (#52.3) in the PRESCRIPTION (#52) file.\n
\n\n", "", "", "", "", "", "", "S C=\",\" I $$GET1^DIQ(FILE,DIEN_C,.02)'=\"ECME\" S DDEOUT=1\n", "", "", "", "", ""], ["PSO ECME M", "52\n", "", "", "", "", "PSO ECME M\n", "\n- \n
\n- \n
- rXnumber
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52
\n- FIELD NUMBER: .01
\n \n- \n
- ecmeList
\n- SEQUENCE: 2
\n- ITEM TYPE: LIST
\n- FILE NUMBER: 52.3
\n- ENTITY: PSO ECME LOG
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""], ["PSO ERX LOG", "52\n", "", "", "", "", "eRx LOG\n", "\n- \n
\n- \n
- eRxLogDate
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.3
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$FMTHL7^XLFDT(VALUE)
\n \n- \n
- reason
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.3
\n- FIELD NUMBER: .02
\n \n- \n
- initiatorOfActivity
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.3
\n- FIELD NUMBER: .03
\n \n- \n
- rxReference
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.3
\n- FIELD NUMBER: .04
\n \n- \n
- comment
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.3
\n- FIELD NUMBER: .05
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\n \nXFile of fields from Activity log (#52.3) in the PRESCRIPTION (#52) file.\n
\n\n", "", "", "", "", "", "", "S C=\",\" I $$GET1^DIQ(FILE,DIEN_C,.02)'=\"IERX\" S DDEOUT=1\n", "", "", "", "", ""], ["PSO ERX M", "52\n", "", "", "", "", "PSO ERX M\n", "\n- \n
\n- \n
- rXnumber
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52
\n- FIELD NUMBER: .01
\n \n- \n
- erxList
\n- SEQUENCE: 2
\n- ITEM TYPE: LIST
\n- FILE NUMBER: 52.3
\n- ENTITY: PSO ERX LOG
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""], ["PSO LABEL LOG", "52\n", "", "", "", "", "LABEL LOG\n", "\n- \n
\n- \n
- listitem
\n- SEQUENCE: 2
\n- ITEM TYPE: LIST
\n- FILE NUMBER: 52.032
\n- ENTITY: PSO LABELS LIST
\n \n- \n
- Rx#
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52
\n- FIELD NUMBER: .01
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nRetrieval of LABEL LOG (#52.032) subfile entries.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["PSO LABELS LIST", "52.032\n", "", "", "", "", "LABEL LOG\n", "\n- \n
\n- \n
- labelDateTime
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.032
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$FMTHL7^XLFDT(VALUE)
\n \n- \n
- rxReference
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.032
\n- FIELD NUMBER: 1
\n \n- \n
- labelComment
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.032
\n- FIELD NUMBER: 2
\n \n- \n
- printedBy
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.032
\n- FIELD NUMBER: 3
\n \n- \n
- fdaMedGuide
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.032
\n- FIELD NUMBER: 35
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nRetrieval of LABEL LOG (#52.032) subfile entries.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["PSO LOT EXP", "52.0401\n", "", "", "", "", "LOT/EXPIRATION LOG FILE\n", "\n- \n
\n- \n
- lotExp
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.0401
\n- FIELD NUMBER: .01
\n \n- \n
- expirationDate
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.0401
\n- FIELD NUMBER: 1
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$FMTHL7^XLFDT(VALUE)
\n \n- \n
- rxIndicator
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.0401
\n- FIELD NUMBER: 2
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR ETHNICITY", "10.2\n", "", "", "", "SDA\n", "EthnicGroup\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 10.2
\n- FIELD NUMBER: 3
\n \n- \n
- Description
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 10.2
\n- FIELD NUMBER: .01
\n- GET ACTION: S VALUE=$P($G(VADM(11,1)),U,2)
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: CDC
\n \n- \n
- Extension
\n- SEQUENCE: 7
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 10.3
\n- ENTITY: VPR CDC EXTENSION
\n- GET ACTION: S VALUE=$G(VADM(11,1,1))
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT, and expects the Ethnicity file #10.2\nien as the ID as well as the VADM(11) array from VADPT.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["PSO LOT EXP M", "52\n", "", "", "", "", "PSO LOT EXP M\n", "\n- \n
\n- \n
- rXnumber
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52
\n- FIELD NUMBER: .01
\n \n- \n
- lotExpList
\n- SEQUENCE: 2
\n- ITEM TYPE: LIST
\n- FILE NUMBER: 52.3
\n- ENTITY: PSO LOT EXP
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""], ["PSO PARTIALS LIST", "52.2\n", "B\n", "", "", "", "PARTIALS LOG\n", "\n- \n
\n- \n
- dispensedDate
\n- SEQUENCE: 9
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.2
\n- FIELD NUMBER: 7.5
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$FMTHL7^XLFDT(VALUE)
\n \n- \n
- releasedDateTime
\n- SEQUENCE: 10
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.2
\n- FIELD NUMBER: 8
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$FMTHL7^XLFDT(VALUE)
\n \n- \n
- routing
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.2
\n- FIELD NUMBER: .02
\n \n- \n
- divisionNumber
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.2
\n- FIELD NUMBER: .09
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$GET1^DIQ(59,VALUE_C,.06)
\n \n- \n
- divisionName
\n- SEQUENCE: 8
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.2
\n- FIELD NUMBER: .09
\n \n- \n
- loginDateTime
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.2
\n- FIELD NUMBER: .08
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$FMTHL7^XLFDT(VALUE)
\n \n- \n
- lot#
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.2
\n- FIELD NUMBER: .06
\n \n- \n
- ndc
\n- SEQUENCE: 11
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.2
\n- FIELD NUMBER: 1
\n \n- \n
- partialDate
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.2
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$FMTHL7^XLFDT(VALUE)
\n \n- \n
- pharmacistName
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.2
\n- FIELD NUMBER: .05
\n \n- \n
- qty
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.2
\n- FIELD NUMBER: .04
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nList of entries from the Partials log inside the PRESCRIPTION (#52) file.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["PSO PARTIALS LOG", "52\n", "", "", "", "", "PARTIALS LOG\n", "\n- \n
\n- \n
- Rx#
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52
\n- FIELD NUMBER: .01
\n \n- \n
- partialslist
\n- SEQUENCE: 2
\n- ITEM TYPE: LIST
\n- FILE NUMBER: 52.2
\n- ENTITY: PSO PARTIALS LIST
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nA list of Partials log entries for a given external PRESCRIPTION number.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["PSO REFILL LIST", "52.1\n", "", "", "", "", "", "\n- \n
\n- \n
- refillDate
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.1
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$FMTHL7^XLFDT(VALUE)
\n \n- \n
- quantity
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.1
\n- FIELD NUMBER: 1
\n \n- \n
- dispensedDate
\n- SEQUENCE: 9
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.1
\n- FIELD NUMBER: 10.1
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$FMTHL7^XLFDT(VALUE)
\n \n- \n
- ndc
\n- SEQUENCE: 11
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.1
\n- FIELD NUMBER: 11
\n \n- \n
- divisionNumber
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.1
\n- FIELD NUMBER: 8
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$GET1^DIQ(59,VALUE_C,.06)
\n- GET ACTION: S VALUE=$$GET1^DIQ(52.1,DIEN,8,\"I\")
\n \n- \n
- divisionName
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.1
\n- FIELD NUMBER: 8
\n- GET ACTION: N V S V=$$GET1^DIQ(52.1,DIEN,8),VALUE=$$GET1^DIQ(59,V_C,.01)
\n \n- \n
- releasedDateTime
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.1
\n- FIELD NUMBER: 17
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$FMTHL7^XLFDT(VALUE)
\n \n- \n
- routing
\n- SEQUENCE: 8
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.1
\n- FIELD NUMBER: 2
\n \n- \n
- lot#
\n- SEQUENCE: 10
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.1
\n- FIELD NUMBER: 5
\n \n- \n
- personRequestingRefill
\n- SEQUENCE: 12
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.1
\n- FIELD NUMBER: 95
\n \n- \n
- pharmacistName
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.1
\n- FIELD NUMBER: 4
\n- GET ACTION: S VALUE=$$GET1^DIQ(FILE,DIEN,FIELD)
\n \n- \n
- loginDate
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52.1
\n- FIELD NUMBER: 7
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$FMTHL7^XLFDT(VALUE)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nEntity file extract of Refil Log (#52.1) file of PRESCRIPTION (#52) file.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["PSO REFILL LOG", "52.1\n", "B\n", "", "", "", "REFILL LOG\n", "\n- \n
\n- \n
- Rx#
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52
\n- FIELD NUMBER: .01
\n \n- \n
- fillList
\n- SEQUENCE: 2
\n- ITEM TYPE: LIST
\n- FILE NUMBER: 52.1
\n- ENTITY: PSO REFILL LIST
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nEntity file extract of Refil Log (#52.1) file of PRESCRIPTION (#52) file.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["PSO TEMPORARY ADDRESS", "2\n", "", "", "", "SDA\n", "TEMPORARY ADDRESS\n", "\n- \n
\n- \n
- StreetL1
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .1211
\n \n- \n
- Province
\n- SEQUENCE: 10
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .1221
\n \n- \n
- PostCode
\n- SEQUENCE: 11
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .1222
\n \n- \n
- Country
\n- SEQUENCE: 12
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .1223
\n- COMPLEX TYPE:
\n- \n
\n- \n
- COMPLEX ITEM SEQUENCE: 1
\n- COMPLEX ITEM NAME: Country
\n \n
\n
\n \n- \n
- County
\n- SEQUENCE: 13
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .12111
\n \n- \n
- Zip+4
\n- SEQUENCE: 14
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .12112
\n \n- \n
- TempAddActive
\n- SEQUENCE: 15
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .12105
\n \n- \n
- StreetL2
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .1212
\n \n- \n
- StreetL3
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .1213
\n \n- \n
- City
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .1214
\n \n- \n
- State
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .1215
\n \n- \n
- Zip
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .1216
\n \n- \n
- StartDate
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .1217
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$FMTHL7^XLFDT(VALUE)
\n \n- \n
- EndDate
\n- SEQUENCE: 8
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .1218
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$FMTHL7^XLFDT(VALUE)
\n \n- \n
- PhoneNumber
\n- SEQUENCE: 9
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .1219
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR ORDER FLAG", "100.008\n", "", "", "", "SDA\n", "Flag\n", "\n- \n
\n- \n
- FlagStatus
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.008
\n- FIELD NUMBER: 31
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",1:\"false\")
\n- GET ACTION: S VALUE=$P($G(ORFLAG),U)
\n \n- \n
- FlaggedOn
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.008
\n- FIELD NUMBER: 33
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(ORFLAG),U,3)
\n \n- \n
- FlaggedBy
\n- SEQUENCE: 3
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100.008
\n- FIELD NUMBER: 34
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$P($G(ORFLAG),U,4)
\n \n- \n
- FlagReason
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.008
\n- FIELD NUMBER: 35
\n- GET ACTION: S VALUE=$P($G(ORFLAG),U,5)
\n \n- \n
- UnflaggedOn
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.008
\n- FIELD NUMBER: 36
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(ORFLAG),U,6)
\n \n- \n
- UnflaggedBy
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100.008
\n- FIELD NUMBER: 37
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$P($G(ORFLAG),U,7)
\n \n- \n
- UnflagReason
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.008
\n- FIELD NUMBER: 38
\n- GET ACTION: S VALUE=$P($G(ORFLAG),U,8)
\n \n- \n
- OrderAction
\n- SEQUENCE: 8
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.008
\n- FIELD NUMBER: 2
\n- RETURN INTERNAL VALUE: YES
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity returns flag data for an order action. It is intended to be\ncalled from VPR MED EXTENSION.\n
\n\n", "", "", "", "", "", "K ORFLAG\n", "S ORFLAG=$G(^OR(100,+$P($G(DIEN),\",\",2),8,+$G(DIEN),3)) S:ORFLAG=\"\" DDEOUT=1\n", "", "", "", "", ""], ["PSO MAILING ADDRESS", "", "", "", "", "", "MAILING ADDRESS\n", "\n- \n
\n- \n
- StreetL1
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .111
\n \n- \n
- PostCode
\n- SEQUENCE: 10
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .1172
\n \n- \n
- StreetL2
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .112
\n \n- \n
- StreetL3
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .113
\n \n- \n
- City
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .114
\n \n- \n
- Zip
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .116
\n \n- \n
- State
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .115
\n \n- \n
- Zip+4
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .1112
\n \n- \n
- Province
\n- SEQUENCE: 8
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .1171
\n \n- \n
- Country
\n- SEQUENCE: 9
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .1173
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR RELIGION", "13\n", "", "", "", "SDA\n", "Religion\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 13
\n- FIELD NUMBER: 3
\n \n- \n
- Description
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 13
\n- FIELD NUMBER: .01
\n- GET ACTION: S VALUE=$G(DATA)
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA13
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT, and expects the Religion file #13 ien \nas the ID.\n \nIf the local variable DATA is defined, it will be used as the value for \nthe Description.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR MARITAL STATUS", "11.99\n", "", "", "", "SDA\n", "MaritalStatus\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 11.99
\n- FIELD NUMBER: 1
\n- RETURN INTERNAL VALUE: YES
\n- GET ACTION: I $G(DATA) N X S X=$$GET1^DIQ(11,+DATA,2,\"I\"),VALUE=$S(X=\"S\":\"A\",X=\"N\":\"S\",1:X)
\n \n- \n
- Description
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 11.99
\n- FIELD NUMBER: .01
\n- GET ACTION: I $G(DATA) N X S X=$P(DATA,U,2),VALUE=$S(X=\"NEVER MARRIED\":\"Single\",1:$$LOWER^VALM1(X))
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: HL7
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT, and expects the Master Marital Status\nfile #11.99 ien as the ID. If the local variable DATA is defined (i.e.,\nthe Master Marital Status record cannot be identified), it will contain \nthe #11 ien^name and be converted manually to HL7 table values.\n
\n\n", "", "", "", "", "", "", "I DIEN'>0,'$G(DATA) S DDEOUT=1\n", "", "", "", "", ""], ["VPR VISIT", "9000010\n", "", "", "", "SDA\n", "Encounter\n", "\n- \n
\n- \n
- EncounterNumber
\n- SEQUENCE: 3
\n- ITEM TYPE: ID
\n \n- \n
- EnteredOn
\n- SEQUENCE: 43
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010
\n- FIELD NUMBER: .02
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(@VPRVST@(0)),U,2)
\n \n- \n
- FromTime
\n- SEQUENCE: 44
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(@VPRVST@(0)),U)
\n \n- \n
- ToTime
\n- SEQUENCE: 45
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010
\n- FIELD NUMBER: .18
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(@VPRVST@(0)),U,18) S:'VALUE VALUE=$$VTO^VPRSDAV(DIEN)
\n \n- \n
- Extension
\n- SEQUENCE: 2
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010
\n- ENTITY: VPR VISIT EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- Priority
\n- SEQUENCE: 35
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010
\n- FIELD NUMBER: 15003
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=$P($G(@VPRVST@(150)),U,3)
\n \n- \n
- HealthCareFacility
\n- SEQUENCE: 22.1
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010
\n- FIELD NUMBER: 2101
\n- ENTITY: VPR TEXT ONLY
\n- GET ACTION: S VALUE=$P($G(@VPRVST@(21)),U) I $P($G(@VPRVST@(0)),U,22) S DDEOUT=1 ;only return if no Hosp Location
\n \n- \n
- EncounterType
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010
\n- FIELD NUMBER: 15002
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"I\",VALUE=0:\"O\",1:VALUE)
\n- GET ACTION: S VALUE=$P($G(@VPRVST@(150)),U,2) S:$O(^EDP(230,\"V\",DIEN,0)) VALUE=\"E\" ;Emergency
\n \n- \n
- EncounterCodedType
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010
\n- FIELD NUMBER: .07
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=$P($G(@VPRVST@(0)),U,7)
\n \n- \n
- ConsultingClinicians
\n- SEQUENCE: 9
\n- ITEM TYPE: LIST
\n- FILE NUMBER: 9000010.06
\n- ENTITY: VPR PROVIDER
\n- LIST TYPE: ARRAY
\n- XML NAME: CareProvider
\n- XREF: AD
\n- FILTER BY: DIEN
\n- GET ACTION: D VPRV^VPRSDAV(DIEN)
\n \n- \n
- AccountNumber
\n- SEQUENCE: 11
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010
\n- FIELD NUMBER: .26
\n- GET ACTION: S VALUE=$P($G(@VPRVST@(0)),U,26)
\n \n- \n
- HealthCareFacility
\n- SEQUENCE: 22
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010
\n- FIELD NUMBER: .22
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR LOCATION
\n- GET ACTION: S VALUE=$P($G(@VPRVST@(0)),U,22)
\n \n- \n
- EnteredBy
\n- SEQUENCE: 41
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010
\n- FIELD NUMBER: .23
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$P($G(@VPRVST@(0)),U,23)
\n \n- \n
- EnteredAt
\n- SEQUENCE: 42
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010
\n- FIELD NUMBER: .06
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$P($G(@VPRVST@(0)),U,6) S:'VALUE VALUE=$$SITE^VPRSDA
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populates the Encounter container in HealthShare from the \nVISIT (#9000010) file; it expects the record IEN as the ID.\n \nIf the requested visit does not exist, control will pass to the VPR VISIT \nSTUB entity to return a stub to HealthShare containing only the Encounter \nNumber, so the HS matching logic and find and remove the record there.\n
\n\n", "", "", "", "", "", "K ^TMP(\"PXKENC\",$J),VPRVST,VADMVT,VAIP\n", "D VST^VPRSDAV\n", "QRY^VPRSDAV\n", "", "", "", ""], ["VPR INSURANCE PLAN", "355.3\n", "", "", "", "SDA\n", "HealthFund\n", "\n- \n
\n- \n
- HealthFund
\n- SEQUENCE: 2
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 355.3
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR INSURANCE COMPANY
\n- GET ACTION: S VALUE=$P($G(VPRINS(VPRP,1)),U)
\n \n- \n
- EnteredAt
\n- SEQUENCE: 14
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 355.3
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$G(VASITE) ;default #4 ien
\n \n- \n
- FromTime
\n- SEQUENCE: 16
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2.312
\n- FIELD NUMBER: 8
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRINS(VPRP,10)),IEN=VPRPIEN
\n \n- \n
- ToTime
\n- SEQUENCE: 17
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2.312
\n- FIELD NUMBER: 3
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRINS(VPRP,11)),IEN=VPRPIEN
\n \n- \n
- HomePhoneNumber
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2.312
\n- FIELD NUMBER: 3.11
\n- GET ACTION: S VALUE=$G(VPRINS(VPRP,31)),IEN=VPRPIEN
\n \n- \n
- PlanType
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 355.3
\n- FIELD NUMBER: .09
\n- EXTENDED POINTER LKUP: .03
\n \n- \n
- Priority
\n- SEQUENCE: 12
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2.312
\n- FIELD NUMBER: .2
\n- RETURN INTERNAL VALUE: YES
\n- GET ACTION: S VALUE=$P($G(VPRINS(7)),U),IEN=VPRPIEN
\n \n- \n
- HealthFundPlan
\n- SEQUENCE: 3
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 355.3
\n- ENTITY: VPR INS GROUP NAME
\n- GET ACTION: S VALUE=$P($G(VPRINS(VPRP,8)),U)
\n \n- \n
- GroupName
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 355.3
\n- FIELD NUMBER: 2.01
\n- GET ACTION: S VALUE=$P($G(VPRINS(VPRP,8)),U,2)
\n \n- \n
- GroupNumber
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 355.3
\n- FIELD NUMBER: 2.02
\n- GET ACTION: S VALUE=$G(VPRINS(VPRP,18))
\n \n- \n
- MembershipNumber
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2.312
\n- FIELD NUMBER: 7.02
\n- GET ACTION: S VALUE=$G(VPRINS(VPRP,14))
\n \n- \n
- InsuredName
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2.312
\n- FIELD NUMBER: 7.01
\n- ENTITY: VPR NAME
\n- GET ACTION: S VALUE=$G(VPRINS(VPRP,13)),IEN=VPRPIEN
\n \n- \n
- InsuredAddress
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2.312
\n- ENTITY: VPR INSURED ADDRESS
\n- GET ACTION: S VALUE=VPRPIEN
\n \n- \n
- InsuredContact
\n- SEQUENCE: 10
\n- ITEM TYPE: COMPLEX GROUP
\n- COMPLEX TYPE:
\n- \n
\n- \n
- COMPLEX ITEM SEQUENCE: 1
\n- COMPLEX ITEM NAME: HomePhoneNumber
\n \n
\n
\n \n- \n
- InsuredRelationship
\n- SEQUENCE: 11
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2.312
\n- FIELD NUMBER: 16
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=$G(VPRINS(VPRP,12)),IEN=VPRPIEN
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity returns information about an insurance plan from the GROUP\nINSURANCE PLAN (#355.3) file. It supports the VPR INSURANCE entity and\nexpects the VPRINS array to be defined.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR LOCATION", "44\n", "", "", "", "SDA\n", "HealthCareFacility\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 4
\n- ITEM TYPE: ID
\n \n- \n
- Description
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 44
\n- FIELD NUMBER: .01
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA44
\n \n- \n
- Organization
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 44
\n- FIELD NUMBER: 3
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR FACILITY
\n \n- \n
- LocationType
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 44
\n- FIELD NUMBER: 2
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: N X S X=VALUE,VALUE=$S(X=\"C\":\"CLINIC\",X=\"W\":\"WARD\",(X=\"I\")!(X=\"OR\"):\"DEPARTMENT\",1:\"OTHER\")
\n \n- \n
- Extension
\n- SEQUENCE: 3
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 44
\n- ENTITY: VPR LOCATION EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR ALLERGY", "120.8\n", "", "", "", "SDA\n", "Allergy\n", "\n- \n
\n- \n
- Allergy
\n- SEQUENCE: 3
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 120.8
\n- FIELD NUMBER: 1
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- OUTPUT TRANSFORM: S VALUE=$$ALLERGEN^VPRSDAL(VALUE)
\n- GET ACTION: S VALUE=$P(VPRALG,U,9)
\n \n- \n
- EnteredAt
\n- SEQUENCE: 23
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 120.8
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$G(VASITE) ;default #4 ien
\n \n- \n
- EnteredOn
\n- SEQUENCE: 24
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 120.8
\n- FIELD NUMBER: 4
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: N X,Y,%DT S X=$P($G(GMRAY),U,10),%DT=\"TSX\" I $L(X) D ^%DT S:Y>0 VALUE=Y
\n \n- \n
- Extension
\n- SEQUENCE: 2
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 120.8
\n- ENTITY: VPR ALLERGY EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- Clinician
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 120.8
\n- FIELD NUMBER: 21
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n \n- \n
- AllergyCategory
\n- SEQUENCE: 4
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 120.8
\n- FIELD NUMBER: 3.1
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- OUTPUT TRANSFORM: N X S X=$$EXTERNAL^DILFD(120.8,3.1,,VALUE),VALUE=X_U_X_\"^VHAT\"
\n- GET ACTION: S VALUE=$P(VPRALG,U,7)
\n \n- \n
- Status
\n- SEQUENCE: 19
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 120.8
\n- FIELD NUMBER: 22
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"I\",1:\"A\")
\n \n- \n
- FromTime
\n- SEQUENCE: 25
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 120.85
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$$EVTDT^VPRSDAL(DIEN)
\n \n- \n
- ToTime
\n- SEQUENCE: 26
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 120.8
\n- FIELD NUMBER: 23
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n- \n
- InactiveTime
\n- SEQUENCE: 12
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 120.8
\n- FIELD NUMBER: 23
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(VPRALG(\"ERROR\")),\";\",2)
\n \n- \n
- InactiveComments
\n- SEQUENCE: 13
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 120.8
\n- GET ACTION: S VALUE=$$CMT1^VPRSDAL(DIEN,\"E\")
\n \n- \n
- ExternalId
\n- SEQUENCE: 27
\n- ITEM TYPE: ID
\n \n- \n
- EnteredBy
\n- SEQUENCE: 22
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 120.8
\n- FIELD NUMBER: 5
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n \n- \n
- Reaction
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 120.8
\n- ENTITY: VPR ALLERGY SIGN/SYMPTOM
\n- GET ACTION: I $D(VPRALG(\"S\")) N X S X=$G(VPRALG(\"S\",1)),VALUE=$P($P(X,U),\";\",2)_U_$P($P(X,U),\";\")_$S($L($P(X,U,2))>1:U_$P($P(X,U,2),\";\",2),1:\"\") ;first
\n \n- \n
- Severity
\n- SEQUENCE: 7
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 120.85
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=$$SEVRTY^VPRSDAL(DIEN)
\n \n- \n
- Certainty
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 120.8
\n- FIELD NUMBER: 19
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE ONLY
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"Confirmed\",1:\"\") ;FHIR value
\n- GET ACTION: S VALUE=($E($P($G(GMRAY),U,4))=\"V\")
\n \n- \n
- VerifiedTime
\n- SEQUENCE: 14
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 120.8
\n- FIELD NUMBER: 20
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(GMRAY),U,9)
\n \n- \n
- FreeTextAllergy
\n- SEQUENCE: 17
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 120.8
\n- FIELD NUMBER: .02
\n- GET ACTION: S VALUE=$P(VPRALG,U,2) S:VALUE=\"\" VALUE=$P($G(GMRAY),U)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populates the Allergy container in HealthShare from the\nPATIENT ALLERGIES (#120.8) file; it expects the record IEN as the ID (DIEN).\n \nThis entity is supported by code in routine VPRSDAL, which uses the\nGMRADPT and GMRAOR2 routines to extract allergies. Data in SDA is\nmaintained by monitoring the following protocol events:\n GMRA ENTERED IN ERROR\n GMRA SIGN-OFF ON DATA\n GMRA VERIFY DATA\n
\n\n", "", "", "", "", "S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM(\"INST\")\n", "K GMRAL,GMRAY,VPRALG,VASITE\n", "D ALG1^VPRSDAL(DIEN)\n", "QRY^VPRSDAL\n", "", "", "", ""], ["VPR DOCUMENT", "8925\n", "", "", "", "SDA\n", "Document\n", "\n- \n
\n- \n
- FromTime
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: .07
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRTIU(DIEN,.07,\"I\"))
\n \n- \n
- DocumentName
\n- SEQUENCE: 12
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: .01
\n- GET ACTION: S VALUE=$P($G(^TIU(8925.1,+$G(VPRTIU(DIEN,.01,\"I\")),0)),U)
\n \n- \n
- DocumentNumber
\n- SEQUENCE: 16
\n- ITEM TYPE: ID
\n- OUTPUT TRANSFORM: S VALUE=VALUE_\";TIU\"
\n- INPUT TRANSFORM: S:$P(VALUE,\";\",2)=\"TIU\" VALUE=+VALUE
\n \n- \n
- DocumentCompletionStatus
\n- SEQUENCE: 19
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: .05
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR DOCUMENT STATUS
\n- GET ACTION: S VALUE=$G(VPRTIU(DIEN,.05,\"I\"))
\n \n- \n
- EnteredBy
\n- SEQUENCE: 22
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: 1302
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$G(VPRTIU(DIEN,1302,\"I\"))
\n \n- \n
- EnteredAt
\n- SEQUENCE: 23
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: 1212
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$G(VPRTIU(DIEN,1212,\"I\")) S:'VALUE VALUE=$$SITE^VPRSDA
\n \n- \n
- EnteredOn
\n- SEQUENCE: 24
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: 1201
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRTIU(DIEN,1201,\"I\"))
\n \n- \n
- FileType
\n- SEQUENCE: 13
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: TXT
\n \n- \n
- Extension
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 8925
\n- ENTITY: VPR DOCUMENT EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- ToTime
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: .08
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRTIU(DIEN,.08,\"I\"))
\n \n- \n
- Status
\n- SEQUENCE: 18
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: .05
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- OUTPUT TRANSFORM: S VALUE=$$AVSTS^VPRSDAT(VALUE)
\n- GET ACTION: S VALUE=+$G(VPRTIU(DIEN,.05,\"I\"))
\n \n- \n
- EncounterNumber
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: .03
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S:'$D(^AUPNVSIT(VALUE,0)) VALUE=\"\"
\n- GET ACTION: S VALUE=$G(VPRTIU(DIEN,.03,\"I\"))
\n \n- \n
- DocumentTime
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: 1301
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRTIU(DIEN,1301,\"I\"))
\n \n- \n
- NoteText
\n- SEQUENCE: 7
\n- ITEM TYPE: WORD PROCESSING
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: 2
\n- GET ACTION: D TEXT^VPRSDAT
\n \n- \n
- DocumentType
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- OUTPUT TRANSFORM: S VALUE=$$TYPE^VPRSDAT(VALUE)
\n- GET ACTION: S VALUE=$G(VPRTIU(DIEN,.01,\"I\"))
\n \n- \n
- Clinician
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: 1202
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$G(VPRTIU(DIEN,1202,\"I\"))
\n \n- \n
- TranscriptionTime
\n- SEQUENCE: 10
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: 1307
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRTIU(DIEN,1307,\"I\"))
\n \n- \n
- AuthorizationTime
\n- SEQUENCE: 11
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: 1501
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$$SIGDT^VPRSDAT(DIEN)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populates the Document container in HealthShare from the\nthe TIU DOCUMENT ACTION EVENT protocol event.\nTIU DOCUMENT (#8925) file; it expects the record IEN as the ID (DIEN).\n \nDocuments will be saved in SDA when they reach a status of Complete. A\ndocument will be removed from SDA if it is retracted.\n \nThis entity is supported by code in routine VPRSDAT, which uses the\nTIUVPR and TIULQ routines to extract documents. Data in SDA is\nmaintained by monitoring the AEVT cross reference on file #8925 and\n
\n\n", "", "", "", "", "", "K VPRTIU\n", "D DOC1^VPRSDAT(DIEN)\n", "DOCQRY^VPRSDAT\n", "", "", "", ""], ["VPR ALLERGY SIGN/SYMPTOM", "120.83\n", "", "", "", "SDA\n", "Reaction\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: ID
\n- GET ACTION: S VALUE=$P($G(VPREACTN),U)
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 120.83
\n- FIELD NUMBER: .01
\n- GET ACTION: S VALUE=$P($G(VPREACTN),U,2)
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA120.83
\n- GET ACTION: S VALUE=$P($G(VPREACTN),U,3)
\n \n- \n
- Extension
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 120.83
\n- ENTITY: VPR ALLERGY SIGN EXTENSION
\n- GET ACTION: S VALUE=$G(VPRDT) S:VALUE=\"\" DDEOUT=1
\n \n- \n
- OriginalText
\n- SEQUENCE: 3
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$G(VPRNAME)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR ALLERGY, returning a coded element representation\nof a single Reaction. It expects either a #120.83 ien, or a string in the\nform ien^name^date.\n \nIf a SNOMED CT code is available, that code and name will be returned \ninstead of the #120.83 ien; the #120.83 name will be returned in the \nOriginalText property. An extension may also contain the date this\nreaction was entered if included in the ID string. \n
\n\n", "", "", "", "", "", "K VPREACTN,VPRDT,VPRNAME\n", "D REACTN^VPRSDAL(.DIEN) ;convert to national code\n", "", "", "", "", ""], ["VPR RAD ORDER", "100\n", "", "", "", "SDA\n", "RadOrder\n", "\n- \n
\n- \n
- EnteredAt
\n- SEQUENCE: 35
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 6
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR FACILITY
\n- GET ACTION: N X S X=$P($G(OR0),U,10) S:X VALUE=$$GET1^DIQ(44,+X,3,\"I\") S:'VALUE VALUE=$$SITE^VPRSDA ;#4 ien
\n \n- \n
- ResultCopiesTo
\n- SEQUENCE: 29
\n- ITEM TYPE: LIST
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 35
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- LIST TYPE: ARRAY
\n- XML NAME: CareProvider
\n- GET ACTION: N X S X=$P($G(OR3),U,10) S:X DLIST(1)=X I X=\"\" S DDEOUT=1
\n \n- \n
- Status
\n- SEQUENCE: 18
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 5
\n- EXTENDED POINTER LKUP: .02
\n- OUTPUT TRANSFORM: N X S X=VALUE,VALUE=$S(X=\"dc\":\"D\",X=\"canc\":\"C\",X=\"laps\":\"C\",X=\"dc/e\":\"R\",X=\"comp\":\"E\",X=\"exp\":\"E\",X=\"hold\":\"H\",X=\"part\":\"A\",1:\"IP\")
\n \n- \n
- Result
\n- SEQUENCE: 39
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 33
\n- ENTITY: VPR RAD RESULT
\n- GET ACTION: S VALUE=$G(ORPK) S:VALUE=\"\" DDEOUT=1
\n \n- \n
- PlacerId
\n- SEQUENCE: 1
\n- ITEM TYPE: ID
\n \n- \n
- FromTime
\n- SEQUENCE: 37
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 21
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(OR0),U,8)
\n \n- \n
- ToTime
\n- SEQUENCE: 38
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 22
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(OR0),U,9)
\n \n- \n
- UpdatedOn
\n- SEQUENCE: 50
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 31
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(OR3),U)
\n \n- \n
- ClinicalInformation
\n- SEQUENCE: 41
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.045
\n- FIELD NUMBER: 1
\n- GET ACTION: S VALUE=$$VALUE^ORX8(DIEN,\"COMMENT\") S:VALUE=\"\" DDEOUT=1
\n \n- \n
- EnteredBy
\n- SEQUENCE: 34
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 3
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$P($G(OR0),U,6)
\n \n- \n
- ReasonForStudy
\n- SEQUENCE: 49
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100.045
\n- FIELD NUMBER: 1
\n- ENTITY: VPR TEXT ONLY
\n- GET ACTION: S VALUE=$$VALUE^ORX8(DIEN,\"REASON\") S:VALUE=\"\" DDEOUT=1
\n \n- \n
- AuthorizationTime
\n- SEQUENCE: 26
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.008
\n- FIELD NUMBER: 6
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(ORSIG),U,3),IEN=\"1,\"_DIEN
\n \n- \n
- EnteringOrganization
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 6
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR LOCATION
\n- OUTPUT TRANSFORM: S VALUE=+VALUE
\n- GET ACTION: S VALUE=$P($G(OR0),U,10) S:VALUE<1 DDEOUT=1
\n \n- \n
- Extension
\n- SEQUENCE: 53
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- ENTITY: VPR ORDER EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- ExternalId
\n- SEQUENCE: 51
\n- ITEM TYPE: ID
\n \n- \n
- EnteredOn
\n- SEQUENCE: 36
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 4
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(OR0),U,7)
\n \n- \n
- FillerId
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 33
\n- GET ACTION: S ORPK=$$PKGID^ORX8(DIEN),VALUE=ORPK
\n \n- \n
- OrderCategory
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 23
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR DISPLAY GROUP
\n- GET ACTION: S VALUE=$P($G(OR0),U,11)
\n \n- \n
- OrderItem
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100.001
\n- FIELD NUMBER: .01
\n- ENTITY: VPR ORDERABLE ITEM
\n- GET ACTION: S VALUE=+$O(^OR(100,DIEN,.1,\"B\",0)),IEN=\"1,\"_DIEN S:VALUE<1 DDEOUT=1 ;first/only
\n \n- \n
- OrderedBy
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 1
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$P($G(OR0),U,4)
\n \n- \n
- Priority
\n- SEQUENCE: 19
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100.045
\n- FIELD NUMBER: 1
\n- ENTITY: VPR ORDER URGENCY
\n- GET ACTION: S VALUE=$$VALUE^ORX8(DIEN,\"URGENCY\") S:VALUE=\"\" DDEOUT=1
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populates the RadOrder container in HealthShare from the\nORDER (#100) file; it expects the record ien as its ID (DIEN). Result\ndata is pulled from the RAD/NUC MED PATIENT (#70) file.\n \nThis entity is supported by code in routines VPRSDAOR and VPRSDAR, \nwhich uses the RAO7PC* calls to extract radiology data. Data in SDA\nis maintained by monitoring the OR EVSEND RA and RA EVSEND OR\nprotocol events.\n
\n\n", "", "", "", "", "D PRE^VPRSDAR\n", "D POST^VPRSDAR K OR0,OR3,OR6,OR8,ORDAD,ORSIG\n", "D OR1^VPRSDAOR(DIEN)\n", "ORDERS^VPRSDAOR(\"XRAY\")\n", "", "", "", ""], ["VPR OTHER ORDER", "100\n", "", "", "", "SDA\n", "OtherOrder\n", "\n- \n
\n- \n
- EnteredAt
\n- SEQUENCE: 35
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 6
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR FACILITY
\n- GET ACTION: N X S X=$P($G(OR0),U,10) S:X VALUE=$$GET1^DIQ(44,+X,3,\"I\") S:'VALUE VALUE=$$SITE^VPRSDA ;#4 ien
\n \n- \n
- ResultCopiesTo
\n- SEQUENCE: 29
\n- ITEM TYPE: LIST
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 35
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- LIST TYPE: ARRAY
\n- XML NAME: CareProvider
\n- GET ACTION: N X S X=$P($G(OR3),U,10) S:X DLIST(1)=X I X=\"\" S DDEOUT=1
\n \n- \n
- Status
\n- SEQUENCE: 18
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 5
\n- EXTENDED POINTER LKUP: .02
\n- OUTPUT TRANSFORM: N X S X=VALUE,VALUE=$S(X=\"dc\":\"D\",X=\"canc\":\"C\",X=\"laps\":\"C\",X=\"dc/e\":\"R\",X=\"comp\":\"E\",X=\"exp\":\"E\",X=\"hold\":\"H\",X=\"part\":\"A\",1:\"IP\")
\n \n- \n
- PlacerId
\n- SEQUENCE: 1
\n- ITEM TYPE: ID
\n \n- \n
- EnteringOrganization
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 6
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR LOCATION
\n- OUTPUT TRANSFORM: S VALUE=+VALUE
\n- GET ACTION: S VALUE=$P($G(OR0),U,10) S:VALUE<1 DDEOUT=1
\n \n- \n
- FromTime
\n- SEQUENCE: 37
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 21
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(OR0),U,8)
\n \n- \n
- ToTime
\n- SEQUENCE: 38
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 22
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(OR0),U,9)
\n \n- \n
- UpdatedOn
\n- SEQUENCE: 50
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 31
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(OR3),U)
\n \n- \n
- EnteredBy
\n- SEQUENCE: 34
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 3
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$P($G(OR0),U,6)
\n \n- \n
- AuthorizationTime
\n- SEQUENCE: 26
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.008
\n- FIELD NUMBER: 6
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(ORSIG),U,3),IEN=\"1,\"_DIEN
\n \n- \n
- Extension
\n- SEQUENCE: 53
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- ENTITY: VPR ORDER EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- ExternalId
\n- SEQUENCE: 51
\n- ITEM TYPE: ID
\n \n- \n
- OrderItem
\n- SEQUENCE: 5.1
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- ENTITY: VPR RELEASE EVENT
\n- GET ACTION: I '$G(ORIT) S ORIT=$$VALUE^ORX8(DIEN,\"EVENT\"),VALUE=ORIT S:VALUE<1 DDEOUT=1 ;ADT orders
\n \n- \n
- OrderItem
\n- SEQUENCE: 5.2
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 2
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR ORDER DIALOG
\n- GET ACTION: S:$G(ORIT) DDEOUT=1 I '$G(ORIT) S ORIT=+$P(OR0,U,5),VALUE=ORIT ;if nothing else
\n \n- \n
- EnteredOn
\n- SEQUENCE: 36
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 4
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(OR0),U,7)
\n \n- \n
- FillerId
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 33
\n- GET ACTION: S VALUE=$$PKGID^ORX8(DIEN)
\n \n- \n
- OrderCategory
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 23
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR DISPLAY GROUP
\n- GET ACTION: S VALUE=$P($G(OR0),U,11)
\n \n- \n
- OrderItem
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100.001
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR ORDERABLE ITEM
\n- GET ACTION: S ORIT=$$OI^ORX8(DIEN),VALUE=+ORIT,IEN=\"1,\"_DIEN S:VALUE<1 DDEOUT=1 ;first/only
\n \n- \n
- OrderedBy
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 1
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$P($G(OR0),U,4)
\n \n- \n
- Priority
\n- SEQUENCE: 19
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100.045
\n- FIELD NUMBER: 1
\n- ENTITY: VPR ORDER URGENCY
\n- GET ACTION: S VALUE=$$VALUE^ORX8(DIEN,\"URGENCY\") S:VALUE=\"\" DDEOUT=1
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populates the OtherOrder container in HealthShare from the\nORDER (#100) file; it expects the record ien as its ID (DIEN).\n \nThis entity is supported by code in routine VPRSDAOR, which uses the\nORQ1 and ORX8 calls to extract order data. Data in SDA is maintained\nby monitoring the OR EVSEND * protocol events.\n
\n\n", "", "", "", "", "", "K OR0,OR3,OR6,OR8,ORDAD,ORSIG,ORIT\n", "D OR1^VPRSDAOR(DIEN)\n", "NONORD^VPRSDAOR\n", "", "", "", ""], ["VPR ORDER URGENCY", "101.42\n", "", "", "", "SDA\n", "Priority\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 101.42
\n- FIELD NUMBER: 2
\n \n- \n
- Description
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 101.42
\n- FIELD NUMBER: .01
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA101.42
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR RAD RESULT", "70.03\n", "", "", "", "SDA\n", "Result\n", "\n- \n
\n- \n
- Extension
\n- SEQUENCE: 3
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 70.03
\n- FIELD NUMBER: 17
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR RAD RESULT EXTENSION
\n- GET ACTION: S VALUE=$G(RARPT) S:'VALUE DDEOUT=1
\n \n- \n
- AuthorizationTime
\n- SEQUENCE: 16
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 70.03
\n- FIELD NUMBER: 17
\n- EXTENDED POINTER LKUP: 7
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n- \n
- PerformedAt
\n- SEQUENCE: 17
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 70.03
\n- ENTITY: VPR FACILITY
\n- GET ACTION: N IMG,HLOC S IMG=$P(VPRAE1,U,7) S:$L(IMG) HLOC=+$O(^SC(\"B\",IMG,0)),VALUE=$$GET1^DIQ(44,HLOC_\",\",3,\"I\")
\n \n- \n
- ResultInterpretation
\n- SEQUENCE: 18
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 70.03
\n- GET ACTION: S VALUE=$$ABN^VPRSDAR ;Abnormal?
\n \n- \n
- EnteredBy
\n- SEQUENCE: 21
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 70.03
\n- FIELD NUMBER: 17
\n- EXTENDED POINTER LKUP: 11
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n \n- \n
- EnteredAt
\n- SEQUENCE: 22
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 70.03
\n- ENTITY: VPR FACILITY
\n- GET ACTION: N IMG,HLOC S IMG=$P(VPRAE1,U,7) S:$L(IMG) HLOC=+$O(^SC(\"B\",IMG,0)),VALUE=$$GET1^DIQ(44,HLOC_\",\",3,\"I\")
\n \n- \n
- EnteredOn
\n- SEQUENCE: 23
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 70.03
\n- FIELD NUMBER: 17
\n- EXTENDED POINTER LKUP: 6
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n- \n
- FromTime
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 70.03
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=9999999.9999-$P(DIEN,\",\",2)
\n \n- \n
- ResultType
\n- SEQUENCE: 4
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: IM
\n \n- \n
- VerifiedBy
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 70.03
\n- FIELD NUMBER: 15
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=+$G(@VPRAE2@(\"V\")) S:VALUE<1 DDEOUT=1
\n \n- \n
- ResultTime
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 70.03
\n- FIELD NUMBER: 17
\n- EXTENDED POINTER LKUP: 8
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n- \n
- ResultStatus
\n- SEQUENCE: 8
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 70.03
\n- FIELD NUMBER: 17
\n- EXTENDED POINTER LKUP: 5
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE[\"Draft\":\"P\",VALUE=\"Deleted\":\"X\",VALUE[\"Released/Not\":\"P\",VALUE=\"No Report\":\"S\",1:\"F\")
\n- GET ACTION: S VALUE=$P(@VPRAE2,U)
\n \n- \n
- ResultText
\n- SEQUENCE: 9
\n- ITEM TYPE: WORD PROCESSING
\n- FILE NUMBER: 70.03
\n- FIELD NUMBER: 17
\n- EXTENDED POINTER LKUP: 200
\n- WORD WRAP: 1
\n- GET ACTION: S DDEOUT=1 ;M WP=@VPRAE2@(\"R\")
\n \n- \n
- FileType
\n- SEQUENCE: 10
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: TXT
\n \n- \n
- DocumentName
\n- SEQUENCE: 11
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 70.03
\n- GET ACTION: S VALUE=$G(RAPROC) S:VALUE=\"\" VALUE=\"RADIOLOGY REPORT\"
\n \n- \n
- DocumentNumber
\n- SEQUENCE: 14
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 70.03
\n- FIELD NUMBER: 17
\n- RETURN INTERNAL VALUE: YES
\n- GET ACTION: S:$D(RARPT)=1 VALUE=RARPT_\";RA\" I $D(RARPT)>9 S DDEOUT=1 ;list, returned in Extension instead
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR RAD ORDER, supplying result information.\n
\n\n", "", "", "", "", "", "K VPRAE1,VPRAE2,RARPT,RAPROC\n", "D ONE^VPRSDAR(.DIEN) ;RA order# -> case,exam,DFN IENS\n", "", "", "", "", ""], ["VPR ADVANCE DIRECTIVE", "8925\n", "", "", "", "SDA\n", "AdvanceDirective\n", "\n- \n
\n- \n
- ToTime
\n- SEQUENCE: 12
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8925
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S DDEOUT=1 ;S VALUE=$P($G(VPRADV),U,3)
\n \n- \n
- ExternalId
\n- SEQUENCE: 13
\n- ITEM TYPE: ID
\n- OUTPUT TRANSFORM: S VALUE=VALUE_\";TIU(8925,\"
\n \n- \n
- AlertType
\n- SEQUENCE: 4
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: .04
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=\"AD^ADVANCE DIRECTIVE\"
\n \n- \n
- Alert
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR DOCUMENT TITLE
\n- GET ACTION: S VALUE=$G(VPRTIU(DIEN,.01,\"I\"))
\n \n- \n
- Comments
\n- SEQUENCE: 6
\n- ITEM TYPE: WORD PROCESSING
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: 2
\n- GET ACTION: D TEXT^VPRSDAT
\n \n- \n
- Status
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: .01
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE[\"RESCIND\":\"I\",1:\"A\")
\n \n- \n
- EnteredBy
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: 1302
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$G(VPRTIU(DIEN,1202,\"I\"))
\n \n- \n
- EnteredAt
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: 1212
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$G(VPRTIU(DIEN,1212,\"I\")) S:'VALUE VALUE=$$SITE^VPRSDA
\n \n- \n
- EnteredOn
\n- SEQUENCE: 10
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: 1201
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRTIU(DIEN,1201,\"I\"))
\n \n- \n
- FromTime
\n- SEQUENCE: 11
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: 1301
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRTIU(DIEN,1301,\"I\"))
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populates the Advance Directive container in HealthShare\nmaintained by the AEVT cross reference on file #8925.\nfrom the TIU DOCUMENT (#8925) file, with documents that belong to the\nAdvance Directive class. It expects the record IEN as the ID (DIEN).\n \nDocuments will be saved in SDA when they reach a status of Complete. A\ndocument will be removed from SDA if it is retracted.\n \nThis entity is supported by code in routine VPRSDAF, which uses the\nTIUPP3 and TIULQ routines to extract the documents. Data in SDA is\n
\n\n", "", "", "", "", "", "K VPRTIU,^TMP(\"TIUPPCV\",$J)\n", "D AD1^VPRSDAF(.DIEN)\n", "ADQ^VPRSDAF\n", "", "", "", ""], ["VPR DOCUMENT TITLE", "8926.1\n", "", "", "", "SDA\n", "NationalTitle\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: ID
\n- GET ACTION: S VALUE=$P($G(DATA),U)
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8926.1
\n- FIELD NUMBER: .01
\n- GET ACTION: S VALUE=$P($G(DATA),U,2)
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA8926.1
\n- GET ACTION: S VALUE=$P($G(DATA),U,3)
\n \n- \n
- OriginalText
\n- SEQUENCE: 3
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$G(TIUTTL)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR ADVANCE DIRECTIVE, VPR CW NOTES, and VPR DOCUMENT\nEXTENSION. It expects a TIU Document Type #8925.1 ien, and converts that\nto a National Title #8926.1 ien to extract a record.\n
\n\n", "", "", "", "", "D NATL^VPRSDAT(.ID) ;ID=#8925.1 ien\n", "K TIUTTL\n", "", "", "", "", "", ""], ["VPR INSURANCE COMPANY", "36\n", "", "", "", "SDA\n", "HealthFundCode\n", "\n- \n
\n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA36
\n \n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: ID
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 36
\n- FIELD NUMBER: .01
\n- GET ACTION: S VALUE=$P($G(VPRINS(VPRP,1)),U,2)
\n \n- \n
- Address
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 36
\n- ENTITY: VPR INS COMPANY ADDRESS
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- ContactInfo
\n- SEQUENCE: 10
\n- ITEM TYPE: COMPLEX GROUP
\n- COMPLEX TYPE:
\n- \n
\n- \n
- COMPLEX ITEM SEQUENCE: 3
\n- COMPLEX ITEM NAME: WorkPhoneNumber
\n \n
\n
\n \n- \n
- WorkPhoneNumber
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 36
\n- FIELD NUMBER: .131
\n- GET ACTION: S VALUE=$G(VPRINS(VPRP,6))
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR INSURANCE by returning data from the INSURANCE\nCOMPANY (#36) file. It expects the company IEN as the ID (DIEN), and the\nVPRINS array that contains the results of the IBBAPI call.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR APPOINTMENT", "2.98\n", "", "", "", "SDA\n", "Appointment\n", "\n- \n
\n- \n
- EnteredAt
\n- SEQUENCE: 16
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2.98
\n- FIELD NUMBER: .01
\n- EXTENDED POINTER LKUP: 3
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$$GET1^DIQ(44,+$P(VPRAPPT,U,2)_\",\",3,\"I\") S:'VALUE VALUE=$$SITE^VPRSDA
\n \n- \n
- EnteredOn
\n- SEQUENCE: 17
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2.98
\n- FIELD NUMBER: 20
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(VPRAPPT),U,16)
\n \n- \n
- FromTime
\n- SEQUENCE: 18
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2.98
\n- FIELD NUMBER: .001
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=+$G(VPRAPPT)
\n \n- \n
- ToTime
\n- SEQUENCE: 19
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2.98
\n- FIELD NUMBER: 15
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(VPRAPPT),U,11) I VALUE=\"\",$P(VPRAPPT,U,3)[\"NS\" S VALUE=$$GET1^DIQ(2.98,DIEN_\",\",15,\"I\")
\n \n- \n
- PlacerApptId
\n- SEQUENCE: 7
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=\"A;\"_+$G(VPRAPPT)_\";\"_+$P($G(VPRAPPT),U,2)
\n \n- \n
- CareProvider
\n- SEQUENCE: 12
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2.98
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$$APPTPRV^VPRSDAM ;expects VPRAPPT
\n \n- \n
- Notes
\n- SEQUENCE: 14
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 44.003
\n- FIELD NUMBER: 3
\n- GET ACTION: S VALUE=$G(VPRAPPT(\"C\")) S:VALUE=\"\" DDEOUT=1
\n \n- \n
- Extension
\n- SEQUENCE: 3
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2.98
\n- ENTITY: VPR APPOINTMENT EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- Status
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2.98
\n- FIELD NUMBER: 100
\n- GET ACTION: S VALUE=$P($P($G(VPRAPPT),U,22),\";\",3)
\n \n- \n
- NoShow
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2.98
\n- FIELD NUMBER: 3
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",1:\"false\")
\n- GET ACTION: S VALUE=($P($G(VPRAPPT),U,3)?1\"NS\".E)
\n \n- \n
- Type
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2.98
\n- FIELD NUMBER: 9.5
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- OUTPUT TRANSFORM: S $P(VALUE,U,3)=\"VA409.1\"
\n- GET ACTION: S VALUE=$TR($P($G(VPRAPPT),U,10),\";\",\"^\")
\n \n- \n
- FillerApptId
\n- SEQUENCE: 8
\n- ITEM TYPE: ID
\n \n- \n
- Location
\n- SEQUENCE: 13
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2.98
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR LOCATION
\n- GET ACTION: S VALUE=+$P($G(VPRAPPT),U,2)
\n \n- \n
- EnteredBy
\n- SEQUENCE: 15
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2.98
\n- FIELD NUMBER: 19
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populates the Appointment container in HealthShare from the\nAPPOINTMENT (#2.98) sub-file of the PATIENT (#2) file; it expects the\nrecord IENS string as the ID (DIEN). Data is also pulled from the related\nAPPOINTMENT (#44.001) sub-file of the HOSPITAL LOCATION (#44) file.\n \nThis entity is supported by code in routine VPRSDAM, which uses the\n$$SDAPI^SDAMA301 and GETPRV^SDOE calls to extract appointment data. \nData in SDA is maintained by monitoring the SDAM APPOINTMENT EVENTS\nprotocol event.\n
\n\n", "", "", "", "", "", "K ^TMP($J,\"SDAMA301\"),VPRAPPT\n", "D APPT1^VPRSDAM(DIEN)\n", "APPTS^VPRSDAM\n", "", "", "", ""], ["VPR VITAL MEASUREMENT", "120.5\n", "", "", "", "SDA\n", "Observation\n", "\n- \n
\n- \n
- EnteredAt
\n- SEQUENCE: 19
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 120.5
\n- FIELD NUMBER: .05
\n- EXTENDED POINTER LKUP: 3
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR FACILITY
\n- GET ACTION: N HLOC S HLOC=+$P($G(VPRGMV),U,5),VALUE=$$GET1^DIQ(44,HLOC,3,\"I\") S:'VALUE VALUE=$$SITE^VPRSDA
\n \n- \n
- EnteredOn
\n- SEQUENCE: 20
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 120.5
\n- FIELD NUMBER: .04
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(VPRGMV),U,4) S:VALUE=\"\" DDEOUT=1
\n \n- \n
- ExternalId
\n- SEQUENCE: 4
\n- ITEM TYPE: ID
\n \n- \n
- Extension
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 120.5
\n- ENTITY: VPR VITAL EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- ObservationTime
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 120.5
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(VPRGMV),U) S:VALUE=\"\" DDEOUT=1
\n \n- \n
- ObservationCode
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 120.5
\n- FIELD NUMBER: .03
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR VITAL TYPE
\n- GET ACTION: S VALUE=$P($G(VPRGMV),U,3) S:VALUE=\"\" DDEOUT=1
\n \n- \n
- ObservationValue
\n- SEQUENCE: 9
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 120.5
\n- FIELD NUMBER: 1.2
\n- GET ACTION: S VALUE=$P($G(VPRGMV),U,8) S:VALUE=\"\" DDEOUT=1
\n \n- \n
- GroupId
\n- SEQUENCE: 15
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 120.5
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- GET ACTION: S VALUE=$P($G(VPRGMV),U) S:VALUE=\"\" DDEOUT=1
\n \n- \n
- ObservationMethods
\n- SEQUENCE: 16
\n- ITEM TYPE: LIST
\n- FILE NUMBER: 120.505
\n- ENTITY: VPR VITAL QUALIFIER
\n- LIST TYPE: ARRAY
\n- XML NAME: ObservationMethod
\n- GET ACTION: D VITQUAL^VPRSDAOB
\n \n- \n
- EnteredBy
\n- SEQUENCE: 18
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 120.5
\n- FIELD NUMBER: .06
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$P($G(VPRGMV),U,6) S:VALUE=\"\" DDEOUT=1
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populates the Observation container in HealthShare. It is \nsupported by routine VPRSDAOB, which uses the GMRVUT0 utility to pull\nvitals from both the GMRV VITAL MEASUREMENT (#120.5) and OBS (#704.117)\nfiles. Any OBS entries are converted to GMRV values except for the\nExternalId, which will hold the OBS ID (#.01) string instead of the #120.5\ninternal entry number.\n \nData in SDA is maintained by monitoring the AVPR index on file #120.5 and\nthe MDC OBSERVATION UPDATE protocol event.\n
\n\n", "", "", "", "", "", "K VPRV,VPRGMV,^TMP(\"VPRGMV\",$J),VPRANGE,VPRTYPE,VPRPARAM\n", "D VIT1^VPRSDAOB(DIEN)\n", "VITALS^VPRSDAOB\n", "", "", "", ""], ["VPR VITAL TYPE", "120.51\n", "", "", "", "SDA\n", "ObservationCode\n", "\n- \n
\n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA120.51
\n- GET ACTION: S:$G(VPRVUID) VALUE=\"VHAT\"
\n \n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: ID
\n- FILE NUMBER: 120.51
\n- GET ACTION: S:$G(VPRVUID) VALUE=VPRVUID
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 120.51
\n- FIELD NUMBER: .01
\n- GET ACTION: S VALUE=$$FIELD^GMVGETVT(IEN,1)
\n \n- \n
- ObservationValueUnits
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 120.51
\n- ENTITY: VPR CODE TABLE
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE=\"F\":\"[degF]\",VALUE=\"in\":\"[in_us]\",VALUE=\"lb\":\"[lb_av]\",VALUE=\"cmH2O\":\"cm[H2O]\",1:VALUE)_\"^^UCUM\"
\n- GET ACTION: S VALUE=$$UNIT^VPRDGMV($G(VPRTYPE)),DATA=VALUE S:VALUE=\"\" DDEOUT=1
\n \n- \n
- OriginalText
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 120.51
\n- FIELD NUMBER: 1
\n- GET ACTION: S VALUE=$G(VPRTYPE)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR VITAL MEASUREMENT. It expects a pointer to the\nGMRV VITAL TYPE (#120.51) file and returns a coded element. If a\nVUID has been assigned, it will be returned as the Code with a coding\nsystem of VHAT. This entity also expects the variable VPRTYPE, defined by\nthe main GET ID ACTION.\n
\n\n", "", "", "", "", "", "K VPRVUID\n", "S VPRVUID=$$VUID^VPRD(+DIEN,120.51)\n", "", "", "", "", ""], ["VPR V EXAM", "9000010.13\n", "", "", "", "SDA\n", "PhysicalExam\n", "\n- \n
\n- \n
- EncounterNumber
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.13
\n- FIELD NUMBER: .03
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S:'$D(^AUPNVSIT(VALUE,0)) VALUE=\"\"
\n- GET ACTION: S VALUE=$G(VPRVST)
\n \n- \n
- Extension
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.13
\n- ENTITY: VPR VXAM EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- ExternalId
\n- SEQUENCE: 4
\n- ITEM TYPE: ID
\n \n- \n
- PhysExamTime
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.13
\n- FIELD NUMBER: 1201
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRXM(\"EVENT DATE AND TIME\"))
\n \n- \n
- PhysExamCode
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.13
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR EXAM
\n \n- \n
- PhysExamObsValue
\n- SEQUENCE: 11
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.13
\n- FIELD NUMBER: .04
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=$G(VPRXM(\"VALUE\"))
\n \n- \n
- NoteText
\n- SEQUENCE: 12
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.13
\n- FIELD NUMBER: 81101
\n- GET ACTION: S VALUE=$G(VPRXM(\"COMMENTS\"))
\n \n- \n
- EnteredBy
\n- SEQUENCE: 14
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.13
\n- FIELD NUMBER: .03
\n- EXTENDED POINTER LKUP: .23
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$P(VPRVST0,U,23)
\n \n- \n
- EnteredAt
\n- SEQUENCE: 15
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.13
\n- FIELD NUMBER: .03
\n- EXTENDED POINTER LKUP: .06
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$P(VPRVST0,U,6) S:'VALUE VALUE=$G(VASITE)
\n \n- \n
- EnteredOn
\n- SEQUENCE: 16
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.13
\n- FIELD NUMBER: .03
\n- EXTENDED POINTER LKUP: .01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P(VPRVST0,U)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populates the Physical Exam container in HealthShare from \nthe V EXAM (#9000010.13) file; it expects the record IEN as the ID (DIEN).\n \nThis entity is supported by code in routine VPRSDAVF, which uses the\n^PXRMINDX reminder index and VXAM^PXPXRM call to extract V POV data. \nData in SDA is maintained by monitoring the PXK VISIT DATA EVENT\nprotocol event.\n
\n\n", "", "", "", "", "", "K VPRXM,VPRVST,VPRVST0\n", "D XAM1^VPRSDAVF\n", "EXAMS^VPRSDAVF\n", "", "", "", ""], ["VPR EXAM", "9999999.15\n", "", "", "", "SDA\n", "PhysExamCode\n", "\n- \n
\n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA9999999.15
\n \n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: ID
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9999999.15
\n- FIELD NUMBER: .01
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR FAMILY HISTORY", "9000010.23\n", "", "", "", "SDA\n", "FamilyHistory\n", "\n- \n
\n- \n
- EncounterNumber
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: .03
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S:'$D(^AUPNVSIT(VALUE,0)) VALUE=\"\"
\n- GET ACTION: S VALUE=$G(VPRVST)
\n \n- \n
- CustomPairs
\n- SEQUENCE: 3
\n- ITEM TYPE: LIST
\n- ENTITY: VPR CUSTOM PAIR
\n- GET ACTION: N X S X=$G(VPRHF(\"VALUE\")) I $L(X) S DLIST(1)=\"Severity^\"_$$EXTERNAL^DILFD(9000010.23,.04,,X)
\n \n- \n
- Extension
\n- SEQUENCE: 4
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.23
\n- ENTITY: VPR FAM HX EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- Diagnosis
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR HEALTH FACTOR
\n \n- \n
- NoteText
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: 81101
\n- GET ACTION: S VALUE=$G(VPRHF(\"COMMENTS\"))
\n \n- \n
- EnteredBy
\n- SEQUENCE: 10
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: .03
\n- EXTENDED POINTER LKUP: .23
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$P(VPRVST0,U,23)
\n \n- \n
- EnteredAt
\n- SEQUENCE: 11
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: .03
\n- EXTENDED POINTER LKUP: .06
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$P(VPRVST0,U,6) S:'VALUE VALUE=$$SITE^VPRSDA
\n \n- \n
- EnteredOn
\n- SEQUENCE: 12
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: .03
\n- EXTENDED POINTER LKUP: .01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P(VPRVST0,U)
\n \n- \n
- FamilyMember
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.23
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=\"UNK^UNKNOWN\"
\n \n- \n
- ExternalId
\n- SEQUENCE: 15
\n- ITEM TYPE: ID
\n- OUTPUT TRANSFORM: S VALUE=VALUE_\";HF\"
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populates the Family History container in HealthShare from \nthe V HEALTH FACTORS (#9000010.23) file with factors that contain "Family\nHistory" or "Family Hx". It expects the record IEN as the ID (DIEN).\n \nThis entity is supported by code in routine VPRSDAVF, which uses the\n^PXRMINDX reminder index and VHF^PXPXRM call to extract V POV data. \nData in SDA is maintained by monitoring the PXK VISIT DATA EVENT\nprotocol event.\n
\n\n", "", "", "", "", "", "K VPRHF,VPRVST,VPRVST0\n", "D HF1^VPRSDAHX\n", "HFM^VPRSDAHX\n", "", "", "", ""], ["VPR HEALTH FACTOR", "9999999.64\n", "", "", "", "SDA\n", "DiagnosisCode\n", "\n- \n
\n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA9999999.64
\n \n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: ID
\n- FILE NUMBER: 9999999.64
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9999999.64
\n- FIELD NUMBER: .01
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR SOCIAL HISTORY", "9000010.23\n", "", "", "", "SDA\n", "SocialHistory\n", "\n- \n
\n- \n
- EncounterNumber
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: .03
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S:'$D(^AUPNVSIT(VALUE,0)) VALUE=\"\"
\n- GET ACTION: S VALUE=$G(VPRVST)
\n \n- \n
- FromTime
\n- SEQUENCE: 13
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: 1201
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRHF(\"EVENT DATE AND TIME\"))
\n \n- \n
- Extension
\n- SEQUENCE: 4
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.23
\n- ENTITY: VPR SOCIAL HX EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- SocialHabit
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: .01
\n- ENTITY: VPR CODE TABLE
\n- OUTPUT TRANSFORM: S VALUE=VALUE_\"^^VHAT\"
\n \n- \n
- SocialHabitCategory
\n- SEQUENCE: 7
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: .01
\n- EXTENDED POINTER LKUP: .03
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR HEALTH FACTOR
\n \n- \n
- SocialHabitComments
\n- SEQUENCE: 8
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: 81101
\n- GET ACTION: S VALUE=$G(VPRHF(\"COMMENTS\"))
\n \n- \n
- EnteredBy
\n- SEQUENCE: 10
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: .03
\n- EXTENDED POINTER LKUP: .23
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$P(VPRVST0,U,23)
\n \n- \n
- EnteredAt
\n- SEQUENCE: 11
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: .03
\n- EXTENDED POINTER LKUP: .06
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$P(VPRVST0,U,6) S:'VALUE VALUE=$$SITE^VPRSDA
\n \n- \n
- EnteredOn
\n- SEQUENCE: 12
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.23
\n- FIELD NUMBER: .03
\n- EXTENDED POINTER LKUP: .01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P(VPRVST0,U)
\n \n- \n
- CustomPairs
\n- SEQUENCE: 3
\n- ITEM TYPE: LIST
\n- ENTITY: VPR CUSTOM PAIR
\n- GET ACTION: N X S X=$G(VPRHF(\"VALUE\")) I $L(X) S DLIST(1)=\"Severity^\"_$$EXTERNAL^DILFD(9000010.23,.04,,X)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populates the Social History container in HealthShare from \nthe V HEALTH FACTORS (#9000010.23) file with factors related to smoking \nor tobacco use. It expects the record IEN as the ID (DIEN).\n \nThis entity is supported by code in routine VPRSDAHX, which uses the\n^PXRMINDX reminder index and VHF^PXPXRM call to extract V HEALTH FACTOR\ndata. Data in SDA is maintained by monitoring the PXK VISIT DATA EVENT\nprotocol event.\n
\n\n", "", "", "", "", "", "K VPRHF,VPRVST,VPRVST0\n", "D HF1^VPRSDAHX\n", "HFS^VPRSDAHX\n", "", "", "", ""], ["VPR REFERRAL", "123\n", "", "", "", "SDA\n", "Referral\n", "\n- \n
\n- \n
- EnteredBy
\n- SEQUENCE: 1
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 123
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=+$P($G(VPRCACT(1,0)),U,5)
\n \n- \n
- ReferringOrganization
\n- SEQUENCE: 11
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 123
\n- FIELD NUMBER: 2
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR LOCATION
\n- GET ACTION: S VALUE=$P($G(VPRCONS(0)),U,6)
\n \n- \n
- ReferredToProvider
\n- SEQUENCE: 12
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 123
\n- FIELD NUMBER: 7
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$P($G(VPRCONS(0)),U,11)
\n \n- \n
- ReferredToOrganization
\n- SEQUENCE: 13
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 123
\n- FIELD NUMBER: 1
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CONSULT SERVICE
\n \n- \n
- EnteredOn
\n- SEQUENCE: 15
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 123
\n- FIELD NUMBER: .01
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(VPRCONS(0)),U)
\n \n- \n
- FromTime
\n- SEQUENCE: 16
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 123
\n- FIELD NUMBER: 3
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(VPRCONS(0)),U,7)
\n \n- \n
- ToTime
\n- SEQUENCE: 17
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 123
\n- FIELD NUMBER: .03
\n- EXTENDED POINTER LKUP: 22
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: N ORD S ORD=$P($G(VPRCONS(0)),U,3) S:ORD VALUE=$$GET1^DIQ(100,ORD,22,\"I\")
\n \n- \n
- ExternalId
\n- SEQUENCE: 4
\n- ITEM TYPE: ID
\n \n- \n
- ReferringProvider
\n- SEQUENCE: 10.1
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 123
\n- FIELD NUMBER: .126
\n- ENTITY: VPR REFERRING PROVIDER
\n- GET ACTION: S VALUE=DIEN I $P($G(VPRCONS(0)),U,14)!($P($G(VPRIFC),U,6)=\"\") S DDEOUT=1 ;Remote Requestor
\n \n- \n
- EnteredAt
\n- SEQUENCE: 2
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 123
\n- FIELD NUMBER: .05
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$P($G(VPRCONS(0)),U,21) S:'VALUE VALUE=$G(VASITE)
\n \n- \n
- UpdatedOn
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 123
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: N I,X S I=0 F S I=$O(VPRCACT(I)) Q:I<1 S X=+$G(VPRCACT(I,0)) I X>+$G(VALUE) S VALUE=+X
\n \n- \n
- Extension
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 123
\n- ENTITY: VPR REFERRAL EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- PlacerId
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 123
\n- FIELD NUMBER: .03
\n- RETURN INTERNAL VALUE: YES
\n- GET ACTION: S VALUE=$P($G(VPRCONS(0)),U,3)
\n \n- \n
- FillerId
\n- SEQUENCE: 8
\n- ITEM TYPE: ID
\n \n- \n
- ReferralReason
\n- SEQUENCE: 9
\n- ITEM TYPE: WORD PROCESSING
\n- FILE NUMBER: 123
\n- FIELD NUMBER: 20
\n- WORD WRAP: 1
\n- GET ACTION: M WP=VPRCONS(20)
\n \n- \n
- ReferringProvider
\n- SEQUENCE: 10
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 123
\n- FIELD NUMBER: 10
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$P($G(VPRCONS(0)),U,14)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populates the Referral container in HealthShare from the\nREQUEST/CONSULTATION (#123) file; it expects the record IEN as the\nID (DIEN).\n \nThis entity is supported by code in routine VPRSDAC, which uses the\nGMRCAPI routine to extract consults. Data in SDA is maintained by\nmonitoring the GMRC EVSEND OR and OR EVSEND GMRC protocol events.\n
\n\n", "", "", "", "", "S VASITE=$$SITE^VPRSDA\n", "K VPRCONS,VPRCACT,VPRIFC,VASITE\n", "D GMRC1^VPRSDAC(DIEN)\n", "QRY^VPRSDAC\n", "", "", "", ""], ["VPR CONSULT SERVICE", "123.5\n", "", "", "", "SDA\n", "HealthCareFacility\n", "\n- \n
\n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA123.5
\n \n- \n
- Code
\n- SEQUENCE: 4
\n- ITEM TYPE: ID
\n \n- \n
- Description
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 123.5
\n- FIELD NUMBER: .01
\n \n- \n
- Organization
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 123.5
\n- FIELD NUMBER: 132
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR FACILITY
\n- GET ACTION: I '$G(^GMR(123.5,DIEN,\"IFC\")) S VALUE=$G(VASITE)
\n \n- \n
- LocationType
\n- SEQUENCE: 7
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: DEPARTMENT
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR INS GROUP NAME", "355.3\n", "", "", "", "SDA\n", "HealthFundPlan\n", "\n- \n
\n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA355.3
\n \n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: ID
\n- FILE NUMBER: 355.3
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 355.3
\n- FIELD NUMBER: 2.01
\n- GET ACTION: S VALUE=$P($G(VPRINS(VPRP,8)),U,2)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR SURGERY", "130\n", "", "", "", "SDA\n", "Procedure\n", "\n- \n
\n- \n
- FromTime
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 130
\n- FIELD NUMBER: .205
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S:$G(VPRNONOR) DDEOUT=1
\n \n- \n
- EnteredOn
\n- SEQUENCE: 12
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 130
\n- FIELD NUMBER: 1.098
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n- \n
- Procedure
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 130
\n- FIELD NUMBER: 26
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: D PROC^VPRSDASR(DIEN)
\n \n- \n
- ExternalId
\n- SEQUENCE: 13
\n- ITEM TYPE: ID
\n- OUTPUT TRANSFORM: S VALUE=VALUE_\";SR\"
\n \n- \n
- ToTime
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 130
\n- FIELD NUMBER: .232
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S:$G(VPRNONOR) DDEOUT=1
\n \n- \n
- FromTime
\n- SEQUENCE: 2.1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 130
\n- FIELD NUMBER: 121
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S:'$G(VPRNONOR) DDEOUT=1
\n \n- \n
- ToTime
\n- SEQUENCE: 3.1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 130
\n- FIELD NUMBER: 122
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S:'$G(VPRNONOR) DDEOUT=1
\n \n- \n
- EncounterNumber
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: .03
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S:'$D(^AUPNVSIT(VALUE,0)) VALUE=\"\"
\n- GET ACTION: N I S I=+$O(VPRSR(DIEN,0)),IEN=+$G(VPRSR(DIEN,I)) S:IEN<1 DDEOUT=1 ;TIU ien
\n \n- \n
- Extension
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 130
\n- ENTITY: VPR SURGERY EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- Clinician
\n- SEQUENCE: 7
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 130
\n- FIELD NUMBER: .14
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: N X S X=+$P(VPRSR(DIEN),U,4) S:X VALUE=X
\n \n- \n
- ProcedureTime
\n- SEQUENCE: 9
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 130
\n- FIELD NUMBER: .09
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P(VPRSR(DIEN),U,3)
\n \n- \n
- EnteredBy
\n- SEQUENCE: 10
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 130
\n- FIELD NUMBER: 1.099
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n \n- \n
- EnteredAt
\n- SEQUENCE: 11
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 130
\n- FIELD NUMBER: 50
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=+$G(^SRF(DIEN,8)) S:VALUE<1 VALUE=$$SITE^VPRSDA
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populates the Procedure container in HealthShare from the\nSURGERY (#130) file; it expects the record IEN as the ID (DIEN).\n \nThis entity is supported by code in routine VPRSDASR, which uses the\nSROESTV calls to extract surgery data. Data in SDA is populated when\nthe related Operative Summary report is completed in TIU; only completed\nprocedures are saved in SDA.\n
\n\n", "", "", "", "", "", "K VPRSR,VPRNONOR,SREXT,SRPROV,SRSDATE\n", "D ONE^SROESTV(\"VPRSR\",DIEN) S:$G(VPRSR(DIEN))=\"\" DDEOUT=1 S:'$G(DDEOUT) VPRNONOR=$$NON^SROESTV(DIEN)\n", "QRY^VPRSDASR\n", "", "", "", ""], ["VPR PROCEDURE", "702\n", "", "", "", "SDA\n", "Procedure\n", "\n- \n
\n- \n
- FromTime
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 702
\n- FIELD NUMBER: .06
\n- EXTENDED POINTER LKUP: 70202
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P(VPRCP,U,6)
\n \n- \n
- EnteredOn
\n- SEQUENCE: 12
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 702
\n- FIELD NUMBER: .02
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n- \n
- ExternalId
\n- SEQUENCE: 13
\n- ITEM TYPE: ID
\n- OUTPUT TRANSFORM: S VALUE=VALUE_\";MD\"
\n \n- \n
- EncounterNumber
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 702
\n- FIELD NUMBER: .06
\n- EXTENDED POINTER LKUP: .03
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S:'$D(^AUPNVSIT(VALUE,0)) VALUE=\"\"
\n- GET ACTION: S VALUE=$G(VPRTIU(.03,\"I\"))
\n \n- \n
- Extension
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 702
\n- ENTITY: VPR PROCEDURE EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- Procedure
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 702
\n- FIELD NUMBER: .04
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: N X S X=$$FIND1^DIC(702.01,,\"QX\",$P(VPRCP,U)) S:X VALUE=X_U_$P(VPRCP,U)_\"^VA702.01\"
\n \n- \n
- Clinician
\n- SEQUENCE: 7
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 702
\n- FIELD NUMBER: .06
\n- EXTENDED POINTER LKUP: 1202
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$G(VPRTIU(1202,\"I\"))
\n \n- \n
- ProcedureTime
\n- SEQUENCE: 9
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 702
\n- FIELD NUMBER: .06
\n- EXTENDED POINTER LKUP: 70202
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P(VPRCP,U,6)
\n \n- \n
- EnteredBy
\n- SEQUENCE: 10
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 702
\n- FIELD NUMBER: .03
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n \n- \n
- EnteredAt
\n- SEQUENCE: 11
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 702
\n- FIELD NUMBER: .06
\n- EXTENDED POINTER LKUP: 1212
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$G(VPRTIU(1212,\"I\")) S:'VALUE VALUE=$$SITE^VPRSDA
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populated the Procedure container in HealthShare from the CP \nTRANSACTION (#702) file but is no longer in use. Clinical Procedures are\nhandled via the Consult/Request package and as such are available in the \nReferral container; clients may filter referrals by extension properties \nType and ClinicalProcedure to find them.\n
\n\n", "", "", "", "", "", "K ^TMP(\"MDHSP\",$J),VPRCP,VPRCN,VPRTIU\n", "D CP1^VPRSDAC(DIEN)\n", "CPQRY^VPRSDAC\n", "", "", "", ""], ["VPR V PROVIDER", "9000010.06\n", "AD\n", "", "", "", "CareProvider\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.06
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n \n- \n
- Description
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.06
\n- FIELD NUMBER: .01
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA200
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR VITAL QUALIFIER", "120.52\n", "", "", "", "SDA\n", "ObservationMethods\n", "\n- \n
\n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA120.52
\n- GET ACTION: S:$G(VPRVUID) VALUE=\"VHAT\"
\n \n- \n
- Code
\n- SEQUENCE: 2
\n- ITEM TYPE: ID
\n- FILE NUMBER: 120.52
\n- GET ACTION: S:$G(VPRVUID) VALUE=VPRVUID
\n \n- \n
- Description
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 120.52
\n- FIELD NUMBER: .01
\n- GET ACTION: S VALUE=$$FIELD^GMVGETQL(IEN,1)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR VITAL MEASUREMENT. It expects a pointer to the\nGMRV VITAL QUALIFIER (#120.52) file and returns a coded element. If a\nVUID has been assigned, it will be returned as the Code with a coding\nsystem of VHAT.\n
\n\n", "", "", "", "", "", "K VPRVUID\n", "S VPRVUID=$$VUID^VPRD(+DIEN,120.52)\n", "", "", "", "", ""], ["VPR PATIENT RECORD FLAG", "26.13\n", "", "", "", "SDA\n", "Alert\n", "\n- \n
\n- \n
- AlertType
\n- SEQUENCE: 4
\n- ITEM TYPE: ENTITY
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=\"PRF^PATIENT RECORD FLAG\"
\n \n- \n
- Extension
\n- SEQUENCE: 3
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 26.13
\n- ENTITY: VPR PRF EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- ExternalId
\n- SEQUENCE: 13
\n- ITEM TYPE: ID
\n- OUTPUT TRANSFORM: S VALUE=$P($G(VPRF(\"FLAG\")),U) ;vptr
\n \n- \n
- Alert
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 26.13
\n- FIELD NUMBER: .02
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: N X S X=$G(VPRF(\"FLAG\")) S:X VALUE=+X_U_$P(X,U,2)_\"^VA\"_+$P(X,\"(\",2)
\n \n- \n
- Comments
\n- SEQUENCE: 6
\n- ITEM TYPE: WORD PROCESSING
\n- FILE NUMBER: 26.13
\n- FIELD NUMBER: 1
\n- WORD WRAP: 1
\n- GET ACTION: M WP=VPRF(\"NARR\") S:'$D(WP) DDEOUT=1
\n \n- \n
- Status
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 26.13
\n- FIELD NUMBER: .03
\n- RETURN INTERNAL VALUE: YES
\n- FIXED RESPONSE: A
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"A\",1:\"I\")
\n- GET ACTION: S VALUE=+$G(VPRF(\"STATUS\"))
\n \n- \n
- EnteredBy
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 26.14
\n- FIELD NUMBER: .04
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$P($G(VPRFLH(\"ENTERBY\")),U),IEN=+$G(VPRFLH)
\n \n- \n
- EnteredAt
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 26.13
\n- FIELD NUMBER: .05
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$P($G(VPRF(\"ORIGSITE\")),U) S:'VALUE VALUE=$G(VASITE)
\n \n- \n
- EnteredOn
\n- SEQUENCE: 10
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 26.14
\n- FIELD NUMBER: .02
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(VPRF1H(\"ASSIGNDT\")),U),IEN=+$G(VPRF1H)
\n \n- \n
- FromTime
\n- SEQUENCE: 11
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 26.14
\n- FIELD NUMBER: .02
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(VPRF1H(\"ASSIGNDT\")),U),IEN=+$G(VPRF1H)
\n \n- \n
- ToTime
\n- SEQUENCE: 12
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 26.13
\n- FIELD NUMBER: .06
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(VPRF(\"REVIEWDT\")),U)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populates the Alert container in HealthShare with active\nnational Patient Record Flags for a patient DFN.\n
\n\n", "", "", "", "", "S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM(\"INST\")\n", "K VPRF,VPRF1H,VPRFLH,VASITE\n", "D PRF1^VPRSDAF(.DIEN)\n", "PRFQ^VPRSDAF\n", "", "", "", ""], ["VPR PTF", "45\n", "", "", "", "SDA\n", "Diagnosis\n", "\n- \n
\n- \n
- FromTime
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 45
\n- FIELD NUMBER: 2
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRPTF(\"ADMISSION DATE\"))
\n \n- \n
- DiagnosisPriority
\n- SEQUENCE: 9
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S:$G(VPRPTF)[\"-\" VALUE=+$P(VPRPTF,\"-\",2)
\n \n- \n
- Extension
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 45
\n- ENTITY: VPR PTF EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- ToTime
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 45
\n- FIELD NUMBER: 70
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRPTF(\"DISCHARGE DATE\")),VPRDISDT=VALUE
\n \n- \n
- DiagnosingClinician
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 45
\n- FIELD NUMBER: 79.1
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$G(VPRPTF(\"DISCHARGE PROVIDER\"))
\n \n- \n
- Diagnosis
\n- SEQUENCE: 7
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 45
\n- FIELD NUMBER: 79
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR ICD
\n- GET ACTION: S VALUE=$P($G(VPRPTF(\"DX\")),U),DATA(\"DATE\")=$G(VPRDISDT,DT)
\n \n- \n
- DiagnosisType
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 45
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=$S($G(VPRPTF)[\"-\":\"S^SECONDARY\",1:\"DXLS^Diagnosis for Length of Stay\")
\n \n- \n
- EnteredAt
\n- SEQUENCE: 17
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 45
\n- FIELD NUMBER: 3
\n- ENTITY: VPR FACILITY
\n- OUTPUT TRANSFORM: S VALUE=+$O(^DIC(4,\"D\",VALUE,0)) ;PTF saves stn#
\n- GET ACTION: S VALUE=$G(VPRPTF(\"FACILITY\")) S:VALUE=\"\" VALUE=$G(VASTN)
\n \n- \n
- EncounterNumber
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 45
\n- GET ACTION: S VALUE=$G(VPRPTF(\"VISIT\"))
\n \n- \n
- ExternalId
\n- SEQUENCE: 19
\n- ITEM TYPE: ID
\n- OUTPUT TRANSFORM: S VALUE=VALUE_\";PTF\"
\n- GET ACTION: S VALUE=$G(VPRPTF)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populates the Diagnosis container in HealthShare with ICD\ndischarge diagnosis codes from the PTF (#45) file ien; it expects the\nrecord IEN as the ID (DIEN).\n \nThis entity is supported by code in routine VPRSDADG, which uses the\nRPC^DGPTFAPI and PTF^DGPTPXRM calls to extract PTF data. Data in SDA\nis maintained by monitoring the DG PTF ICD DIAGNOSIS NOTIFIER protocol\nevent.\n
\n\n", "", "", "", "", "S VASTN=$P($$SITE^VASITE,U,3)\n", "K VPRDISDT,VPRPTF,VPRPOA,VASTN\n", "D DX1^VPRSDADG\n", "DXQ^VPRSDADG\n", "", "", "", ""], ["VPR MEDICATION", "100\n", "", "", "", "SDA\n", "Medication\n", "\n- \n
\n- \n
- EnteredAt
\n- SEQUENCE: 30
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 6
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR FACILITY
\n- OUTPUT TRANSFORM: S VALUE=$$FAC^VPRSDA(VALUE) ;#4 ien
\n- GET ACTION: S VALUE=$P($G(OR0),U,10)
\n \n- \n
- Status
\n- SEQUENCE: 15
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 5
\n- EXTENDED POINTER LKUP: .02
\n- OUTPUT TRANSFORM: N X S X=VALUE,VALUE=$S(X=\"dc\":\"D\",X=\"canc\":\"C\",X=\"laps\":\"C\",X=\"dc/e\":\"R\",X=\"comp\":\"E\",X=\"exp\":\"E\",X=\"hold\":\"H\",X=\"part\":\"A\",1:\"IP\")
\n \n- \n
- PlacerId
\n- SEQUENCE: 1
\n- ITEM TYPE: ID
\n \n- \n
- EnteringOrganization
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 6
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR LOCATION
\n- OUTPUT TRANSFORM: S VALUE=+VALUE
\n- GET ACTION: S VALUE=$P($G(OR0),U,10) S:VALUE<1 VALUE=$$LOC^VPRSDAP(DFN,ORPK) S:VALUE<1 DDEOUT=1
\n \n- \n
- FromTime
\n- SEQUENCE: 32
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 21
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(OR0),U,8)
\n \n- \n
- ToTime
\n- SEQUENCE: 33
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 22
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(OR0),U,9)
\n \n- \n
- UpdatedOn
\n- SEQUENCE: 58
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 31
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(OR3),U)
\n \n- \n
- EnteredBy
\n- SEQUENCE: 29
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 3
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$P($G(OR0),U,6)
\n \n- \n
- AuthorizationTime
\n- SEQUENCE: 23
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.008
\n- FIELD NUMBER: 6
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(ORSIG),U,3),IEN=\"1,\"_DIEN
\n \n- \n
- VerifiedBy
\n- SEQUENCE: 10
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$P($G(@VPRPS@(\"RXN\",0)),U,5) ;pharmacist
\n \n- \n
- TextInstruction
\n- SEQUENCE: 19
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.045
\n- FIELD NUMBER: 1
\n- GET ACTION: S VPRPI=$$WP^VPRSDAOR(DIEN,\"PI\"),VALUE=VPRPI S:VALUE=\"\" DDEOUT=1 ;save for Sig
\n \n- \n
- DrugProduct
\n- SEQUENCE: 34
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100.045
\n- FIELD NUMBER: 1
\n- ENTITY: VPR DRUG PRODUCT
\n- GET ACTION: S:$G(PSTYPE)'=\"V\" VALUE=$$VALUE^ORX8(DIEN,\"DRUG\",1) S:'VALUE DDEOUT=1
\n \n- \n
- DosageForm
\n- SEQUENCE: 44
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 50.7
\n- FIELD NUMBER: .02
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=$$DOSEFORM^VPRSDAP(DIEN),IEN=+$G(PSOI) S:VALUE=\"\" DDEOUT=1
\n \n- \n
- DosageSteps
\n- SEQUENCE: 51
\n- ITEM TYPE: LIST
\n- ENTITY: VPR DOSAGE STEP
\n- LIST TYPE: ARRAY
\n- XML NAME: DosageStep
\n- GET ACTION: D DOSES^VPRSDAP(DIEN)
\n \n- \n
- Route
\n- SEQUENCE: 45
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100.045
\n- FIELD NUMBER: 1
\n- ENTITY: VPR MED ROUTE
\n- GET ACTION: S VALUE=$$VALUE^ORX8(DIEN,\"ROUTE\") S:VALUE=\"\" DDEOUT=1
\n \n- \n
- OrderQuantity
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.045
\n- FIELD NUMBER: 1
\n- GET ACTION: S VALUE=$$VALUE^ORX8(DIEN,\"QTY\") S:VALUE=\"\" DDEOUT=1
\n \n- \n
- EnteredOn
\n- SEQUENCE: 31
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 4
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(OR0),U,7)
\n \n- \n
- NumberOfRefills
\n- SEQUENCE: 43
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.045
\n- FIELD NUMBER: 1
\n- GET ACTION: S:$G(PSTYPE)=\"O\" VALUE=$$VALUE^ORX8(DIEN,\"REFILLS\") S:VALUE=\"\" DDEOUT=1
\n \n- \n
- PrescriptionNumber
\n- SEQUENCE: 48
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52
\n- FIELD NUMBER: .01
\n- GET ACTION: S:$G(PSTYPE)=\"O\" VALUE=$P($G(@VPRPS@(\"RXN\",0)),U),IEN=+$G(ORPK) S:VALUE=\"\" DDEOUT=1
\n \n- \n
- RefillNumber
\n- SEQUENCE: 49
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S:$G(PSTYPE)=\"O\" VALUE=$O(@VPRPS@(\"REF\",\"\"),-1) ;last#
\n \n- \n
- ComponentMeds
\n- SEQUENCE: 53
\n- ITEM TYPE: LIST
\n- ENTITY: VPR IV PRODUCT
\n- LIST TYPE: ARRAY
\n- XML NAME: DrugProduct
\n- GET ACTION: I $G(PSTYPE)=\"V\" D IVMEDS^VPRSDAP(ORIFN)
\n \n- \n
- RateAmount
\n- SEQUENCE: 37
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.045
\n- FIELD NUMBER: 1
\n- GET ACTION: S:$G(PSTYPE)=\"V\" VALUE=$$IVRATE^VPRSDAP(ORIFN) S:VALUE=\"\" DDEOUT=1
\n \n- \n
- RateUnits
\n- SEQUENCE: 38
\n- ITEM TYPE: ENTITY
\n- ENTITY: VPR CODE ONLY
\n- GET ACTION: S:$G(PSTYPE)=\"V\"&$G(VPRATE) VALUE=\"ml\"
\n \n- \n
- RateTimeUnit
\n- SEQUENCE: 39
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S:$G(PSTYPE)=\"V\"&$G(VPRATE) VALUE=\"per hour\"
\n \n- \n
- Frequency
\n- SEQUENCE: 13
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100.045
\n- FIELD NUMBER: 1
\n- ENTITY: VPR CODE ONLY
\n- GET ACTION: S:$G(PSTYPE)=\"V\" VALUE=$$VALUE^ORX8(DIEN,\"SCHEDULE\") S:VALUE=\"\" DDEOUT=1
\n \n- \n
- Duration
\n- SEQUENCE: 14
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100.045
\n- FIELD NUMBER: 1
\n- ENTITY: VPR TEXT ONLY
\n- GET ACTION: S:$G(PSTYPE)=\"V\" VALUE=$$VALUE^ORX8(DIEN,\"DAYS\") S:VALUE=\"\" DDEOUT=1
\n \n- \n
- StrengthVolume
\n- SEQUENCE: 35
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.045
\n- FIELD NUMBER: 1
\n- GET ACTION: S:$G(PSTYPE)=\"V\" VALUE=$$VALUE^ORX8(DIEN,\"VOLUME\"),VPRUNTS=$S(VALUE:\"ML\",1:\"\") S:VALUE=\"\" DDEOUT=1
\n \n- \n
- FillerId
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 33
\n- GET ACTION: S VALUE=$$PKGID^ORX8(DIEN)
\n \n- \n
- StrengthVolumeUnits
\n- SEQUENCE: 36
\n- ITEM TYPE: FIXED STRING
\n- FILE NUMBER: 100
\n- GET ACTION: I $G(PSTYPE)=\"V\" S VALUE=$G(VPRUNTS) K VPRUNTS
\n \n- \n
- Extension
\n- SEQUENCE: 62
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- ENTITY: VPR MED EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- PharmacyStatus
\n- SEQUENCE: 47
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 52
\n- FIELD NUMBER: 100
\n- GET ACTION: S IEN=+ORPK I +ORPK'=ORPK,$E(ORPK,$L(ORPK))'=\"R\" S VALUE=$P($G(@VPRPS@(0)),U,6) S:VALUE=\"\" DDEOUT=1 ;use API value for non-Rx
\n \n- \n
- Comments
\n- SEQUENCE: 21
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.045
\n- FIELD NUMBER: 1
\n- GET ACTION: S VALUE=$$WP^VPRSDAOR(DIEN,\"COMMENT\") S:VALUE=\"\" DDEOUT=1
\n \n- \n
- GroupId
\n- SEQUENCE: 26
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 36
\n- RETURN INTERNAL VALUE: YES
\n- GET ACTION: S VALUE=$G(ORDAD)
\n \n- \n
- Administrations
\n- SEQUENCE: 52
\n- ITEM TYPE: LIST
\n- ENTITY: VPR MED ADMINISTRATION
\n- LIST TYPE: ARRAY
\n- XML NAME: Administration
\n- GET ACTION: D BCMA^VPRSDAP(DIEN)
\n \n- \n
- ExternalId
\n- SEQUENCE: 59
\n- ITEM TYPE: ID
\n \n- \n
- Indication
\n- SEQUENCE: 46
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 100.045
\n- FIELD NUMBER: 1
\n- GET ACTION: S VALUE=$$VALUE^ORX8(DIEN,\"INDICATION\") S:VALUE=\"\" DDEOUT=1
\n \n- \n
- OrderCategory
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 23
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR DISPLAY GROUP
\n- GET ACTION: S VALUE=$P($G(OR0),U,11),DATA=$S($G(PSTYPE)=\"N\":\"OTC\",$G(PSTYPE)=\"O\":\"Prescription\",1:\"\") ;HITSP category
\n \n- \n
- OrderItem
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100.001
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR ORDERABLE ITEM
\n- GET ACTION: N OI S OI=$$OI^VPRSDAP(DIEN),VALUE=+OI,PSOI=+$P(OI,U,3),IEN=\"1,\"_DIEN S:VALUE<1 DDEOUT=1 ;first/only
\n \n- \n
- OrderedBy
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- FIELD NUMBER: 1
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$P($G(OR0),U,4)
\n \n- \n
- Priority
\n- SEQUENCE: 16
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100.045
\n- FIELD NUMBER: 1
\n- ENTITY: VPR ORDER URGENCY
\n- GET ACTION: S VALUE=$$VALUE^ORX8(DIEN,\"URGENCY\") S:VALUE=\"\" DDEOUT=1
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populates the Medication container in HealthShare from the\nORDER (#100) file; it expects the record ien as its ID (DIEN).\nAdditional data is pulled from the PHARMACY PATIENT (#55) and\nPRESCRIPTION (#52) files.\n \nThis entity is supported by code in routines VPRSDAOR and VPRSDAP,\nwhich uses various PS* calls to extract medication data. Data in SDA\nis maintained by monitoring the OR EVSEND PS, PS EVSEND OR, and\nPSB EVSEND VPR protocol events.\n
\n\n", "", "", "", "", "", "K:$D(VPRPS) @VPRPS K ORIFN,ORPK,PSTYPE,VPRATE,VPRPS,^TMP(\"VPRX\",$J),PSOI,VPRPI,OR0,OR3,OR6,OR8,ORDAD,ORSIG\n", "D PS1^VPRSDAP(DIEN),OR1^VPRSDAOR(DIEN)\n", "ORDERS^VPRSDAOR(\"RX\")\n", "", "", "", ""], ["VPR DOSAGE STEP", "100\n", "", "", "", "SDA\n", "DosageStep\n", "\n- \n
\n- \n
- TextInstruction
\n- SEQUENCE: 5
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$$VALUE^ORX8(ORIFN,\"INSTR\",IEN)
\n \n- \n
- Frequency
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- ENTITY: VPR CODE ONLY
\n- GET ACTION: S VALUE=$P($G(VPRSCH),U)
\n \n- \n
- DoseQuantity
\n- SEQUENCE: 7
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P($$VALUE^ORX8(ORIFN,\"DOSE\",IEN),\"&\")
\n \n- \n
- DoseUoM
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- ENTITY: VPR CODE ONLY
\n- GET ACTION: S VALUE=$P($$VALUE^ORX8(ORIFN,\"DOSE\",IEN),\"&\",2)
\n \n- \n
- Duration
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- ENTITY: VPR TEXT ONLY
\n- GET ACTION: S VALUE=$$VALUE^ORX8(ORIFN,\"DAYS\",IEN) S:VALUE<1 DDEOUT=1
\n \n- \n
- Extension
\n- SEQUENCE: 4
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 100
\n- ENTITY: VPR DOSE EXTENSION
\n- GET ACTION: S VALUE=DIEN,VPRSCH=$$SCHEDULE^VPRSDAP
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity looks in the Responses multiple of the Orders file #100\nand returns the list of instance numbers for each set of dosage\ninstructions ordered. Related data elements per instance will be\nretrieved via the $$VALUE^ORX8 api. It is intended for use with\nVPR MEDICATION.\n
\n\n", "", "", "", "", "", "K VPRSCH\n", "", "", "", "", "", ""], ["VPR DRUG PRODUCT", "50\n", "", "", "", "SDA\n", "DrugProduct\n", "\n- \n
\n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA50
\n- GET ACTION: S VALUE=$P($G(DATA),U,3)
\n \n- \n
- Extension
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 50
\n- ENTITY: VPR DRUG PRODUCT EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: ID
\n- FILE NUMBER: 50
\n- GET ACTION: S VALUE=$P($G(DATA),U)
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 50
\n- FIELD NUMBER: .01
\n- GET ACTION: S VALUE=$P(DATA,U,2)
\n \n- \n
- ATCCode
\n- SEQUENCE: 18
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 50
\n- FIELD NUMBER: 25
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR DRUG CLASS
\n- GET ACTION: S VALUE=$G(@VPRVAP@(25))
\n \n- \n
- Generic
\n- SEQUENCE: 22
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 50
\n- FIELD NUMBER: 20
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR DRUG GENERIC
\n- GET ACTION: S DATA=$G(@VPRVAP@(20)),VALUE=$P(DATA,U) D:VALUE CODE^VPRSDAP(.DATA,50.6)
\n \n- \n
- OriginalText
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 50
\n- FIELD NUMBER: .01
\n- GET ACTION: S VALUE=$G(@VPRVAP@(.01))
\n \n- \n
- ProductName
\n- SEQUENCE: 10
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 50
\n- FIELD NUMBER: 22
\n- EXTENDED POINTER LKUP: 5
\n- GET ACTION: Q S VALUE=$P($G(@VPRVAP@(22)),U,2)
\n \n- \n
- Identifier1
\n- SEQUENCE: 16
\n- ITEM TYPE: ID
\n- OUTPUT TRANSFORM: S VALUE=VALUE_\";PSDRUG(\"
\n \n- \n
- Identifier2
\n- SEQUENCE: 17
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 50
\n- FIELD NUMBER: 22
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=VALUE_\";PSNDF(50.68,\"
\n- GET ACTION: S VALUE=$P($G(@VPRVAP@(22)),U)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity expects a Drug file #50 ien and returns a coded element,\nincluding national VA Product information and RxNorm codes if available.\nIt is intended for use with VPR MEDICATION.\n
\n\n", "", "", "", "", "D NDF^VPRSDAP(.ID) ;ID=#50ien\n", "I $D(VPRVAP) K @VPRVAP,VPRVAP\n", "S:'DIEN DDEOUT=1\n", "", "", "", "", ""], ["VPR VACCINATION", "9000010.11\n", "", "", "", "SDA\n", "Vaccination\n", "\n- \n
\n- \n
- FillerId
\n- SEQUENCE: 3
\n- ITEM TYPE: ID
\n- FILE NUMBER: 9000010.11
\n \n- \n
- Administrations
\n- SEQUENCE: 53
\n- ITEM TYPE: LIST
\n- ENTITY: VPR IMM ADMINISTRATION
\n- LIST TYPE: ARRAY
\n- XML NAME: Administration
\n- GET ACTION: S DLIST(1)=DIEN
\n \n- \n
- EncounterNumber
\n- SEQUENCE: 61
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.11
\n- FIELD NUMBER: .03
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S:'$D(^AUPNVSIT(VALUE,0)) VALUE=\"\"
\n- GET ACTION: S VALUE=$G(VPRM(\"VISIT\"))
\n \n- \n
- ToTime
\n- SEQUENCE: 34
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.11
\n- FIELD NUMBER: 1201
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRDT) S:VALUE<1 DDEOUT=1
\n \n- \n
- Extension
\n- SEQUENCE: 62
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.11
\n- ENTITY: VPR IMM EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- ExternalId
\n- SEQUENCE: 60
\n- ITEM TYPE: ID
\n \n- \n
- MaxDoseQuantity
\n- SEQUENCE: 43
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.11
\n- FIELD NUMBER: .01
\n- EXTENDED POINTER LKUP: .05
\n- RETURN INTERNAL VALUE: YES
\n- GET ACTION: S VALUE=$P($G(VPRM(\"MAX # IN SERIES\")),U)
\n \n- \n
- OrderedBy
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.11
\n- FIELD NUMBER: 1202
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$P($G(VPRM(\"ORDERING PROVIDER\")),U)
\n \n- \n
- Comments
\n- SEQUENCE: 21
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.11
\n- FIELD NUMBER: 81101
\n- GET ACTION: S VALUE=$G(VPRM(\"COMMENTS\"))
\n \n- \n
- EnteredBy
\n- SEQUENCE: 30
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.11
\n- FIELD NUMBER: 1206
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$P($G(VPRM(\"DOCUMENTER\")),U)
\n \n- \n
- EnteredAt
\n- SEQUENCE: 31
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.11
\n- FIELD NUMBER: .03
\n- EXTENDED POINTER LKUP: .06
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$P($G(VPRM(\"FACILITY\")),U) S:VALUE<1 VALUE=$$SITE^VPRSDA
\n \n- \n
- EnteredOn
\n- SEQUENCE: 32
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.11
\n- FIELD NUMBER: 1205
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRM(\"DATE RECORDED\"))
\n \n- \n
- FromTime
\n- SEQUENCE: 33
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.11
\n- FIELD NUMBER: 1201
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRM(\"EVENT DATE AND TIME\")) S:VALUE<1 VALUE=$G(VPRM(\"VISIT DATE TIME\")) S VPRDT=$G(VALUE)
\n \n- \n
- OrderItem
\n- SEQUENCE: 35
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.11
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR IMMUNIZATION
\n- GET ACTION: S DATA=$G(VPRM(\"IMMUNIZATION\")),VALUE=$P(DATA,U)
\n \n- \n
- Route
\n- SEQUENCE: 46
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.11
\n- FIELD NUMBER: 1302
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR IMM ROUTE
\n- GET ACTION: S DATA=$G(VPRM(\"ADMIN ROUTE\")),VALUE=$P(DATA,U)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populates the Vaccination container in HealthShare from the V \nIMMUNIZATION (#9000010.11) file; it expects the record IEN as the ID \n(DIEN).\n \nThis entity is supported by code in routine VPRSDAVF, which uses the\n^PXRMINDX reminder index and VIMM^PXPXRM call to extract V IMMUNIZATION\ndata. Data in SDA is maintained by monitoring the PXK VISIT DATA EVENT\nprotocol event.\n
\n\n", "", "", "", "", "", "K VPRM,VPRDT\n", "K VPRM D:$D(^AUPNVIMM(+DIEN)) VIMM^PXPXRM(+DIEN,.VPRM)\n", "IMMS^VPRSDAVF\n", "", "", "", ""], ["VPR NAME", "", "", "", "", "SDA\n", "Name\n", "\n- \n
\n- \n
- FamilyName
\n- SEQUENCE: 2
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$G(VPRNAME(\"FAMILY\"))
\n \n- \n
- NameSuffix
\n- SEQUENCE: 5
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$G(VPRNAME(\"SUFFIX\"))
\n \n- \n
- GivenName
\n- SEQUENCE: 6
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$G(VPRNAME(\"GIVEN\"))
\n \n- \n
- MiddleName
\n- SEQUENCE: 7
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$G(VPRNAME(\"MIDDLE\"))
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity accepts a standard formatted name string (LNAME,FNAME MI)\nas the ID and parses the components using Kernel's XLFNAME utilities.\n
\n\n", "", "", "", "", "", "K VPRNAME\n", "K VPRNAME S VPRNAME=$G(DIEN) D NAMECOMP^XLFNAME(.VPRNAME)\n", "", "", "", "", ""], ["VPR MED ROUTE", "51.2\n", "", "", "", "SDA\n", "Route\n", "\n- \n
\n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA51.2
\n \n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 51.2
\n- FIELD NUMBER: 1
\n- GET ACTION: S VALUE=$G(^TMP(\"VPRX\",$J,\"RTE\",DIEN,1))
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 51.2
\n- FIELD NUMBER: .01
\n- GET ACTION: S VALUE=$G(^TMP(\"VPRX\",$J,\"RTE\",DIEN,.01))
\n \n- \n
- OriginalText
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 51.2
\n- FIELD NUMBER: 10
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR MEDICATION and expects a #51.2 ien. Results of \ncalls to ALL^PSS51P2 are kept in ^TMP("VPRX",$J,"RTE") for the session, \nwhich will be killed by the Get Post Processing of VPR MEDICATION when \nall requested med orders have been extracted.\n\n\n", "", "", "", "", "", "", "I '$D(^TMP(\"VPRX\",$J,\"RTE\",DIEN)) D ALL^PSS51P2(DIEN,,,,\"RTE\") M ^TMP(\"VPRX\",$J,\"RTE\",DIEN)=^TMP($J,\"RTE\",DIEN) K ^TMP($J,\"RTE\")\n", "", "", "", "", ""], ["VPR IMMUNIZATION", "9999999.14\n", "", "", "", "SDA\n", "OrderItem\n", "\n- \n
\n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: CVX
\n \n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9999999.14
\n- FIELD NUMBER: .03
\n- GET ACTION: S VALUE=$G(VPRM(\"CVX\"))
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9999999.14
\n- FIELD NUMBER: .01
\n- GET ACTION: S:$G(DATA) VALUE=$P(DATA,U,2)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR IMM ROUTE", "920.2\n", "", "", "", "SDA\n", "Route\n", "\n- \n
\n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA920.2
\n \n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 920.2
\n- FIELD NUMBER: .03
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 920.2
\n- FIELD NUMBER: .01
\n- GET ACTION: S:$G(DATA) VALUE=$P(DATA,U,3)
\n \n- \n
- OriginalText
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 920.2
\n- FIELD NUMBER: .02
\n- GET ACTION: S:$G(DATA) VALUE=$P(DATA,U,2)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR IMM ADMINISTRATION", "9000010.11\n", "", "", "", "SDA\n", "Administration\n", "\n- \n
\n- \n
- AdministrationSite
\n- SEQUENCE: 14
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.11
\n- FIELD NUMBER: 1303
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR IMM SITE
\n- GET ACTION: S DATA=$G(VPRM(\"ADMIN SITE\")),VALUE=$P(DATA,U)
\n \n- \n
- EnteredBy
\n- SEQUENCE: 1
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.11
\n- FIELD NUMBER: 1206
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$P($G(VPRM(\"DOCUMENTER\")),U)
\n \n- \n
- AdministeredAtLocation
\n- SEQUENCE: 6.1
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.11
\n- FIELD NUMBER: .03
\n- EXTENDED POINTER LKUP: 2101
\n- ENTITY: VPR TEXT ONLY
\n- GET ACTION: S:$G(VPRM(\"LOCATION\")) DDEOUT=1 I '$G(VPRM(\"LOCATION\")),$G(VPRVST) S VALUE=$P($G(^AUPNVSIT(VPRVST,21)),U)
\n \n- \n
- AdministrationNotes
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.11
\n- FIELD NUMBER: 1101
\n- GET ACTION: N VPRMKS M VPRMKS=VPRM(\"REMARKS\") S VALUE=$$STRING^VPRD(.VPRMKS) S:VALUE=\"\" DDEOUT=1
\n \n- \n
- FromTime
\n- SEQUENCE: 15
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.11
\n- FIELD NUMBER: 1201
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRM(\"EVENT DATE AND TIME\")) S:VALUE<1 VALUE=$G(VPRM(\"VISIT DATE TIME\")) S VPRDT=$G(VALUE)
\n \n- \n
- ToTime
\n- SEQUENCE: 16
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.11
\n- FIELD NUMBER: 1201
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRDT) S:VALUE<1 DDEOUT=1
\n \n- \n
- EnteredOn
\n- SEQUENCE: 17
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.11
\n- FIELD NUMBER: 1205
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRM(\"DATE RECORDED\"))
\n \n- \n
- AdministeringProvider
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.11
\n- FIELD NUMBER: 1204
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$P($G(VPRM(\"ENCOUNTER PROVIDER\")),U)
\n \n- \n
- AdministeredAtLocation
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.11
\n- FIELD NUMBER: .03
\n- EXTENDED POINTER LKUP: .22
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR LOCATION
\n- GET ACTION: S VALUE=$P($G(VPRM(\"LOCATION\")),U) S:VALUE<1 DDEOUT=1
\n \n- \n
- AdministrationStatus
\n- SEQUENCE: 7
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.11
\n- FIELD NUMBER: .04
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=$G(VPRM(\"SERIES\"))
\n \n- \n
- AdministeredAmount
\n- SEQUENCE: 8
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.11
\n- FIELD NUMBER: 1312
\n- GET ACTION: S VALUE=$G(VPRM(\"DOSE\"))
\n \n- \n
- AdministeredUnits
\n- SEQUENCE: 9
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.11
\n- FIELD NUMBER: 1313
\n- GET ACTION: S VALUE=$G(VPRM(\"DOSE UNITS\"))
\n \n- \n
- LotNumber
\n- SEQUENCE: 10
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.11
\n- FIELD NUMBER: 1207
\n- EXTENDED POINTER LKUP: .01
\n- GET ACTION: S VALUE=$P($G(VPRM(\"LOT NUMBER\")),U,2)
\n \n- \n
- ManufacturerName
\n- SEQUENCE: 12
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.11
\n- FIELD NUMBER: 1207
\n- EXTENDED POINTER LKUP: .02
\n- GET ACTION: S VALUE=$P($G(VPRM(\"MANUFACTURER\")),U,2)
\n \n- \n
- ExpiryDate
\n- SEQUENCE: 11
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.11
\n- FIELD NUMBER: 1207
\n- EXTENDED POINTER LKUP: .09
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRM(\"EXPIRATION DATE\"))
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR VACCINATION, populating the Administrations \nproperty. VPRM array VPRDT will be defined by VPR VACCINATION.\n
\n\n", "", "", "", "", "S VPRVST=+$G(VPRM(\"VISIT\"))\n", "K VPRVST\n", "", "", "", "", "", ""], ["VPR IMM SITE", "920.3\n", "", "", "", "SDA\n", "AdministrationSite\n", "\n- \n
\n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA920.3
\n \n- \n
- Code
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 920.3
\n- FIELD NUMBER: .02
\n- GET ACTION: S:$G(DATA) VALUE=$P(DATA,U,2)
\n \n- \n
- Description
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 920.3
\n- FIELD NUMBER: .01
\n- GET ACTION: S:$G(DATA) VALUE=$P(DATA,U,3)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR INSURED ADDRESS", "2.312\n", "", "", "", "SDA\n", "Address\n", "\n- \n
\n- \n
- Street
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2.312
\n- FIELD NUMBER: 3.06
\n- GET ACTION: S VALUE=$G(VPRINS(VPRP,26)) S:$L($G(VPRINS(VPRP,27))) VALUE=VALUE_\";\"_$G(VPRINS(VPRP,27))
\n \n- \n
- City
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2.312
\n- FIELD NUMBER: 3.08
\n- ENTITY: VPR CODE ONLY
\n- OUTPUT TRANSFORM: S VALUE=$E(VALUE,1,50)
\n- GET ACTION: S VALUE=$G(VPRINS(VPRP,28))
\n \n- \n
- State
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2.312
\n- FIELD NUMBER: 3.09
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR STATE
\n- GET ACTION: S VALUE=$P($G(VPRINS(VPRP,29)),U)
\n \n- \n
- Zip
\n- SEQUENCE: 7
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2.312
\n- FIELD NUMBER: 3.1
\n- ENTITY: VPR CODE ONLY
\n- GET ACTION: S VALUE=$G(VPRINS(VPRP,30))
\n \n- \n
- Country
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2.312
\n- FIELD NUMBER: 3.13
\n- ENTITY: VPR COUNTRY
\n- OUTPUT TRANSFORM: N Y S Y=$$FIND1^DIC(779.004,,,VALUE) S:Y VALUE=Y
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR INSURANCE by returning the Insured's address\ncomponents from the PATIENT INSURANCE TYPE (#2.312) sub-file. It expects\nthe record IENS string as the ID (DIEN), as well as the VPRINS array.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR COUNTRY", "779.004\n", "", "", "", "SDA\n", "Country\n", "\n- \n
\n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA779.004
\n \n- \n
- Code
\n- SEQUENCE: 4
\n- ITEM TYPE: ID
\n \n- \n
- Description
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 779.004
\n- FIELD NUMBER: 2
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR INS COMPANY ADDRESS", "36\n", "", "", "", "SDA\n", "Address\n", "\n- \n
\n- \n
- Street
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 36
\n- FIELD NUMBER: .111
\n- GET ACTION: S VALUE=$G(VPRINS(VPRP,2)) S:$L($G(VPRINS(VPRP,23))) VALUE=VALUE_\";\"_$G(VPRINS(VPRP,23)) S:$L($G(VPRINS(VPRP,24))) VALUE=VALUE_\";\"_$G(VPRINS(VPRP,24))
\n \n- \n
- City
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 36
\n- FIELD NUMBER: .114
\n- ENTITY: VPR CODE ONLY
\n- OUTPUT TRANSFORM: S VALUE=$E(VALUE,1,50)
\n- GET ACTION: S VALUE=$G(VPRINS(VPRP,3))
\n \n- \n
- State
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 36
\n- FIELD NUMBER: .115
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR STATE
\n- GET ACTION: S VALUE=$P($G(VPRINS(VPRP,4)),U)
\n \n- \n
- Zip
\n- SEQUENCE: 7
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 36
\n- FIELD NUMBER: .116
\n- ENTITY: VPR CODE ONLY
\n- GET ACTION: S VALUE=$G(VPRINS(VPRP,5))
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity support VPR INSURANCE and VPR INSURANCE COMPANY by returning\nthe address components from an entry in the INSURANCE COMPANY (#36) file.\nIt expects the company IEN as the ID (DIEN), and the VPRINS array that\ncontains the results of the IBBAPI call.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR PERSON CLASS", "8932.1\n", "", "", "", "SDA\n", "CareProviderType\n", "\n- \n
\n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: X12
\n \n- \n
- Code
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8932.1
\n- FIELD NUMBER: 6
\n- GET ACTION: S VALUE=$P($G(DATA),U)
\n \n- \n
- Description
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8932.1
\n- FIELD NUMBER: .01
\n \n- \n
- Extension
\n- SEQUENCE: 3
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 8932.1
\n- ENTITY: VPR PERSON CLASS EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR CODE TABLE", "", "", "", "", "SDA\n", "CodeTable\n", "\n- \n
\n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P(VPRCODE,U,3)
\n \n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P(VPRCODE,U)
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P(VPRCODE,U,2)
\n \n- \n
- OriginalText
\n- SEQUENCE: 3
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$G(DATA)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "D CODED^VPRSDA\n", "K VPRCODE\n", "S VPRCODE=$G(DIEN) S:VPRCODE=\"\" DDEOUT=1\n", "", "", "", "", ""], ["VPR FACILITY", "4\n", "", "", "", "SDA\n", "Organization\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 4
\n- FIELD NUMBER: 99
\n- GET ACTION: S VALUE=$$STA^XUAF4(DIEN)
\n \n- \n
- Description
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 4
\n- FIELD NUMBER: .01
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA4
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR PATIENT NUMBER", "", "", "", "", "SDA\n", "PatientNumber\n", "\n- \n
\n- \n
- Number
\n- SEQUENCE: 7
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P(VPRNMBR,U)
\n \n- \n
- NumberType
\n- SEQUENCE: 9
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P(VPRNMBR,U,2)
\n \n- \n
- Organization
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- ENTITY: VPR CODE ONLY
\n- GET ACTION: S VALUE=$P(VPRNMBR,U,3)
\n \n- \n
- ISOAssigningAuthority
\n- SEQUENCE: 10
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$P(VPRNMBR,U,4)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT, and expects the Patient file #2 ien\nas the ID. It expects a string as the ID in the form:\n number ^ type ^ organization ^ ISO assigning authority\n
\n\n", "", "", "", "", "", "K VPRNMBR\n", "S VPRNMBR=$G(DIEN) S:VPRNMBR=\"\" DDEOUT=1\n", "", "", "", "", ""], ["VPR PATIENT BIRTHPLACE", "2\n", "", "", "", "SDA\n", "Address\n", "\n- \n
\n- \n
- City
\n- SEQUENCE: 2
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .092
\n- ENTITY: VPR CODE ONLY
\n- OUTPUT TRANSFORM: S VALUE=$E(VALUE,1,50)
\n- GET ACTION: S VALUE=$G(VAPD(1))
\n \n- \n
- State
\n- SEQUENCE: 3
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .093
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR STATE
\n- GET ACTION: S VALUE=$P($G(VAPD(2)),U)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT, and expects the Patient file #2 ien\nas the ID.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR PATIENT NOK", "2\n", "", "", "", "SDA\n", "SupportContact\n", "\n- \n
\n- \n
- Name
\n- SEQUENCE: 2
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .211
\n- ENTITY: VPR NAME
\n- GET ACTION: S VALUE=$G(VAOA(9))
\n \n- \n
- Address
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- ENTITY: VPR PATIENT NOK ADDRESS
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- ContactInfo
\n- SEQUENCE: 7
\n- ITEM TYPE: COMPLEX GROUP
\n- COMPLEX TYPE:
\n- \n
\n- \n
- COMPLEX ITEM SEQUENCE: 2
\n- COMPLEX ITEM NAME: HomePhoneNumber
\n \n- \n
- COMPLEX ITEM SEQUENCE: 3
\n- COMPLEX ITEM NAME: WorkPhoneNumber
\n \n
\n
\n \n- \n
- HomePhoneNumber
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .219
\n- GET ACTION: S VALUE=$G(VAOA(8))
\n \n- \n
- WorkPhoneNumber
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .21011
\n \n- \n
- Relationship
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .212
\n- ENTITY: VPR TEXT ONLY
\n- GET ACTION: S VALUE=$G(VAOA(10)) S:VALUE=\"\" VALUE=$G(VAOA(12))
\n \n- \n
- ContactType
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=\"NOK^Next of Kin\"
\n \n- \n
- PrimaryContact
\n- SEQUENCE: 10
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: true
\n \n- \n
- EnteredAt
\n- SEQUENCE: 13
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$G(VASITE) ;default #4 ien
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT, and expects the Patient file #2 ien\nas the ID. It returns the patient's Next of Kin.\n
\n\n", "", "", "", "", "S VAOA(\"A\")=\"\",DFN=DIEN D OAD^VADPT\n", "K VAOA\n", "S:$G(VAOA(9))=\"\" DDEOUT=1\n", "", "", "", "", ""], ["VPR PATIENT NOK ADDRESS", "2\n", "", "", "", "SDA\n", "Address\n", "\n- \n
\n- \n
- Street
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .213
\n- GET ACTION: S VALUE=$G(VAOA(1)) I $L(VALUE) N I F I=2,3 S:$L($G(VAOA(I))) VALUE=VALUE_\";\"_VAOA(I)
\n \n- \n
- City
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .216
\n- ENTITY: VPR CODE ONLY
\n- OUTPUT TRANSFORM: S VALUE=$E(VALUE,1,50)
\n- GET ACTION: S VALUE=$G(VAOA(4))
\n \n- \n
- State
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .217
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR STATE
\n- GET ACTION: S VALUE=$S(VAOA(\"HasCountry\")=1:VAOA(\"Province\"),1:$P($G(VAOA(5)),U))
\n \n- \n
- Zip
\n- SEQUENCE: 7
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .218
\n- ENTITY: VPR CODE ONLY
\n- GET ACTION: S VALUE=$S(VAOA(\"HasCountry\")=1:VAOA(\"PostalCode\"),$P($G(VAOA(11)),U,2)'=\"\":$P(VAOA(11),U,2),1:$G(VAOA(6)))
\n \n- \n
- Country
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .221
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR COUNTRY
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT, and expects the Patient file #2 ien\nas the ID. It returns the address of the patient's Next of Kin.\n
\n\n", "", "", "", "", "", "K VPR(\"ForeignCountryFlag\")\n", "D NOK^VPRSDAD(DFN)\n", "", "", "", "", ""], ["VPR PATIENT ECON", "2\n", "", "", "", "SDA\n", "SupportContact\n", "\n- \n
\n- \n
- Name
\n- SEQUENCE: 2
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .331
\n- ENTITY: VPR NAME
\n- GET ACTION: S VALUE=$G(VAOA(9))
\n \n- \n
- Address
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- ENTITY: VPR PATIENT ECON ADDRESS
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- ContactInfo
\n- SEQUENCE: 7
\n- ITEM TYPE: COMPLEX GROUP
\n- COMPLEX TYPE:
\n- \n
\n- \n
- COMPLEX ITEM SEQUENCE: 2
\n- COMPLEX ITEM NAME: HomePhoneNumber
\n \n- \n
- COMPLEX ITEM SEQUENCE: 3
\n- COMPLEX ITEM NAME: WorkPhoneNumber
\n \n
\n
\n \n- \n
- HomePhoneNumber
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .339
\n- GET ACTION: S VALUE=$G(VAOA(8))
\n \n- \n
- WorkPhoneNumber
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .33011
\n \n- \n
- Relationship
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .332
\n- ENTITY: VPR TEXT ONLY
\n- GET ACTION: S VALUE=$G(VAOA(10)) S:VALUE=\"\" VALUE=$G(VAOA(12))
\n \n- \n
- ContactType
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=\"ECON^Emergency Contact\"
\n \n- \n
- PrimaryContact
\n- SEQUENCE: 10
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: true
\n \n- \n
- EnteredAt
\n- SEQUENCE: 13
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$G(VASITE) ;default #4 ien
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT, and expects the Patient file #2 ien\nas the ID. It returns the patient's Emergency Contact.\n
\n\n", "", "", "", "", "S VAOA(\"A\")=1,DFN=DIEN D OAD^VADPT\n", "K VAOA\n", "S:$G(VAOA(9))=\"\" DDEOUT=1\n", "", "", "", "", ""], ["VPR PATIENT ECON ADDRESS", "2\n", "", "", "", "SDA\n", "Address\n", "\n- \n
\n- \n
- Street
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .333
\n- GET ACTION: S VALUE=$G(VAOA(1)) I $L(VALUE) N I F I=2,3 S:$L($G(VAOA(I))) VALUE=VALUE_\";\"_VAOA(I)
\n \n- \n
- City
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .336
\n- ENTITY: VPR CODE ONLY
\n- OUTPUT TRANSFORM: S VALUE=$E(VALUE,1,50)
\n- GET ACTION: S VALUE=$G(VAOA(4))
\n \n- \n
- State
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .337
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR STATE
\n- GET ACTION: S VALUE=$S(VAOA(\"HasCountry\")=1:VAOA(\"Province\"),1:$P($G(VAOA(5)),U))
\n \n- \n
- Zip
\n- SEQUENCE: 7
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .338
\n- ENTITY: VPR CODE ONLY
\n- GET ACTION: S VALUE=$S(VAOA(\"HasCountry\")=1:VAOA(\"PostalCode\"),$P($G(VAOA(11)),U,2)'=\"\":$P(VAOA(11),U,2),1:$G(VAOA(6)))
\n \n- \n
- Country
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .3306
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR COUNTRY
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT, and expects the Patient file #2 ien\nas the ID. It returns the address of the patient's Emergency Contact.\n
\n\n", "", "", "", "", "", "K VPR(\"ForeignCountryFlag\")\n", "D ECON^VPRSDAD(DFN)\n", "", "", "", "", ""], ["VPR PATIENT EMPLOYER", "2\n", "", "", "", "SDA\n", "SupportContact\n", "\n- \n
\n- \n
- Name
\n- SEQUENCE: 2
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .3111
\n- ENTITY: VPR NAME
\n- GET ACTION: S VALUE=$G(VAOA(9))
\n \n- \n
- Address
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- ENTITY: VPR PATIENT EMPLOYER ADDRESS
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- ContactInfo
\n- SEQUENCE: 7
\n- ITEM TYPE: COMPLEX GROUP
\n- COMPLEX TYPE:
\n- \n
\n- \n
- COMPLEX ITEM SEQUENCE: 3
\n- COMPLEX ITEM NAME: WorkPhoneNumber
\n \n
\n
\n \n- \n
- WorkPhoneNumber
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .3119
\n- GET ACTION: S VALUE=$G(VAOA(8))
\n \n- \n
- Relationship
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- ENTITY: VPR CODE ONLY
\n- GET ACTION: S VALUE=\"EMPLOYER\"
\n \n- \n
- ContactType
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=\"EMP^Employer\"
\n \n- \n
- PrimaryContact
\n- SEQUENCE: 10
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: false
\n \n- \n
- EnteredAt
\n- SEQUENCE: 13
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$G(VASITE) ;default #4 ien
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT, and expects the Patient file #2 ien\nas the ID. It returns the patient's employer.\n
\n\n", "", "", "", "", "S VAOA(\"A\")=5,DFN=DIEN D OAD^VADPT\n", "K VAOA\n", "", "", "", "", "", ""], ["VPR PATIENT EMPLOYER ADDRESS", "2\n", "", "", "", "SDA\n", "Address\n", "\n- \n
\n- \n
- Street
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .3113
\n- GET ACTION: S VALUE=$G(VAOA(1)) I $L(VALUE) N I F I=2,3 S:$L($G(VAOA(I))) VALUE=VALUE_\";\"_VAOA(I)
\n \n- \n
- City
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .3116
\n- ENTITY: VPR CODE ONLY
\n- OUTPUT TRANSFORM: S VALUE=$E(VALUE,1,50)
\n- GET ACTION: S VALUE=$G(VAOA(4))
\n \n- \n
- State
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .3117
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR STATE
\n- GET ACTION: S VALUE=$P($G(VAOA(5)),U)
\n \n- \n
- Zip
\n- SEQUENCE: 7
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .3118
\n- ENTITY: VPR CODE ONLY
\n- GET ACTION: S VALUE=$G(VAOA(6))
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT, and expects the Patient file #2 ien\nas the ID. It returns the address of the patient's employer.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR SPECIALTY", "45.7\n", "", "", "", "SDA\n", "CareProviderType\n", "\n- \n
\n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA45.7
\n \n- \n
- Code
\n- SEQUENCE: 4
\n- ITEM TYPE: ID
\n \n- \n
- Description
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 45.7
\n- FIELD NUMBER: .01
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR ADMISSION", "405\n", "", "", "", "SDA\n", "Encounter\n", "\n- \n
\n- \n
- EncounterNumber
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 405
\n- FIELD NUMBER: .27
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S:'$D(^AUPNVSIT(VALUE,0)) VALUE=\"\"
\n- GET ACTION: S VALUE=$G(VPRVST)
\n \n- \n
- EnteredOn
\n- SEQUENCE: 43
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 405
\n- FIELD NUMBER: 101
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n- \n
- FromTime
\n- SEQUENCE: 44
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 405
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(VAIP(13,1)),U)
\n \n- \n
- ToTime
\n- SEQUENCE: 45
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 405
\n- FIELD NUMBER: .17
\n- EXTENDED POINTER LKUP: .01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S:VALUE VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(VAIP(17,1)),U) I 'VALUE,+$G(VAIP(14,2))=2,$G(VAIP(14,3))[\"FROM ASIH\" S VALUE=$$NULL^VPRSDA ;delete auto-gen date on return from ASIH
\n \n- \n
- AdmittingClinician
\n- SEQUENCE: 7
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 405
\n- FIELD NUMBER: .08
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$P($G(VAIP(13,5)),U)
\n \n- \n
- AttendingClinicians
\n- SEQUENCE: 8
\n- ITEM TYPE: LIST
\n- FILE NUMBER: 405
\n- ENTITY: VPR PROVIDER
\n- LIST TYPE: ARRAY
\n- XML NAME: CareProvider
\n- GET ACTION: S:$G(VAIP(18)) DLIST(1)=+VAIP(18)
\n \n- \n
- AdmissionSource
\n- SEQUENCE: 14
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 405
\n- FIELD NUMBER: .18
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S IEN=+$G(VAIP(13)),VALUE=$G(VAIP(13,3)) S:$L(VALUE) VALUE=VALUE_\"^VA405.2\"
\n \n- \n
- AssignedWard
\n- SEQUENCE: 15
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 405
\n- FIELD NUMBER: .06
\n- GET ACTION: S IEN=+$G(VAIP(1)),VALUE=$P($G(VAIP(5)),U,2)
\n \n- \n
- AssignedRoom
\n- SEQUENCE: 16
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 405
\n- FIELD NUMBER: .07
\n- OUTPUT TRANSFORM: S VALUE=$P(VALUE,\"-\")
\n- GET ACTION: S IEN=+$G(VAIP(1)),VALUE=$P($G(VAIP(6)),U,2)
\n \n- \n
- AssignedBed
\n- SEQUENCE: 17
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 405
\n- FIELD NUMBER: .07
\n- OUTPUT TRANSFORM: S VALUE=$P(VALUE,\"-\",2)
\n- GET ACTION: S IEN=+$G(VAIP(1)),VALUE=$P($G(VAIP(6)),U,2)
\n \n- \n
- AdmitReason
\n- SEQUENCE: 21
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 405
\n- FIELD NUMBER: .1
\n- ENTITY: VPR TEXT ONLY
\n- GET ACTION: S VALUE=$G(VAIP(13,7))
\n \n- \n
- EncounterType
\n- SEQUENCE: 5
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=\"I\"
\n \n- \n
- Specialties
\n- SEQUENCE: 30
\n- ITEM TYPE: LIST
\n- ENTITY: VPR SPECIALTY
\n- LIST TYPE: ARRAY
\n- XML NAME: CareProviderType
\n- GET ACTION: S:$G(VAIP(8)) DLIST(1)=+VAIP(8) ;D SPEC^VPRSDAV
\n \n- \n
- Extension
\n- SEQUENCE: 2
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 405
\n- ENTITY: VPR ADMISSION EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- Priority
\n- SEQUENCE: 35
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 405
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=\"P^PRIMARY\"
\n \n- \n
- SeparationMode
\n- SEQUENCE: 29
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 405
\n- FIELD NUMBER: .18
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S IEN=+$G(VAIP(17)),VALUE=$G(VAIP(17,3)) S:$L(VALUE) VALUE=VALUE_\"^VA405.2\"
\n \n- \n
- EncounterCodedType
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 405
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=\"H^HOSPITALIZATION\"
\n \n- \n
- ConsultingClinicians
\n- SEQUENCE: 9
\n- ITEM TYPE: LIST
\n- ENTITY: VPR PROVIDER
\n- LIST TYPE: ARRAY
\n- XML NAME: CareProvider
\n- GET ACTION: N X S X=$P($G(VAIP(13,5)),U) S:X DLIST(1)=X_\"^PRIMARY\"
\n \n- \n
- HealthCareFacility
\n- SEQUENCE: 22
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 405
\n- FIELD NUMBER: .06
\n- EXTENDED POINTER LKUP: 44
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR LOCATION
\n- GET ACTION: N X S X=$P($G(VAIP(5)),U) S:X VALUE=+$G(^DIC(42,+X,44))
\n \n- \n
- EnteredBy
\n- SEQUENCE: 41
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 405
\n- FIELD NUMBER: 100
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n \n- \n
- EnteredAt
\n- SEQUENCE: 42
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 405
\n- FIELD NUMBER: .06
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR FACILITY
\n- OUTPUT TRANSFORM: S VALUE=$$WARDFAC^VPRSDAV(VALUE) S:'VALUE VALUE=$$SITE^VPRSDA
\n- GET ACTION: S VALUE=$P($G(VAIP(13,4)),U)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populates the Encounter container in HealthShare with\nIN5^VADPT call to extract movement data. Data in SDA is maintained by\nmonitoring the DGPM MOVEMENT EVENTS protocol event.\ninpatient admissions from the PATIENT MOVEMENT (#405) file; it expects\nthe record IEN as the ID (DIEN).\n \nAn admission must have a corresponding entry in the VISIT (#9000010)\nfile to be included in SDA. The ID may optionally include the visit\nnumber, in the form: #405 ien ~ #9000010 ien.\n \nThis entity is supported by code in routine VPRSDAV, which uses the\n
\n\n", "", "", "", "", "", "K VAIP,VPRVST,VPRCA\n", "D VAIP^VPRSDAV\n", "ADMQ^VPRSDAV\n", "", "", "", ""], ["VPR USER", "200\n", "", "", "", "SDA\n", "User\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 4
\n- ITEM TYPE: ID
\n \n- \n
- Description
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 200
\n- FIELD NUMBER: .01
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA200
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR DOCUMENT STATUS", "8925.6\n", "", "", "", "SDA\n", "DocumentCompletionStatus\n", "\n- \n
\n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA8925.6
\n \n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: ID
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8925.6
\n- FIELD NUMBER: .01
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR CODE ONLY", "", "", "", "", "SDA\n", "CodeTable\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 1
\n- ITEM TYPE: ID
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR CW NOTES", "8925\n", "", "", "", "SDA\n", "Alert\n", "\n- \n
\n- \n
- ExternalId
\n- SEQUENCE: 13
\n- ITEM TYPE: ID
\n- OUTPUT TRANSFORM: S VALUE=VALUE_\";TIU(8925,\"
\n \n- \n
- AlertType
\n- SEQUENCE: 4
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: .04
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE=\"C\":\"C^CRISIS NOTE\",VALUE=\"W\":\"W^CLINICAL WARNING\",1:\"\")
\n- GET ACTION: S VALUE=$G(VPRTYP) S:VALUE=\"\" DDEOUT=1
\n \n- \n
- Alert
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR DOCUMENT TITLE
\n- GET ACTION: S VALUE=$G(VPRTIU(DIEN,.01,\"I\"))
\n \n- \n
- Comments
\n- SEQUENCE: 6
\n- ITEM TYPE: WORD PROCESSING
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: 2
\n- GET ACTION: M WP=VPRTIU(DIEN,\"TEXT\")
\n \n- \n
- Status
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: .05
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE<7:\"C\",VALUE<9:\"A\",1:\"I\")
\n- GET ACTION: S VALUE=$G(VPRTIU(DIEN,.05,\"I\"))
\n \n- \n
- EnteredBy
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: 1202
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$G(VPRTIU(DIEN,1202,\"I\"))
\n \n- \n
- EnteredAt
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: 1212
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$G(VPRTIU(DIEN,1212,\"I\")) S:'VALUE VALUE=$G(VASITE)
\n \n- \n
- EnteredOn
\n- SEQUENCE: 10
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: 1201
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRTIU(DIEN,1201,\"I\"))
\n \n- \n
- FromTime
\n- SEQUENCE: 11
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8925
\n- FIELD NUMBER: 1301
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRTIU(DIEN,1301,\"I\"))
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populates the Alert container in HealthShare.\n
\n\n", "", "", "", "", "S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM(\"INST\")\n", "K VPRTIU,VPRTYP,VASITE\n", "D CW1^VPRSDAF\n", "CWQ^VPRSDAF\n", "", "", "", ""], ["VPR MED ADMINISTRATION", "53.79\n", "AORDX\n", "", "", "SDA\n", "Administration\n", "\n- \n
\n- \n
- EnteredBy
\n- SEQUENCE: 1
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 53.79
\n- FIELD NUMBER: .05
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$P(PSB0,U,5)
\n \n- \n
- EnteredAt
\n- SEQUENCE: 2
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 53.79
\n- FIELD NUMBER: .03
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$P(PSB0,U,3)
\n \n- \n
- AdministeringProvider
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 53.79
\n- FIELD NUMBER: .07
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$P(PSB0,U,7)
\n \n- \n
- AdministrationStatus
\n- SEQUENCE: 7
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 53.79
\n- FIELD NUMBER: .09
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=$$ADMSTS^VPRSDAP(DIEN)
\n \n- \n
- EnteredOn
\n- SEQUENCE: 15
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 53.79
\n- FIELD NUMBER: .04
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P(PSB0,U,4)
\n \n- \n
- FromTime
\n- SEQUENCE: 16
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 53.79
\n- FIELD NUMBER: .06
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P(PSB0,U,6)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity returns the most recent administrations of this order, from \nthe Bar Code Medication Administration (BCMA) log file #53.79; it is \nintended to support the VPR MEDICATION entity.\n
\n\n", "", "", "", "", "", "K PSB0\n", "S PSB0=$G(^PSB(53.79,+$G(DIEN),0)) S:PSB0=\"\" DDEOUT=1\n", "", "", "", "", ""], ["VPR LRAP REPORT", "63.08\n", "", "", "", "SDA\n", "Document\n", "\n- \n
\n- \n
- FromTime
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 63.08
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=9999999-(+DIEN)
\n \n- \n
- DocumentNumber
\n- SEQUENCE: 16
\n- ITEM TYPE: ID
\n- OUTPUT TRANSFORM: S VALUE=+DIEN_\";\"_$G(LRSUB)
\n \n- \n
- DocumentCompletionStatus
\n- SEQUENCE: 19
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.08
\n- FIELD NUMBER: .11
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=$S($P($G(LR0),U,11):\"C^COMPLETED\",$P($G(LR0),U,3):\"R^RELEASED\",1:\"D^DRAFT\") ;final, if date exists
\n \n- \n
- EnteredBy
\n- SEQUENCE: 22
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.08
\n- FIELD NUMBER: .02
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$P($G(LR0),U,2)
\n \n- \n
- EnteredAt
\n- SEQUENCE: 23
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.08
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$G(VASITE)
\n \n- \n
- EnteredOn
\n- SEQUENCE: 24
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 63.08
\n- FIELD NUMBER: .1
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(LR0),U,10)
\n \n- \n
- Extension
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.08
\n- ENTITY: VPR LRAP EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- ToTime
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 63.08
\n- FIELD NUMBER: .03
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(LR0),U,3)
\n \n- \n
- DocumentTime
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 63.08
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(LR0),U)
\n \n- \n
- NoteText
\n- SEQUENCE: 7
\n- ITEM TYPE: WORD PROCESSING
\n- FILE NUMBER: 63.08
\n- GET ACTION: D RPT^VPRSDAB(LRSUB,+DIEN)
\n \n- \n
- DocumentType
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.08
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=\"LR^LABORATORY REPORT\"
\n \n- \n
- Clinician
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.08
\n- FIELD NUMBER: .02
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$P($G(LR0),U,2)
\n \n- \n
- AuthorizationTime
\n- SEQUENCE: 11
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 63.08
\n- FIELD NUMBER: .11
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(LR0),U,11)
\n \n- \n
- DocumentName
\n- SEQUENCE: 12
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=\"LR \"_$$NAME^VPRDLRA($G(LRSUB))_\" REPORT\"
\n \n- \n
- FileType
\n- SEQUENCE: 13
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: TXT
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populates the Document container in HealthShare with \nPathology reports that are not stored in TIU. Because these can come from \nthe Surgical Pathology, Cytopathology, or Electron Microscropy sub-files \nin the Lab Data file #63, the GET ID ACTION code will set the Default \nFile# for the appropriate sub-file based on the value of the IENS string \nin ID = IDT,LRDFN~SUB.\nID = IDT,LRDFN~SUB\n
\n\n", "", "", "", "", "S:DFN LRDFN=+$$LRDFN^LRPXAPIU(DFN) S:'DFN&ID LRDFN=+$P(ID,\",\",2),DFN=$$DFN^LRPXAPIU(LRDFN) S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM(\"INST\")\n", "K LRDFN,LR0,LRSUB,VASITE\n", "D AP1^VPRSDAB(.DIEN)\n", "APRPTS^VPRSDAB\n", "", "", "", ""], ["VPR PREGNANCY", "790.05\n", "", "", "", "SDA\n", "SocialHistory\n", "\n- \n
\n- \n
- ToTime
\n- SEQUENCE: 13
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 790.05
\n- FIELD NUMBER: 42
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRPREG(\"TO TIME\"))
\n \n- \n
- EnteredBy
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 790.05
\n- FIELD NUMBER: 2
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$G(VPRPREG(\"ENTERED BY\"))
\n \n- \n
- FromTime
\n- SEQUENCE: 12
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 790.05
\n- FIELD NUMBER: 41
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRPREG(\"FROM TIME\"))
\n \n- \n
- CustomPairs
\n- SEQUENCE: 14
\n- ITEM TYPE: LIST
\n- ENTITY: VPR CUSTOM PAIR
\n- GET ACTION: N X S X=$G(VPRPREG(\"STATE\")) I $L(X) S DLIST(1)=\"PregnancyState^\"_$P(X,U,2)
\n \n- \n
- SocialHabitComments
\n- SEQUENCE: 15
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$G(VPRPREG(\"COMMENTS\"))
\n \n- \n
- SocialHabit
\n- SEQUENCE: 4
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 790.05
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=\"PREGNANCY^^VHAT\"
\n \n- \n
- SocialHabitCategory
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 790.05
\n- ENTITY: VPR CODE ONLY
\n- GET ACTION: S VALUE=\"PREGNANCY\"
\n \n- \n
- EnteredAt
\n- SEQUENCE: 10
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 790.05
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$$SITE^VPRSDA
\n \n- \n
- EnteredOn
\n- SEQUENCE: 11
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 790.05
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRPREG(\"ENTERED ON\"))
\n \n- \n
- Status
\n- SEQUENCE: 8
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 790.05
\n- FIELD NUMBER: 21
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE>0:\"A\",1:\"I\")
\n- GET ACTION: S VALUE=$G(VPRPREG(\"STATE\"))
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populates the Social History container in HealthShare from \nthe PREGNANCY STATUSES (#790.05) sub-file of the WV PATIENT (#790) file. \nIt creates or updates a single record containing the current preganancy \nstatus for female patients; it expects the patient DFN as the ID (DIEN).\n \nThis entity is supported by code in routine VPRSDAHX, which uses the \nBASELINE^WVRPCVPR api to extract data. Data is maintained by monitoring \nthe WV PREGNANCY STATUS CHANGE EVENT protocol event.\n
\n\n", "", "", "", "", "", "K VPRPREG,^TMP(\"WVPREGST\",$J)\n", "D WVPL1^VPRSDAHX(.DIEN)\n", "WVPLQ^VPRSDAHX\n", "", "", "", ""], ["VPR CPT", "81\n", "", "", "", "SDA\n", "ProcedureCode\n", "\n- \n
\n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: CPT-4
\n \n- \n
- OriginalText
\n- SEQUENCE: 3
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$G(DATA) ;free text name from parent
\n \n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: FIXED STRING
\n- FILE NUMBER: 81
\n- GET ACTION: S VALUE=$P(VPRCPT,U)
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: FIXED STRING
\n- FILE NUMBER: 81
\n- GET ACTION: S VALUE=$P(VPRCPT,U,2)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity expects a pointer to the CPT file #81 as the ID, and \noptionally a FM date.time in local variable VPRDT, and returns the\nformatted code, date-versioned description, and coding system using\n$$CPT^ICPTCOD.\n
\n\n", "", "", "", "", "", "K VPRCPT\n", "S VPRCPT=$$CPT^VPRSDA(DIEN,$G(VPRDT)) S:VPRCPT<0 DDEOUT=1\n", "", "", "", "", ""], ["VPR V CPT", "9000010.18\n", "", "", "", "SDA\n", "Procedure\n", "\n- \n
\n- \n
- EnteredOn
\n- SEQUENCE: 12
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.18
\n- FIELD NUMBER: .03
\n- EXTENDED POINTER LKUP: .01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P(VPRVST0,U)
\n \n- \n
- ExternalId
\n- SEQUENCE: 13
\n- ITEM TYPE: ID
\n- OUTPUT TRANSFORM: S VALUE=VALUE_\";PX\"
\n \n- \n
- FromTime
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.18
\n- FIELD NUMBER: .03
\n- EXTENDED POINTER LKUP: .01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(VPRVST0),U)
\n \n- \n
- EncounterNumber
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.18
\n- FIELD NUMBER: .03
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S:'$D(^AUPNVSIT(VALUE,0)) VALUE=\"\"
\n- GET ACTION: S VALUE=$G(VPRVST)
\n \n- \n
- Extension
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.18
\n- ENTITY: VPR VCPT EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- Procedure
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.18
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CPT
\n- GET ACTION: N PN S VPRDT=+$G(VPRVST0),PN=+$G(VPRCPT(\"PROVIDER NARRATIVE\")) S:PN DATA=$P($G(^AUTNPOV(PN,0)),U) ;CPT date versioning, OrigText
\n \n- \n
- Clinician
\n- SEQUENCE: 7
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.18
\n- FIELD NUMBER: 1204
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$G(VPRCPT(\"ENCOUNTER PROVIDER\"))
\n \n- \n
- ProcedureTime
\n- SEQUENCE: 9
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.18
\n- FIELD NUMBER: 1201
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRCPT(\"EVENT DATE AND TIME\")) S:VALUE<1 VALUE=$P($G(VPRVST0),U)
\n \n- \n
- EnteredBy
\n- SEQUENCE: 10
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.18
\n- FIELD NUMBER: .03
\n- EXTENDED POINTER LKUP: .23
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$P(VPRVST0,U,23)
\n \n- \n
- EnteredAt
\n- SEQUENCE: 11
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.18
\n- FIELD NUMBER: .03
\n- EXTENDED POINTER LKUP: .06
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$P(VPRVST0,U,6) S:VALUE<1 VALUE=$$SITE^VPRSDA
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populates the Procedure container in HealthShare from the\n \nThis entity is supported by code in routine VPRSDAVF, which uses the\n^PXRMINDX reminder index and VCPT^PXPXRM call to extract V CPT data. \nData in SDA is maintained by monitoring the PXK VISIT DATA EVENT\nprotocol event.\nV CPT (#9000010.18) file; it expects the record IEN as the ID (DIEN).\n \nDuplicate entries are screened out:\n * Surgeries from the SURGERY (#130) file\n * Immunizations from V IMMUNIZATION (#9000010.11) file, also stored in\n the Vaccination container\n * Evaluation & Management codes (99200 - 99399) are returned as the type\n of visit in the Encounter container\n
\n\n", "", "", "", "", "", "K VPRCPT,VPRVST,VPRVST0,VPRDT\n", "D CPT1^VPRSDAVF\n", "CPT^VPRSDAVF\n", "", "", "", ""], ["VPR V POV", "9000010.07\n", "", "", "", "SDA\n", "Diagnosis\n", "\n- \n
\n- \n
- FromTime
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.07
\n- FIELD NUMBER: .03
\n- EXTENDED POINTER LKUP: .01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P(VPRVST0,U)
\n \n- \n
- EnteredOn
\n- SEQUENCE: 18
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.07
\n- FIELD NUMBER: .03
\n- EXTENDED POINTER LKUP: .01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P(VPRVST0,U) S:$G(VPREDP) VALUE=$$GET1^DIQ(230,VPREDP,1.4,\"I\") ;ED visit
\n \n- \n
- ExternalId
\n- SEQUENCE: 19
\n- ITEM TYPE: ID
\n- OUTPUT TRANSFORM: S VALUE=VALUE_\";POV\"
\n \n- \n
- Extension
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.07
\n- ENTITY: VPR VPOV EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- IdentificationTime
\n- SEQUENCE: 11
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.07
\n- FIELD NUMBER: 1201
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRPOV(\"EVENT DATE AND TIME\")) S:$G(VPREDP) VALUE=$$GET1^DIQ(230,VPREDP,1.4,\"I\")
\n \n- \n
- ToTime
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.07
\n- FIELD NUMBER: .03
\n- EXTENDED POINTER LKUP: .18
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P(VPRVST0,U,18) S:'VALUE VALUE=$$CKOUT^VPRSDAV(+VPRVST)
\n \n- \n
- EncounterNumber
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.07
\n- FIELD NUMBER: .03
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S:'$D(^AUPNVSIT(VALUE,0)) VALUE=\"\"
\n- GET ACTION: S VALUE=$G(VPRVST)
\n \n- \n
- DiagnosingClinician
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.07
\n- FIELD NUMBER: 1204
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$G(VPRPOV(\"ENCOUNTER PROVIDER\")) I VALUE=\"\",$G(VPREDP) S VALUE=$$GET1^DIQ(230,VPREDP,3.5,\"I\")
\n \n- \n
- Diagnosis
\n- SEQUENCE: 7
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.07
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR ICD
\n- GET ACTION: S DATA(\"DATE\")=+$G(VPRVST0),DATA(\"TEXT\")=$$POVNARR^VPRSDAVF
\n \n- \n
- DiagnosisType
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.07
\n- FIELD NUMBER: .12
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=$G(VPRPOV(\"PRIMARY/SECONDARY\"))
\n \n- \n
- OnsetTime
\n- SEQUENCE: 13
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 9000010.07
\n- FIELD NUMBER: .13
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$G(VPRPOV(\"DATE OF INJURY\"))
\n \n- \n
- EnteredBy
\n- SEQUENCE: 16
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.07
\n- FIELD NUMBER: .03
\n- EXTENDED POINTER LKUP: .23
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$P(VPRVST0,U,23)
\n \n- \n
- EnteredAt
\n- SEQUENCE: 17
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 9000010.07
\n- FIELD NUMBER: .03
\n- EXTENDED POINTER LKUP: .06
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$P(VPRVST0,U,6) I VALUE<1 S:$G(VPREDP) VALUE=$$GET1^DIQ(230,VPREDP,.02,\"I\") S:'VALUE VALUE=$$SITE^VPRSDA
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populates the Diagnosis container in HealthShare from the\nprotocol event.\nV POV (#9000010.07) file; it expects the record IEN as the ID (DIEN).\n \nIf the record was created from an EDP Log (#230) file entry, some\nvalues not saved in V POV may be retrieved from the EDP Log entry.\n \nThis entity is supported by code in routine VPRSDAVF, which uses the\n^PXRMINDX reminder index and VPOV^PXPXRM call to extract V POV data. \nData in SDA is maintained by monitoring the PXK VISIT DATA EVENT\n
\n\n", "", "", "", "", "", "K VPRPOV,VPRVST,VPRVST0,VPREDP\n", "D POV1^VPRSDAVF\n", "POV^VPRSDAVF\n", "", "", "", ""], ["VPR RAD REPORT", "74\n", "", "", "", "SDA\n", "Document\n", "\n- \n
\n- \n
- FromTime
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 74
\n- FIELD NUMBER: 3
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n- \n
- DocumentName
\n- SEQUENCE: 12
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 74
\n- GET ACTION: S VALUE=$G(RAPROC) S:VALUE=\"\" VALUE=\"RADIOLOGY REPORT\"
\n \n- \n
- DocumentNumber
\n- SEQUENCE: 16
\n- ITEM TYPE: ID
\n- OUTPUT TRANSFORM: S VALUE=VALUE_\";RA\"
\n- INPUT TRANSFORM: S:$P(VALUE,\";\",2)=\"RA\" VALUE=+VALUE
\n \n- \n
- DocumentCompletionStatus
\n- SEQUENCE: 19
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 74
\n- FIELD NUMBER: 5
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR CODE TABLE
\n- OUTPUT TRANSFORM: I $D(VPRAE2),$D(@VPRAE2) S VALUE=VALUE_U_$P(@VPRAE2,U)
\n \n- \n
- EnteredBy
\n- SEQUENCE: 22
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 74
\n- FIELD NUMBER: 11
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n \n- \n
- EnteredAt
\n- SEQUENCE: 23
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 74
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$G(VASITE)
\n \n- \n
- EnteredOn
\n- SEQUENCE: 24
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 74
\n- FIELD NUMBER: 6
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(@VPRAE2@(\"P\")),U,3)
\n \n- \n
- FileType
\n- SEQUENCE: 13
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: TXT
\n \n- \n
- Extension
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 74
\n- ENTITY: VPR RAD RPT EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- ToTime
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 74
\n- FIELD NUMBER: 7
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n- \n
- DocumentTime
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 74
\n- FIELD NUMBER: 3
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n- \n
- NoteText
\n- SEQUENCE: 7
\n- ITEM TYPE: WORD PROCESSING
\n- FILE NUMBER: 74
\n- GET ACTION: M WP=@VPRAE3
\n \n- \n
- DocumentType
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 74
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=\"RA^RADIOLOGY REPORT\"
\n \n- \n
- Clinician
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 70.03
\n- FIELD NUMBER: 15
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$P($G(@VPRAE2@(\"P\")),U) S:'VALUE VALUE=$P($G(@VPRAE2@(\"P\")),U,2) I 'VALUE S DDEOUT=1
\n \n- \n
- TranscriptionTime
\n- SEQUENCE: 10
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 74
\n- FIELD NUMBER: 8
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n- \n
- AuthorizationTime
\n- SEQUENCE: 11
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 74
\n- FIELD NUMBER: 7
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populates the Document container in HealthShare.\n
\n\n", "", "", "", "", "S VASITE=$$SITE^VPRSDA\n", "K ^TMP($J,\"RAE2\"),^TMP($J,\"RAE3\"),VPRXID,VPRAE2,VPRAE3,RAPROC,VASITE\n", "D RPT1^VPRSDAR\n", "RPTS^VPRSDAR\n", "", "", "", ""], ["VPR PROVIDER", "200\n", "", "", "", "SDA\n", "CareProvider\n", "\n- \n
\n- \n
- Code
\n- SEQUENCE: 4
\n- ITEM TYPE: ID
\n \n- \n
- Extension
\n- SEQUENCE: 3
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 200
\n- ENTITY: VPR PROVIDER EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- Description
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 200
\n- FIELD NUMBER: .01
\n \n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA200
\n \n- \n
- Name
\n- SEQUENCE: 6
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 200
\n- FIELD NUMBER: .01
\n- ENTITY: VPR NAME
\n \n- \n
- ContactInfo
\n- SEQUENCE: 8
\n- ITEM TYPE: COMPLEX GROUP
\n- COMPLEX TYPE:
\n- \n
\n- \n
- COMPLEX ITEM SEQUENCE: 3
\n- COMPLEX ITEM NAME: WorkPhoneNumber
\n \n- \n
- COMPLEX ITEM SEQUENCE: 4
\n- COMPLEX ITEM NAME: MobilePhoneNumber
\n \n- \n
- COMPLEX ITEM SEQUENCE: 5
\n- COMPLEX ITEM NAME: EmailAddress
\n \n
\n
\n \n- \n
- WorkPhoneNumber
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 200
\n- FIELD NUMBER: .132
\n \n- \n
- MobilePhoneNumber
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 200
\n- FIELD NUMBER: .137
\n \n- \n
- EmailAddress
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 200
\n- FIELD NUMBER: .151
\n \n- \n
- CareProviderType
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 200
\n- ENTITY: VPR PERSON CLASS
\n- GET ACTION: S DATA=$$TAXIND^XUSTAX(DIEN) I DATA'=\"^\",$P(DATA,U)'=-1 S VALUE=$P(DATA,U,2)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "K VPROLE\n", "S VPROLE=$P(DIEN,U,2),DIEN=+DIEN\n", "", "", "", "", ""], ["VPR LRMI REPORT", "63.05\n", "", "", "", "SDA\n", "Document\n", "\n- \n
\n- \n
- FromTime
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 63.05
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=9999999-(+DIEN)
\n \n- \n
- DocumentNumber
\n- SEQUENCE: 16
\n- ITEM TYPE: ID
\n- OUTPUT TRANSFORM: S VALUE=+DIEN_\";MI\"
\n \n- \n
- DocumentCompletionStatus
\n- SEQUENCE: 19
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.05
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=$S($P($G(LR1),U,2)=\"F\":\"C^COMPLETED\",1:\"D^DRAFT\") ;final or preliminary
\n \n- \n
- EnteredAt
\n- SEQUENCE: 23
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.05
\n- FIELD NUMBER: .112
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR FACILITY
\n- GET ACTION: S VALUE=$P($G(LR0),U,14) S:'VALUE VALUE=$G(VASITE)
\n \n- \n
- EnteredOn
\n- SEQUENCE: 24
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 63.05
\n- FIELD NUMBER: .1
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(LR0),U,10)
\n \n- \n
- Extension
\n- SEQUENCE: 5
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.05
\n- ENTITY: VPR LRMI EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- EnteredBy
\n- SEQUENCE: 22
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.05
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$P($G(LR1),U,3)
\n \n- \n
- ToTime
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 63.05
\n- FIELD NUMBER: .03
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(LR0),U,3)
\n \n- \n
- DocumentTime
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 63.05
\n- FIELD NUMBER: .01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(LR0),U)
\n \n- \n
- NoteText
\n- SEQUENCE: 7
\n- ITEM TYPE: WORD PROCESSING
\n- FILE NUMBER: 63.05
\n- GET ACTION: D RPT^VPRSDAB(\"MI\",+DIEN)
\n \n- \n
- DocumentType
\n- SEQUENCE: 8
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.05
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=\"LR^LABORATORY REPORT\"
\n \n- \n
- Clinician
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 63.05
\n- FIELD NUMBER: .04
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$P($G(LR0),U,4)
\n \n- \n
- AuthorizationTime
\n- SEQUENCE: 11
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 63.05
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P($G(LR1),U)
\n \n- \n
- DocumentName
\n- SEQUENCE: 12
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=\"LR MICROBIOLOGY REPORT\"
\n \n- \n
- FileType
\n- SEQUENCE: 13
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: TXT
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populates the Document container in HealthShare with \nMicrobiology reports built from the MI subscript nodes in the LAB DATA \n(#63) file. It expects the MI sub-file IENS string and the subscript as \nID = IDT,LRDFN~SUB.\n
\n\n", "", "", "", "", "S:DFN LRDFN=+$$LRDFN^LRPXAPIU(DFN) S:'DFN&ID LRDFN=+$P(ID,\",\",2),DFN=$$DFN^LRPXAPIU(LRDFN) S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM(\"INST\")\n", "K LRDFN,LR0,LR1,LRSUB,VASITE\n", "D AP1^VPRSDAB(.DIEN)\n", "MIRPTS^VPRSDAB\n", "", "", "", ""], ["VPR SCHEDULED ADMISSION", "41.1\n", "", "", "", "SDA\n", "Appointment\n", "\n- \n
\n- \n
- Status
\n- SEQUENCE: 4
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$S($P(VPRADM,U,13):\"CANCELLED\",$P(VPRADM,U,17):\"ADMITTED\",$P(VPRADM,U,2)>DT:\"FUTURE\",1:\"NO ACTION TAKEN\")
\n \n- \n
- CareProvider
\n- SEQUENCE: 12
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 41.1
\n- FIELD NUMBER: 5
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PROVIDER
\n- GET ACTION: S VALUE=$P(VPRADM,U,5)
\n \n- \n
- PlacerApptId
\n- SEQUENCE: 7
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=\"H;\"_DIEN
\n \n- \n
- FillerApptId
\n- SEQUENCE: 8
\n- ITEM TYPE: ID
\n \n- \n
- Location
\n- SEQUENCE: 13
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 41.1
\n- FIELD NUMBER: 8
\n- EXTENDED POINTER LKUP: 44
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR LOCATION
\n \n- \n
- EnteredBy
\n- SEQUENCE: 15
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 41.1
\n- FIELD NUMBER: 11
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR USER
\n- GET ACTION: S VALUE=$P(VPRADM,U,11)
\n \n- \n
- EnteredAt
\n- SEQUENCE: 16
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 41.1
\n- FIELD NUMBER: 12
\n- EXTENDED POINTER LKUP: .07
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR FACILITY
\n \n- \n
- FromTime
\n- SEQUENCE: 18
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 41.1
\n- FIELD NUMBER: 2
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n \n- \n
- ToTime
\n- SEQUENCE: 19
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 41.1
\n- FIELD NUMBER: 17
\n- EXTENDED POINTER LKUP: .01
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S:$P(VPRADM,U,13) VALUE=$P(VPRADM,U,13) ;cancelled instead
\n \n- \n
- Extension
\n- SEQUENCE: 3
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 41.1
\n- ENTITY: VPR SCH ADM EXTENSION
\n- GET ACTION: S VALUE=DIEN
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity populates the Appointment container in HealthShare from the\nSCHEDULED ADMISSION (#41.1) file; it expects the record IEN as the\nID (DIEN).\n \nThis entity is supported by code in routine VPRSDAM, which uses VA\nFileMan calls to extract appointment data. Data in SDA is maintained by\nmonitoring the DG SA FILE ENTRY NOTIFIER protocol event.\n
\n\n", "", "", "", "", "", "K VPRADM\n", "S VPRADM=$G(^DGS(41.1,DIEN,0))\n", "SCHADMS^VPRSDAM\n", "", "", "", ""], ["VPR DRUG CLASS", "50.605\n", "", "", "", "SDA\n", "ATCCode\n", "\n- \n
\n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA50.605
\n \n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 50.605
\n- FIELD NUMBER: .01
\n- GET ACTION: S VALUE=$P(VPRDCLS,U,2)
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 50.605
\n- FIELD NUMBER: 1
\n- GET ACTION: S VALUE=$P(VPRDCLS,U,3)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "K VPRDCLS\n", "S VPRDCLS=$G(DIEN),DIEN=$P(DIEN,U)\n", "", "", "", "", ""], ["VPR DRUG GENERIC", "50.6\n", "", "", "", "SDA\n", "Generic\n", "\n- \n
\n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA50.6
\n- GET ACTION: S VALUE=$P($G(DATA),U,3)
\n \n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: ID
\n- FILE NUMBER: 50.6
\n- GET ACTION: S VALUE=$P($G(DATA),U)
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 50.6
\n- FIELD NUMBER: .01
\n- GET ACTION: S VALUE=$P($G(DATA),U,2)
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR IV PRODUCT", "50\n", "", "", "", "SDA\n", "DrugProduct\n", "\n- \n
\n- \n
- SDACodingStandard
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- FIXED RESPONSE: VA50.68
\n- GET ACTION: S VALUE=$P($G(DATA),U,3)
\n \n- \n
- LabelName
\n- SEQUENCE: 23
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S:$P(VPRPSIV,U,4)=\"A\" VALUE=$P(VPRPSIV,U,5)
\n \n- \n
- Identifier1
\n- SEQUENCE: 16
\n- ITEM TYPE: ID
\n- OUTPUT TRANSFORM: S VALUE=VALUE_\";PSDRUG(\"
\n- GET ACTION: S:DIEN<1 DDEOUT=1
\n \n- \n
- Identifier2
\n- SEQUENCE: 17
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 50
\n- GET ACTION: N X S X=$P(VPRPSIV,U) S:X VALUE=X_\";PS(52.\"_$S($P(VPRPSIV,U,4)=\"A\":6,1:7)
\n \n- \n
- OriginalText
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 50
\n- FIELD NUMBER: .01
\n- GET ACTION: S VALUE=$G(@VPRVAP@(.01))
\n \n- \n
- ProductName
\n- SEQUENCE: 10
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 50
\n- GET ACTION: S VALUE=$P(VPRPSIV,U,2)
\n \n- \n
- Code
\n- SEQUENCE: 6
\n- ITEM TYPE: ID
\n- GET ACTION: S VALUE=$P($G(DATA),U)
\n \n- \n
- Description
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 50
\n- FIELD NUMBER: .01
\n- GET ACTION: S VALUE=$P($G(DATA),U,2)
\n \n- \n
- ATCCode
\n- SEQUENCE: 18
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 50
\n- FIELD NUMBER: 25
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR DRUG CLASS
\n- GET ACTION: S VALUE=$G(@VPRVAP@(25))
\n \n- \n
- Generic
\n- SEQUENCE: 22
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 50
\n- FIELD NUMBER: 20
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR DRUG GENERIC
\n- GET ACTION: S DATA=$G(@VPRVAP@(20)),VALUE=$P(DATA,U) D:DATA CODE^VPRSDAP(.DATA,50.6)
\n \n- \n
- StrengthQty
\n- SEQUENCE: 19
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S:$P(VPRPSIV,U,4)=\"A\" VALUE=+$P($P(VPRPSIV,U,3),\" \") I $P(VPRPSIV,U,4)'=\"A\" S DDEOUT=1
\n \n- \n
- StrengthUnits
\n- SEQUENCE: 20
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 50
\n- ENTITY: VPR CODE ONLY
\n- GET ACTION: S:$P(VPRPSIV,U,4)=\"A\" VALUE=$P($P(VPRPSIV,U,3),\" \",2) I $P(VPRPSIV,U,4)'=\"A\" S DDEOUT=1
\n \n- \n
- BaseQty
\n- SEQUENCE: 8
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S:$P(VPRPSIV,U,4)=\"B\" VALUE=+$P($P(VPRPSIV,U,3),\" \") I $P(VPRPSIV,U,4)'=\"B\" S DDEOUT=1
\n \n- \n
- BaseUnits
\n- SEQUENCE: 9
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 50
\n- ENTITY: VPR CODE ONLY
\n- GET ACTION: S:$P(VPRPSIV,U,4)=\"B\" VALUE=$P($P(VPRPSIV,U,3),\" \",2) I $P(VPRPSIV,U,4)'=\"B\" S DDEOUT=1
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity expects a string of data from OEL^PSOORRL describing an IV\nsolution or additive, in the form ien^name^amount^type[^bottle]. It\nreturns a coded element, including national VA Product information and\nRxNorm codes if available. It is intended for use with VPR MEDICATION.\n
\n\n", "", "", "", "", "", "K VPRPSIV I $D(VPRVAP) K @VPRVAP,VPRVAP\n", "D IV1^VPRSDAP(.DIEN)\n", "", "", "", "", ""], ["VPR PATIENT EXTENSION", "2\n", "", "", "", "SDA\n", "PatientExtension\n", "\n- \n
\n- \n
- Bid
\n- SEQUENCE: 1
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$E($G(VADM(1)))_$G(VA(\"BID\"))
\n \n- \n
- IsServiceConnected
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .301
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",\"Yy\"[$E(VALUE):\"true\",1:\"false\")
\n- GET ACTION: S VALUE=+$G(VAEL(3))
\n \n- \n
- ScPercent
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .302
\n- GET ACTION: S VALUE=$P(VAEL(3),U,2)
\n \n- \n
- ServicePeriod
\n- SEQUENCE: 18
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .323
\n- GET ACTION: S:$G(VAEL(2)) VALUE=$P(VAEL(2),U,2) I '$G(VAEL(2)) S DDEOUT=1
\n \n- \n
- MeansTestStatus
\n- SEQUENCE: 31
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .14
\n- GET ACTION: S:$L($G(VAEL(9))) VALUE=$P(VAEL(9),U,2)
\n \n- \n
- EligibilityStatus
\n- SEQUENCE: 33
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .3611
\n- GET ACTION: S:$L($G(VAEL(8))) VALUE=$P(VAEL(8),U,2)
\n \n- \n
- Eligibilities
\n- SEQUENCE: 34
\n- ITEM TYPE: LIST
\n- ENTITY: VPR PATIENT ELIGIBILITY
\n- LIST TYPE: ARRAY
\n- XML NAME: Eligibility
\n- GET ACTION: N X M DLIST=VAEL(1) S X=$G(VAEL(1)) S:X DLIST(.5)=X_\"^1\"
\n \n- \n
- Disabilities
\n- SEQUENCE: 35
\n- ITEM TYPE: LIST
\n- ENTITY: VPR PATIENT DISABILITY
\n- LIST TYPE: ARRAY
\n- XML NAME: Disability
\n- GET ACTION: S:'$$RDIS^DGRPDB(DFN,.DLIST) DDEOUT=1
\n \n- \n
- IsExposureMST
\n- SEQUENCE: 12
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: N X S X=$P($$GETSTAT^DGMSTAPI(DFN),U,2),VALUE=$S(X=\"Y\":\"true\",X=\"N\":\"false\",1:\"\")
\n \n- \n
- CareTeamName
\n- SEQUENCE: 37
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VPRTEAM=$$INSTPCTM^SCAPMC(DFN) S:VPRTEAM VALUE=$P(VPRTEAM,U,2)
\n \n- \n
- CareTeamMembers
\n- SEQUENCE: 39
\n- ITEM TYPE: LIST
\n- ENTITY: VPR TEAM MEMBER
\n- LIST TYPE: ARRAY
\n- XML NAME: CareProvider
\n- GET ACTION: D PCP^VPRPCMM
\n \n- \n
- Dob
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .03
\n- RETURN INTERNAL VALUE: YES
\n- GET ACTION: S VALUE=$P($P($G(VADM(3)),U),\".\")
\n \n- \n
- IsExposureSHAD
\n- SEQUENCE: 13
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .32115
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",1:\"false\")
\n- GET ACTION: S VALUE=+$G(VASV(14,1))
\n \n- \n
- AgentOrangeExposure
\n- SEQUENCE: 16
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .32102
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PATIENT AO
\n- GET ACTION: S VALUE=DIEN I \"U\"[$P(VPR321,U,2) S DDEOUT=1
\n \n- \n
- RadiationExposure
\n- SEQUENCE: 17
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .32103
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PATIENT IR
\n- GET ACTION: S VALUE=DIEN I \"U\"[$P(VPR321,U,3) S DDEOUT=1
\n \n- \n
- SWAsiaExposure
\n- SEQUENCE: 18
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .322013
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PATIENT SWA
\n- GET ACTION: S VALUE=DIEN I \"U\"[$P(VPR322,U,13) S DDEOUT=1
\n \n- \n
- VietnamService
\n- SEQUENCE: 20
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .32101
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR VIETNAM SERVICE
\n- GET ACTION: S VALUE=DIEN I \"U\"[$P(VPR321,U) S DDEOUT=1
\n \n- \n
- LebanonService
\n- SEQUENCE: 21
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .3221
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR LEBANON SERVICE
\n- GET ACTION: S VALUE=DIEN I \"U\"[$P(VPR322,U) S DDEOUT=1
\n \n- \n
- GrenadaService
\n- SEQUENCE: 22
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .3224
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR GRENADA SERVICE
\n- GET ACTION: S VALUE=DIEN I \"U\"[$P(VPR322,U,4) S DDEOUT=1
\n \n- \n
- PanamaService
\n- SEQUENCE: 23
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .3227
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PANAMA SERVICE
\n- GET ACTION: S VALUE=DIEN I \"U\"[$P(VPR322,U,7) S DDEOUT=1
\n \n- \n
- PersianGulfService
\n- SEQUENCE: 24
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .32201
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PERSIAN GULF SERVICE
\n- GET ACTION: S VALUE=DIEN I \"U\"[$P(VPR322,U,10) S DDEOUT=1
\n \n- \n
- SomaliaService
\n- SEQUENCE: 25
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .322016
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR SOMALIA SERVICE
\n- GET ACTION: S VALUE=DIEN I \"U\"[$P(VPR322,U,16) S DDEOUT=1
\n \n- \n
- IsExposureAO
\n- SEQUENCE: 7
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .32102
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",VALUE=\"Y\":\"true\",1:\"false\")
\n- GET ACTION: S VALUE=+$G(VASV(2))
\n \n- \n
- YugoslaviaService
\n- SEQUENCE: 26
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .322019
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR YUGOSLAVIA SERVICE
\n- GET ACTION: S VALUE=DIEN I \"U\"[$P(VPR322,U,19) S DDEOUT=1
\n \n- \n
- POWStatus
\n- SEQUENCE: 27
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .525
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR POW STATUS
\n- GET ACTION: S VALUE=DIEN I \"U\"[$P(VPR52,U,5) S DDEOUT=1
\n \n- \n
- CombatService
\n- SEQUENCE: 28
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .5291
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR COMBAT SERVICE
\n- GET ACTION: S VALUE=DIEN I \"U\"[$P(VPR52,U,11) S DDEOUT=1
\n \n- \n
- PurpleHeartStatus
\n- SEQUENCE: 29
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .532
\n- GET ACTION: S VALUE=$P($G(VASV(9,1)),U,2) S:'$G(VASV(9)) DDEOUT=1
\n \n- \n
- IsCopayExempt
\n- SEQUENCE: 32
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 354
\n- FIELD NUMBER: .04
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",1:\"false\")
\n \n- \n
- CareTeamPhone
\n- SEQUENCE: 38
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 404.51
\n- FIELD NUMBER: .02
\n- GET ACTION: S IEN=+$G(VPRTEAM) S:'IEN DDEOUT=1
\n \n- \n
- EmergencyResponseIndicator
\n- SEQUENCE: 43
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .181
\n \n- \n
- ServiceEpisodes
\n- SEQUENCE: 29
\n- ITEM TYPE: LIST
\n- ENTITY: VPR PATIENT MILITARY SERVICE
\n- LIST TYPE: ARRAY
\n- XML NAME: ServiceEpisode
\n- GET ACTION: N I S I=0 F S I=$O(VPRSV(I)) Q:I<1 S DLIST(I)=I
\n \n- \n
- Enrollments
\n- SEQUENCE: 36
\n- ITEM TYPE: LIST
\n- ENTITY: VPR PATIENT ENROLLMENT
\n- LIST TYPE: ARRAY
\n- XML NAME: Enrollment
\n- GET ACTION: N I S I=0 F S I=$O(^UTILITY(\"VAEN\",$J,I)) Q:I<1 S DLIST(I)=$G(^(I,\"I\"))
\n \n- \n
- MHTeamName
\n- SEQUENCE: 40
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VPRTEAM=$$MHTEAM^VPRPCMM(DFN),VALUE=$P(VPRTEAM,U,2)
\n \n- \n
- IsExposureIR
\n- SEQUENCE: 8
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .32103
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",\"Yy\"[$E(VALUE):\"true\",1:\"false\")
\n- GET ACTION: S VALUE=+$G(VASV(3))
\n \n- \n
- MHTeamMembers
\n- SEQUENCE: 42
\n- ITEM TYPE: LIST
\n- ENTITY: VPR TEAM MEMBER
\n- LIST TYPE: ARRAY
\n- XML NAME: CareProvider
\n- GET ACTION: D:$G(VPRTEAM) MBRS^VPRPCMM
\n \n- \n
- LastTreated
\n- SEQUENCE: 44
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- ENTITY: VPR SOURCE FACILITY
\n- GET ACTION: S VALUE=DIEN
\n \n- \n
- MHTeamPhone
\n- SEQUENCE: 41
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 404.51
\n- FIELD NUMBER: .02
\n- GET ACTION: S IEN=+$G(VPRTEAM) S:'IEN DDEOUT=1
\n \n- \n
- IsSensitive
\n- SEQUENCE: 45
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 38.1
\n- FIELD NUMBER: 2
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",VALUE=0:\"false\",1:\"\")
\n- INPUT TRANSFORM: S VALUE=$S(VALUE=\"true\":1,VALUE=\"false\":0,1:\"\")
\n \n- \n
- IsAdmitted
\n- SEQUENCE: 46
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .105
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",1:\"false\")
\n- GET ACTION: S VALUE=+$P($G(^DPT(DFN,.105)),U) ;mvt ien or 0
\n \n- \n
- AdmEncounterNumber
\n- SEQUENCE: 48
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .105
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$VNUM^VPRSDAV(VALUE)
\n- GET ACTION: S VALUE=$P($G(^DPT(DFN,.105)),U)
\n \n- \n
- Admitnumber
\n- SEQUENCE: 47
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .105
\n- RETURN INTERNAL VALUE: YES
\n- GET ACTION: S VALUE=$P($G(^DPT(DFN,.105)),U)
\n \n- \n
- IsExposureCL
\n- SEQUENCE: 14
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .321701
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE=\"Y\":\"true\",1:\"false\")
\n \n- \n
- Type
\n- SEQUENCE: 49
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2
\n- FIELD NUMBER: 391
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR PATIENT TYPE
\n- GET ACTION: S VALUE=$G(VAEL(6))
\n \n- \n
- IsPregnant
\n- SEQUENCE: 50
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: I $P($G(VADM(5)),U)=\"F\" S VALUE=$S($$ISPREG^WVUTL11(DFN):\"true\",1:\"false\")
\n \n- \n
- IsExposurePG
\n- SEQUENCE: 9
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$S(VASV(11)!VASV(12)!VASV(13):\"true\",1:\"false\") ;OIF/OEF
\n \n- \n
- IsLactating
\n- SEQUENCE: 51
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: I $P($G(VADM(5)),U)=\"F\" S VALUE=$S($$ISLACT^WVUTL11(DFN):\"true\",1:\"false\")
\n \n- \n
- IsExposureTERA
\n- SEQUENCE: 15
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .32116
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",1:\"false\")
\n- GET ACTION: S VALUE=+$G(VASV(15))
\n \n- \n
- IsExposureCV
\n- SEQUENCE: 10
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: .5295
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE<0:\"\",VALUE:\"true\",1:\"false\")
\n- GET ACTION: S VALUE=$$CVEDT^DGCV(DFN) ;+$G(VASV(5))
\n \n- \n
- IsExposureHNC
\n- SEQUENCE: 11
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: N X,XI,XS,HNC S X=$$GETCUR^DGNTAPI(DFN,\"HNC\"),XI=$P($G(HNC(\"IND\")),U),XS=+($G(HNC(\"STAT\"))),X=$S(XI=\"Y\":1,XS=4:1,XS=5:1,XS=1:0,XS=6:0,1:\"\"),VALUE=$S(X:\"true\",1:\"false\")
\n \n- \n
- VeteranLrdfn
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: 63
\n- RETURN INTERNAL VALUE: YES
\n- GET ACTION: S VALUE=$G(^DPT(DFN,\"LR\"))
\n \n- \n
- IsVeteran
\n- SEQUENCE: 4
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2
\n- FIELD NUMBER: 1901
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",\"Yy\"[$E(VALUE):\"true\",1:\"false\")
\n- GET ACTION: S VALUE=+$G(VAEL(4))
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR PATIENT, using supported calls to VADPT to\nretrieve the data.\n
\n\n", "", "", "", "", "D 7^VADPT,SDE^VADPT,MSE^VPRSDADG\n", "K VPRSV,VAEL,VASV,VAERR,VPRTEAM,VPRPTP,^UTILITY(\"VAEN\",$J),VPR321,VPR322,VPR52\n", "S VPR321=$G(^DPT(DIEN,.321)),VPR322=$G(^(.322)),VPR52=$G(^(.52))\n", "", "", "", "", ""], ["VPR PATIENT ELIGIBILITY", "8\n", "", "", "", "SDA\n", "Eligibility\n", "\n- \n
\n- \n
- Name
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8
\n- FIELD NUMBER: .01
\n- GET ACTION: S VALUE=$P($G(VPRELIG),U)
\n \n- \n
- IsPrimary
\n- SEQUENCE: 2
\n- ITEM TYPE: FIXED STRING
\n- GET ACTION: S VALUE=$S($P($G(VPRELIG),U,2):\"true\",1:\"false\")
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT, returning an eligibility for which the \npatient is entitled to care. Since this data is usually extracted via \nVADPT, the string ien^name^primary may be passed in as the ID and the \nproperties will look for the existence of these pieces first.\n
\n\n", "", "", "", "", "", "K VPRELIG\n", "S VPRELIG=$P(DIEN,U,2,3),DIEN=+DIEN\n", "", "", "", "", ""], ["VPR PATIENT DISABILITY", "2.04\n", "", "", "", "SDA\n", "Disability\n", "\n- \n
\n- \n
- Name
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2.04
\n- FIELD NUMBER: .01
\n- GET ACTION: N DIX S DIS=$P(VPRDIS,U) S:DIS VALUE=$$GET1^DIQ(31,+DIS,.01) I DIS=\"\" S DDEOUT=1
\n \n- \n
- ScPercent
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2.04
\n- FIELD NUMBER: 2
\n- GET ACTION: S VALUE=$P(VPRDIS,U,2) S:VALUE=\"\" DDEOUT=1
\n \n- \n
- IsDisabilityscFlag
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2.04
\n- FIELD NUMBER: 3
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$S(VALUE:\"true\",1:\"false\")
\n- GET ACTION: S VALUE=$P(VPRDIS,U,3) S:VALUE=\"\" DDEOUT=1
\n \n- \n
- OrigEffDate
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2.04
\n- FIELD NUMBER: 5
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P(VPRDIS,U,5) S:VALUE=\"\" DDEOUT=1
\n \n- \n
- CurrEffDate
\n- SEQUENCE: 6
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 2.04
\n- FIELD NUMBER: 6
\n- RETURN INTERNAL VALUE: YES
\n- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
\n- GET ACTION: S VALUE=$P(VPRDIS,U,6) S:VALUE=\"\" DDEOUT=1
\n \n- \n
- Extremity
\n- SEQUENCE: 4
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 2.04
\n- FIELD NUMBER: 4
\n- ENTITY: VPR CODE TABLE
\n- GET ACTION: S VALUE=$P(VPRDIS,U,4) S:VALUE=\"\" DDEOUT=1
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity supports VPR PATIENT EXTENSION, returning a disability the\npatient has sustained. It expects to receive the results of RDIS^DGRPDB as\nits ID string, for every entry in the patient's sub-file.\n
\n\n", "", "", "", "", "", "K VPRDIS\n", "S VPRDIS=$G(DIEN) I DIEN=\"\" S DDEOUT=1\n", "", "", "", "", ""], ["VPR PERSON CLASS EXTENSION", "8932.1\n", "", "", "", "SDA\n", "CareProviderTypeExtension\n", "\n- \n
\n- \n
- Classification
\n- SEQUENCE: 1
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8932.1
\n- FIELD NUMBER: 1
\n \n- \n
- Specialization
\n- SEQUENCE: 2
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 8932.1
\n- FIELD NUMBER: 2
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR PERSON CLASS, to expose additional data elements.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""], ["VPR LOCATION EXTENSION", "44\n", "", "", "", "SDA\n", "HealthCareFacilityExtension\n", "\n- \n
\n- \n
- StopCode
\n- SEQUENCE: 1
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 44
\n- FIELD NUMBER: 8
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR AMIS
\n \n- \n
- CreditStopCode
\n- SEQUENCE: 2
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 44
\n- FIELD NUMBER: 2503
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR AMIS
\n \n- \n
- Service
\n- SEQUENCE: 3
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 44
\n- FIELD NUMBER: 9
\n \n- \n
- Specialty
\n- SEQUENCE: 4
\n- ITEM TYPE: ENTITY
\n- FILE NUMBER: 44
\n- FIELD NUMBER: 9.5
\n- RETURN INTERNAL VALUE: YES
\n- ENTITY: VPR SPECIALTY
\n \n- \n
- Ward
\n- SEQUENCE: 5
\n- ITEM TYPE: SIMPLE FIELD
\n- FILE NUMBER: 44
\n- FIELD NUMBER: 42
\n- RETURN INTERNAL VALUE: YES
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "", "\nThis entity extends VPR LOCATION, to expose additional data elements.\n
\n\n", "", "", "", "", "", "", "", "", "", "", "", ""]]}