GMPLX1 ;SLC/MKB/KER/TC,PWC - Problem List Person Utilities ;04/11/2019
Source file <GMPLX1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PAT() | ; Select patient -- returns DFN^NAME^BID
|
|
P1 | ||
VADPT(DFN) | ; Get Service/Elig Flags
|
|
SCS(PROB,SC) | ; Get Exposure/Conditions Strings
|
|
SCCOND(DFN,SC) | ; Get Service/Elig Flags (array)
; Returns local array .SC passed by value |
|
CKDEAD(DATE) | ; Dead patient ... continue? Returns 1 if YES, 0 otherwise
|
|
REQPROV() | ; Returns requesting provider
|
|
NAME(USER) | ; Formats user name into "Lastname,F"
|
|
SERVICE(USER,INCNPC) | ; Returns User's service/section from file #49
; USER - Integer # (User ID - DUZ) of person in question ; [INCNPC] - Optional Boolean Defaults to 0 (false) |
|
SERV(X) | ; Return service name abbreviation
|
|
CLINIC(LAST) | ; Returns clinic from file #44
|
|
CLIN1 | ; Ask Clinic
|
|
CLINQ | ; Quit Asking
|
|
VIEW(USER) | ; Returns user's preferred view
|
|
VOCAB() | ; Select search vocabulary
|
|
PARAMS | ; Edit pkg parameters in file #125.99
|
|
RS(X) | ; Remove Slashes
|
|
WRAP(TEXT,LENGTH) | ; Breaks text string into substrings of length LENGTH
|
|
SCTMAP(GMPSCT,GMPICD,GMPORD) | ; API for updating ICD Code when mapping changes
; GMPSCT = SNOMED CT Concept CODE (e.g., 53974002 for Kniest Dysplasia) ; GMPICD = ICD-9/10-CM CODE (as string literal, so that terminal 0's aren't truncated. ; e.g., "756.9" for Musculoskeletal Anom NEC/NOS) ; GMPORD = Order or sequence (integer) number (starting from 1) to accommodate SNOMED ; Concepts with multiple target ICD code mappings (e.g., for Diabetic ; Neuropathy (SNOMED CT 230572002 ICD-9-CM 250.60/355.9) the order for ; 250.60 would be 1, and the order for 355.9 would be 2 |
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^GMPL(125.99 - [#125.99] | Classic Fileman Calls |
^SC - [#44] | Classic Fileman Calls |
^AUPNPAT - [#9000001] | Classic Fileman Calls |