©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
GMTSULT2 ; SLC/KER - HS Type Lookup (Search/List) ; 08/27/2002
Source file <GMTSULT2.m>
| Package | Total | Call Graph |
|---|---|---|
| Health Summary | 5 | ($$ECHO,CLR)^GMTSULT (REO,SM)^GMTSULT3 Y^GMTSULT6 B^GMTSULT7 $$EN^GMTSUMX |
| VA Fileman | 1 | ^DIM |
| Package | Total | Caller Graph |
|---|---|---|
| Health Summary | 4 | GMTSULT GMTSULT3 GMTSULT5 GMTSULT7 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TMP | ; Show first ^TMP Global
|
|
| CM(X) | ; Get Number of Components
|
|
| PAR | ; Parse User Input
|
|
| IF(X) | ; Internal Entry Number Flag
|
|
| UP(X) | ; Uppercase
|
|
| FNDQ | ; Find Quit
|
|
| BI(X) | ; Use the B Index flag
|
|
| IENS(X) | ; Internal Entry Number Save
|
|
| EMO(X) | ; Exact match flag, only one
|
|
| OW(X) | ; Mix Case (owner name)
|
|
| IENF(X) | ; Internal Entry Number Find
|
|
| EMQ(X) | ; Exact match flag
|
|
| FND | ; Find Health Summary Types (word search)
|
|
| LIST(X) | ; Get global array of Health Summary Types
; ; LIST^GMTSULT2(<search string>) ; ; ^TMP("GMTSULT",$J,#) ; ; Piece 1 = Internal Entry Number (IEN) in file 142 ; Piece 2 = Health Summary Type Name ; Piece 3 = Health Summary Type Title ; Piece 4 = Health Summary Type Owner ; Piece 5 = Location Using Health Summary Type ; Piece 6 = Number of Components in Summary Type ; Piece 7 = Recommended Display Text (for ; selection or list box) ; ; List Builder can use variable DIC("S") and DIC(0) ; ; DIC("S") Screen out entries for selection/list ; ; Processes DIC(0) N, OE (combination),X or B ; ; Does not process DIC(0) components C or M. Cross ; reference suppression (C) is automatic in a multi- ; term lookup, and the use of multiple indexes is ; implied in the lookup and DD file structure. ; |
|
| LQ | ; Quit List
|
|
| MX(X) | ; Mix Case
|
|
| EM(X) | ; Exact Match when DIC(0) contains X
|
|
| DICS(S,X,DA) | ; Check DIC("S") Screen
|
|
| TMP2 | ; Show second ^TMP Global
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^GMT(142 - [#142] | FND+13, FND+15, IENF+2, IENF+3, IENS+1, CM+1, CM+2, EM+3, EM+4, EM+5 , DICS+2, IF+2, IF+3 |
| ^TMP("GMTSULT" | LIST+30 |
| ^TMP("GMTSULT2" | FND+6*, FND+19, FND+20, FND+21*, FND+22! |
| Name | Line Occurrences |
|---|---|
| $$BI | LIST+27 |
| $$EM | FND+5 |
| $$EMO | LIST+27 |
| $$EMQ | LIST+27 |
| $$IENF | LIST+30 |
| $$IF | LIST+27 |
| $$UP | PAR+5, EM+2, EM+5 |
| FND | LIST+32 |
| FNDQ | FND+5, FND+11 |
| IENS | LIST+30 |
| LQ | LIST+30, LIST+31 |
| PAR | LIST+32 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | DICS~, DICS+1*, DICS+2* |
| >> DIC("S" | LIST+28 |
| >> DIC(0 | LIST+29, IENF+1, EMQ+1, EMO+1, BI+1, IF+1 |
| GMTS0 | IENF+1~*, IENF+2, EMQ+1~*, EMQ+2, EMO+1~*, EMO+2, BI+1~*, BI+2, IF+1~*, IF+3 |
| GMTSASM | FND+1~ |
| GMTSB | FND+1~, FND+20*, FND+22 |
| GMTSBI | LIST+26~, LIST+27*, LIST+31 |
| GMTSC | FND+1~, FND+14*, PAR+1~, PAR+2*, PAR+4*, CM+2~*, CM+3, EM+1~, EM+2*, EM+3 , TMP+1~, TMP+2*, TMP+4*, TMP+5, TMP2+1*, TMP2+3*, TMP2+4 |
| GMTSCMP | FND+1~ |
| GMTSCT | PAR+1~, PAR+2*, PAR+5* |
| GMTSCTL | FND+1~, FND+11*, FND+12, FND+13 |
| GMTSD0 | LIST+26~, LIST+29*, LQ+1, FND+1~, FNDQ+1 |
| GMTSDIC0 | LIST+29*, LQ+1!, FND+5, FND+8, FNDQ+1! |
| GMTSDICS | LIST+28*, LQ+1!, FNDQ+1!, DICS+1~*, DICS+3 |
| GMTSDS | LIST+26~, LIST+28*, LQ+1, FND+1~, FNDQ+1 |
| GMTSE | FND+3~* |
| GMTSEO | LIST+26~, LIST+27* |
| GMTSEQ | LIST+26~, LIST+27* |
| GMTSFND | FND+1~ |
| GMTSI | FND+1~, FND+19*, FND+20, FND+21, FND+22, IENF+1~*, IENF+2, IENF+3, CM+2~*, EM+1~ , EM+4*, EM+5, IF+1~*, IF+2*, IF+3*, IF+4 |
| GMTSI1 | FND+1~, FND+14*, FND+15*, FND+16, IENS+1~* |
| GMTSI2 | FND+1~, IENS+1~ |
| GMTSI3 | FND+1~, IENS+1~ |
| GMTSIEN | LIST+26~, LIST+30*, FND+16~*, IENS+1~*, DICS+1~*, DICS+2 |
| GMTSIF | LIST+26~, LIST+27*, LIST+30, FND+3* |
| GMTSKWRD | FND+16~* |
| GMTSLEX | FND+1~, FND+5*, FND+6 |
| GMTSLEXM | FND+1~, FND+8* |
| GMTSLOC | FND+1~ |
| GMTSM | EM+1~, EM+2*, EM+3, EM+4, EM+5*, EM+6* |
| GMTSN | EM+1~, EM+5* |
| GMTSNAM | FND+1~ |
| GMTSNC | TMP+1~, TMP+2*, TMP+3, TMP2+1*, TMP2+2 |
| GMTSND | TMP+1~, TMP+4*, TMP2+3* |
| GMTSNQ | TMP+1~, TMP+2*, TMP+3*, TMP+4, TMP2+1*, TMP2+2*, TMP2+3 |
| GMTSO | EM+1~, EM+2*, EM+3*, EM+4 |
| GMTSOK | FND+1~ |
| GMTSOW | FND+1~ |
| GMTSOX | DICS+1~*, DICS+2 |
| GMTSPSN | PAR+1~, PAR+2*, PAR+3, PAR+4 |
| GMTSRC | FND+1~ |
| GMTSRD | FND+1~ |
| GMTST | DICS+1~, DICS+2* |
| GMTSTMP | FND+1~, FND+3*, TMP+1~, TMP+2*, TMP2+3 |
| GMTSTR | PAR+1~, PAR+2*, PAR+3, PAR+4 |
| GMTSTTL | FND+1~ |
| GMTSU | EM+1~, EM+2*, EM+5 |
| GMTSWDS | FND+1~, FND+10* |
| GMTSWRD | FND+1~, FND+10*, FND+11*, FND+12*, FND+13*, FND+15, FND+16, PAR+1~, PAR+3*, PAR+4* , PAR+5 |
| GMTSWRDS | LIST+26~, PAR+1! |
| GMTSWRDS( | PAR+5* |
| GMTSWRDS(" " | FND+10 |
| GMTSWRDS(1 | FND+10 |
| S | DICS~, DICS+1 |
| U | FND+3*, PAR+2*, EM+1*, EM+5 |
| X | LIST~, LIST+27, LIST+30, FND+5, PAR+2, IENF~, IENF+1*, IENF+2*, IENF+3*, IENS~ , IENS+1, CM~, CM+1*, CM+2, CM+3*, CM+4, EM~, EM+1*, EM+2, EM+6* , EM+7, DICS~, DICS+1*, DICS+2*, DICS+3*, EMQ~, EMQ+1*, EMQ+2*, EMO~, EMO+1* , EMO+2*, BI~, BI+1*, BI+2*, IF~, IF+1, IF+2, IF+3, IF+4*, UP~ , UP+1, OW~, OW+1, OW+2, MX~, MX+1 |
| Y | FND+1~, DICS+1~*, DICS+2* |