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

Package: Enterprise Health Management Platform

Routine: HMPOR


Information

HMPOR ;ASMR/CK,hrubovcak - Order file support;Feb 01, 2016 14:28:49

Source Information

Source file <HMPOR.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 3 (FILE,UPDATE)^DIE  ^DIK  ($$GET1,GETS)^DIQ  
Kernel 1 $$NOW^XLFDT  

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

Package Total Caller Graph
Enterprise Health Management Platform 2 HMPDJ01  HMPSTMP  

Entry Points

Name Comments DBIA/ICR reference
ADDFLAG(HMRSLT,HMVALS,HMORIFN,HMDFN,HMORLVL) ; LAYGO flag action into HMP SUBSCRIPTION file (#800000)
; HMRSLT - result, passed-by-ref., 1 on success else "-1^error message"
ADDORDR(HMRSLT,HMVALS,HMORIFN,HMDFN,HMORLVL) ; LAYGO order into HMP SUBSCRIPTION file (#800000), sub-file 800000.14
; HMRSLT - return value passed-by-ref., 1 on success else "-1^error message"
DELORDR(HMPDFN,HMIFN) ; delete entry in ORDERS sub-file
ORDRCHK(HMORIFN,HMDFN) ; Boolean function, does ORDER number HMPORIFN exist in ^HMP(800000) for patient HMDFN
; DE3504 - Jan 19, 2016
ORDRVALS(HMFLDS,HMORIFN) ; map ORDER ACTIONS (#100.008) to ORDERS sub-file (#800000.14) Feb 1, 2016
; HMFLDS returned by reference
; HMORIFN order IFN (Required)
SRVRNO(DFN4SRVR) ; function, return server number for patient DFN4SRVR, zero if not subscribed
UPDTORDR(HMRSLT,HMVALS,HMORIFN,HMDFN) ; update order in HMP SUBSCRIPTION file (#800000), sub-file 800000.14
; HMRSLT - return value passed-by-ref., 1 on success else "-1^error message"

External References

Name Field # of Occurrence
FILE^DIE UPDTORDR+20
UPDATE^DIE ADDFLAG+28, ADDORDR+24
^DIK DELORDR+6
$$GET1^DIQ ADDFLAG+16, ORDRVALS+9
GETS^DIQ ORDRVALS+10
$$NOW^XLFDT ADDFLAG+23, ADDFLAG+32, ADDORDR+23

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^OR(100 - [#100] GET1^DIQ,  GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^HMP(800000 - [#800000] ADDFLAG+18, ADDFLAG+21, ADDORDR+16, ORDRCHK+5, SRVRNO+2, SRVRNO+4, UPDTORDR+15
^OR(100 - [#100] ADDORDR+34, ADDORDR+35

Label References

Name Line Occurrences
$$SRVRNO ADDFLAG+13, ADDORDR+14, DELORDR+3, ORDRCHK+4, UPDTORDR+13
ADDFLAG ADDORDR+40, ADDORDR+45
ADDORDR ADDFLAG+24
UPDTORDR ADDFLAG+33

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A ADDORDR+13~, ADDORDR+29*, ADDORDR+37, ADDORDR+43
DA DELORDR+2~, DELORDR+5*
DA(1 DELORDR+5*
DA(2 DELORDR+5*
DFN4SRVR SRVRNO~, SRVRNO+2
DIK DELORDR+2~, DELORDR+4*
FLD ORDRVALS+4~, ORDRVALS+16*, ORDRVALS+17, ORDRVALS+18, ORDRVALS+19, ORDRVALS+20, ORDRVALS+21, ORDRVALS+22, ORDRVALS+23, ORDRVALS+24
, ORDRVALS+25, ORDRVALS+26, ORDRVALS+27, ORDRVALS+28
FMSG ADDFLAG+12~, ADDFLAG+35, ADDORDR+13~, ADDORDR+26, UPDTORDR+12~, UPDTORDR+22
HMDFN ADDFLAG~, ADDFLAG+9, ADDFLAG+13, ADDFLAG+18*, ADDFLAG+21, ADDFLAG+24, ADDFLAG+26, ADDFLAG+33, ADDORDR~, ADDORDR+10
, ADDORDR+14, ADDORDR+15, ADDORDR+16, ADDORDR+19, ADDORDR+40, ADDORDR+45, ORDRCHK~, ORDRCHK+4, ORDRCHK+5, UPDTORDR~
, UPDTORDR+9, UPDTORDR+13, UPDTORDR+14, UPDTORDR+15, UPDTORDR+17
HMERR ORDRVALS+4~, ORDRVALS+11
HMFDA ADDFLAG+12~, ADDORDR+13~, UPDTORDR+12~
HMFDA( ADDFLAG+27*, ADDORDR+20*, ADDORDR+22*, ADDORDR+23*, UPDTORDR+19*
HMFLDS ORDRVALS~, ORDRVALS+5!
HMFLDS( ORDRVALS+14*, ORDRVALS+17*, ORDRVALS+18*, ORDRVALS+19*, ORDRVALS+20*, ORDRVALS+21*, ORDRVALS+22*, ORDRVALS+23*, ORDRVALS+24*, ORDRVALS+25*
, ORDRVALS+26*, ORDRVALS+27*, ORDRVALS+28*
HMFLDS("ERR" ORDRVALS+6*, ORDRVALS+11*
HMIENS ADDFLAG+12~, ADDORDR+13~, ORDRVALS+4~, ORDRVALS+8*, ORDRVALS+9, ORDRVALS+10
HMIENS(1 ADDORDR+18*
HMIFN DELORDR~, DELORDR+5
HMORIFN ADDFLAG~, ADDFLAG+9, ADDFLAG+16, ADDFLAG+21, ADDFLAG+24, ADDFLAG+26, ADDFLAG+33, ADDORDR~, ADDORDR+10, ADDORDR+16
, ADDORDR+18, ADDORDR+20, ADDORDR+34, ADDORDR+35, ADDORDR+40, ADDORDR+45, ORDRCHK~, ORDRCHK+5, ORDRVALS~, ORDRVALS+6
, ORDRVALS+8, UPDTORDR~, UPDTORDR+9, UPDTORDR+15, UPDTORDR+17
HMORLVL ADDFLAG~, ADDFLAG+24, ADDORDR~, ADDORDR+28, ADDORDR+29
HMORVALS ORDRVALS+4~
HMORVALS( ORDRVALS+15, ORDRVALS+16
HMPDFN DELORDR~, DELORDR+3, DELORDR+4, DELORDR+5
HMRSLT ADDFLAG~, ADDFLAG+8*, ADDFLAG+14*, ADDFLAG+17*, ADDFLAG+18*, ADDFLAG+35*, ADDORDR~, ADDORDR+9*, ADDORDR+15*, ADDORDR+16*
, ADDORDR+26*, UPDTORDR~, UPDTORDR+8*, UPDTORDR+14*, UPDTORDR+15*, UPDTORDR+22*
HMSRVR ADDFLAG+12~, ADDFLAG+13*, ADDFLAG+14, ADDFLAG+18, ADDFLAG+21, ADDFLAG+26, ADDORDR+13~, ADDORDR+14*, ADDORDR+15, ADDORDR+16
, ADDORDR+19, UPDTORDR+12~, UPDTORDR+13*, UPDTORDR+14, UPDTORDR+15, UPDTORDR+17
HMVALS ADDFLAG~, ADDFLAG+22~, ADDFLAG+31~, ADDORDR~, UPDTORDR~
HMVALS( ADDFLAG+10, ADDFLAG+27, ADDORDR+22, UPDTORDR+19
HMVALS(0 ADDORDR+11, UPDTORDR+10
IEN ORDRVALS+4~, ORDRVALS+13*, ORDRVALS+15*, ORDRVALS+16
J ADDFLAG+12~, ADDFLAG+27*, ADDORDR+13~, ADDORDR+22*, ADDORDR+34*, ADDORDR+35, ADDORDR+37, ADDORDR+43, UPDTORDR+12~, UPDTORDR+19*
L ADDORDR+13~, ADDORDR+28*, ADDORDR+37, ADDORDR+43
ORENTDT ORDRVALS+4~, ORDRVALS+9*, ORDRVALS+14
RSLT ADDFLAG+22~, ADDFLAG+24, ADDFLAG+31~, ADDFLAG+33, ADDORDR+33~, ADDORDR+39!, ADDORDR+40, ADDORDR+44!, ADDORDR+45, ORDRCHK+2~
, ORDRCHK+3*, ORDRCHK+4, ORDRCHK+5*, ORDRCHK+6
SRVNM DELORDR+2~, DELORDR+3*, DELORDR+4, DELORDR+5, ORDRCHK+2~, ORDRCHK+4*, ORDRCHK+5, SRVRNO+1~, SRVRNO+2*, SRVRNO+3
, SRVRNO+4
SUB ADDFLAG+12~, ADDFLAG+26*, ADDFLAG+27, ADDORDR+13~, ADDORDR+19*, ADDORDR+20, ADDORDR+22, ADDORDR+23, UPDTORDR+12~, UPDTORDR+17*
, UPDTORDR+19
SUBFL ORDRVALS+4~, ORDRVALS+13*, ORDRVALS+15, ORDRVALS+16
U ADDORDR+36, ADDORDR+39, ADDORDR+41, ADDORDR+44
VALS ADDFLAG+22~, ADDFLAG+24, ADDFLAG+31~, ADDFLAG+33, ADDORDR+33~, ADDORDR+39!, ADDORDR+40, ADDORDR+44!, ADDORDR+45
VALS( ADDFLAG+23*, ADDFLAG+32*, ADDORDR+39*, ADDORDR+44*
X ADDFLAG+12~, ADDFLAG+16*, ADDFLAG+17, ADDFLAG+18
Y ADDORDR+33~, ADDORDR+35*, ADDORDR+36, ADDORDR+39, ADDORDR+41, ADDORDR+44, ORDRVALS+16*, ORDRVALS+17, ORDRVALS+18, ORDRVALS+19
, ORDRVALS+20, ORDRVALS+21, ORDRVALS+22, ORDRVALS+23, ORDRVALS+24, ORDRVALS+25, ORDRVALS+26, ORDRVALS+27, ORDRVALS+28

Marked Items

Name Field # of Occurrence
$T( ORDRVALS+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