source: FOIAVistA/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXCETRT.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: 2.0 KB
Line 
1PXCETRT ;ISL/dee - Used to edit and display V TREATMENT ;3/19/97
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;**27**;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 ;;Treatment~9000010.15~0,12,802,811,812~1~^AUPNVTRT
17 ;;0~1~.01~Treatment: ~Treatment: ~~~~~B
18 ;;0~6~.06~Provider Narrative: ~Provider Narrative: ~$$DNARRAT^PXCETRT~ENARRAT^PXCEPOV1(1,1,1,9999999.17,.01)~~~B
19 ;;0~4~.04~How Many: ~How Many: ~~EQUAN^PXCECPT~~~D
20 ;;12~4~1204~Encounter Provider: ~Encounter Provider: ~~EPROV12^PXCEPRV~~~D
21 ;;802~1~80201~Provider Narrative Category: ~Provider Narrative Category: ~~ENARRAT^PXCEPOV1(0,2,0)~~C~D
22 ;;811~1~81101~Comments: ~Comments: ~~~~~D
23 ;;
24 ;
25 ;The interface for AICS to get list on form for help.
26INTRFACE ;;PX SELECT TREATMENTS
27 ;
28 ;********************************
29 ;Special cases for display.
30 ;
31DNARRAT(PNAR) ;Provider Narrative for Treatments
32 N PXCEPNAR
33 S PXCEPNAR=$P(^AUTNPOV(PNAR,0),"^")
34 I $G(VIEW)="B",$D(ENTRY)>0 D
35 . N DIC,DR,DA,DIQ,PXCEDIQ1
36 . S DIC=9999999.17
37 . S DR=.01
38 . S DA=$P(ENTRY(0),"^",1)
39 . S DIQ="PXCEDIQ1("
40 . S DIQ(0)="E"
41 . D EN^DIQ1
42 . S:PXCEDIQ1(9999999.17,DA,.01,"E")=PXCEPNAR PXCEPNAR=""
43 Q PXCEPNAR
44 ;
45 ;********************************
46 ;Special cases for edit.
47 ;
48 ;********************************
49 ;Display text for the .01 field which is a pointer to Treatment Type.
50 ;(Must have is called by ASK^PXCEVFI2 and DEL^PXCEVFI2.)
51DISPLY01(PXCETRT) ;
52 Q $P($G(^AUTTTRT(+PXCETRT,0)),"^",1)
53 ;
Note: See TracBrowser for help on using the repository browser.