Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SDOEPRV

SDOEPRV.m

Go to the documentation of this file.
  1. SDOEPRV ;ALB/MJK - ACRP Provider APIs For An Encounter ;8/12/96
  1. ;;5.3;Scheduling;**131**;Aug 13, 1993
  1. ;
  1. PRV(SDOE,SDERR) ; -- SDOE ASSIGNED A PROVIDER
  1. ; API ID: 63
  1. ;
  1. ;
  1. N SDOK
  1. S SDOK=0
  1. ;
  1. ; -- do validation checks
  1. IF '$$VALOE^SDOEOE(.SDOE,$G(SDERR)) G PRVQ
  1. IF $$OLD^SDOEUT(SDOE) S SDOK=$$OLDPRV(SDOE) G PRVQ
  1. ;
  1. S SDOK=$$PRV^PXAPIOE($$VIEN^SDOEUT(.SDOE),$G(SDERR))
  1. PRVQ Q SDOK
  1. ;
  1. ;
  1. GETPRV(SDOE,SDPRV,SDERR) ; -- SDOE GET PROVIDERS
  1. ; API ID: 58
  1. ;
  1. ;
  1. GETPRVG ;; -- goto entry point
  1. ; -- do validation checks
  1. IF '$$VALOE^SDOEOE(.SDOE,$G(SDERR)) G GETPRVQ
  1. IF $$OLD^SDOEUT(SDOE) D OLDPRVS(SDOE,.SDPRV) G GETPRVQ
  1. ;
  1. D GETPRV^PXAPIOE($$VIEN^SDOEUT(.SDOE),.SDPRV,$G(SDERR))
  1. GETPRVQ Q
  1. ;
  1. ;
  1. FINDPRV(SDOE,SDPRVID,SDERR) ; -- SDOE FIND PROVIDER
  1. ; API ID: 69
  1. ;
  1. ;
  1. N SDPRVS,SDOK,I
  1. S SDPRVS="SDPRVS"
  1. ;
  1. ; -- do validation checks
  1. IF '$$VALPRV(.SDPRVID,$G(SDERR)) S SDOK=0 G FINDPRVQ
  1. ;
  1. D GETPRV(.SDOE,.SDPRVS,$G(SDERR))
  1. S (I,SDOK)=0
  1. F S I=$O(SDPRVS(I)) Q:'I S SDOK=(+SDPRVS(I)=SDPRVID) Q:SDOK
  1. FINDPRVQ Q SDOK
  1. ;
  1. ;
  1. VALPRV(SDPRVID,SDERR) ; -- validate provider input
  1. ;
  1. ; -- do checks
  1. IF SDPRVID,$D(^VA(200,SDPRVID,0)) Q 1
  1. ;
  1. ; -- build error msg
  1. N SDIN,SDOUT
  1. S SDIN("ID")=SDPRVID
  1. S SDOUT("ID")=SDPRVID
  1. D BLD^SDQVAL(4096800.003,.SDIN,.SDOUT,$G(SDERR))
  1. Q 0
  1. ;
  1. ;
  1. OLDPRV(SDOE) ; -- at least one provider for OLD encounter?
  1. Q ($O(^SDD(409.44,"OE",+SDOE,0))>0)
  1. ;
  1. OLDPRVS(SDOE,SDARY) ; -- get provider's for OLD encounter
  1. N SDIEN,SDCNT,Y,X
  1. S (SDIEN,SDCNT)=0
  1. F S SDIEN=$O(^SDD(409.44,"OE",SDOE,SDIEN)) Q:'SDIEN D
  1. . S SDCNT=SDCNT+1,X=$G(^SDD(409.44,SDIEN,0))
  1. . S $P(Y,U,1)=+X ; -- person ien
  1. . S $P(Y,U,6)=$P(X,"^",3) ; -- person class
  1. . S @SDARY@(SDIEN)=Y
  1. S @SDARY=SDCNT
  1. Q
  1. ;