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

Package: Registration

Routine: DGPMV3


Information

DGPMV3 ;ALB/MIR - ENTER TRANSACTION INFORMATION; 8 MAY 89 ; 7/08/24 10:11am

Source Information

Source file <DGPMV3.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Registration 10 ($$CHKMVMT,$$GETMVMT,EDITADMIT,REVERT,SETPTFFLG,SETPTFMVMT)^DGCOMPACT  RESET^DGPMDDCN  RESET^DGPMDDLD  ^DGPMEVT  CHK^DGPMV30  NEW^DGPMV301  SI^DGPMV33  (AFTER,PRIOR)^DGPMV36  
EN^DGPMVBM  START^DGPWB  
VA FileMan 5 ^%DT  (HELP,NOW)^%DTC  YN^DICN  ^DIE  ^DIK  
PCE Patient Care Encounter 1 ($$GETBENTYP,$$GETEOC,$$GETEOCSEQ,$$GETPOINTRSEQ,$$GETSTDT,REOPNEOC,SETSTDT)^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: 6

Package Total Caller Graph
Registration 6 DGPMEX  DGPMV2  DGPMV321  DGPMV331  DGPMV36  DGPMVPU  

Entry Points

Name Comments DBIA/ICR reference
DT
DR ;select input template for transaction type
EVENTS ;
Q
OKD
VAR ;Set up variables
NEW ;Entry point to add a new entry to ^DGPM
PRODAT(NODE) ;-- This function will add the ward and other data from the
; previous TS movement to the provider TS movement.
CPTCK ; DG*5.3*895 Admission Deletion - Check to see if there is 801 screen data on file (DGPMFLG = okay to delete)

External References

Name Field # of Occurrence
^%DT DT+4
HELP^%DTC DT+1, DT+4
NOW^%DTC DGPMV3+5
$$CHKMVMT^DGCOMPACT OKD+19
$$GETMVMT^DGCOMPACT OKD+25
EDITADMIT^DGCOMPACT DR+4
REVERT^DGCOMPACT OKD+5, OKD+22
SETPTFFLG^DGCOMPACT OKD+21
SETPTFMVMT^DGCOMPACT OKD+15
RESET^DGPMDDCN EVENTS+2
RESET^DGPMDDLD EVENTS+1
^DGPMEVT EVENTS+6
CHK^DGPMV30 DT+5
NEW^DGPMV301 NEW+1
SI^DGPMV33 EVENTS+2
AFTER^DGPMV36 DR+10, OKD+39, OKD+40
PRIOR^DGPMV36 OKD, OKD+40, VAR+3, VAR+8
EN^DGPMVBM EVENTS+4
START^DGPWB EVENTS+3
YN^DICN OKD+1
^DIE DR+3
^DIK DR+9, OKD+27, OKD+38, OKD+40
$$GETBENTYP^PXCOMPACT OKD+22
$$GETEOC^PXCOMPACT OKD+8, OKD+16
$$GETEOCSEQ^PXCOMPACT OKD+9, OKD+17
$$GETPOINTRSEQ^PXCOMPACT OKD+18
$$GETSTDT^PXCOMPACT OKD+31
REOPNEOC^PXCOMPACT OKD+10
SETSTDT^PXCOMPACT OKD+36

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: !,DGPME
  • Line Location: DT+5
Function Call: WRITE
  • Prompt: !,"Incomplete check-in...deleted"
  • Line Location: DR+9
Function Call: WRITE
  • Prompt: !
  • Line Location: OKD+0
Function Call: WRITE
  • Prompt: !?5,"Answer yes to delete this ",DGPMUC," or no to continue"
  • Line Location: OKD+1
Function Call: WRITE
  • Prompt: !!,"CANNOT DELETE THE ADMISSION. THE PTF HAS ACTIVE ORDERS OR CPT ENTRIES."
  • Line Location: CPTCK+6
Function Call: WRITE
  • Prompt: !
  • Line Location: CPTCK+6
