YSCLHLGT ;DSS-PO/HEC-hrubovcak - Get Data for HL7 message- CLOZAPINE DATA TRANSMISSION;Jul 07, 2020@10:41
Source file <YSCLHLGT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GET(YSCLARR,DFN,PSGORD,PSORXIEN) | ||
| GETCLZOR(YSCLARR,DFN,UNDSIEN) | ;YSCLARR passed by ref., get clozapine order
|
|
| DEFDIV(USRIEN) | ; function, return default division IEN for a user
|
|
| NCPDPF59(YS59IEN) | ; return NCPDP from OUTPATIENT SITE file (#59)
|
|
| RSNTXT(YSCLARR,RSNTXT) | ; e.g. "Weather Related Conditions: some free text"
|
|
| STFLDS(YSCLARR) | ; passed by ref.
|
|
| STINFO(YSFL4IEN) | ; institution lookup
|
|
| DFLTVLUS(YSCLARR) | ;
; default values for inpatient and outpatient |
|
| DATEEX(YSCLDATE) | ; Convert FileMan date to YYYYMMDD format
|
| FileNo | Call Tags |
|---|---|
| ^DIC(10 - [#10] | GET1^DIQ |
| ^DIC(10.2 - [#10.2] | GET1^DIQ |
| ^VA(200 - [#200] | GET1^DIQ |
| 200.02 | LIST^DIC |
| ^DIC(4 - [#4] | GET1^DIQ |
| ^DG(40.8 - [#40.8] | GET1^DIQ |
| ^DIC(42 - [#42] | GET1^DIQ |
| ^PSDRUG - [#50] | GET1^DIQ |
| ^PSRX - [#52] | GET1^DIQ, GETS^DIQ |
| 52.0113 | GET1^DIQ |
| ^PS(52.52 - [#52.52] | GET1^DIQ |
| ^PS(53.8 - [#53.8] | FIND1^DIC, GET1^DIQ |
| ^PS(55 - [#55] | GET1^DIQ |
| 55.06 | GET1^DIQ, GETS^DIQ |
| 55.07 | LIST^DIC |
| ^PS(59.7 - [#59.7] | GET1^DIQ |
| ^YSCL(603.01 - [#603.01] | FIND^DIC |
