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

PXCEPOV ;ISL/dee - Used to edit and display V POV ;8/31/05
        ;;1.0;PCE PATIENT CARE ENCOUNTER;**27,121,124,170**;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~ICDCODE^PXCEPOV1~^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 for the Encounter:  ~Primary/Secondary Diagnosis for the Encounter:  ~$$DPRIMSEC^PXCEPOV1~EPRIMSEC^PXCEPRV~~~B
        ;;0~17~.17~Is this Diagnosis Ordering, Resulting, or Both:  ~Ordering/Resulting Diagnosis:  ~~~~~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
        ;;800~1~80001~Service Connected:  ~Service Connected:  ~~GET800^PXCEC800~~~D
        ;;800~7~80007~Combat Veteran:  ~Combat Veteran:  ~~SKIP^PXCEPOV~~~D
        ;;800~2~80002~Agent Orange Exposure:  ~Agent Orange Exposure:  ~~SKIP^PXCEPOV~~~D
        ;;800~3~80003~Ionizing Radiation Exposure:  ~Ionizing Radiation Exposure:  ~~SKIP^PXCEPOV~~~D
        ;;800~4~80004~Environmental Contaminants:  ~Environmental Contaminants:  ~~SKIP^PXCEPOV~~~D
        ;;800~5~80005~Military Sexual Trauma:  ~Military Sexual Trauma:  ~~SKIP^PXCEPOV~~~D
        ;;800~6~80006~Head and/or Neck Cancer:  ~Head and/or Neck Cancer:  ~~SKIP^PXCEPOV~~~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")
        ;
        N ICDSTR
        S ICDSTR=$$ICDDX^ICDCODE($P(PXCEPOV,"^"),$P(^AUPNVSIT(PXCEVIEN,0),"^"))
        Q $P(ICDSTR,"^",2)_"     "_$P(ICDSTR,"^",4) ;code and desc
        ;
SKIP    ;
        Q