Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points
Print Page as PDF
Routine: GMVUID

Package: General Medical Record - Vitals

Routine: GMVUID


Information

GMVUID ;HIOFO/FT-VUID-RELATED UTILITIES ;5/3/05 11:48

Source Information

Source file <GMVUID.m>

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

Package Total Caller Graph
Kernel 1 ^DIC(4.001  

Entry Points

Name Comments DBIA/ICR reference
EN(ERROR) ; Clean up existing file connections and gui templates
QMAIL ; Queue mail message
MAIL ; Send mail message to installer that an error occurred
QUAL ; Loop through the Qualifier entries in FILE 120.52:
; 1) If the QUALIFIER is not active, get rid of all VITAL TYPE (#1)
; associations,
; 2) If the QUALIFIER is active and a VITAL TYPE is not active, get rid
; of that VITAL TYPE association,
; 3) If the QUALIFIER and VITAL TYPE are active, but the CATEGORY
; (#.02 in subfile 120.521) is not, get rid of that subfile entry.
QUAL1(GMVX,GMVY) ; Delete a multiple entry (#1) in FILE 120.52
CAT ; Loop through the Category entries in FILE 120.53:
; 1) If the CATEGORY is not active, get rid of all VITAL TYPE (#1)
; associations,
; 2) If the CATEGORY is active and a VITAL TYPE is not active, get rid
; of that VITAL TYPE association,
; 3) If the CATEGORY and VITAL TYPE are active, but the DEFAULT
; QUALIFIER (#.07) is not, null out the DEFAULT QUALIFIER field.
CAT1(GMVX,GMVY) ; Delete a multiple entry (#1) in FILE 120.53
CAT2(GMVX,GMVY) ; Delete a default qualifier
ACTIVE(GMVFILE,GMVFLD,GMVIEN,GMVDATE) ; Calls the $$SCREEN^XTID API to get VUID status
; Input: GMVFILE - File number
; GMVFLD - Field number
; GMVIEN - IEN
; GMVDATE - Date
; Output: 0 - Active
; 1 - Inactive
GET(GMVFILE,GMVIEN,GMVREF) ; Calls the $$GETVUID^XTID API to get the VUID number
; GMVFILE - File number
; GMVIEN - field #
; GMVREF - value
TEMPS ; Clean up GUI templates definitions.
; If a qualifier is inactive, remove it and its category.
COMBO(GMVTI,GMVQUALI,GMVCATI) ; Check if this combination is in the AA cross-
; reference of File 120.52
; Input:
; GMVTI - File 120.51 ien
; GMVQUALI - File 120.52 ien
; GMVCATI - File 120.53 ien
Info |  Source |  Caller Graph |  Entry Points