Routine Call
  • DIE
  • Line Location:
    • DR+3

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" DT
^DG(405.2 - [#405.2] VAR+7
^DGCPT(46 - [#46] CPTCK+4
^DGICD9(46.1 - [#46.1] CPTCK+5
^DGPM - [#405] DGPMV3+12, DR+2, DR+7, DR+9, DR+10, OKD, OKD+31, OKD+39, OKD+40, VAR+2
, VAR+5, VAR+6, PRODAT+4
^DGPM("APCA" VAR+6
^DGPM("APHY" OKD+40
^DGPM("APMV" VAR+5
^DGPM("ATS" PRODAT+4
^DGPT - [#45] OKD+14
^PXCOMP(818 - [#818] OKD+19, OKD+23, OKD+30, OKD+34, OKD+35*
^UTILITY("DGPM" DGPMV3+4!, DR+4, DR+7*, DR+10*, EVENTS+5, Q+4!, OKD*, OKD+39*, OKD+40*, VAR+2*
^UTILITY($J DR+4

Label References

Name Line Occurrences
$$PRODAT DGPMV3+10
@( DR+8, OKD, OKD+37
CPTCK DT+2
DR DGPMV3+12, DT
DT DGPMV3+5, DT+1, DT+4, DT+5, OKD+1
EVENTS OKD+41
NEW DGPMV3+11
OKD DT+3, OKD+1
Q DGPMV3+11, DT, DR+3, OKD, OKD+1
VAR DGPMV3+12, DT

Naked Globals

Name Field # of Occurrence
^( EVENTS+5, VAR+6, PRODAT+4
^("A" OKD+40*
^("DIR" DR+7, DR+10, VAR+2
^("E" VAR+7
^("LD" DR+9
^("ODS" DR+2
^("P" EVENTS+5
^(0 DR+7, OKD+40, VAR+5, VAR+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DGPMV3+5, OKD+1*
%DT DT+1*, DT+5!, Q+3!, OKD!
%DT(0 DT+1*
DA DGPMV3+11*, DGPMV3+12, DR+9*, Q+3!, OKD+25*, OKD+28!, OKD+38*, OKD+40*, VAR+2*
DA(1 OKD+25*, OKD+26
DA(2 OKD+25*, OKD+26
DA(3 OKD+25*, OKD+26
>> DFN DGPMV3+6, EVENTS+3, OKD+5, OKD+8, OKD+9, OKD+16, OKD+17, OKD+18, OKD+19, OKD+22
, OKD+25, OKD+31, OKD+36, VAR+5, VAR+6, PRODAT+4
DG DR+3!
DGER Q+3!
DGIDX Q+1!
DGNOW DGPMV3+5*, Q+3!
DGODS Q+2!
DGODSPT DR+2*, Q+2!
DGOK EVENTS+5*, EVENTS+6, Q+3!
DGOTY Q+1!
DGOWD Q+1!
DGPM0 Q+3!, VAR+5*
DGPM0ND DGPMV3+6*, DGPMV3+8*, DGPMV3+10*, Q+3!
>> DGPM1X DT
DGPM2 Q+3!, VAR+6*, VAR+7
DGPMA DR+7*, DR+9*, DR+10*, EVENTS+3, Q+3!, OKD+39*
DGPMAB Q+3!
DGPMABL Q+3!, VAR+7*
>> DGPMAN DGPMV3+12*, CPTCK+2
>> DGPMBYP Q*
>> DGPMCA DGPMV3+6, DGPMV3+12*, DR+2, VAR+5, VAR+6, PRODAT+4
DGPMDA DGPMV3+11*, DR+4, DR+7, DR+9, DR+10, Q, Q+3!, OKD, OKD+19, OKD+23
, OKD+25, OKD+38, OKD+39, OKD+40, VAR+2, VAR+3, VAR+8, CPTCK+1~, CPTCK+2*, CPTCK+3
, CPTCK+4, CPTCK+5
DGPME DT+5!
DGPMER Q+3!, OKD*
DGPMFLG CPTCK+1~, CPTCK+2*, CPTCK+4*, CPTCK+5*, CPTCK+6
DGPMHY DGPMV3+5*, DT, DT+5, Q+3!
DGPMI CPTCK+1~, CPTCK+2*, CPTCK+4, CPTCK+5*
>> DGPMN DGPMV3+5, DR+1, VAR+2
DGPMNI Q+3!
DGPMOC Q+3!
DGPMOS Q+3!
DGPMOUT DGPMV3+5*, DR+5*, Q+3!
DGPMP DT+5, Q+3!, OKD*, OKD+39, VAR+2*, VAR+4
>> DGPMPC DGPMV3+10
DGPMPHY Q+3!
DGPMPHY0 Q+3!
DGPMPTF Q+3!
>> DGPMSA DGPMV3+8
DGPMSP Q+3!
>> DGPMT DGPMV3+6, DGPMV3+8, DGPMV3+10, DGPMV3+12, DR+1, DR+3, DR+7, DR+8, DR+9, DR+10
, EVENTS+1, EVENTS+2, OKD, OKD+4, OKD+5, OKD+7, OKD+12, OKD+37, OKD+38, OKD+39
, VAR+2, VAR+3, VAR+8
DGPMTN Q+3!
DGPMTYP Q+3!
>> DGPMUC DT, DT+2, OKD+1
DGPMWD Q+3!
>> DGPMY DGPMV3+5, DGPMV3+6, DT*, DT+5*, OKD+13, OKD+14, VAR+4
DGSV Q+3!
DGT Q+3!
DGX Q+3!, VAR+4*, VAR+5, VAR+6
DGX1 Q+3!
DGZ DR+7!
DIC Q+4!
DIE DR+1*, DR+3!, Q+4!
DIE("NO^" DR+1*
DIK DR+9*!, Q+4!, OKD+26*, OKD+28!, OKD+38*, OKD+40*
DQ DR+3!
DR DR+3*, Q+4!
DTIME DT
FIRSTMOVE OKD+2~, OKD+30*, OKD+31
I EVENTS+5*, Q+4!, CPTCK+4*
I1 Q+4!
J EVENTS+5*, Q+4!
K Q+4!
MOVEDT OKD+2~, OKD+31*, OKD+32, OKD+35, OKD+36
MOVESEQ OKD+2~, OKD+14*, OKD+15
NODE PRODAT~, PRODAT+4
>> PTF DR+4, OKD+5, OKD+14, OKD+15, OKD+18, OKD+19, OKD+21, OKD+22, OKD+25
PTFPOINT OKD+2~, OKD+18*, OKD+19, OKD+23, OKD+25, OKD+30
PXEOCNUM OKD+2~, OKD+8*, OKD+10, OKD+16*, OKD+19, OKD+23, OKD+25, OKD+30, OKD+34, OKD+35
PXEOCSEQ OKD+2~, OKD+9*, OKD+10, OKD+17*, OKD+19, OKD+23, OKD+25, OKD+30, OKD+34, OKD+35
STARTDT OKD+2~, OKD+31*, OKD+32, OKD+34
U DR+7, DR+10, VAR+2, PRODAT+4, PRODAT+5, CPTCK+2
X DGPMV3+5*, DT*, DT+1, DT+2, DT+3, DT+5, Q+4!, VAR+5*, VAR+6*, PRODAT+3~
, PRODAT+4*, PRODAT+5, CPTCK+6*
X1 Q+4!, VAR+5*
X2 Q+4!
Y DGPMV3+11, DT*, DT+1, DT+4, DT+5, DR+5, DR+10*, Q+4!, OKD*, OKD+39*
, OKD+40*, VAR+3*, VAR+8*, PRODAT+3~, PRODAT+4*, PRODAT+5*, PRODAT+6
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