ABSPOSQD.m

ABSPOSQD ; IHS/FCS/DRS - POS background Part 1 ; 

 ;;1.0;PHARMACY POINT OF SALE;;JUN 21, 2001

 Q

 ;

SETVCN ;EP - from ABSPOSQD ; APCDVCN = lookup / assign VCN

 N ASSIGNED ; was it assigned here?

 S APCDVCN=$P($G(^AUPNVSIT(ABSBVISI,"VCN")),U)

 I APCDVCN="" D

 . N DA,REC,PATPOINT,LOCPOINT,SERVCAT,HRN,VCNT,VRN,CNT,J

 . S DA=ABSBVISI D ^ABSBVCN

 . S APCDVCN=$P($G(^AUPNVSIT(ABSBVISI,"VCN")),U)

 . S ASSIGNED=1

 E  S ASSIGNED=0

 S X="VISIT - " S:ASSIGNED X=X_"Assigned "

 S X=X_"VCN "_APCDVCN_" (`"_ABSBVISI_")"

 D LOG^ABSPOSL(X)

 Q

ABSPOSQD  ; IHS/FCS/DRS - POS background Part 1 ; 

 +1       ;;1.0;PHARMACY POINT OF SALE;;JUN 21, 2001

 +2        QUIT 

 +3       ;

SETVCN    ;EP - from ABSPOSQD ; APCDVCN = lookup / assign VCN

 +1       ; was it assigned here?

           NEW ASSIGNED

 +2        SET APCDVCN=$PIECE($GET(^AUPNVSIT(ABSBVISI,"VCN")),U)

 +3        IF APCDVCN=""

               Begin DoDot:1

 +4                NEW DA,REC,PATPOINT,LOCPOINT,SERVCAT,HRN,VCNT,VRN,CNT,J

 +5                SET DA=ABSBVISI

                   DO ^ABSBVCN

 +6                SET APCDVCN=$PIECE($GET(^AUPNVSIT(ABSBVISI,"VCN")),U)

 +7                SET ASSIGNED=1

               End DoDot:1

 +8       IF '$TEST

               SET ASSIGNED=0

 +9        SET X="VISIT - "

           IF ASSIGNED

               SET X=X_"Assigned "

 +10       SET X=X_"VCN "_APCDVCN_" (`"_ABSBVISI_")"

 +11       DO LOG^ABSPOSL(X)

 +12       QUIT