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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: EHMDISH1

Package: Electronic Health Modernization

Routine: EHMDISH1


Information

EHMDISH1 ;ALB/WTC - EHRM - AUTOMATED PATIENT DISCHARGE TOOL; Feb 25, 2025@11:33:31

Source Information

Source file <EHMDISH1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 2 $$GET1^DIQ  ^DIR  
Electronic Health Modernization 1 ($$CENTER,$$CONTINUE,$$DASHES,$$DATETIME,$$INSTFLTR,$$WARDFLTR)^EHMDISCH  
Registration 1 DEM^VADPT  
Scheduling 1 $$SDAPI^SDAMA301  

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
Electronic Health Modernization 1 EHM_DISCHARGE INPT APPT  

Entry Points

Name Comments DBIA/ICR reference
INAPPT ;
INAPPT1 ; TaskMan start point
BLDLIST(SORTBY,INSTFLTR,WARDFLTR,CONVDATE,QUEUED) ;
HEADER(INSTNAME,STATION,SORTBY) ;
PAGINATE(QUIT,INSTNAME,STATION,SORTBY,LINES) ;

External References

Name Field # of Occurrence
^%ZIS INAPPT+14
^%ZISC INAPPT1+39
^%ZTLOAD INAPPT+22
$$GET1^DIQ INAPPT1+11, INAPPT1+20, INAPPT1+27, INAPPT1+33
^DIR INAPPT+9, INAPPT+11
$$CENTER^EHMDISCH HEADER+2
$$CONTINUE^EHMDISCH INAPPT1+23, INAPPT1+35, PAGINATE+5
$$DASHES^EHMDISCH HEADER+5, HEADER+9
$$DATETIME^EHMDISCH INAPPT1+20, INAPPT1+33
$$INSTFLTR^EHMDISCH INAPPT+6
$$WARDFLTR^EHMDISCH INAPPT+7
$$SDAPI^SDAMA301 BLDLIST+20, BLDLIST+27
DEM^VADPT BLDLIST+16
$$FMTE^XLFDT INAPPT+11, HEADER+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Report is 132 columns wide",!
  • Line Location: INAPPT+13
Function Call: WRITE
  • Prompt: $S($D(ZTSK):"...Task queued",1:"...Task cancelled"),!
  • Line Location: INAPPT+22
Function Call: WRITE
  • Prompt: !,"Sorting patients within ward..."
  • Line Location: INAPPT1+2
Function Call: WRITE
  • Prompt: !,"Sorting patients..."
  • Line Location: INAPPT1+3
Function Call: WRITE
  • Prompt: $S(FIRST:WARD,1:""),?32,PTNAME,?64,SSN4,?70,$$GET1^DIQ(44,$P(X,U,1),.01),?102,$$DATETIME^EHMDISCH(APPTDTTM),!
  • Line Location: INAPPT1+20
Function Call: WRITE
  • Prompt: !
  • Line Location: INAPPT1+21
Function Call: WRITE
  • Prompt: PTNAME,?32,SSN4,?38,$$GET1^DIQ(44,$P(X,U,1),.01),?70,$$DATETIME^EHMDISCH(APPTDTTM),!
  • Line Location: INAPPT1+33
Function Call: WRITE
  • Prompt: !
  • Line Location: INAPPT1+37
Function Call: READ
  • Formatting: !
  • Prompt: "Press [RETURN] to continue"
  • Variable: X
  • Timeout: $G(DTIME,300)
  • Line Location: INAPPT1+38
Function Call: WRITE
  • Prompt: @IOF,$$CENTER^EHMDISCH("Patient Discharge List - Inpatient Appointments",IOM),?IOM-8,$$FMTE^XLFDT(DT,2),!,$$CENTER^EHMDISCH(INSTNAME_" ("_STATION_")",IOM),!!
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: "WARD",?32,"PATIENT",?64,"SSN4",?70,"CLINIC",?102,"APPOINTMENT DATE/TIME",!
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: $$DASHES^EHMDISCH(30),?32,$$DASHES^EHMDISCH(30),?64,$$DASHES^EHMDISCH(4),?70,$$DASHES^EHMDISCH(30),?102,$$DASHES^EHMDISCH(21),!
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: "PATIENT",?32,"SSN4",?38,"CLINIC",?70,"APPOINTMENT DATE/TIME",!
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: $$DASHES^EHMDISCH(30),?32,$$DASHES^EHMDISCH(4),?38,$$DASHES^EHMDISCH(30),?70,$$DASHES^EHMDISCH(21),!
  • Line Location: HEADER+9
