PXCETRT ;ISL/dee - Used to edit and display V TREATMENT ;02/20/2019
;;1.0;PCE PATIENT CARE ENCOUNTER;**27,211**;Aug 12, 1996;Build 454
;; ;
Q
;
;Line with the line label "FORMAT"
;;Long name~File Number~Node Subscripts~Allow Duplicate entries (1=yes, 0=no)~File global name
; 1 2 3 4 5
;
;Followning lines:
;;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~
; 1 ~ 2 ~ 3 ~ 4 ~ 5 ~ 6 ~ 7 ~ 8 ~ 9 ~ 10
;The Display & Edit routines are for special caces.
; (The .01 field cannot have a special edit.)
;
FORMAT ;;Treatment~9000010.15~0,12,802,811,812~1~^AUPNVTRT
;;0~1~.01~Treatment: ~Treatment: ~~~~~B
;;0~6~.06~Provider Narrative: ~Provider Narrative: ~$$DNARRAT^PXCETRT~ENARRAT^PXCEPOV1(1,1,1,9999999.17,.01)~~~B
;;0~4~.04~How Many: ~How Many: ~~EQUAN^PXCECPT~~~D
;;12~4~1204~Encounter Provider: ~Encounter Provider: ~~EPROV12^PXCEPRV~~~D
;;802~1~80201~Provider Narrative Category: ~Provider Narrative Category: ~~ENARRAT^PXCEPOV1(0,2,0)~~C~D
;;811~1~81101~Comments: ~Comments: ~~~~~D
;;
;
;The interface for AICS to get list on form for help.
INTRFACE ;;PX SELECT TREATMENTS
;
;********************************
;Special cases for display.
;
DNARRAT(PNAR,PXCEDT) ;Provider Narrative for Treatments
N PXCEPNAR
S PXCEPNAR=$P(^AUTNPOV(PNAR,0),"^")
I $G(VIEW)="B",$D(ENTRY)>0 D
. N DIC,DR,DA,DIQ,PXCEDIQ1
. S DIC=9999999.17
. S DR=.01
. S DA=$P(ENTRY(0),"^",1)
. S DIQ="PXCEDIQ1("
. S DIQ(0)="E"
. D EN^DIQ1
. S:PXCEDIQ1(9999999.17,DA,.01,"E")=PXCEPNAR PXCEPNAR=""
Q PXCEPNAR
;
;********************************
;Special cases for edit.
;
;********************************
;Display text for the .01 field which is a pointer to Treatment Type.
;(Must have is called by ASK^PXCEVFI2 and DEL^PXCEVFI2.)
DISPLY01(PXCETRT) ;
Q $P($G(^AUTTTRT(+PXCETRT,0)),"^",1)
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXCETRT 2155 printed Dec 13, 2024@02:28:18 Page 2
PXCETRT ;ISL/dee - Used to edit and display V TREATMENT ;02/20/2019
+1 ;;1.0;PCE PATIENT CARE ENCOUNTER;**27,211**;Aug 12, 1996;Build 454
+2 ;; ;
+3 QUIT
+4 ;
+5 ;Line with the line label "FORMAT"
+6 ;;Long name~File Number~Node Subscripts~Allow Duplicate entries (1=yes, 0=no)~File global name
+7 ; 1 2 3 4 5
+8 ;
+9 ;Followning lines:
+10 ;;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~
+11 ; 1 ~ 2 ~ 3 ~ 4 ~ 5 ~ 6 ~ 7 ~ 8 ~ 9 ~ 10
+12 ;The Display & Edit routines are for special caces.
+13 ; (The .01 field cannot have a special edit.)
+14 ;
FORMAT ;;Treatment~9000010.15~0,12,802,811,812~1~^AUPNVTRT
+1 ;;0~1~.01~Treatment: ~Treatment: ~~~~~B
+2 ;;0~6~.06~Provider Narrative: ~Provider Narrative: ~$$DNARRAT^PXCETRT~ENARRAT^PXCEPOV1(1,1,1,9999999.17,.01)~~~B
+3 ;;0~4~.04~How Many: ~How Many: ~~EQUAN^PXCECPT~~~D
+4 ;;12~4~1204~Encounter Provider: ~Encounter Provider: ~~EPROV12^PXCEPRV~~~D
+5 ;;802~1~80201~Provider Narrative Category: ~Provider Narrative Category: ~~ENARRAT^PXCEPOV1(0,2,0)~~C~D
+6 ;;811~1~81101~Comments: ~Comments: ~~~~~D
+7 ;;
+8 ;
+9 ;The interface for AICS to get list on form for help.
INTRFACE ;;PX SELECT TREATMENTS
+1 ;
+2 ;********************************
+3 ;Special cases for display.
+4 ;
DNARRAT(PNAR,PXCEDT) ;Provider Narrative for Treatments
+1 NEW PXCEPNAR
+2 SET PXCEPNAR=$PIECE(^AUTNPOV(PNAR,0),"^")
+3 IF $GET(VIEW)="B"
IF $DATA(ENTRY)>0
Begin DoDot:1
+4 NEW DIC,DR,DA,DIQ,PXCEDIQ1
+5 SET DIC=9999999.17
+6 SET DR=.01
+7 SET DA=$PIECE(ENTRY(0),"^",1)
+8 SET DIQ="PXCEDIQ1("
+9 SET DIQ(0)="E"
+10 DO EN^DIQ1
+11 if PXCEDIQ1(9999999.17,DA,.01,"E")=PXCEPNAR
SET PXCEPNAR=""
End DoDot:1
+12 QUIT PXCEPNAR
+13 ;
+14 ;********************************
+15 ;Special cases for edit.
+16 ;
+17 ;********************************
+18 ;Display text for the .01 field which is a pointer to Treatment Type.
+19 ;(Must have is called by ASK^PXCEVFI2 and DEL^PXCEVFI2.)
DISPLY01(PXCETRT) ;
+1 QUIT $PIECE($GET(^AUTTTRT(+PXCETRT,0)),"^",1)
+2 ;
