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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Toolkit 2 (EN,ENVAL)^XPAR  ($$GETVUID,$$SCREEN)^XTID  
Health Data and Informatics 1 $$SCREEN^HDISVF01  
Kernel 1 ^%ZTLOAD  
MailMan 1 ^XMD  
VA FileMan 1 ^DIK  

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

Package Total Caller Graph
General Medical Record - Vitals 6 GMRVQUAL  GMRVSITE  GMVHDR  GMVQUAL  GMVRPCM  GMVVDEF1  
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

External References

Name Field # of Occurrence
^%ZTLOAD QMAIL+4
^DIK QUAL1+3, CAT1+3
$$SCREEN^HDISVF01 EN+5
^XMD MAIL+10
EN^XPAR TEMPS+40
ENVAL^XPAR TEMPS+5
$$GETVUID^XTID GET+5
$$SCREEN^XTID ACTIVE+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMRD(120.52 - [#120.52] QUAL+10, QUAL+13, QUAL+18, QUAL+19, QUAL+25, COMBO+10, COMBO+12
^GMRD(120.53 - [#120.53] CAT+10, CAT+13, CAT+18, CAT+19, CAT+25, CAT2+3*
^TMP($J TEMPS+3!, TEMPS+4, TEMPS+6, TEMPS+8, TEMPS+10, TEMPS+11, TEMPS+43!

Label References

Name Line Occurrences
$$ACTIVE QUAL+11, QUAL+20, QUAL+27, CAT+11, CAT+20, CAT+28, TEMPS+28
$$COMBO TEMPS+28
CAT EN+7
CAT1 CAT+14, CAT+22
CAT2 CAT+29
QMAIL EN+2
QUAL EN+7
QUAL1 QUAL+14, QUAL+22, QUAL+28
TEMPS EN+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA QUAL1+1~, QUAL1+2*, CAT1+1~, CAT1+2*
DA(1 QUAL1+2*, CAT1+2*
DIK QUAL1+1~, QUAL1+2*, CAT1+1~, CAT1+2*
DUZ MAIL+2
ERROR EN~, EN+2
FILE EN+3~, EN+5*
GMV TEMPS+2~, TEMPS+15!
GMV( TEMPS+16*, TEMPS+18, TEMPS+19, TEMPS+32*, TEMPS+34, TEMPS+35
GMV1 TEMPS+2~, TEMPS+7*, TEMPS+8*, TEMPS+10, TEMPS+11, TEMPS+40
GMV2 TEMPS+2~, TEMPS+9*, TEMPS+10*, TEMPS+11, TEMPS+40
GMVCAT CAT+8~, CAT+9*, CAT+10*, CAT+11, CAT+13, CAT+14, CAT+18, CAT+19, CAT+22, CAT+25
, CAT+29
GMVCATI COMBO~, COMBO+8*, COMBO+9, COMBO+12
GMVDATE ACTIVE~, ACTIVE+7
GMVDESC TEMPS+2~, TEMPS+13*, TEMPS+33
GMVERR TEMPS+2~, TEMPS+40
GMVFILE ACTIVE~, ACTIVE+7, GET~, GET+5
GMVFLAG COMBO+6~, COMBO+7*, COMBO+9, COMBO+11, COMBO+12*, COMBO+13
GMVFLD ACTIVE~, ACTIVE+7
GMVI TEMPS+2~, TEMPS+16*, TEMPS+17*, TEMPS+18*, TEMPS+19, TEMPS+32, TEMPS+33*, TEMPS+34*, TEMPS+35
GMVIEN ACTIVE~, ACTIVE+7, GET~, GET+5
GMVJ TEMPS+2~, TEMPS+25*, TEMPS+26
GMVLIST TEMPS+2~, TEMPS+4*, TEMPS+5
GMVMSG MAIL+1~
GMVMSG(1 MAIL+5*
GMVMSG(2 MAIL+6*
GMVMSG(3 MAIL+7*
GMVMSG(4 MAIL+8*
GMVNEW TEMPS+2~, TEMPS+24*, TEMPS+28*, TEMPS+29*, TEMPS+30*, TEMPS+31*, TEMPS+32
GMVNODE QUAL+8~, QUAL+19*, QUAL+20, QUAL+25*, QUAL+26, QUAL+27, CAT+8~, CAT+25*, CAT+26, CAT+27
, CAT+28, TEMPS+2~, TEMPS+11*, TEMPS+12, TEMPS+13, TEMPS+14*, TEMPS+16, TEMPS+33*, TEMPS+35*, TEMPS+37*
, TEMPS+38*, TEMPS+39, TEMPS+40
GMVOLD TEMPS+2~, TEMPS+26*, TEMPS+27, TEMPS+28
GMVORIG TEMPS+2~, TEMPS+11*, TEMPS+39
GMVQUAL QUAL+8~, QUAL+9*, QUAL+10*, QUAL+11, QUAL+13, QUAL+14, QUAL+18, QUAL+19, QUAL+22, QUAL+25
, QUAL+28, TEMPS+2~, TEMPS+27*, TEMPS+28
GMVQUALE COMBO+6~, COMBO+10*, COMBO+11, COMBO+12
GMVQUALI COMBO~, COMBO+8*, COMBO+9, COMBO+10, COMBO+12
GMVREF GET~, GET+5
GMVT QUAL+8~, QUAL+12*, QUAL+13*, QUAL+14, QUAL+17*, QUAL+18*, QUAL+19, QUAL+22, QUAL+25, QUAL+28
, CAT+8~, CAT+12*, CAT+13*, CAT+14, CAT+17*, CAT+18*, CAT+19, CAT+22, CAT+25, CAT+29
GMVTI CAT+8~, CAT+19*, CAT+20, COMBO~, COMBO+8*, COMBO+9, COMBO+12
GMVTY QUAL+20*, QUAL+21, QUAL+24, CAT+8~, CAT+20*, CAT+21, CAT+24
GMVUID GET+4~, GET+5*, GET+6
GMVX QUAL1~, QUAL1+2, CAT1~, CAT1+2, CAT2~, CAT2+1, CAT2+3, TEMPS+2~, TEMPS+19*, TEMPS+20
, TEMPS+21, TEMPS+22*, TEMPS+23, TEMPS+25, TEMPS+26
GMVY QUAL1~, QUAL1+2, CAT1~, CAT1+2, CAT2~, CAT2+2, CAT2+3, TEMPS+2~, TEMPS+21*, TEMPS+28
, TEMPS+30, TEMPS+31
OK EN+3~, EN+4*, EN+5*, EN+6
U QUAL+20, QUAL+27, CAT+19, CAT+27, CAT+28, CAT2+3, GET+6, COMBO+10
XMDUZ MAIL+1~, MAIL+3*
XMSUB MAIL+1~, MAIL+4*
XMTEXT MAIL+1~, MAIL+9*
XMY MAIL+1~
XMY( MAIL+2*
ZTDESC QMAIL+1~, QMAIL+2*
ZTDTH QMAIL+1~, QMAIL+3*
ZTIO QMAIL+1~, QMAIL+3*
ZTRTN QMAIL+1~, QMAIL+2*
ZTSAVE QMAIL+1~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All