API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Mar 21st, 2017
85
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
PL/SQL 7.64 KB | None | 0 0
raw download clone embed print report
  1.           SELECT
  2.               pc.PERSMEDCARD_ID     PERSMEDCARD,
  3.               pc.PERSMEDCARD_AGENT  AGENT,
  4.               pc.PMC_BIRTHDATE      BIRTHDATE,
  5.               pc.EMPLOYER           EMPLOYER,
  6.               v.ID                  VISIT_ID,
  7.               v.VISIT_DATE          VISIT_DATE,
  8.               pc.PROF_CARD_TYPE     CARD_TYPE,
  9.               v.NURSE               NURSE,
  10.               ds.SERVICE            SERVICE_ID,
  11.               -- mkb10
  12.               D_PKG_DAT_TOOLS.AGE_TO_STR(pc.PMC_BIRTHDATE, v.VISIT_DATE) AGE,
  13.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'KZ_TEMP') KZ_TEMP,
  14.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'KZ_PED_F_MASS_KG') KZ_PED_F_MASS_KG,
  15.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'KZ_PED_F_ROST_CM') KZ_PED_F_ROST_CM,
  16.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'KZ_PED_F_IMT') KZ_PED_F_IMT,
  17.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'KZ_PED_F_OKR_GOLOVY') KZ_PED_F_OKR_GOLOVY,
  18.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'KZ_PED_F_FIZRAZ') KZ_PED_F_FIZRAZ,
  19.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, :A1) KZ_PED_F_FIZRAZ,
  20.               @IF (TRUE) { //(1,2)
  21.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'EDIT_PUP') EDIT_PUP,
  22.               @}
  23.               @IF (TRUE) { //(1,2)
  24.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'EDIT_PELT') EDIT_PELT,
  25.               @}
  26.               @IF (TRUE) { //(1,3,4,5)
  27.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'EDIT_LIMF') EDIT_LIMF,
  28.               @}
  29.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'EDIT_SLIZ') EDIT_SLIZ,
  30.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'EDIT_ZEV') EDIT_ZEV,
  31.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'EDIT_KON') EDIT_KON,
  32.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'EDIT_BIGROD') EDIT_BIGROD,
  33.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'EDIT_ORGD') EDIT_ORGD,
  34.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'EDIT_CHASTD') EDIT_CHASTD,
  35.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'EDIT_CHSS') EDIT_CHSS,
  36.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'EDIT_SERDRITM') EDIT_SERDRITM,
  37.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'EDIT_SERDSHUM') EDIT_SERDSHUM,
  38.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'EDIT_HIVOT') EDIT_HIVOT,
  39.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'EDIT_PECHEN') EDIT_PECHEN,
  40.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'EDIT_SELEZ') EDIT_SELEZ,
  41.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'EDIT_MOCHA') EDIT_MOCHA,
  42.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'EDIT_STUL') EDIT_STUL,
  43.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'KZ_TRUDNOSTI') KZ_TRUDNOSTI,
  44.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'KZ_GRUDKORM') KZ_GRUDKORM,
  45.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'EDIT_YESSKOLKO') EDIT_YESSKOLKO,
  46.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'KZ_GRUDKORMNIG') KZ_GRUDKORMNIG,
  47.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'KZ_SMESI') KZ_SMESI,
  48.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'EDIT_SKOVKOPIT') EDIT_SKOVKOPIT,
  49.               CASE D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'CHECKBOX_BUT') WHEN '1' THEN 'V' ELSE '_' END CHECKBOX_BUT,
  50.               CASE D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'CHECKBOX_CHAHK') WHEN '1' THEN 'V' ELSE '_' END CHECKBOX_CHAHK,
  51.               CASE D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'CHECKBOX_LOSHK') WHEN '1' THEN 'V' ELSE '_' END CHECKBOX_LOSHK
  52.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'COMBOBOX_KORMCAS') COMBOBOX_KORMCAS,
  53.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'COMBOBOX_KOSGRUD') COMBOBOX_KOSGRUD,
  54.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'COMBOBOX_ROTRASKR') COMBOBOX_ROTRASKR,
  55.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'COMBOBOX_NARUCH') COMBOBOX_NARUCH,
  56.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'COMBOBOX_AREOL') COMBOBOX_AREOL,
  57.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'COMBOBOX_KAKPRILO') COMBOBOX_KAKPRILO, --cmpLabel COMBOBOX_KAKPRILO_N (1,2,3) underline
  58.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'COMBOBOX_EFFECT') COMBOBOX_EFFECT, --cmpLabel COMBOBOX_EFFECT_N (1,2,3) underline
  59.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'CHECKBOX_MOLOCH') CHECKBOX_MOLOCH, --cmpLabel CHECKBOX_MOLOCH underline
  60.               @IF (TRUE) { // (1,2)
  61.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'CHECKBOX_AKDS1') CHECKBOX_AKDS1,
  62.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'CHECKBOX_AKDS2') CHECKBOX_AKDS2,
  63.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'CHECKBOX_BCG') CHECKBOX_BCG,
  64.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'CHECKBOX_GB1') CHECKBOX_GB1,
  65.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'CHECKBOX_GB2') CHECKBOX_GB2,
  66.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'CHECKBOX_OPV1') CHECKBOX_OPV1,
  67.               @}
  68.               @IF (TRUE) { // (3,4,5)
  69.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'CHECKBOX_GB3') CHECKBOX_GB3,
  70.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'CHECKBOX_OPV2') CHECKBOX_OPV2,
  71.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'CHECKBOX_OPV3') CHECKBOX_OPV3,
  72.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'CHECKBOX_AKDS3') CHECKBOX_AKDS3,
  73.               @}
  74.               @IF (TRUE) { // (1,3,4)
  75.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'EDIT_BCH') EDIT_BCH,
  76.               @}
  77.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'EDIT_VISPRIV') EDIT_VISPRIV,
  78.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'DATA_VISPRIV') DATA_VISPRIV,
  79.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'EDIT_DO') EDIT_DO,
  80.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'EDIT_DR') EDIT_DR,
  81.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'EDIT_RA') EDIT_RA,
  82.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'EDIT_RP') EDIT_RP,
  83.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'EDIT_N') EDIT_N,
  84.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'EDIT_E') EDIT_E,
  85.               CASE (D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'CHECKBOX_OTST') WHEN '1' THEN 'V' ELSE '_' END CHECKBOX_OTST,
  86.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'EDIT_OTSEPIC') EDIT_OTSEPIC,
  87.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'TEXTAREA_GAME') TEXTAREA_GAME,
  88.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'TEXTAREA_SPEAK') TEXTAREA_SPEAK,
  89.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'TEXTAREA_PROBLEM') TEXTAREA_PROBLEM,
  90.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'TEXTAREA_PROBUXOD') TEXTAREA_PROBUXOD,
  91.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'KZ_CRUEL_TREAT') KZ_CRUEL_TREAT,
  92.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'СHECKBOX_TRPR0') СHECKBOX_TRPR0, --cmpLabel СHECKBOX_TRPR0 underline
  93.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'СHECKBOX_TRPR1') СHECKBOX_TRPR1, --cmpLabel СHECKBOX_TRPR1 underline
  94.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'СHECKBOX_TRPR5') СHECKBOX_TRPR5, --cmpLabel СHECKBOX_TRPR5 underline
  95.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'СHECKBOX_TRPR6') СHECKBOX_TRPR6, --cmpLabel СHECKBOX_TRPR6 underline
  96.               D_PKG_VISIT_FIELDS.GET_VALUE(v.ID, :LPU, 'СHECKBOX_TRPR4') СHECKBOX_TRPR4, --cmpLabel СHECKBOX_TRPR4 underline
  97.           FROM d_v_prof_card pc
  98.             left join d_v_diseasecases_base dc ON  pc.diseasecase = dc.id
  99.               left join D_V_VISITS_BASE v ON dc.VISIT = v.ID
  100.                 left join D_V_DIRECTION_SERVICES ds ON v.PID = ds.ID
  101.          WHERE pc.id=:PROFCARD;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!