Routine Call
  • %ZIS
  • Line Location:
    • INAPPT+14
Routine Call
  • DIR
  • Line Location:
    • INAPPT+9
    • INAPPT+11

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] BLDLIST+13
^DPT("CN" BLDLIST+10, BLDLIST+14
^SC - [#44] BLDLIST+11, BLDLIST+12
^SC("B" BLDLIST+12
^TMP($J INAPPT1+4!, INAPPT1+10, INAPPT1+12, INAPPT1+15, INAPPT1+16, INAPPT1+26, INAPPT1+28, INAPPT1+29, INAPPT1+39!, BLDLIST+10!
, BLDLIST+20*, BLDLIST+21, BLDLIST+22*, BLDLIST+23!, BLDLIST+27*, BLDLIST+28, BLDLIST+29*, BLDLIST+30!

Label References

Name Line Occurrences
BLDLIST INAPPT1+6
HEADER INAPPT1+11, INAPPT1+27, PAGINATE+5, PAGINATE+9
PAGINATE INAPPT1+18, INAPPT1+31

Naked Globals

Name Field # of Occurrence
^( INAPPT1+16, INAPPT1+29, BLDLIST+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS INAPPT+14*
ADMPTR BLDLIST+8~, BLDLIST+14*
APPTDTTM INAPPT+4~, INAPPT1+16*, INAPPT1+20, INAPPT1+29*, INAPPT1+33, BLDLIST+8~, BLDLIST+21*, BLDLIST+22*, BLDLIST+28*, BLDLIST+29*
CONVDATE INAPPT+4~, INAPPT+11*, INAPPT1+6, BLDLIST~, BLDLIST+19, BLDLIST+26
COUNT BLDLIST+8~, BLDLIST+20*, BLDLIST+27*
DFN INAPPT+4~, INAPPT1+16*, INAPPT1+29*, BLDLIST+8~, BLDLIST+14*, BLDLIST+19, BLDLIST+20, BLDLIST+21, BLDLIST+22, BLDLIST+26
, BLDLIST+27, BLDLIST+28, BLDLIST+29
DIR INAPPT+4~, INAPPT+11!
DIR("A" INAPPT+9*, INAPPT+11*
DIR("B" INAPPT+11*
DIR(0 INAPPT+9*, INAPPT+11*
DIRUT INAPPT+4~, INAPPT+9, INAPPT+11
DT INAPPT+11, HEADER+2
DTIME INAPPT1+38
FIRST INAPPT+4~, INAPPT1+16*, INAPPT1+20*
IEN INAPPT+4~, INAPPT1+11*, INAPPT1+27*, BLDLIST+8~, BLDLIST+12*
INCLUDE BLDLIST+8~
INSTFLTR INAPPT+4~, INAPPT+6*, INAPPT+7, INAPPT1+6, BLDLIST~, BLDLIST+12
INSTNAME INAPPT+4~, INAPPT1+11*, INAPPT1+18, INAPPT1+27*, INAPPT1+31, BLDLIST+8~, BLDLIST+13*, BLDLIST+20, BLDLIST+22, BLDLIST+27
, BLDLIST+29, HEADER~, HEADER+2, PAGINATE~, PAGINATE+5, PAGINATE+9
INSTUTN INAPPT+4~, INAPPT1+10*, INAPPT1+11, INAPPT1+12, INAPPT1+15, INAPPT1+16, INAPPT1+26*, INAPPT1+27, INAPPT1+28, INAPPT1+29
, BLDLIST+8~, BLDLIST+12*, BLDLIST+13, BLDLIST+20, BLDLIST+22, BLDLIST+27, BLDLIST+29
IO INAPPT1+7, INAPPT1+38, PAGINATE+5, PAGINATE+9
IO("Q" INAPPT+18
IOF HEADER+2
IOM HEADER+2
IOSL PAGINATE+5, PAGINATE+9
LINES INAPPT+4~, INAPPT1+12*, INAPPT1+18, INAPPT1+20*, INAPPT1+21*, INAPPT1+28*, INAPPT1+29*, INAPPT1+31, INAPPT1+33*, PAGINATE~
, PAGINATE+5*, PAGINATE+9*
POP INAPPT+4~, INAPPT+14
PTNAME INAPPT+4~, INAPPT1+14*, INAPPT1+15*, INAPPT1+16, INAPPT1+20, INAPPT1+28*, INAPPT1+29, INAPPT1+33
QUEUED INAPPT+4~, INAPPT+18*, INAPPT1+2, INAPPT1+3, INAPPT1+6, INAPPT1+18, INAPPT1+23, INAPPT1+31, INAPPT1+35, INAPPT1+38
, BLDLIST~, BLDLIST+14
QUIT INAPPT+4~, INAPPT1+10*, INAPPT1+12, INAPPT1+15, INAPPT1+16, INAPPT1+18, INAPPT1+23*, INAPPT1+26*, INAPPT1+28, INAPPT1+29
, INAPPT1+31, INAPPT1+35*, INAPPT1+37, PAGINATE~, PAGINATE+5*
SDA BLDLIST+8~, BLDLIST+19!, BLDLIST+20, BLDLIST+26!, BLDLIST+27
SDA("FLDS" BLDLIST+19*, BLDLIST+26*
SDA("MAX" BLDLIST+19*, BLDLIST+26*
SDA(1 BLDLIST+19*, BLDLIST+26*
SDA(3 BLDLIST+19*, BLDLIST+26*
SDA(4 BLDLIST+19*, BLDLIST+26*
SDIEN BLDLIST+8~, BLDLIST+21*, BLDLIST+22, BLDLIST+28*, BLDLIST+29
SORTBY INAPPT+4~, INAPPT+9*, INAPPT1+2, INAPPT1+3, INAPPT1+6, INAPPT1+9, INAPPT1+11, INAPPT1+18, INAPPT1+25, INAPPT1+27
, INAPPT1+31, BLDLIST~, BLDLIST+18, BLDLIST+25, HEADER~, HEADER+3, HEADER+7, PAGINATE~, PAGINATE+5, PAGINATE+9
SSN4 INAPPT+4~, INAPPT1+16*, INAPPT1+20, INAPPT1+29*, INAPPT1+33, BLDLIST+8~, BLDLIST+16*, BLDLIST+20, BLDLIST+27
STATION INAPPT+4~, INAPPT1+11*, INAPPT1+18, INAPPT1+27*, INAPPT1+31, HEADER~, HEADER+2, PAGINATE~, PAGINATE+5, PAGINATE+9
U INAPPT+7, INAPPT1+11, INAPPT1+20, INAPPT1+27, INAPPT1+33, BLDLIST+11, BLDLIST+12, BLDLIST+13, BLDLIST+16, BLDLIST+20
, BLDLIST+22, BLDLIST+27, BLDLIST+29
VADM INAPPT+4~, BLDLIST+8~, BLDLIST+16!
VADM(1 BLDLIST+20, BLDLIST+22, BLDLIST+27, BLDLIST+29
VADM(2 BLDLIST+16
WARD INAPPT+4~, INAPPT1+12*, INAPPT1+15, INAPPT1+16, INAPPT1+20, BLDLIST+8~, BLDLIST+10*, BLDLIST+11, BLDLIST+12, BLDLIST+14
, BLDLIST+20, BLDLIST+22
WARDFLTR INAPPT+4~, INAPPT+7*, INAPPT1+6, BLDLIST~, BLDLIST+11
X INAPPT+4~, INAPPT1+16*, INAPPT1+20, INAPPT1+29*, INAPPT1+33, INAPPT1+38*, BLDLIST+8~
Y INAPPT+4~, INAPPT+9, INAPPT+11
ZTDESC INAPPT+19~, INAPPT+20*
ZTRTN INAPPT+19~, INAPPT+20*
ZTSAVE INAPPT+19~
ZTSAVE("*" INAPPT+21*
ZTSK INAPPT+19~, INAPPT+22
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All