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 |  Marked Items  | All
Print Page as PDF
Routine: DGPMX3

Package: Registration

Routine: DGPMX3


Information

DGPMX3 ; GENERATED FROM 'DGPM DISCHARGE' INPUT TEMPLATE(#448), FILE 405;10/30/24

Source Information

Source file <DGPMX3.m>

Call Graph

Call Graph

Call Graph Total: 23

Package Total Call Graph
VA FileMan 17 ^%DT  NOW^%DTC  $$EZBLD^DIALOG  $$LABEL^DIALOGZ  ^DIC  ^DICR  E^DIE0  (,0,F,FIREREC,M,N,OUT,UNIQFERR,Z)^DIE17  
Z^DIE2  ^DIE3  (AST,NOSCR,SET)^DIED  QQ^DIEQ  ($$OUTPUT,$$VALEXT,$$VALEXTS)^DIETLIBF  $$GETTMP^DIKC1  ($$CREF,$$OREF)^DILF  $$SET^DIQ  
RW^DIR2  
Registration 4 ^DGPMDD1  ^DGPMDD2  ^DGPMGLC  ON^DGYZODS  
ODS 1 ^A1B2XFR  
PCE Patient Care Encounter 1 CHGTYPSTAT^PXCOMPACT  

Entry Points

Name Comments DBIA/ICR reference
DE
W
O
TR
A
B
RE
N
RD
T
P
V
UNIQ
Z
X
QS
D
Y
PR
R
RP
I
SAVEVALS
NKEY
KEYCHK()
BEGIN
1
X1
2
C2
C2S
C2F1
X2
3
4
X4
5
C5
C5S
C5F1
X5
6
X6
7
X7
8
C8
C8S
C8F1
X8
9
X9
10
X10
11
C11
C11S
C11F1
X11
12
X12
13
X13
14
X14
15
X15
16
X16
17
C17
C17S
C17F1
X17
18
19
X19
20
X20
21
X21
22
23
X23
24

External References

Name Field # of Occurrence
^%DT X2X23
NOW^%DTC 23+1
^A1B2XFR C2+16, C2S+16, C8+2, C8S+2, C11+2, C11S+2, C17+2, C17S+2
^DGPMDD1 C2S+4
^DGPMDD2 C2+4
^DGPMGLC C2+14, C2S+14
ON^DGYZODS X9
$$EZBLD^DIALOG O+2
$$LABEL^DIALOGZ 28111315172123
^DIC X5
^DICR C5+2
E^DIE0 I+1, 2+4, 21+4, 23+3
^DIE17 RD
0^DIE17 24
F^DIE17 1456789101112
13141619202122
FIREREC^DIE17 146791012141619
20
M^DIE17 T
N^DIE17 RP2+4, 21+4, 23+3
OUT^DIE17 146791012141619
20
UNIQFERR^DIE17 Z
Z^DIE17 X
Z^DIE2 RD+1
^DIE3 T
AST^DIED P
NOSCR^DIED P
SET^DIED T+3
QQ^DIEQ QS
$$OUTPUT^DIETLIBF PR+1
$$VALEXT^DIETLIBF T+2
$$VALEXTS^DIETLIBF T+2
$$GETTMP^DIKC1 BEGIN+1
$$CREF^DILF C2F1
$$OREF^DILF C2F1
$$SET^DIQ R+2
RW^DIR2 O+1
CHGTYPSTAT^PXCOMPACT X19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: W
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !?DL+DL-2,DLB_": "
  • Line Location: W+0
Function Call: WRITE
  • Prompt: W
  • Line Location: O+0
Function Call: WRITE
  • Prompt: Y
  • Line Location: O+0
Function Call: WRITE
  • Prompt: !?9
  • Condition for execution: $X>45
  • Line Location: O+0
Function Call: WRITE
  • Prompt: " ("_$$EZBLD^DIALOG(710,.X)_")"
  • Line Location: O+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: TR+0
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: TR+0
Function Call: WRITE
  • Prompt: " "_X
  • Line Location: RD+2
Function Call: WRITE
  • Prompt: !?3,*7,"USE BED CONTROL MOVEMENT OPTIONS!"
  • Line Location: X2+0
Function Call: WRITE
  • Prompt: !?3,*7,"USE BED CONTROL MOVEMENT OPTIONS!"
  • Line Location: X8+0
Routine Call
  • DIALOG
  • Line Location:
    • O+2
Routine Call
  • DIC
  • Line Location:
    • X5

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( RR+1
^DD("DD" R+2
^DD("KEY" - [#.31] N
^DD(405 C2S+6, C2S+10, C5S+2
^DG(405.1 - [#405.1] C5S+2
^DGPM - [#405] DEX1C2+12, C2+14, C2+16, C2S+8, C2S+10, C2S+12, C2S+14, C2S+16
C5+2, C5S+2, X7C8+2, C8S+2, X20
^DGPM("ADFN" C2+12!, C2S+12*
^DGPM("B" C2+2!, C2S+2*
^DIE(448 BEGIN+2
^DISV( RD+2, Z*, X4*, X6*

Label References

Name Line Occurrences
$$KEYCHK Z
@( BV
A RENZYRP12+4, 467
910121416192021+4, 2223+3
B QS
BEGIN DGPMX3+1
C11F1 C11S
C11S C11
C17F1 C17S
C17S C17
C2F1 C2S
C2S C2
C5F1 C5S
C5S C5
C8F1 C8S
C8S C8
D RDRD+1, P+1, QS
DE DGPMX3+1, 14567891011
1213141619202122
N Y
NKEY N
O YRP
PR REI+1
QS RDNKEY
R RR+1
RD YII+1, 2+5, 21+5, 23+4
RE 5+3, 8+3, 11+3, 13+2, 15+2, 17+2
RP PRPR+1, RR+1
SAVEVALS Z
TR RE
UNIQ T+1
V T+3, P+1
W ORE
X NTT+3, PY
X1 1
X10 10
X12 12
X14 14
X16 16
X19 19
X20 20
X4 4
X6 6
X7 7
X9 9
Z P+1, 21+5

Naked Globals

Name Field # of Occurrence
^( RD+2, RR+1
^("DGPM3" X4
^("F" SAVEVALS*
^("ODS" DE+2
^("USR" DE+3
^("^DG(405.1," X6
^(0 DE+1, RR+1, C2+12, C2S+8*, C2S+10, C2S+12, C5+2*, C5S+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DE+1*, DE+2*, DE+3*, UNIQ!*, R+2*, 23+1~
%( UNIQ!
%(0 UNIQ
%DT X2*!, X23*
%H 23+1~
%I 23+1~
%Z DE+1*, DE+2*, DE+3*, DE+4!
>> A1B2TAG C2+16*, C2S+16*, C8+2*, C8S+2*, C11+2*, C11S+2*, C17+2*, C17S+2*
>> D N, D*
>> D0 BEGIN+3*, C2S+6*, C2S+10*, C5+2*, C5S+2*
>> DA DEUNIQBEGIN+3, X1C2+2, C2+12, C2+14, C2+16, C2S+2, C2S+8
C2S+10, C2S+12, C2S+14, C2S+16, C5+2, C5S+2, X7C8+2, C8S+2, X20
DB DE!, C2!, C2S!, C5!, C5S!, C8!, C8S!, C11!, C11S!, C17!
, C17S!
DB( T+2, PX2+4*, 21+4*, 23+3*
>> DC RP
DDER T+3!
DE DE!
DE( O+2, REZYPRRPSAVEVALSSAVEVALS+1, KEYCHK, 2+1*
2+4, 5+1*, 8+1*, 11+1*, 17+1*, 21+4*, 23+3
DE(11 DE+2*, C11C11+1
DE(13 DE+2*
DE(15 DE+2*
DE(17 DE+2*, C17C17+1
DE(2 DE+1*, C2C2+1, C2+3, C2+5, C2+7, C2+9, C2+11, C2+13, C2+15
DE(21 DE+3*
DE(23 DE+3*
DE(5 DE+1*, C5C5+1
DE(8 DE+1*, C8C8+1
>> DFN X19
DG DE!, PR*, PR+1, R*, R+1*, R+2, 1456
78910111213141619
202122
DG( Z*, C2SC2S+1, C2S+3, C2S+5, C2S+7, C2S+9, C2S+11, C2S+13, C2S+15
C5SC5S+1, C8SC8S+1, C11SC11S+1, C17SC17S+1
>> DGHNYT C2+14*, C2S+14*
DGIDX C2S+14!
>> DGODS X10
>> DGODSPT X12
>> DGPMDDF C2+4*, C2S+4*
>> DGPMN X1
>> DGPMP X20
>> DGPMT X2X8
>> DGPMY X12+2, X19
DIC DE*, P*, C2+1*, C2+3*, C2+5*, C2+7*, C2+9*, C2+11*, C2+13*, C2+15*
C2S+1*, C2S+3*, C2S+5*, C2S+7*, C2S+9*, C2S+11*, C2S+13*, C2S+15*, C5+1*, C5S+1*
, X5!*, C8+1*, C8S+1*, C11+1*, C11S+1*, C17+1*, C17S+1*
DIC("S" Z!, X5*
DIC(0 P*, 1*, 4*, 6*, 7*, 9*, 10*, 12*, 14*, 16*
, 19*, 20*
>> DICRREC BEGIN+2*
>> DIE DE*, PUNIQC2+1, C2+3, C2+5, C2+7, C2+9, C2+11, C2+13
C2+15, C2S+1, C2S+3, C2S+5, C2S+7, C2S+9, C2S+11, C2S+13, C2S+15, C2F1
C5+1, C5S+1, X5C8+1, C8S+1, C11+1, C11S+1, C17+1, C17S+1
DIEBADK BEGIN+1!
DIEFIRE BEGIN+1!, 1467910121416
1920
>> DIEL DE*
>> DIEZ BEGIN+3*
DIEZAR BEGIN+1~, BEGIN+2*
DIEZRXR BEGIN+1~
DIEZRXR(405 C2F1*, C2F1+1*
DIEZTMP SAVEVALSSAVEVALS+1, SAVEVALS+2, BEGIN+1~*
>> DIFLD O+2, NT+2, UNIQDPR+1, R+2, SAVEVALSSAVEVALS+1, SAVEVALS+2
, 2*, 5*, 8*, 11*, 13*, 15*, 17*, 21*, 23*
>> DIG C5+2*
>> DIH C5+2*
DIIENS SAVEVALSSAVEVALS+1, SAVEVALS+2, BEGIN+1~, BEGIN+3*, C2F1
DIPA T+2!, PR+1!
>> DIU C2S+6*, C2S+10*, C5+2*, C5S+2*
DIV C2S+6, C2S+10!*, C5+2!*, C5S+2!*
DIV(0 C2S+10*, C5+2*, C5S+2*
DIXR BEGIN+1~, C2F1+1*
>> DL DE*, W
DLAYGO P*, Z!
>> DLB WRD+2, ZD, 2*, 5*, 8*, 11*, 13*, 15*
, 17*, 21*, 23*
>> DNM BEGIN*
>> DP DE*, O+2, NT+2, PR+1, R+2, SAVEVALSSAVEVALS+1, SAVEVALS+2, 2
8111315172123
>> DQ O+2, A*, BRET+2, PP+2, VXD
YPRRPSAVEVALS, BEGIN*, 1*, 2+4, C2SC2S+1, C2S+3
C2S+5, C2S+7, C2S+9, C2S+11, C2S+13, C2S+15, 3*, 4*, 5*, C5S
C5S+1, 6*, 7*, 8*, C8SC8S+1, 9*, 10*, 11*, C11S
C11S+1, 12*, 13*, 14*, 16*, C17SC17S+1, 18*, 19*, 20*
, 21*, 21+4, 22*, 23+3
>> DQ( A!, P+2, D*, PR
DT C2+14, C2S+14
DTIME TRBEGIN+3*
>> DTOUT TR*
>> DU DE*, PDPR, 2*, 5*, 5+2*, 8*, 8+2*, 11*
11+2*, 13*, 13+1*, 15*, 15+1*, 17*, 21*, 21+1*, 23*
DUZ RD+2, ZX4X621+2
DUZ("LANG" R+2
DUZ(0 TRRE
>> DV O+1, O+2, TRRENRD+2, TT+1, T+3, P
P+1, UNIQZDYPRRPI, 2*, 2+4
, 5*, 8*, 11*, 13*, 15*, 17*, 21*, 21+4, 23*, 23+3
>> DW ZDSAVEVALS+1, KEYCHK, 1*, 2*, 2+1, 4*, 5*, 5+1
, 6*, 7*, 8*, 8+1, 9*, 10*, 11*, 11+1, 12*, 13*
, 14*, 15*, 16*, 17*, 17+1, 19*, 20*, 21*, 21+4, 23*
>> DZ QS*
>> I(0 C2S+6
U DE+1, DE+2, DE+3, TRPP+2, ZDRR+1
BEGIN+3*, 1C2+12, C2+14, C2S+6, C2S+8, C2S+10, C2S+12, C2S+14, 4
C5+2, C5S+2, 6791012141619
2022
X O+2!*, TR*, NRDRD+1, RD+2*, T, P*, P+1!, P+2*
, UNIQ!, ZX+1*, QS, Y*, PR*, R*, R+1*, R+2, RP*
I+1, NKEY*, 1*, 2+2*, 2+3, 2+4*, C2+1*, C2+2, C2+3*, C2+5*
C2+7*, C2+9*, C2+11*, C2+12, C2+13*, C2+14, C2+15*, C2S*, C2S+1*, C2S+2
C2S+3*, C2S+5*, C2S+6*, C2S+7*, C2S+9*, C2S+10*, C2S+11*, C2S+12, C2S+13*, C2S+14
C2S+15*, X2*!, 4*, C5+1*, C5+2*, C5S*, C5S+1*, C5S+2*, X5*!, 6*
, 7*, C8+1*, C8S*, C8S+1*, X8!, 9*, 10*, C11+1*, C11S*, C11S+1*
, 12*, X12, 14*, 16*, X16C17+1*, C17S*, C17S+1*, X17*!, 19*
, 20*, 21+2*, 21+3, 21+4*, 21+5, 23+1*, 23+2, 23+3*, X23*!
X("FIELD" O+2*
X("FILE" O+2*
Y OO+1, O+2, PY, PR*, R*, R+1*, R+2*, 1*
, X1*, 2+3*, 2+4, C2+14*, C2S+6!, C2S+10!, C2S+14*, X2, 4*, C5+2!
C5S+2!, X5, 6*, 7*, X7*, 9*, 10*, X10*, 12*, X12*
, 14*, X14*, 16*, X16*, 19*, 20*, X20*, 21+3*, 21+4, 22*
23+2*, 23+3, X23
Y(0 C2S+10*
Y(1 C2S+10*, C5+2*, C5S+2*
Y(101 C2S+6
YS V!
>> ZTQUEUED XNKEY

Marked Items

Name Field # of Occurrence
$T(@(3) D
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 |  Marked Items  | All