source: FOIAVistA/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXCEPOV.m@ 794

Last change on this file since 794 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 3.3 KB
Line 
1PXCEPOV ;ISL/dee - Used to edit and display V POV ;8/31/05
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;**27,121,124,170**;Aug 12, 1996
3 ;; ;
4 Q
5 ;
6 ;Line with the line label "FORMAT"
7 ;;Long name~File Number~Node Subscripts~Allow Duplicate entries (1=yes, 0=no)~File global name
8 ; 1 2 3 4 5
9 ;
10 ;Followning lines:
11 ;;Node~Piece~,Field Number~Edit Label~Display Label~Display Routine~Edit Routine~Help Text for DIR(?)~Set of PXCEKEYS that can Edit~D if Detail Display Only~
12 ; 1 ~ 2 ~ 3 ~ 4 ~ 5 ~ 6 ~ 7 ~ 8 ~ 9 ~ 10
13 ;The Display & Edit routines are for special caces.
14 ; (The .01 field cannot have a special edit.)
15 ;
16FORMAT ;;Diagnosis~9000010.07~0,12,800,802,811,812~1~^AUPNVPOV
17 ;;0~1~.01~ICD9 Code or Diagnosis: ~ICD9 Code or Diagnosis: ~$$DISPLY01^PXCEPOV~ICDCODE^PXCEPOV1~^D HELP^PXCEHELP~~B
18 ;;0~4~.04~Provider Narrative: ~Provider Narrative: ~$$DNARRAT^PXCEPOV1~ENARRAT^PXCEPOV1(1,1,1,80,10,3)~~~B
19 ;;0~12~.12~Is this Diagnosis Primary for the Encounter: ~Primary/Secondary Diagnosis for the Encounter: ~$$DPRIMSEC^PXCEPOV1~EPRIMSEC^PXCEPRV~~~B
20 ;;0~17~.17~Is this Diagnosis Ordering, Resulting, or Both: ~Ordering/Resulting Diagnosis: ~~~~~B
21 ;;0~6~.06~Modifier: ~Modifier: ~~~~~D
22 ;;0~13~.13~Injury Date and (optional) Time~Date of Injury: ~~EINJURY^PXCEPOV1~~~D
23 ;;12~4~1204~Encounter Provider: ~Encounter Provider: ~~EPROV12^PXCEPRV~~~D
24 ;;802~1~80201~Provider Narrative Category: ~Provider Narrative Category: ~$$DNARRAT^PXCEPOV1~ENARRAT^PXCEPOV1(0,2,0,80,5)~~C~D
25 ;;811~1~81101~Comments: ~Comments: ~~~~~D
26 ;;800~1~80001~Service Connected: ~Service Connected: ~~GET800^PXCEC800~~~D
27 ;;800~7~80007~Combat Veteran: ~Combat Veteran: ~~SKIP^PXCEPOV~~~D
28 ;;800~2~80002~Agent Orange Exposure: ~Agent Orange Exposure: ~~SKIP^PXCEPOV~~~D
29 ;;800~3~80003~Ionizing Radiation Exposure: ~Ionizing Radiation Exposure: ~~SKIP^PXCEPOV~~~D
30 ;;800~4~80004~Environmental Contaminants: ~Environmental Contaminants: ~~SKIP^PXCEPOV~~~D
31 ;;800~5~80005~Military Sexual Trauma: ~Military Sexual Trauma: ~~SKIP^PXCEPOV~~~D
32 ;;800~6~80006~Head and/or Neck Cancer: ~Head and/or Neck Cancer: ~~SKIP^PXCEPOV~~~D
33 ;
34 ;
35 ;
36 ;The interface for AICS to get list on form for help.
37INTRFACE ;;DG SELECT ICD-9 DIAGNOSIS CODES
38 ;
39 ;********************************
40 ;Special cases for display.
41 ;
42 ;********************************
43 ;Display text for the .01 field which is a pointer to ^ICD9.
44 ;(Must have is called by ASK^PXCEVFI2 and DEL^PXCEVFI2.)
45DISPLY01(PXCEPOV) ;
46 ;N DIC,DR,DA,DIQ,PXCEDIQ1
47 ;S DIC=80
48 ;S DR=".01;3"
49 ;S DA=$P(PXCEPOV,"^",1)
50 ;S DIQ="PXCEDIQ1("
51 ;S DIQ(0)="E"
52 ;D EN^DIQ1
53 ;Q PXCEDIQ1(80,DA,.01,"E")_" "_PXCEDIQ1(80,DA,3,"E")
54 ;
55 N ICDSTR
56 S ICDSTR=$$ICDDX^ICDCODE($P(PXCEPOV,"^"),$P(^AUPNVSIT(PXCEVIEN,0),"^"))
57 Q $P(ICDSTR,"^",2)_" "_$P(ICDSTR,"^",4) ;code and desc
58 ;
59SKIP ;
60 Q
Note: See TracBrowser for help on using the repository browser.