Routine: YSCLHLGT

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

Package	Total	Caller Graph
Mental Health	4	YSCLHLFN YSCLHLMA YSCLHLOP YSCLHLPD

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

Name	Field # of Occurrence
DD^%DT	DATEEX+6
EN^DGPMSTAT	GET+54
$$FIND1^DIC	GET+114
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+92, GET+102, GET+103, GET+106 , GET+108, GET+109, GET+111, GET+115, GET+116, GET+118, GET+119, GET+120, GET+122, GET+126 , GET+127, GET+129, GET+140, GET+143, GET+146, GET+147, GET+148, GET+149, GET+153, GET+164 , GET+165, GET+167, GET+171, GET+174, GET+175, GET+183, GETCLZOR+12, GETCLZOR+13, GETCLZOR+30, STFLDS+14 , STFLDS+19, STINFO+2
GETS^DIQ	GET+137, 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

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

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.52 - [#52.52]	GET+160, GET+161
^PS(55 - [#55]	GET+98, GET+100
^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*

Name	Line Occurrences
$$DATEEX	GET+93, GET+156, GETCLZOR+27
$$DEFDIV	GET+69
$$NCPDPF59	STFLDS+26
DFLTVLUS	GET+50, GETCLZOR+3
RSNTXT	GET+130, GET+168
STFLDS	GET+186
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+92, GET+98, GET+100, GET+106, GET+119, GETCLZOR~ , GETCLZOR+1, GETCLZOR+5
DG1	GET+52~, GET+55
DGA1	GET+52~
DGT	GET+52~, GET+53*
DGXFR0	GET+52~
DIC	GET+113!
DRUGIEN	GETCLZOR+2~, GETCLZOR+8*, GETCLZOR+9
DT	GET+53, GET+74
DUZ(2	GET+69, GET+181
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+134~*, GET+138, GET+139, GET+141, GET+142, GET+144, GET+151, GET+155
ORDIEN	GET+10~, GET+151*, GET+152
OVRRDIEN	GET+11~, GET+114*, GET+115, GET+116, GET+118, GET+122, GET+126, GET+129
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+92, GET+98, GET+100, GET+106, GET+119, GET+133
PSORXIEN	GET~, GET+17*, GET+19, GET+60, GET+72, GET+73, GET+83, GET+133, GET+134, GET+137 , GET+140, GET+149, GET+153, GET+160, GET+161
RSLT	DEFDIV+3~, DEFDIV+4, DEFDIV+5, DEFDIV+8, DEFDIV+9*, DEFDIV+11, DEFDIV+12
RSNTXT	RSNTXT~, RSNTXT+1
RX1STIEN	GET+159~, GET+160*, GET+161, GET+163, GET+164, GET+165, GET+167
RX2NDIEN	GET+159~, GET+161*, GET+170, GET+171, GET+174
TMPARND	GET+12~, GET+25*, GET+26
TMPARR	GET+9~, GET+134!
TMPARR("DILIST"	GET+25, GET+26
TMPARR(52	GET+138, GET+139, GET+141, GET+142, GET+144, GET+151, GET+155
U	GET+34, GET+36, GET+39, GET+40, GET+46, GET+48, GET+76, GET+78, GET+79, GET+80 , GET+100
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+178* , GET+179, GET+180, GET+181, 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+130, GET+168, GET+186, GETCLZOR~, GETCLZOR+3!, RSNTXT~, STFLDS~, DFLTVLUS~
YSCLARR("!ERROR!"	GET+18, GET+19
YSCLARR("*55.07IEN"	GETCLZOR+4*
YSCLARR("*DFN"	GET+15*
YSCLARR("*ORDIEN"	GET+152*
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+147, DFLTVLUS+2
YSCLARR("DISPQTY"	GET+149, DFLTVLUS+4
YSCLARR("DISPQTYUNIT"	GET+150, DFLTVLUS+5
YSCLARR("DISPUNIT"	GET+148*
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+125, GET+162, RSNTXT+2, DFLTVLUS+8, ALTERNATE REASON TEXT" , GET+125, GET+129, GET+130, GET+162* , GET+167, GET+168, RSNTXT+1, DFLTVLUS+9, APPROVING PROVIDER DEA" , GET+127, GET+175, DFLTVLUS+18, APPROVING PROVIDER IEN" , GET+126* , GET+127, GET+174, GET+175, DFLTVLUS+19, APPROVING PROVIDER" , GET+122, GET+123, GET+124, GET+171, GET+172 , GET+173, DFLTVLUS+15, APPROVING PROVIDER_FIRST NAME" , GET+124, GET+173, DFLTVLUS+17, APPROVING PROVIDER_LAST NAME" , GET+123, GET+172, DFLTVLUS+16* , DIVISION:INSTITUTION PTR" , GET+50, GET+112, GET+153, GET+179, DFLTVLUS+21, DRUG IEN" , GET+96, GET+101, GET+142 , GET+143, GET+146, GET+147, GET+148, DRUG NAME" , GET+96, GET+102, GET+143, DRUG NDC" , GET+96 , GET+103, GET+144, GET+146, PHARMACY DIVISION" , GET+109, GET+120, GET+141, GETCLZOR+30, STFLDS+23, PRESCRIBING DATE" , GET+94, GET+157, GETCLZOR+28, DFLTVLUS+13, REASON CODE" , GET+115, GET+128, GET+164, GET+166, DFLTVLUS+6 , REASON TEXT" , GET+116, GET+165, DFLTVLUS+7*
YSCLARR("MED_DOSE"	GET+89, GET+139, GET+140, GETCLZOR+22, DFLTVLUS+10*
YSCLARR("MED_RX#/ORDER#"	GET+118, GET+119, GET+138, 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+180, 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+178, GET+183, GET+184, STFLDS+2, DFLTVLUS+22, _PHARMACY NCPDP" , STFLDS+22, _SITE DEA" , GET+183, _SITE NAME" , STFLDS+3, _STREET ADDR 1" , STFLDS+5, _STREET ADDR 2" , STFLDS+6*
YSCLARR("SITE_CITY"	STFLDS+7*
YSCLARR("SITE_ID"	GET+184, 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+94, GET+154~, GET+155, GET+156, GET+157, GETCLZOR+25~ , GETCLZOR+26, GETCLZOR+27, GETCLZOR+28, DATEEX~, DATEEX+2, DATEEX+3, DATEEX+5, DATEEX+7, DATEEX+8*, DATEEX+9
YSCLDDIEN	GET+97~, GET+98, GET+99, GET+100, GET+101, GET+102, GET+103
YSCLMMDD	DATEEX+1~, DATEEX+5*, DATEEX+8
YSCLORD	GET+86~, GET+87*, GET+114
YSCLPDIV	GET+105~, GET+106, GET+107, GET+108, GET+109, GET+110, GET+111*, GET+112
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

Customize PDF page

Package: Mental Health

Routine: YSCLHLGT

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 4

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: