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

Package: Registration

Routine: DGPMV30


Information

DGPMV30 ;ALB/MIR - EDITS FOR DATE/TIME ;12 NOV 89 @8

Source Information

Source file <DGPMV30.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 3 C^%DTC  YN^DICN  ^DIE  
Registration 2 (RIN,WIN)^DGPMDDCF  SET^DGPMV32  
Kernel 1 H^XUS  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Registration 5 DGPMV21  DGPMV3  DGPMV321  DGPMV331  DGPMVDL1  

Entry Points

Name Comments DBIA/ICR reference
CHK ;Check new date/time for consistency with other movements
FAMT ;find active movement type
CHKLAST(DFN,DGCA,DGY,DGP) ;Function to confirm that patient is not on absence for time/date selected for TS transfer
CHKTSQ
WR
ASK
CHKTS(DFN,DGP,DGY) ;check previous and next ts transfer date/time

External References

Name Field # of Occurrence
C^%DTC CHK+17, CHK+18
RIN^DGPMDDCF CHK+10
WIN^DGPMDDCF CHK+9
SET^DGPMV32 CHK+18
YN^DICN ASK+1
^DIE ASK+5
H^XUS ASK+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"WARNING: By changing the date/time of this 'WHILE ASIH' discharge,",!?15,"you are permanently discharging this patient from the NHCU/DOM"
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !?15,"prior to the 30 days of ASIH allotted. The patient can not be",!?15,"returned to the NHCU/DOM except by readmission.",!!?15,"Are you sure you want to continue"
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!?5,"Enter 'Y'es to discharge the patient from the NHCU/DOM or 'N'o to",!?15,"continue patient's ASIH stay."
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !?5,*7,"NO CHANGE TO DATE/TIME MADE"
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !,*7," There is a",$S(X=1:"n admission",X=2:" transfer",X=3:" discharge",X=4:" check-in lodger",X=5:" check-out lodger",X=6:" specialty transfer",1:"")," movement on file for this patient on "
  • Line Location: WR+0
Function Call: WRITE
  • Prompt: Y,"."
  • Line Location: WR+0
Function Call: WRITE
  • Prompt: !!,"You ASIH movement types are not properly defined...Contact your site manager!","There is no movement type define for ",$P(^DG(405.2,DGMAS,0),"^",1)
  • Line Location: FAMT+7
Routine Call
  • DIE
  • Line Location:
    • ASK+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPM - [#405] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" WR
^DG(405.1 - [#405.1] FAMT+6, CHKLAST+13
^DG(405.2 - [#405.2] FAMT+7
^DGPM - [#405] CHK+1, CHK+3, CHK+4, CHK+5, CHK+6, CHK+16, CHK+26, CHKLAST+11
^DGPM("APCA" CHK+16, CHKLAST+11
^DGPM("APID" CHK+5
^DGPM("APMV" CHK+26
^DGPM("APRD" CHK+2, CHK+3
^DGPM("APTT4" CHK+2, CHK+4
^DGPM("APTT5" CHK+2
^DGPM("APTT6" CHK+2, CHKTS+6, CHKTS+7
^DGPM("ATID5" CHK+6
^DGPT("ACENSUS" CHK+21

Label References

Name Line Occurrences
$$CHKLAST CHK+7
$$CHKTS CHK+8
ASK ASK+2
CHKTSQ CHKTS+6
FAMT ASK+4, CHKLAST+12
WR CHK+3, CHK+4, CHK+5, CHK+6

Naked Globals

Name Field # of Occurrence
^( CHK+16, CHK+26, CHKLAST+11
^(0 CHK+3, CHK+4, CHK+5, CHK+6, CHK+16, CHK+21, CHK+26, FAMT+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK+1*, ASK+2, ASK+3
>> D0 CHK+9*, CHK+10*
>> DA ASK+5*
DFN CHK+2, CHK+3, CHK+4, CHK+5, CHK+6, CHK+7, CHK+8, CHK+16, CHK+26, CHKLAST~
, CHKLAST+11, CHKTS~, CHKTS+6, CHKTS+7
DGCA CHKLAST~, CHKLAST+11
DGFAC ASK+4, ASK+5!, FAMT+5*, FAMT+6*, FAMT+7, CHKLAST+10~, CHKLAST+13
DGMAS ASK+4*, FAMT+6, FAMT+7, FAMT+8!, CHKLAST+10~, CHKLAST+12*
>> DGNOW CHK+16
DGP CHKLAST~, CHKLAST+14, CHKTS~, CHKTS+6, CHKTS+7
>> DGPMAB CHK+18
>> DGPMAN CHK+18, CHK+21
>> DGPMCA CHK+1, CHK+7, CHK+16, CHK+26
>> DGPMDA CHK+1, ASK+5
>> DGPME CHK+1*, CHK+2*, CHK+3*, CHK+4*, CHK+5*, CHK+6*, CHK+7*, CHK+8*, CHK+9*, CHK+10*
, CHK+14*, CHK+17*, CHK+18*, CHK+19*, CHK+21*, CHK+23*, CHK+26*, ASK+1*
>> DGPMOS CHK+9*, CHK+10*
>> DGPMP CHK+3, CHK+4, CHK+5, CHK+6, CHK+7, CHK+8, CHK+9, CHK+10, CHK+12, CHK+18
, CHK+19, CHK+23, CHK+26, ASK+3
>> DGPMT CHK+1, CHK+7, CHK+8, CHK+11, CHK+21
>> DGPMTYP CHK+12*, CHK+14, CHK+16, CHK+23, CHK+24
>> DGPMUC CHK+3, CHK+4, CHK+5, CHK+6
>> DGPMY CHK+17, CHK+18, CHK+19, CHK+23, ASK+3*
DGTS1 CHKTS+4~, CHKTS+6*
DGTS2 CHKTS+4~, CHKTS+7*
DGX CHKLAST+10~, CHKLAST+11*
DGX0 CHKLAST+10~, CHKLAST+11*, CHKLAST+13
DGXTS CHK+8~*
DGY CHKLAST~, CHKLAST+11, CHKLAST+14, CHKTS~, CHKTS+6, CHKTS+7
DGZ CHKLAST+10~, CHKLAST+11*
>> DIE ASK+5*
>> DR ASK+5*
I CHK+16*, FAMT+5~, FAMT+6*
>> K CHK+16*, CHK+17
U CHK+1, CHKLAST+11
X CHK+3*, CHK+4*, CHK+5*, CHK+6*, CHK+9, CHK+10, CHK+17, CHK+18, CHK+19, CHK+26*
, WR*, CHKLAST+10~, CHKLAST+11*, CHKLAST+13*, CHKLAST+14*, CHKLAST+15, CHKTS+4~, CHKTS+5*, CHKTS+6*, CHKTS+7*
, CHKTSQ
>> X1 CHK+3*, CHK+4*, CHK+5*, CHK+6*, CHK+17*, CHK+18*
>> X2 CHK+17*, CHK+18*
>> Y CHK+1, CHK+2, CHK+3, CHK+4, CHK+5, CHK+6, CHK+7, CHK+8, WR*
>> Z CHK+3*, CHK+4*, CHK+5*, CHK+6*, WR
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