Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: YSCLHLGT

Package: Mental Health

Routine: YSCLHLGT


Information

YSCLHLGT ;DSS-PO/HEC-hrubovcak - Get Data for HL7 message- CLOZAPINE DATA TRANSMISSION;18 June 2020 12:03:21 ;Jul 07, 2020@10:41

Source Information

Source file <YSCLHLGT.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 3 DD^%DT  ($$FIND1,FIND,LIST)^DIC  ($$GET1,GETS)^DIQ  
Registration 2 EN^DGPMSTAT  (ADD,DEM)^VADPT  
Kernel 1 $$FMTHL7^XLFDT  
Master Patient Index VistA 1 $$GETICN^MPIF001  
Mental Health 1 $$CL^YSCLHLAB  
Outpatient Pharmacy 1 PSS^PSO59  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Mental Health 4 YSCLHLFN  YSCLHLMA  YSCLHLOP  YSCLHLPD  

Entry Points

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

External References

Name Field # of Occurrence
DD^%DT DATEEX+6
EN^DGPMSTAT GET+54
$$FIND1^DIC GET+113
FIND^DIC GET+23
LIST^DIC GETCLZOR+6, DEFDIV+6
$$GET1^DIQ GET+39, GET+40, GET+46, GET+48, GET+57, GET+60, GET+61, GET+62, GET+64, GET+65
, GET+66, GET+72, GET+73, GET+87, GET+89, GET+91, GET+101, GET+102, GET+105, GET+107
, GET+108, GET+110, GET+114, GET+115, GET+117, GET+118, GET+119, GET+121, GET+125, GET+126
, GET+128, GET+139, GET+142, GET+145, GET+146, GET+147, GET+148, GET+152, GET+163, GET+164
, GET+166, GET+170, GET+173, GET+174, GET+182, GETCLZOR+12, GETCLZOR+13, GETCLZOR+30, STFLDS+14, STFLDS+19
, STINFO+2
GETS^DIQ GET+136, GETCLZOR+20
$$GETICN^MPIF001 GET+31
PSS^PSO59 NCPDPF59+2
ADD^VADPT GET+21
DEM^VADPT GET+20
$$FMTHL7^XLFDT GET+33, GET+79
$$CL^YSCLHLAB GET+75

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.52 - [#52.52] GET+159, GET+160
^PS(55 - [#55] GET+97, GET+99
^PSDRUG("ACLOZ" GETCLZOR+8
^TMP($J DEFDIV+4, DEFDIV+11*, NCPDPF59+2, NCPDPF59+3, STFLDS+3, STFLDS+4, STFLDS+5, STFLDS+6, STFLDS+7, STFLDS+8
, STFLDS+10, STFLDS+13, STFLDS+15*, STFLDS+18, STFLDS+20*, STFLDS+25, STFLDS+27*, STINFO+1, STINFO+2*

Label References

Name Line Occurrences
$$DATEEX GET+92, GET+155, GETCLZOR+27
$$DEFDIV GET+69
$$NCPDPF59 STFLDS+26
DFLTVLUS GET+50, GETCLZOR+3
RSNTXT GET+129, GET+167
STFLDS GET+185
STINFO STFLDS+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN GET~, GET+15*, GET+18, GET+23, GET+31, GET+32, GET+57, GET+61, GET+62, GET+73
, GET+75, GET+87, GET+89, GET+91, GET+97, GET+99, GET+105, GET+118, GETCLZOR~, GETCLZOR+1
, GETCLZOR+5
DG1 GET+52~, GET+55
DGA1 GET+52~
DGT GET+52~, GET+53*
DGXFR0 GET+52~
DIC GET+112!
DRUGIEN GETCLZOR+2~, GETCLZOR+8*, GETCLZOR+9
DT GET+53, GET+74
DUZ(2 GET+69, GET+180
FINISHDT GET+71~, GET+72*, GET+73*, GET+74*, GET+75
FREQ GET+71~, GET+76*, GET+77
I GET+12~, GETCLZOR+2~, GETCLZOR+7*, GETCLZOR+8, GETCLZOR+9, GETCLZOR+10, GETCLZOR+11, GETCLZOR+12, GETCLZOR+13, GETCLZOR+14
, GETCLZOR+15
J DEFDIV+3~, DEFDIV+8*, DEFDIV+9
LABSTR GET+71~, GET+75*, GET+76, GET+78, GET+79, GET+80
MAPINDX GET+133~*, GET+137, GET+138, GET+140, GET+141, GET+143, GET+150, GET+154
ORDIEN GET+10~, GET+150*, GET+151
OVRRDIEN GET+11~, GET+113*, GET+114, GET+115, GET+117, GET+121, GET+125, GET+128
P GET+12~, GET+38*, GET+39, GET+40, GET+45*, GET+46, GET+48
PSGORD GET~, GET+16*, GET+19, GET+61, GET+72, GET+73, GET+83, GET+87, GET+89, GET+91
, GET+97, GET+99, GET+105, GET+118, GET+132
PSORXIEN GET~, GET+17*, GET+19, GET+60, GET+72, GET+73, GET+83, GET+132, GET+133, GET+136
, GET+139, GET+148, GET+152, GET+159, GET+160
RSLT DEFDIV+3~, DEFDIV+4*, DEFDIV+5, DEFDIV+8*, DEFDIV+9*, DEFDIV+11, DEFDIV+12
RSNTXT RSNTXT~, RSNTXT+1
RX1STIEN GET+158~, GET+159*, GET+160, GET+162, GET+163, GET+164, GET+166
RX2NDIEN GET+158~, GET+160*, GET+169, GET+170, GET+173
TMPARND GET+12~, GET+25*, GET+26
TMPARR GET+9~, GET+133!
TMPARR("DILIST" GET+25, GET+26
TMPARR(52 GET+137, GET+138, GET+140, GET+141, GET+143, GET+150, GET+154
U GET+34, GET+36, GET+39, GET+40, GET+46, GET+48, GET+76, GET+78, GET+79, GET+80
, GET+99
UNDSIEN GETCLZOR~, GETCLZOR+1, GETCLZOR+4, GETCLZOR+5
USRIEN DEFDIV~, DEFDIV+1, DEFDIV+4, DEFDIV+6, DEFDIV+11
VADM GET+7~
VADM(1 GET+28
VADM(11 GET+45
VADM(12 GET+38, GET+39, GET+40
VADM(2 GET+36
VADM(3 GET+33
VADM(5 GET+34
VAPA GET+8~
VAPA(6 GET+35
X GET+12~, GET+46*, GET+47, GET+58, GET+59*, GET+60*, GET+61*, GET+62*, GET+69*, GET+177*
, GET+178*, GET+179*, GET+180*, STFLDS+1~, STFLDS+12, STFLDS+13*, STFLDS+14*, STFLDS+15, STFLDS+17, STFLDS+18*
, STFLDS+19*, STFLDS+20, STFLDS+22, STFLDS+25*, STFLDS+26*, STFLDS+27
Y GET+12~, RSNTXT+1~*, RSNTXT+2, STFLDS+1~, DATEEX+1~, DATEEX+2*, DATEEX+3*, DATEEX+4, DATEEX+7
YS59IEN NCPDPF59~, NCPDPF59+1*, NCPDPF59+2, NCPDPF59+3
YSCLARR GET~, GET+50, GET+129, GET+167, GET+185, GETCLZOR~, GETCLZOR+3!, RSNTXT~, STFLDS~, DFLTVLUS~
YSCLARR("!ERROR!" GET+18*, GET+19*
YSCLARR("*55.07IEN" GETCLZOR+4*
YSCLARR("*DFN" GET+15*
YSCLARR("*ORDIEN" GET+151*
YSCLARR("*PSGORD" GET+16*
YSCLARR("*PSORXIEN" GET+17*
YSCLARR("*RPT" GETCLZOR+9*, GETCLZOR+10*, GETCLZOR+11*, GETCLZOR+12*, GETCLZOR+13*, GETCLZOR+14*, GETCLZOR+15*, GETCLZOR+17
YSCLARR("DISPAMT" GET+146*, DFLTVLUS+2*
YSCLARR("DISPQTY" GET+148*, DFLTVLUS+4*
YSCLARR("DISPQTYUNIT" GET+149*, DFLTVLUS+5*
YSCLARR("DISPUNIT" GET+147*
YSCLARR("DISPUNITS" DFLTVLUS+3*
YSCLARR("LAB_ ANC VAL" , GET+80*, COLLECTION DATE" , GET+79*, WBC VAL" , GET+78*
YSCLARR("LAB_FREQ" GET+77*
YSCLARR("MED_ ALTERNATE REASON CODE" , GET+124*, GET+161*, RSNTXT+2*, DFLTVLUS+8*, ALTERNATE REASON TEXT" , GET+124*, GET+128*, GET+129, GET+161*
, GET+166*, GET+167, RSNTXT+1*, DFLTVLUS+9*, APPROVING PROVIDER DEA" , GET+126*, GET+174*, DFLTVLUS+18*, APPROVING PROVIDER IEN" , GET+125*
, GET+126, GET+173*, GET+174, DFLTVLUS+19*, APPROVING PROVIDER" , GET+121*, GET+122, GET+123, GET+170*, GET+171
, GET+172, DFLTVLUS+15*, APPROVING PROVIDER_FIRST NAME" , GET+123*, GET+172*, DFLTVLUS+17*, APPROVING PROVIDER_LAST NAME" , GET+122*, GET+171*, DFLTVLUS+16*
, DIVISION:INSTITUTION PTR" , GET+50, GET+111*, GET+152*, GET+178, DFLTVLUS+21*, DRUG IEN" , GET+95*, GET+100*, GET+141*
, GET+142, GET+145, GET+146, GET+147, DRUG NAME" , GET+95*, GET+101*, GET+142*, DRUG NDC" , GET+95*
, GET+102*, GET+143*, GET+145*, PHARMACY DIVISION" , GET+108*, GET+119*, GET+140*, GETCLZOR+30*, STFLDS+23, PRESCRIBING DATE"
, GET+93*, GET+156*, GETCLZOR+28*, DFLTVLUS+13*, REASON CODE" , GET+114*, GET+127, GET+163*, GET+165, DFLTVLUS+6*
, REASON TEXT" , GET+115*, GET+164*, DFLTVLUS+7*
YSCLARR("MED_DOSE" GET+89*, GET+138*, GET+139*, GETCLZOR+22*, DFLTVLUS+10*
YSCLARR("MED_RX#/ORDER#" GET+117*, GET+118*, GET+137*, GETCLZOR+24*, DFLTVLUS+12*
YSCLARR("MED_STATUS" GETCLZOR+23*, DFLTVLUS+11*
YSCLARR("PATI ENT_CLOZ REG NUM" , GET+26*, ENT_CLOZ STATUS" , GET+57*, ENT_ETHNICITY CODE" , GET+43*, GET+47*, ENT_FIRST NAME" , GET+30*, ENT_LAST NAME"
, GET+29*, ENT_RACE CODE" , GET+39*
YSCLARR("PATIENT_DFN" GET+32*
YSCLARR("PATIENT_DOB" GET+33*
YSCLARR("PATIENT_ETHNICITY" GET+43*, GET+48*
YSCLARR("PATIENT_ICN" GET+31*
YSCLARR("PATIENT_INPAT/OUTPAT" GET+55*
YSCLARR("PATIENT_NAME" GET+28*, GET+29, GET+30
YSCLARR("PATIENT_RACE" GET+40*
YSCLARR("PATIENT_SEX" GET+34*
YSCLARR("PATIENT_SSN" GET+36*
YSCLARR("PATIENT_ZIP" GET+35*
YSCLARR("PROV IDER_DEFAULT DIV." , GET+69*, GET+179, IDER_FIRST NAME" , GET+68*, IDER_LAST NAME" , GET+67*
YSCLARR("PROVIDER_DEA" GET+64*
YSCLARR("PROVIDER_IEN" GET+58*, GET+64, GET+65, GET+66, GET+69
YSCLARR("PROVIDER_NAME" GET+66*, GET+67, GET+68
YSCLARR("PROVIDER_NPI" GET+65*
YSCLARR("SITE _DEFAULT OUTPATIENT SITE" , STFLDS+12*, STFLDS+17*, _FILE #4 IEN" , GET+177*, GET+182, GET+183, STFLDS+2, DFLTVLUS+22*, _PHARMACY NCPDP"
, STFLDS+22*, _SITE DEA" , GET+182*, _SITE NAME" , STFLDS+3*, _STREET ADDR 1" , STFLDS+5*, _STREET ADDR 2" , STFLDS+6*
YSCLARR("SITE_CITY" STFLDS+7*
YSCLARR("SITE_ID" GET+183*, STFLDS+9*
YSCLARR("SITE_STATE" STFLDS+4*
YSCLARR("SITE_STATION" STFLDS+10*
YSCLARR("SITE_ZIP" STFLDS+8*
YSCLDATE GET+90~, GET+91*, GET+92*, GET+93, GET+153~, GET+154*, GET+155*, GET+156, GETCLZOR+25~, GETCLZOR+26*
, GETCLZOR+27*, GETCLZOR+28, DATEEX~, DATEEX+2, DATEEX+3, DATEEX+5, DATEEX+7*, DATEEX+8*, DATEEX+9
YSCLDDIEN GET+96~, GET+97*, GET+98, GET+99*, GET+100, GET+101, GET+102
YSCLMMDD DATEEX+1~, DATEEX+5*, DATEEX+8
YSCLORD GET+86~, GET+87*, GET+113
YSCLPDIV GET+104~, GET+105*, GET+106, GET+107*, GET+108, GET+109, GET+110*, GET+111
YSDIV STFLDS+23~*, STFLDS+25, STFLDS+26, STFLDS+27
YSFL4IEN STINFO~, STINFO+1, STINFO+2
YSFLD STINFO+2~*
YSFMERR GETCLZOR+2~, GETCLZOR+18!, DEFDIV+3~
YSFMLST DEFDIV+3~
YSFMLST("DILIST" DEFDIV+8, DEFDIV+9
YSFMROOT GETCLZOR+2~, GETCLZOR+18!
YSFMROOT( GETCLZOR+22, GETCLZOR+23, GETCLZOR+24, GETCLZOR+26
YSFMROOT("DILIST" GETCLZOR+7, GETCLZOR+8, GETCLZOR+10, GETCLZOR+11, GETCLZOR+14
YSIENS GETCLZOR+2~, GETCLZOR+5*, GETCLZOR+6, GETCLZOR+20, GETCLZOR+22, GETCLZOR+23, GETCLZOR+24, GETCLZOR+26
YSITE STFLDS+1~, STFLDS+2*, STFLDS+3, STFLDS+4, STFLDS+5, STFLDS+6, STFLDS+7, STFLDS+8, STFLDS+9, STFLDS+10
, STFLDS+19
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All