PXCEPOV.m

PXCEPOV ;ISL/dee - Used to edit and display V POV ;3/19/97

 ;;1.0;PCE PATIENT CARE ENCOUNTER;**27**;Aug 12, 1996

 ;; ;

 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 ;;Diagnosis~9000010.07~0,12,800,802,811,812~1~^AUPNVPOV

 ;;0~1~.01~ICD9 Code or Diagnosis:  ~ICD9 Code or Diagnosis:  ~$$DISPLY01^PXCEPOV~~^D HELP^PXCEHELP~~B

 ;;0~4~.04~Provider Narrative:  ~Provider Narrative:  ~$$DNARRAT^PXCEPOV1~ENARRAT^PXCEPOV1(1,1,1,80,10,3)~~~B

 ;;0~12~.12~Is this Diagnosis Primary:  ~Primary/Secondary Diagnosis:  ~$$DPRIMSEC^PXCEPOV1~EPRIMSEC^PXCEPRV~~~B

 ;;0~6~.06~Modifier:  ~Modifier:  ~~~~~D

 ;;0~13~.13~Injury Date and (optional) Time~Date of Injury:  ~~EINJURY^PXCEPOV1~~~D

 ;;12~4~1204~Encounter Provider:  ~Encounter Provider:  ~~EPROV12^PXCEPRV~~~D

 ;;802~1~80201~Provider Narrative Category:  ~Provider Narrative Category:  ~$$DNARRAT^PXCEPOV1~ENARRAT^PXCEPOV1(0,2,0,80,5)~~C~D

 ;;811~1~81101~Comments:  ~Comments:  ~~~~~D

 ;;

 ;

 ;The interface for AICS to get list on form for help.

INTRFACE ;;DG SELECT ICD-9 DIAGNOSIS CODES

 ;

 ;********************************

 ;Special cases for display.

 ;

 ;********************************

 ;Display text for the .01 field which is a pointer to ^ICD9.

 ;(Must have is called by ASK^PXCEVFI2 and DEL^PXCEVFI2.)

DISPLY01(PXCEPOV) ;

 N DIC,DR,DA,DIQ,PXCEDIQ1

 S DIC=80

 S DR=".01;3"

 S DA=$P(PXCEPOV,"^",1)

 S DIQ="PXCEDIQ1("

 S DIQ(0)="E"

 D EN^DIQ1

 Q PXCEDIQ1(80,DA,.01,"E")_"     "_PXCEDIQ1(80,DA,3,"E")

 ;

PXCEPOV   ;ISL/dee - Used to edit and display V POV ;3/19/97

 +1       ;;1.0;PCE PATIENT CARE ENCOUNTER;**27**;Aug 12, 1996

 +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    ;;Diagnosis~9000010.07~0,12,800,802,811,812~1~^AUPNVPOV

 +1       ;;0~1~.01~ICD9 Code or Diagnosis:  ~ICD9 Code or Diagnosis:  ~$$DISPLY01^PXCEPOV~~^D HELP^PXCEHELP~~B

 +2       ;;0~4~.04~Provider Narrative:  ~Provider Narrative:  ~$$DNARRAT^PXCEPOV1~ENARRAT^PXCEPOV1(1,1,1,80,10,3)~~~B

 +3       ;;0~12~.12~Is this Diagnosis Primary:  ~Primary/Secondary Diagnosis:  ~$$DPRIMSEC^PXCEPOV1~EPRIMSEC^PXCEPRV~~~B

 +4       ;;0~6~.06~Modifier:  ~Modifier:  ~~~~~D

 +5       ;;0~13~.13~Injury Date and (optional) Time~Date of Injury:  ~~EINJURY^PXCEPOV1~~~D

 +6       ;;12~4~1204~Encounter Provider:  ~Encounter Provider:  ~~EPROV12^PXCEPRV~~~D

 +7       ;;802~1~80201~Provider Narrative Category:  ~Provider Narrative Category:  ~$$DNARRAT^PXCEPOV1~ENARRAT^PXCEPOV1(0,2,0,80,5)~~C~D

 +8       ;;811~1~81101~Comments:  ~Comments:  ~~~~~D

 +9       ;;

 +10      ;

 +11      ;The interface for AICS to get list on form for help.

INTRFACE  ;;DG SELECT ICD-9 DIAGNOSIS CODES

 +1       ;

 +2       ;********************************

 +3       ;Special cases for display.

 +4       ;

 +5       ;********************************

 +6       ;Display text for the .01 field which is a pointer to ^ICD9.

 +7       ;(Must have is called by ASK^PXCEVFI2 and DEL^PXCEVFI2.)

DISPLY01(PXCEPOV) ;

 +1        NEW DIC,DR,DA,DIQ,PXCEDIQ1

 +2        SET DIC=80

 +3        SET DR=".01;3"

 +4        SET DA=$PIECE(PXCEPOV,"^",1)

 +5        SET DIQ="PXCEDIQ1("

 +6        SET DIQ(0)="E"

 +7        DO EN^DIQ1

 +8        QUIT PXCEDIQ1(80,DA,.01,"E")_"     "_PXCEDIQ1(80,DA,3,"E")

 +9       ;