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 |  Marked Items |  All
Print Page as PDF
Routine: GMRVPCE1

Package: General Medical Record - Vitals

Routine: GMRVPCE1


Information

GMRVPCE1 ;HIRMFO/RM-PCE Interface code ;8/2/96

Source Information

Source file <GMRVPCE1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 ^%DT  (FILE,UPDATE)^DIE  $$GET1^DIQ  
General Medical Record - Vitals 1 ($$RATECHK,$$VMTYPES)^GMRVPCE0  
Kernel 1 $$NOW^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
General Medical Record - Vitals 1 GMRVPCE0  

Entry Points

Name Comments DBIA/ICR reference
ERROR(PROVIDER,I,CODE,VALUE) ; Given Provider IEN (PROVIDER), subentry (I),
; Error code (CODE) and Rejected value (VALUE), this procedure will
; set the GMRVDAT("ERROR") array with error.
DUPCHK ; This procedure checks for duplicate data. If data is being
; validated, a warning message will be sent, if data is being stored,
; the old record that is duplicate will be entered in error and the
; new data filed.
DATA(VITALS) ; Process GMRVDAT("VITALS") node. Data in in variable VITALS.
; Present but not passed are GMRVPROV=Provider IEN, GMRVX=subentry
; for GMRVPROV and GMRVSTOR=$S(1:Store data,0:Validate Data).
PCE(GMRVSTOR) ; Called from VALIDATE^GMRVPCE0 to validate vitals data, or
; STORE^GMRVPCE0 to store vitals data. The variable GMRVSTOR (req.)
; will determine if called from VALIDATE (0), or STORE (1).
; 08/15/2005 KAM/BAY 107096 added 'Q' for error handling
; 09/23/2005 KAM/BAY 113449 add check for invalid HOS/LOC type
ERRTXT ; Error messages and <NODE>/<PIECE> information for code passed.

External References

Name Field # of Occurrence
^%DT DATA+9, DATA+12
FILE^DIE DUPCHK+12
UPDATE^DIE DATA+33, DUPCHK+13
$$GET1^DIQ PCE+12
$$RATECHK^GMRVPCE0 DATA+20
$$VMTYPES^GMRVPCE0 DATA+8
$$NOW^XLFDT DATA+29

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SC - [#44] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PCE+8
^GMR(120.5 - [#120.5] DUPCHK+6, DUPCHK+7
^GMRD(120.51 - [#120.51] DATA+21
^SC - [#44] PCE+10, PCE+12
^VA(200 - [#200] PCE+15

Label References

Name Line Occurrences
DATA PCE+20
DUPCHK DATA+24
ERROR PCE+8, PCE+10, PCE+12, PCE+15, DATA+5, DATA+8, DATA+10, DATA+20, DATA+23

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DUPCHK+7*, DUPCHK+8
%DT DATA+9*!, DATA+11*, DATA+12!
CODE ERROR~
DUZ PCE+14
GMRVDA DUPCHK+5~*, DUPCHK+6*, DUPCHK+7, DUPCHK+12, DUPCHK+13
>> GMRVDAT("ENCOUNTER" PCE+7, PCE+9, DATA+11
>> GMRVDAT("ERROR" ERROR+7*
>> GMRVDAT("SOURCE" PCE+14
>> GMRVDAT("VITALS" PCE+17, PCE+19, PCE+20
>> GMRVDAT("WARNING" DUPCHK+15*
GMRVDFN PCE+6~, PCE+7*, PCE+8, DATA+27, DUPCHK+6
GMRVDUZ PCE+6~, PCE+14*, PCE+15, DATA+31, DUPCHK+8, DUPCHK+12
GMRVFDA DATA+25~, DUPCHK+11~
GMRVFDA(77 DUPCHK+13*
GMRVFDA(88 DUPCHK+12*
GMRVFDA(99 DATA+26*, DATA+27*, DATA+28*, DATA+29*, DATA+30*, DATA+31*, DATA+32*
GMRVHLOC PCE+6~, PCE+9*, PCE+10, PCE+12, DATA+30, DUPCHK+8
GMRVMDT DATA+4~, DATA+6~, DATA+9*, DATA+10, DATA+12*, DATA+26, DUPCHK+6
GMRVMTYP DATA+4~, DATA+7*, DATA+8, DATA+16, DATA+17, DATA+18, DATA+20, DATA+21*, DATA+23, DATA+28
, DUPCHK+6
GMRVPROV PCE+6~, PCE+16*, PCE+17*, PCE+19, PCE+20, DATA+5, DATA+8, DATA+10, DATA+20, DATA+23
, DUPCHK+15
GMRVRATE DATA+4~, DATA+6~, DATA+14*, DATA+20, DATA+32, DUPCHK+8
GMRVSTOR PCE~, ERROR+4, DATA+24, DUPCHK+9, DUPCHK+15
GMRVTYP DATA+6~
GMRVUNIT DATA+4~, DATA+6~, DATA+15*, DATA+16*, DATA+17*, DATA+18*, DATA+20
GMRVX PCE+6~, PCE+18*, PCE+19*, PCE+20, DATA+5, DATA+8, DATA+10, DATA+20, DATA+23, DUPCHK+15
I ERROR~, ERROR+7
MSG ERROR+5~, ERROR+6*, ERROR+7
NODE ERROR+5~, ERROR+6*, ERROR+7
PIECE ERROR+5~, ERROR+6*, ERROR+7
PROVIDER ERROR~, ERROR+7
VALUE ERROR~, ERROR+7
VITALS DATA~, DATA+5, DATA+7, DATA+9, DATA+14, DATA+15, DATA+23
X ERROR+5~, ERROR+6*, DATA+9*, DATA+11*
>> Y DATA+9, DATA+12

Marked Items

Name Field # of Occurrence
$T(ERRTXT+CODE ERROR+6
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 |  Marked Items |  All