- SDECPAT ;ALB/SAT - VISTA SCHEDULING RPCS ;JAN 15, 2016
- ;;5.3;Scheduling;**627**;Aug 13, 1993;Build 249
- ;
- Q
- ;
- ; This routine sets standard patient variables
- START(SDDFN,DFN,SSN,AGE,DOB,SEX) ;
- S:$D(X) AUPNPATX=X
- S AUPNPAT=+SDDFN
- S AUPNSEX=$P(^DPT(AUPNPAT,0),U,2),AUPNDOB=$P(^(0),U,3),AUPNDOD="" S:$D(^(.35)) AUPNDOD=$P(^(.35),U,1)
- S X2=AUPNDOB,X1=$S('AUPNDOD:DT,AUPNDOD:AUPNDOD,1:DT)
- D ^%DTC
- S AUPNDAYS=X
- ;S X="BEHOPTCX" X ^%ZOSF("TEST") I $T D SETCTX^BEHOPTCX(+AUPNPAT)
- K X,X1,X2
- S:$D(AUPNPATX) X=AUPNPATX
- K %T,%Y,AUPNPATX
- S DFN=AUPNPAT
- S SSN=$$SSN(AUPNPAT)
- S AGE=$$AGE(AUPNPAT)
- S DOB=$$DOB(AUPNPAT)
- S SEX=$$SEX(AUPNPAT)
- Q
- ;
- KILL ;PEP - KILL VARIABLES SET BY THIS ROUTINE
- K AUPNPAT,AUPNSEX,AUPNDOB,AUPNDOD,AUPNDAYS
- K AGE,DFN,DOB,SEX,SSN
- Q
- ;
- ; NOTE TO PROGRAMMERS:
- ; All parameters are required, except the Format parameter ("F").
- ; The default for the Format parameter is the internal format of
- ; the returned value.
- ;
- AGE(DFN,D,F) ;PEP - Given DFN, return Age.
- ;return age on date d in format f (defaults to DT and age in years)
- Q $$AGE^SDECPAT3(DFN,$G(D),$G(F))
- ;
- CDEATH(DFN,F) ;PEP - returns Cause of Death in F format
- Q $$CDEATH^SDECPAT3(DFN,$G(F))
- ;
- DEC(PID) ;PEP - RETURN DECRYPTED PATIENT IDENTIFIER
- Q:$$DEC^SDECPAT4(PID)
- ;----------
- ENC(DFN) ;PEP
- Q $$ENC^SDECPAT4(DFN)
- ;----------
- DOB(DFN,F) ;PEP - Given DFN, return Date of Birth according to F.
- Q $$DOB^SDECPAT3(DFN,$G(F))
- ;
- DOD(DFN,F) ;PEP - Given DFN, return Date of Death in FM format.
- Q $$DOD^SDECPAT3(DFN,$G(F))
- ;
- ELIGSTAT(DFN,F) ;PEP - returns eligibility status in F format
- Q $$ELIGSTAT^SDECPAT3(DFN,$G(F))
- ;
- HRN(DFN,L,F) ;PEP
- ;f patch 4 05/08/96
- Q $$HRN^SDECPAT3(DFN,L,$G(F))
- ;
- MCD(P,D) ;PEP - Is patient P medicaid eligible on date D?
- Q $$MCD^SDECPAT2(P,D)
- ;
- MCDPN(P,D,F) ;PEP - return medicaid plan name for patient P on date D in form F.
- Q $$MCDPN^SDECPAT2(P,D,$G(F))
- ;
- MCR(P,D) ;PEP - Is patient P medicare eligible on date D?
- Q $$MCR^SDECPAT2(P,D)
- ;
- PI(P,D) ;PEP - Is patient P private insurance eligible on date D?
- Q $$PI^SDECPAT2(P,D)
- ;
- PIN(P,D,F) ;PEP - return private insurer name for patient P on date D in form F.
- Q $$PIN^SDECPAT2(P,D,$G(F))
- ;
- SEX(DFN) ;PEP - Given DFN, return Sex.
- Q $$SEX^SDECPAT3(DFN)
- ;
- SSN(DFN) ;PEP - Given DFN, return SSN.
- Q $$SSN^SDECPAT3(DFN)
- ;
- RR(P,D) ;PEP - Is patient P railroad eligible on date D?
- Q $$RRE^SDECPAT2(P,D)
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDECPAT 2482 printed Mar 13, 2025@21:57:19 Page 2
- SDECPAT ;ALB/SAT - VISTA SCHEDULING RPCS ;JAN 15, 2016
- +1 ;;5.3;Scheduling;**627**;Aug 13, 1993;Build 249
- +2 ;
- +3 QUIT
- +4 ;
- +5 ; This routine sets standard patient variables
- START(SDDFN,DFN,SSN,AGE,DOB,SEX) ;
- +1 if $DATA(X)
- SET AUPNPATX=X
- +2 SET AUPNPAT=+SDDFN
- +3 SET AUPNSEX=$PIECE(^DPT(AUPNPAT,0),U,2)
- SET AUPNDOB=$PIECE(^(0),U,3)
- SET AUPNDOD=""
- if $DATA(^(.35))
- SET AUPNDOD=$PIECE(^(.35),U,1)
- +4 SET X2=AUPNDOB
- SET X1=$SELECT('AUPNDOD:DT,AUPNDOD:AUPNDOD,1:DT)
- +5 DO ^%DTC
- +6 SET AUPNDAYS=X
- +7 ;S X="BEHOPTCX" X ^%ZOSF("TEST") I $T D SETCTX^BEHOPTCX(+AUPNPAT)
- +8 KILL X,X1,X2
- +9 if $DATA(AUPNPATX)
- SET X=AUPNPATX
- +10 KILL %T,%Y,AUPNPATX
- +11 SET DFN=AUPNPAT
- +12 SET SSN=$$SSN(AUPNPAT)
- +13 SET AGE=$$AGE(AUPNPAT)
- +14 SET DOB=$$DOB(AUPNPAT)
- +15 SET SEX=$$SEX(AUPNPAT)
- +16 QUIT
- +17 ;
- KILL ;PEP - KILL VARIABLES SET BY THIS ROUTINE
- +1 KILL AUPNPAT,AUPNSEX,AUPNDOB,AUPNDOD,AUPNDAYS
- +2 KILL AGE,DFN,DOB,SEX,SSN
- +3 QUIT
- +4 ;
- +5 ; NOTE TO PROGRAMMERS:
- +6 ; All parameters are required, except the Format parameter ("F").
- +7 ; The default for the Format parameter is the internal format of
- +8 ; the returned value.
- +9 ;
- AGE(DFN,D,F) ;PEP - Given DFN, return Age.
- +1 ;return age on date d in format f (defaults to DT and age in years)
- +2 QUIT $$AGE^SDECPAT3(DFN,$GET(D),$GET(F))
- +3 ;
- CDEATH(DFN,F) ;PEP - returns Cause of Death in F format
- +1 QUIT $$CDEATH^SDECPAT3(DFN,$GET(F))
- +2 ;
- DEC(PID) ;PEP - RETURN DECRYPTED PATIENT IDENTIFIER
- +1 if $$DEC^SDECPAT4(PID)
- QUIT
- +2 ;----------
- ENC(DFN) ;PEP
- +1 QUIT $$ENC^SDECPAT4(DFN)
- +2 ;----------
- DOB(DFN,F) ;PEP - Given DFN, return Date of Birth according to F.
- +1 QUIT $$DOB^SDECPAT3(DFN,$GET(F))
- +2 ;
- DOD(DFN,F) ;PEP - Given DFN, return Date of Death in FM format.
- +1 QUIT $$DOD^SDECPAT3(DFN,$GET(F))
- +2 ;
- ELIGSTAT(DFN,F) ;PEP - returns eligibility status in F format
- +1 QUIT $$ELIGSTAT^SDECPAT3(DFN,$GET(F))
- +2 ;
- HRN(DFN,L,F) ;PEP
- +1 ;f patch 4 05/08/96
- +2 QUIT $$HRN^SDECPAT3(DFN,L,$GET(F))
- +3 ;
- MCD(P,D) ;PEP - Is patient P medicaid eligible on date D?
- +1 QUIT $$MCD^SDECPAT2(P,D)
- +2 ;
- MCDPN(P,D,F) ;PEP - return medicaid plan name for patient P on date D in form F.
- +1 QUIT $$MCDPN^SDECPAT2(P,D,$GET(F))
- +2 ;
- MCR(P,D) ;PEP - Is patient P medicare eligible on date D?
- +1 QUIT $$MCR^SDECPAT2(P,D)
- +2 ;
- PI(P,D) ;PEP - Is patient P private insurance eligible on date D?
- +1 QUIT $$PI^SDECPAT2(P,D)
- +2 ;
- PIN(P,D,F) ;PEP - return private insurer name for patient P on date D in form F.
- +1 QUIT $$PIN^SDECPAT2(P,D,$GET(F))
- +2 ;
- SEX(DFN) ;PEP - Given DFN, return Sex.
- +1 QUIT $$SEX^SDECPAT3(DFN)
- +2 ;
- SSN(DFN) ;PEP - Given DFN, return SSN.
- +1 QUIT $$SSN^SDECPAT3(DFN)
- +2 ;
- RR(P,D) ;PEP - Is patient P railroad eligible on date D?
- +1 QUIT $$RRE^SDECPAT2(P,D)
