- 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 Jan 18, 2025@03:29:19 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 ;