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 EDITADMIT^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 ($$GETEOC,$$GETEOCSEQ,$$GETSTDT,REOPNEOC)^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+3
EDITADMIT^DGCOMPACT DR+4
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+50, OKD+51
PRIOR^DGPMV36 OKDOKD+51, VAR+3, VAR+8
EN^DGPMVBM EVENTS+4
START^DGPWB EVENTS+3
YN^DICN OKD+1
^DIE DR+3
^DIK DR+9, OKD+12, OKD+16, OKD+42, OKD+46, OKD+49, OKD+51
$$GETEOC^PXCOMPACT OKD+6, OKD+21, OKD+37
$$GETEOCSEQ^PXCOMPACT OKD+8, OKD+22, OKD+39
$$GETSTDT^PXCOMPACT OKD+28
REOPNEOC^PXCOMPACT OKD+23

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
^PXCOMP(818 - [#818] 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+10, DR+2, DR+7, DR+9, DR+10, OKDOKD+50, OKD+51, VAR+2, VAR+5
VAR+6, PRODAT+4
^DGPM("APCA" VAR+6
^DGPM("APHY" OKD+51
^DGPM("APMV" VAR+5
^DGPM("ATS" PRODAT+4
^DGPT - [#45] OKD+32, OKD+33, OKD+34, OKD+36
^UTILITY("DGPM" DGPMV3+2!, DR+4, DR+7*, DR+10*, EVENTS+5, Q+4!, OKD*, OKD+50*, OKD+51*, VAR+2*
^UTILITY($J DR+4

Label References

Name Line Occurrences
$$PRODAT DGPMV3+8
@( DR+8, OKDOKD+48
CPTCK DT+2
DR DGPMV3+10, DT
DT DGPMV3+3, DT+1, DT+4, DT+5, OKD+1
EVENTS OKD+52
NEW DGPMV3+9
OKD DT+3, OKD+1
Q DGPMV3+9, DTDR+3, OKDOKD+1
VAR DGPMV3+10, DT

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DGPMV3+3, OKD+1*
%DT DT+1*, DT+5!, Q+3!, OKD!
%DT(0 DT+1*
DA DGPMV3+9*, DGPMV3+10, DR+9*, Q+3!, OKD+5~, OKD+11*, OKD+13!, OKD+15*, OKD+17!, OKD+41*
OKD+43!, OKD+45*, OKD+47!, OKD+49*, OKD+51*, VAR+2*
DA(1 OKD+15*, OKD+45*
>> DFN DGPMV3+4, EVENTS+3, OKD+6, OKD+8, OKD+21, OKD+22, OKD+28, OKD+37, OKD+39, VAR+5
VAR+6, PRODAT+4
DG DR+3!
DGER Q+3!
DGFOUND OKD+26~, OKD+28*, OKD+32, OKD+35*, OKD+36
DGIDX Q+1!
DGMOVSEQ OKD+26~, OKD+31*, OKD+32*, OKD+33, OKD+34
DGNOW DGPMV3+3*, 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+4*, DGPMV3+6*, DGPMV3+8*, Q+3!
>> DGPM1X DT
DGPM2 Q+3!, VAR+6*, VAR+7
DGPMA DR+7*, DR+9*, DR+10*, EVENTS+3, Q+3!, OKD+50*
DGPMAB Q+3!
DGPMABL Q+3!, VAR+7*
>> DGPMAN DGPMV3+10*, CPTCK+2
>> DGPMBYP Q*
>> DGPMCA DGPMV3+4, DGPMV3+10*, DR+2, VAR+5, VAR+6, PRODAT+4
DGPMDA DGPMV3+9*, DR+4, DR+7, DR+9, DR+10, QQ+3!, OKDOKD+49, OKD+50
OKD+51, 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+3*, DTDT+5, Q+3!
DGPMI CPTCK+1~, CPTCK+2*, CPTCK+4, CPTCK+5*
>> DGPMN DGPMV3+3, DR+1, VAR+2
DGPMNI Q+3!
DGPMOC Q+3!
DGPMOS Q+3!
DGPMOUT DGPMV3+3*, DR+5*, Q+3!
DGPMP DT+5, Q+3!, OKD*, OKD+50, VAR+2*, VAR+4
>> DGPMPC DGPMV3+8
DGPMPHY Q+3!
DGPMPHY0 Q+3!
DGPMPTF Q+3!
>> DGPMSA DGPMV3+6
DGPMSP Q+3!
>> DGPMT DGPMV3+4, DGPMV3+6, DGPMV3+8, DGPMV3+10, DR+1, DR+3, DR+7, DR+8, DR+9, DR+10
EVENTS+1, EVENTS+2, OKDOKD+3, OKD+19, OKD+25, OKD+48, OKD+49, OKD+50, VAR+2
VAR+3, VAR+8
DGPMTN Q+3!
DGPMTYP Q+3!
>> DGPMUC DTDT+2, OKD+1
DGPMWD Q+3!
>> DGPMY DGPMV3+3, DGPMV3+4, DT*, DT+5*, OKD+29, OKD+33, 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+5~, OKD+11*, OKD+13!, OKD+15*, OKD+17!, OKD+41*, OKD+43!, OKD+45*
OKD+47!, OKD+49*, OKD+51*
DQ DR+3!
DR DR+3*, Q+4!
DTIME DT
I EVENTS+5*, Q+4!, CPTCK+4*
I1 Q+4!
J EVENTS+5*, Q+4!
K Q+4!
NODE PRODAT~, PRODAT+4
>> PTF DR+4, OKD+32, OKD+33, OKD+34, OKD+36
PXEOCNUM OKD+5~, OKD+6*, OKD+11, OKD+15, OKD+20~, OKD+21*, OKD+23, OKD+26~, OKD+37*, OKD+41
OKD+45
PXEOCSEQ OKD+5~, OKD+8*, OKD+10, OKD+14, OKD+15, OKD+20~, OKD+22*, OKD+23, OKD+26~, OKD+39*
OKD+40, OKD+44, OKD+45
PXSTARTDT OKD+26~, OKD+28*, OKD+29
U DR+7, DR+10, VAR+2, PRODAT+4, PRODAT+5, CPTCK+2
X DGPMV3+3*, 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+9, DT*, DT+1, DT+4, DT+5, DR+5, DR+10*, Q+4!, OKD*, OKD+50*
OKD+51*, 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