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

Package: Registration

Routine: DGPMTSI


Information

DGPMTSI ;ALB/LM - TREATING SPECIALTY INPATIENT INFO ; 6/15/93

Source Information

Source file <DGPMTSI.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Registration 4 START^DGPMTSI1  START^DGPMTSI2  START^DGPMTSO  FINDLAST^DGPMV32  

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
Registration 1 DGPMTS  

Entry Points

Name Comments DBIA/ICR reference
EN ; -- call to return coresp adm and mvt data of pt as of a date
; input: DFN => patient file ifn
; DGT => date to check if pt was inpatient
; output: DGA1 => coresp adm mvt ifn of ^DGPM
; DG1 => ward ^ room-bed ^ mvt type(for xfrs only)
; DGXFR0 => Oth of last xfr mvt for admission
; -- init
TR2
F
CA ; -- scan mvts for cor. adm that happened on or before DGT date
; -- if mvt is adm or xfr then set DG1
; -- if mvt is xfr then continue to XFR
TREAT1
START
TREAT
XFR ; -- set DG1="" if XFR to asih(oth fac) --ELSE-- add MVT type to DG1
CAQ

External References

Name Field # of Occurrence
START^DGPMTSI1 CA+5
START^DGPMTSI2 CA+5
START^DGPMTSO START+4
FINDLAST^DGPMV32 XFR+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" START+2, TR2
^DGPM - [#405] F, CA+4, XFR+8, TREAT1
^DGPM("APMV" CA+4, XFR+8
^DGPM("ATID1" F
^DGPM("ATS" TREAT1
^DIC(45.7 - [#45.7] TREAT+3
^DPT - [#2] START+3

Label References

Name Line Occurrences
CA F+1
EN START+3
TR2 TREAT1
TREAT CA+5
TREAT1 TREAT+1
XFR CA+4

Naked Globals

Name Field # of Occurrence
^( CA+4, XFR+8
^(0 CA+4, XFR+8, TREAT+3, TREAT1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % CA+4*, XFR+2, XFR+4, XFR+6, XFR+8*
>> DFN START+3*, F, CA+4, XFR+8, TREAT1
>> DG1 EN+8*, CA+4*, CA+5, CA+6*, XFR+2*, TREAT
>> DG2 TREAT+1*, TREAT+2*, TREAT+3*, TR2*
>> DGA1 F*, CA+4, XFR+6, XFR+8, TREAT1
DGCA EN+7!, F*, TR2
>> DGDA TREAT1*
DGDC EN+7!, F*, F+1
>> DGID TREAT1*
DGNO F+2!
DGPMAB XFR+5~, XFR+8
DGPMNI XFR+5~, XFR+6*
DGPMTN XFR+5~, XFR+6*
>> DGS CA+4*, TREAT1*, TR2
>> DGT START+1*, F, F+1, CA+4, TR2
>> DGTS START+3*, F*, CA+4*, TR2*
>> DGTSDT START*, START+1, START+2*
>> DGW CA+4*, XFR+8*, TR2+1*
>> DGX TREAT1*, TR2, TR2+1
>> DGXFR0 START+3*, XFR+2*
IAD EN+7!, F*
IMD EN+7!, CA+4*
IO("Q" START
MT EN+7!, CA+4*
>> PTCTS START*
>> PTLTS START*
>> PTLWD START*
>> TSXDT TREAT1*, TR2*
U F, TREAT+3
>> Y START+1*, START+2, TR2*
>> ZTSAVE("DGTSDT" START
>> ZTSAVE("PTCTS" START
>> ZTSAVE("PTLTS" START
>> ZTSAVE("PTLWD" START
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All