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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: HMPDJ04A

Package: Enterprise Health Management Platform

Routine: HMPDJ04A


Information

HMPDJ04A ;ASMR/MKB - Admissions,PTF;Nov 12, 2015 16:42:22

Source Information

Source file <HMPDJ04A.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Enterprise Health Management Platform 7 $$FAC^HMPD  ADD^HMPDJ  ($$CPT,$$POV)^HMPDJ04  ($$AMIS,$$CATG,$$PTF,$$SERV)^HMPDVSIT  ADD^HMPMETA  $$EN^HMPSTMP  ($$JSONDT,$$SETNCS,$$SETUID,FACILITY)^HMPUTILS  
VA FileMan 3 FIND^DIC  $$EXTERNAL^DILFD  $$GET1^DIQ  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  
DRG Grouper 1 $$ICDDX^ICDEX  
Registration 1 (IN5,INP)^VADPT  

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 HMPDJ0  HMPDJ04  

Entry Points

Name Comments DBIA/ICR reference
ADM(ID,DATE) ; -- admission [from VSIT1]
TIU(VISIT,ARR) ; -- add notes to ARR("document")
PROV(ARR,I,IEN,ROLE,PRIM) ; -- add providers
MVT(CA) ; -- add movements to ADM("movement",i,"attribute")
PTFA(HMPLID) ; -- find ID in ^PXRMINDX(45) and call PTF1 if successful
PTF1 ; Set PTF data into PTF array
VISIT(DFN,DATE) ; -- Return visit# for admission

External References

