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

Package: Registration

Routine: DGPMV36


Information

DGPMV36 ;ALB/MIR - TREATING SPECIALTY TRANSFER, CONTINUED ; 8/6/04 10:17am

Source Information

Source file <DGPMV36.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 4 YN^DICN  ^DIE  ^DIK  ^DIR  
Registration 3 SETPTFFLG^DGCOMPACT  $$ELIG^DGCOMPACTELIG  NEW^DGPMV3  
Kernel 1 $$FMADD^XLFDT  
PCE Patient Care Encounter 1 ($$ASC,$$GETEOC,$$GETEOCSEQ,$$GETSTDT,NEWEOC,REOPNEOC,SETENDDT,VISIT)^PXCOMPACT  

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

Package Total Caller Graph
Registration 8 DGPM SPECIALTY TRANSFER  DGPMV3  DGPMV31  DGPMV32  DGPMV321  DGPMV331  DGPMVPU  DGPMX6  

Entry Points

Name Comments DBIA/ICR reference
DICS ; -- check that it is a PROVIDER/SPECIALTY change
ONLY ; -- determine if there is only one 'specialty xfr' type mvt
SPEC ; -- entry point to add/edit specialty mvt when adding/editing
; a physical mvt
SPECQ
ASK ; -- ask user if they want to make a special mvt also
COMPACT ; -- ask user if the treatment for the movement was for Acute Suicidal Crisis
NEW ; -- add a specialty mvt
EDIT ; -- edit specialty mvt
PRIOR ; -- set special 'prior' nodes for event driver
AFTER ; -- set special 'after' nodes for event driver

External References

Name Field # of Occurrence
SETPTFFLG^DGCOMPACT COMPACT+27
$$ELIG^DGCOMPACTELIG SPEC+15
NEW^DGPMV3 NEW+2
YN^DICN COMPACT+2, COMPACT+3
^DIE NEW+4, EDIT+7
^DIK DGPMV36+4
^DIR ASK+5
$$ASC^PXCOMPACT COMPACT+10, COMPACT+23, COMPACT+26
$$GETEOC^PXCOMPACT COMPACT+6
$$GETEOCSEQ^PXCOMPACT COMPACT+7
$$GETSTDT^PXCOMPACT COMPACT+8
NEWEOC^PXCOMPACT COMPACT+21, COMPACT+26
REOPNEOC^PXCOMPACT COMPACT+24
SETENDDT^PXCOMPACT COMPACT+20
VISIT^PXCOMPACT COMPACT+17
$$FMADD^XLFDT COMPACT+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Incomplete Treating Specialty Transfer...Deleted"
  • Line Location: DGPMV36+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !,"Was Treatment for Acute Suicidal Crisis"
  • Line Location: COMPACT+2
Function Call: WRITE
  • Prompt: !,"Answer must be 'Yes' or 'No'"
  • Line Location: COMPACT+2
Routine Call
  • DIE
  • Line Location:
    • NEW+4
    • EDIT+7
Routine Call
  • DIR
  • 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)
^DG(405.1 - [#405.1] ONLY+2
^DGPM - [#405] SPEC+9, SPEC+10, EDIT+3, EDIT+8, PRIOR+2, AFTER+1
^DGPM("APHY" SPEC+11
^PXCOMP(818 - [#818] COMPACT+10, COMPACT+13*, COMPACT+14*, COMPACT+15*, COMPACT+16*, COMPACT+23
^UTILITY("DGPM" EDIT+2*, EDIT+3*, EDIT+8*, PRIOR+1*, PRIOR+2*, AFTER+1*
^UTILITY($J COMPACT+28*

Label References

Name Line Occurrences
AFTER EDIT+9
ASK SPEC+12
COMPACT SPEC+15, COMPACT+2, COMPACT+3
EDIT SPEC+13
NEW SPEC+12
PRIOR EDIT+4
SPECQ SPEC+12

Naked Globals

Name Field # of Occurrence
^( SPEC+11
^("PTF" PRIOR+2, AFTER+1
^("PTFP" PRIOR+1*
^(0 ONLY+2, EDIT+8, PRIOR+2, AFTER+1
^(1 PRIOR+2, AFTER+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% COMPACT+1~, COMPACT+2*, COMPACT+3*, COMPACT+4, COMPACT+5
C ONLY+1~*, ONLY+2*
DA DGPMV36+4*, NEW+4*, NEW+5!, EDIT+6*
>> DFN SPEC+15, COMPACT+6, COMPACT+7, COMPACT+8, COMPACT+10, COMPACT+17, COMPACT+20, COMPACT+21, COMPACT+23, COMPACT+26
DG EDIT+7!
>> DGER DICS+1*
DGPM0ND NEW+2*, NEW+5!
>> DGPMA DGPMV36+4*
>> DGPMDA DGPMV36+4
DGPMN SPEC+10~*, NEW+3*, EDIT+2, EDIT+3, EDIT+5*, PRIOR+1, PRIOR+2
DGPMP EDIT+1~, EDIT+2*, EDIT+3*, EDIT+5
DGPMPHY SPEC+10*, SPEC+11, SPECQ!, NEW+1
DGPMPHY0 SPEC+10*, SPECQ!, NEW+1, NEW+4, EDIT+5, EDIT+6
DGPMSP SPEC+11*, SPEC+12, SPEC+13, SPECQ!, NEW+3*, NEW+4, EDIT+2, EDIT+3, EDIT+4, EDIT+6
, EDIT+8, EDIT+9
DGPMSPI ONLY+2*!
DGPMT SPEC+10~*, NEW+1
>> DGPMTYP DICS+1
>> DGPMUC SPEC+15
DGPMX EDIT+1~, EDIT+6*
>> DGPMY COMPACT+12, COMPACT+14, COMPACT+19, COMPACT+20, COMPACT+21, COMPACT+26
DGVAL COMPACT+1~, COMPACT+4*, COMPACT+27
DIC NEW+5!
DIE NEW+4*, NEW+5!, EDIT+6*
DIE("NO^" EDIT+2*
DIK DGPMV36+4*!
DIR ASK+5!
DIR("?" ASK+2*, ASK+3*, ASK+4*
DIR("A" ASK+1*
DIR(0 ASK+1*
DQ EDIT+7!
DR NEW+4*, NEW+5!, EDIT+6*
I ONLY+1~, ONLY+2*
MVMTVAL COMPACT+1~, COMPACT+4*
>> PTF SPEC+15, COMPACT+17, COMPACT+21, COMPACT+23, COMPACT+26, COMPACT+27
PXEOCNUM COMPACT+1~, COMPACT+6*, COMPACT+10, COMPACT+13, COMPACT+14, COMPACT+15, COMPACT+16, COMPACT+17, COMPACT+23, COMPACT+24
PXEOCSEQ COMPACT+1~, COMPACT+7*, COMPACT+14, COMPACT+15, COMPACT+16, COMPACT+23, COMPACT+24
STARTDT COMPACT+1~, COMPACT+8*, COMPACT+12, COMPACT+19, COMPACT+24
U NEW+1
>> X NEW+1*, NEW+2*, PRIOR+2*, AFTER+1*
>> Y SPEC+9, SPEC+10, SPEC+12*, SPECQ*, NEW+1*, NEW+2, NEW+3, EDIT+4*, EDIT+9*, PRIOR+1
, PRIOR+2, AFTER+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