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

Package: Registration

Routine: DGPMV31


Information

DGPMV31 ;ALB/MIR - CONTINUE ADMIT PROCESS ; 12 SEP 89 @12

Source Information

Source file <DGPMV31.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Registration 6 CK^DGBLRV  AB^DGPMV32  SPEC^DGPMV36  ^DGPMVBUL  ADM^DGPMVODS  CREATE^DGPTFCR  
VA FileMan 3 C^%DTC  ^DIE  ^DIK  
Kernel 1 $$FMTE^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
UP
PTF
DQ
DICS
DICSQ
ASIH ;update corresponding transfer and NHCU/DOM discharge episodes
KILL
SA
WR

External References

Name Field # of Occurrence
C^%DTC ASIH+4, ASIH+5
CK^DGBLRV DGPMV31+6
AB^DGPMV32 DGPMV31+7
SPEC^DGPMV36 DGPMV31+3
^DGPMVBUL DGPMV31+6
ADM^DGPMVODS PTF+14
CREATE^DGPTFCR PTF+5
^DIE DGPMV31+5, PTF+3, PTF+7, PTF+12, ASIH+3, ASIH+6
^DIK KILL
$$FMTE^XLFDT UP+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This patient has the following waiting list entries on file:"
  • Line Location: UP+2
Function Call: WRITE
  • Prompt: !?5,"TO: ",$S($D(^DG(40.8,+^DGWAIT(I,0),0)):$E($P(^(0),"^",1),1,20),1:"")
  • Line Location: UP+6
Function Call: WRITE
  • Prompt: ?32,"APPLIED: ",$$FMTE^XLFDT($P(X,"^",2)),?63,"BEDSECTION: ",$P(X,"^",5)
  • Line Location: UP+7
Function Call: WRITE
  • Prompt: !!,"Please delete from the waiting list if necessary.",!
  • Line Location: UP+8
Function Call: WRITE
  • Prompt: !,"Updating corresponding NHCU/DOM movements"
  • Line Location: ASIH+1
Function Call: WRITE
  • Prompt: !,"Incomplete admission...Deleted"
  • Line Location: KILL+0
Function Call: WRITE
  • Prompt: !,"This patient has the following scheduled admissions on file:"
  • Line Location: WR+0
Function Call: WRITE
  • Prompt: !?5,Y,?25,$S($P(J,"^",10)="W":"WARD: "_$S($D(^DIC(42,+$P(J,"^",8),0)):$P(^(0),"^",1),1:""),$P(J,"^",10)="T":"FACILITY TREATING SPECIALTY: "_$S($D(^DIC(45.7,+$P(J,"^",9),0)):$P(^(0),"^",1),1:""),1:"")
  • Line Location: WR+1
Routine Call
  • DIE
  • Line Location:
    • DGPMV31+5
    • PTF+3
    • PTF+7
    • PTF+12
    • ASIH+3
    • ASIH+6

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" SA+1
^DG(40.8 - [#40.8] UP+6
^DGPM - [#405] DICS+1, DICS+3, DICS+4, ASIH+3, ASIH+4, ASIH+5, ASIH+6
^DGPM("APHY" DGPMV31+3
^DGPM("ATID1" DICS+4
^DGPT - [#45] PTF+2, PTF+3
^DGS(41.1 - [#41.1] DGPMV31+5, SA, SA+1
^DGWAIT - [#42.5] UP+5, UP+6
^DGWAIT("C" UP+1, UP+3, UP+4
^DIC(42 - [#42] DICS+4, WR+1
^DIC(45.7 - [#45.7] WR+1
^UTILITY("DGPM" ASIH+3*, ASIH+6*

Label References

Name Line Occurrences
ASIH UP
DICSQ DICS+4
DQ DGPMV31+2, DGPMV31+3, PTF+3, PTF+5
KILL DGPMV31+2, DGPMV31+3
PTF UP+1
SA DGPMV31+8
WR SA+1

Naked Globals

Name Field # of Occurrence
^( UP+1, DICS+4
^("P" ASIH+3, ASIH+6
^(0 UP+6, PTF+3, DICS+4, ASIH+4, ASIH+5, SA+1, WR+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA DGPMV31+5*, PTF+3*, PTF+7*, PTF+11*, DICS+1, DICS+3, ASIH+2*, ASIH+3, ASIH+5*, ASIH+6
, KILL*
>> DFN UP+1, UP+3, UP+4, DICS+4, SA, SA+1
DG PTF+3!, PTF+7!, ASIH+3!, ASIH+6!
DGCT SA*, SA+1*, SA+2!, WR
DGELA PTF+1~, PTF+2*
>> DGER DICS*, DICS+1*, DICS+5*, DICSQ*
DGI SA+1*, SA+2!
>> DGPMA DGPMV31+2, DGPMV31+7, UP, UP+1, PTF, PTF+3, PTF+5, DQ, ASIH+2, ASIH+4
, ASIH+5, KILL*
>> DGPMABL DGPMV31+7
>> DGPMDA DGPMV31+3, DGPMV31+5, PTF+7, KILL
>> DGPMDER DGPMV31+4*
>> DGPMN DGPMV31+2, DGPMV31+3, DGPMV31+5, DGPMV31+6, DGPMV31+7, PTF+5
>> DGPMND DGPMV31+7*
>> DGPMOUT DGPMV31+2, DGPMV31+3
>> DGPMP DGPMV31+7, UP, DQ, ASIH+4
>> DGPMSA DGPMV31+5
>> DGPMSVC DGPMV31+4
>> DGPMTYP DICS, DICS+2
>> DGX DICS+4*, ASIH+4*, ASIH+5
>> DGX1 DICS+3*, DICS+4*
DGX2 ASIH+4*, ASIH+5!
>> DGY DICS+4*
>> DIE DGPMV31+5*, PTF+3*, PTF+7*, PTF+10*, ASIH+2*, ASIH+6*
>> DIE("NO^" DGPMV31+3*
DIK KILL*!
DQ PTF+3!, PTF+7!, ASIH+3!, ASIH+6!
>> DR DGPMV31+5*, PTF+3*, PTF+7*, PTF+10*, PTF+11*, ASIH+2*, ASIH+6*
>> I UP+3*, UP+4, UP+5, UP+6
J UP+4*, UP+5, SA+1*, SA+2!, WR+1
>> PTF PTF*, PTF+2, PTF+3, PTF+6*, PTF+11
U PTF+2
>> X UP+1*, UP+5*, UP+7, ASIH+4, ASIH+6
>> X1 ASIH+4*, ASIH+5*
>> X2 ASIH+4*, ASIH+5*
Y DGPMV31+3*, UP+1*, PTF+5*, PTF+6, PTF+7, SA+1*, SA+2!, WR+1
Info |  Source |  Call 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