| GENERAL DESCRIPTION |
The PCE Patient/IHS Subset package (namespaced PXPT)
requests a DBIA with the Indian Health Service to distribute the AUTNPOV
routine with the PXPT package. The PXPT package will distribute it as
PXPTNPOV and use ZOSF to load and save the routine as AUTNPOV.
There have been no coding changes to the AUTNPOV code by the VA. This is the
same version that is at Tucson VAMC running as of September 4, 1994.
This routine is called by the .01 Narrative field input transform on any
lookup of the Provider Narrative File (9999999.27). The Provider Narrative
File is distributed with the PXPT package and has a File type DBIA for
distribution of the Provider Narrative File in the VA. The Provider Narrative
file is used by the VA's Problem List Package and by the PCE package.
AUTNPOV ; PROVIDER NARRATIVE TRUE INPUT TRANSFORM
;;92.1;IHS STANDARD DICTIONARIES;;NOV 13, 1991
;
START ;
Q:'$D(APCDOVRR)
I X="=",$D(APCDTNQP) S X=APCDTNQP
Q:X?.E1C.E
I $L(X)>30,$D(^AUTNPOV("B",X)) S X="`"_$O(^(X,0)) Q
S AUTNPOVX=$E(X,1,30)
F AUTNPOVY=0:0 S AUTNPOVY=$O(^AUTNPOV("B",AUTNPOVX, AUTNPOVY))
Q:'AUTNPOVY Q:$P(^AUTNPOV(AUTNPOVY,0),U,1)=X
S X=$S(AUTNPOVY:"`"_AUTNPOVY,$E(X)="`":X,$E(X)="""":X,1:"""" _X_"""")
K AUTNPOVX,AUTNPOVY
Q
The following routine (PXPTNPOV) is a PXPT version of AUTNPOV that is being
distributed to the field. When the ZOSF("SAVE") is completed, the AUTNPOV
routine will appear as displayed above.
PXPTNPOV ; SLC/DLT - Provider Narrative True Input Transform for Export
;1/22/94 14:48
;;1.0V1;PCE PATIENT/IHS SUBSET (PXPT);;Sept 7, 1994 AUTNPOV ; IHS/LB -
PROVIDER NARRATIVE TRUE INPUT TRANSFORM
;;92.1;IHS STANDARD DICTIONARIES;;NOV 13, 1991
;
START ;
Q:'$D(APCDOVRR)
I X="=",$D(APCDTNQP) S X=APCDTNQP
Q:X?.E1C.E
I $L(X)>30,$D(^AUTNPOV("B",X)) S X="`"_$O(^(X,0)) Q
S AUTNPOVX=$E(X,1,30)
F AUTNPOVY=0:0 S AUTNPOVY=$O(^AUTNPOV("B",AUTNPOVX, AUTNPOVY))
Q:'AUTNPOVY Q:$P(^AUTNPOV(AUTNPOVY,0),U,1)=X
S X=$S(AUTNPOVY:"`"_AUTNPOVY,$E(X)="`":X,$E(X)="""":X,1:"""" _X_"""")
K AUTNPOVX,AUTNPOVY
Q
|