Name Field # of Occurrence
FIND^DIC TIU+2
$$EXTERNAL^DILFD MVT+7, MVT+12
$$GET1^DIQ ADM+12, ADM+14, ADM+19, ADM+22, ADM+23, ADM+24, TIU+7, PROV+2, MVT+10, MVT+14
, MVT+17, PTF1+25, PTF1+29
$$FAC^HMPD ADM+19, MVT+14, PTF1+32
ADD^HMPDJ ADM+45, PTF1+44
$$CPT^HMPDJ04 ADM+37
$$POV^HMPDJ04 ADM+34
$$AMIS^HMPDVSIT ADM+24
$$CATG^HMPDVSIT ADM+37
$$PTF^HMPDVSIT ADM+34
$$SERV^HMPDVSIT ADM+17
ADD^HMPMETA ADM+44, PTF1+43
$$EN^HMPSTMP ADM+41, PTF1+33
$$JSONDT^HMPUTILS ADM+9, ADM+31, MVT+6, PTF1+30, PTF1+31
$$SETNCS^HMPUTILS ADM+36, PTF1+40
$$SETUID^HMPUTILS ADM+7, ADM+20, TIU+8, PROV+1, MVT+9, MVT+15, PTF1+15, PTF1+26
FACILITY^HMPUTILS ADM+28, PTF1+32
$$ICDDX^ICDEX PTF1+39
$$CPT^ICPTCOD ADM+37
IN5^VADPT ADM+5
INP^VADPT PTF1+22

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^DGPM - [#405] EXTERNAL^DILFD
^DIC(42 - [#42] GET1^DIQ
^SC - [#44] GET1^DIQ
^DGPT - [#45] GET1^DIQ
^TIU(8925 - [#8925] FIND^DIC,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT("AAH" VISIT+3
^DGPM - [#405] MVT+4
^DGPM("APCA" MVT+3
^PXRMINDX(45 PTFA+18, PTFA+19, PTFA+20, PTFA+21, PTFA+22
^TMP("HMPPX" PTFA+26*, PTFA+27, PTFA+29!, PTF1+13

Label References

Name Line Occurrences
$$VISIT ADM+8
MVT ADM+38
PROV ADM+32, ADM+33
PTF1 PTFA+28

Naked Globals

Name Field # of Occurrence
^( MVT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADM ADM+1~
ADM("categoryCode" ADM+29*
ADM("categoryName" ADM+29*
ADM("current" ADM+13*
ADM("dateTime" ADM+9*
ADM("lastUpdateTime" ADM+41*, ADM+42
ADM("localId" ADM+7*
ADM("locationName" ADM+23*, ADM+27
ADM("locationUid" ADM+20*
ADM("movements" MVT+5*, MVT+6*, MVT+7*, MVT+9*, MVT+10*, MVT+12*, MVT+15*, MVT+17*
ADM("patientClassCode" ADM+30*
ADM("patientClassName" ADM+30*
ADM("reasonName" ADM+35*, ADM+36*
ADM("reasonUid" ADM+36*
ADM("roomBed" ADM+10*, ADM+14*
ADM("service" ADM+17*, ADM+27
ADM("shortLocationName" ADM+22*
ADM("specialty" ADM+16*
ADM("stampTime" ADM+42*, ADM+44
ADM("stay" ADM+9*, ADM+31*
ADM("stopCodeName" ADM+26*
ADM("stopCodeUid" ADM+26*
ADM("summary" ADM+27*
ADM("typeName" ADM+37*
ADM("uid" ADM+7*, ADM+44
ARR TIU~, PROV~, PROV+1, PROV+2, PROV+3, PROV+4
ARR("documents" TIU+8*, TIU+9*, TIU+10*
CA MVT~, MVT+3
CNT TIU+1~, TIU+3*, TIU+8*, TIU+9, TIU+10, MVT+1~*, MVT+4*, MVT+5, MVT+6, MVT+7
, MVT+9, MVT+10, MVT+12, MVT+15, MVT+17
DA TIU+1~, TIU+6*, TIU+7, TIU+8, MVT+1~, MVT+3*, MVT+4, MVT+5
DATE ADM~, ADM+2*, ADM+3, ADM+8*, ADM+9, MVT+1~*, MVT+3*, MVT+6, VISIT~, VISIT+2
DFN ADM+7, ADM+8, ADM+12, ADM+14, ADM+34, TIU+8, MVT+3, PTFA+19, PTFA+20, PTFA+21
, PTFA+22, PTF1+15, PTF1+26, VISIT~, VISIT+3
FAC ADM+1~, ADM+19*, ADM+28, MVT+14*
HLOC ADM+1~, ADM+19*, ADM+20, ADM+22, ADM+23, ADM+24, MVT+14*, MVT+15, MVT+17
HMPADM PTF1+12~, PTF1+27*, PTF1+30
HMPADMIT ADM+15!
HMPDIS PTF1+12~, PTF1+20*, PTF1+21, PTF1+31
HMPDT PTFA+14~, PTFA+21*, PTFA+22, PTFA+24, PTFA+25
HMPDX PTFA+14~, PTFA+20*, PTFA+21, PTFA+22, PTFA+25, PTF1+36*, PTF1+39
HMPFAC PTF1+12~, PTF1+32*
HMPID PTFA+14~, PTFA+15*, PTFA+23
HMPISYS PTFA+14~, PTFA+18*, PTFA+19, PTFA+20, PTFA+21, PTFA+22, PTFA+25, PTF1+12~, PTF1+37*, PTF1+38*
, PTF1+39
HMPITEM PTFA+14~, PTFA+22*, PTFA+23
HMPLEN PTFA+14~, PTFA+15*
HMPLID PTFA~, PTFA+15, PTFA+26, PTF1+13, PTF1+14, PTF1+15, PTF1+16, PTF1+17, PTF1+25
HMPLOC PTF1+12~, PTF1+29*, PTF1+32
>> HMPMETA ADM+44, PTF1+43
HMPP PTF1+12~, PTF1+16*, PTF1+17
HMPRDT PTFA+14~, PTFA+24*, PTFA+26, PTF1+13
HMPTMP PTF1+12~, PTF1+13*, PTF1+20, PTF1+36, PTF1+37
HMPTYP PTFA+14~, PTFA+15*, PTFA+19, PTFA+20, PTFA+21, PTFA+22, PTF1+12~, PTF1+17*, PTF1+18, PTF1+19
HMPX TIU+1~, PTFA+14~, PTFA+25*, PTFA+26, PTF1+12~, PTF1+39*, PTF1+40, PTF1+41
HMPX("DILIST" TIU+4, TIU+5, TIU+6
HMPY TIU+1~
I ADM+1~, ADM+12*, ADM+32*, ADM+33*, TIU+1~, TIU+3*, TIU+4*, TIU+5, TIU+6, PROV~
, PROV+1, PROV+2, PROV+3, PROV+4
ICD ADM+1~, ADM+34*, ADM+35, ADM+36
ID ADM~, ADM+2*, ADM+3, ADM+4, ADM+6*, ADM+7
IEN PROV~, PROV+1, PROV+2
LT TIU+1~, TIU+5*, TIU+9
MVT ADM+1~, ADM+12*, ADM+13*, ADM+16, ADM+19, ADM+33, ADM+35
NT TIU+1~, TIU+7*, TIU+10
PRIM PROV~, PROV+4
PTF PTF1+12~
PTF("admissionUid" PTF1+26*
PTF("arrivalDateTime" PTF1+30*
PTF("dischargeDateTime" PTF1+31*
PTF("drg" PTF1+25*
PTF("icdCode" PTF1+40*
PTF("icdName" PTF1+41*
PTF("lastUpdateTime" PTF1+33*, PTF1+34
PTF("localId" PTF1+14*
PTF("principalDx" PTF1+18*
PTF("stampTime" PTF1+34*, PTF1+43
PTF("uid" PTF1+15*, PTF1+43
ROLE PROV~, PROV+3
SPEC ADM+1~, ADM+16*, ADM+17
U ADM+10, ADM+16, ADM+26, ADM+36, ADM+37, MVT+7, MVT+8, MVT+11, MVT+14, PTFA+25
, PTF1+20, PTF1+36, PTF1+37, PTF1+40, PTF1+41
VADMVT ADM+1~, ADM+6*, ADM+12, ADM+38
VAERR ADM+1~
VAIN PTF1+12~
VAIN(1 PTF1+23, PTF1+26
VAIN(4 PTF1+29
VAIN(7 PTF1+27
VAINDT PTF1+12~, PTF1+21*
VAIP ADM+1~
VAIP( ADM+16, ADM+19, ADM+33, ADM+35
VAIP("D" ADM+3*
VAIP("E" ADM+4*
VAIP(1 ADM+5
VAIP(12 ADM+34
VAIP(13 ADM+6, ADM+8
VAIP(17 ADM+31
VAIP(18 ADM+32
VAIP(6 ADM+10
VISIT TIU~, TIU+2
>> VST ADM+3*, ADM+4*, ADM+8*, ADM+34, ADM+37
X ADM+14*, ADM+17*, ADM+22*, ADM+24*, ADM+26, ADM+37*, TIU+1~, MVT+1~, MVT+8*, MVT+9
, MVT+10, MVT+11*, MVT+12, VISIT+1~, VISIT+2*, VISIT+3
>> X0 MVT+4*, MVT+7, MVT+8, MVT+11, MVT+14
Y TIU+1~, TIU+3*, VISIT+1~, VISIT+3*, VISIT+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All