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

Package: Registration

Routine: DGPMV331


Information

DGPMV331 ;ALB/MIR - ASIH DISCHARGE PROCESSING ; 11 JAN 89 @9

Source Information

Source file <DGPMV331.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Registration 5 NEW^DGPMV3  FAMT^DGPMV30  SET^DGPMV32  ASIHOF^DGPMV321  SPEC^DGPMV36  
VA Fileman 2 ^DIE  ^DIK  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Registration 3 DGPMV321  DGPMV322  DGPMV33  

Entry Points

Name Comments DBIA/ICR reference
CRXFR ;for FROM ASIH and CONTINUED ASIH (O.F.), create corresponding transfer
ASIH ;if admission type was TO ASIH...
UNDO ;delete discharge/transfer is time-out during transfer
Q
DEL ;delete the NHCU discharge if FROM ASIH - called from transfer, too
SPEC ;ask specialty on return?

External References

Name Field # of Occurrence
NEW^DGPMV3 CRXFR+3
FAMT^DGPMV30 CRXFR+1
SET^DGPMV32 UNDO+3
ASIHOF^DGPMV321 UNDO+3
SPEC^DGPMV36 SPEC+1
^DIE ASIH+5, ASIH+6, ASIH+7, DEL+6, CRXFR+2, CRXFR+6, CRXFR+9
^DIK DEL+4, UNDO+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,*7,"Time-out during ASIH movement...now deleting discharge and transfer"
  • Line Location: UNDO+1
Routine Call
  • DIE
  • Line Location:
    • ASIH+5
    • ASIH+6
    • ASIH+7
    • DEL+6
    • CRXFR+2
    • CRXFR+6
    • CRXFR+9

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(405.1 - [#405.1] SPEC+1
^DGPM - [#405] ASIH+1, ASIH+4, ASIH+5, DEL+1, DEL+2, DEL+4, DEL+5, CRXFR+4, CRXFR+6, CRXFR+7
, CRXFR+8, CRXFR+9, UNDO+3
^DGPM("APMV" CRXFR+7, CRXFR+8
^DGPT - [#45] ASIH+7, DEL+6
^UTILITY("DGPM" ASIH+5*, DEL+3*, DEL+4*, DEL+5*, CRXFR+4*, CRXFR+6*, CRXFR+9*, UNDO+2*

Label References

Name Line Occurrences
CRXFR ASIH+2
DEL ASIH+2
Q ASIH+2, ASIH+4
SPEC CRXFR+6, CRXFR+9
UNDO CRXFR+6

Naked Globals

Name Field # of Occurrence
^( CRXFR+7, CRXFR+8
^("A" DEL+4*
^("P" ASIH+5, DEL+4
^(0 ASIH+1, ASIH+4, CRXFR+7, CRXFR+8, UNDO+3, SPEC+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA ASIH+4*, ASIH+5, ASIH+6*, ASIH+7*, DEL+1*, DEL+2, DEL+4, DEL+6*, CRXFR+2*, CRXFR+6*
, CRXFR+9, UNDO+2*
>> DFN CRXFR+3, CRXFR+7, CRXFR+8
DG ASIH+5!, ASIH+6!, ASIH+7!, DEL+6!, CRXFR+2!, CRXFR+6!, CRXFR+9!
DGFAC CRXFR+1!
DGHX CRXFR+1*, SPEC+1, SPEC+2!
>> DGMAS CRXFR+1*
>> DGPM0ND CRXFR+3*
>> DGPMA ASIH+2, ASIH+3, ASIH+5, ASIH+7, CRXFR+1, CRXFR+3, CRXFR+5, UNDO+3
DGPMAA ASIH+1*, ASIH+4, ASIH+7, Q!, DEL+1, DEL+3, DEL+6
DGPMAI ASIH+1*, Q!, DEL+3, DEL+5, CRXFR+3, CRXFR+7, CRXFR+8
DGPMAN ASIH+1, CRXFR+7, UNDO+3~*
DGPMCA UNDO+3~*
>> DGPMDA ASIH+6, CRXFR+2, UNDO+2
>> DGPMER UNDO+1*
>> DGPMP ASIH+3
>> DGPMT DEL+7
DGPMXMT Q!, CRXFR+6*, UNDO+2, SPEC+1
>> DGX CRXFR+1*, CRXFR+3, CRXFR+5*, CRXFR+6
>> DIE ASIH+5*, ASIH+6*, ASIH+7*, DEL+6*, CRXFR+2*, CRXFR+6*
>> DIE("NO^" CRXFR+3*, CRXFR+6*
>> DIK DEL+4*, UNDO+2*
DQ ASIH+5!, ASIH+6!, ASIH+7!, DEL+6!, CRXFR+2!, CRXFR+6!, CRXFR+9!
>> DR ASIH+5*, ASIH+6*, ASIH+7*, DEL+6*, CRXFR+2*, CRXFR+6*, CRXFR+8*
>> I CRXFR+7*, CRXFR+8*
>> J CRXFR+7*, CRXFR+8*
>> X CRXFR+3*, CRXFR+7*, CRXFR+8*
>> Y CRXFR+4, CRXFR+6, SPEC+1*
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