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;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+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

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+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*

Label References

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
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