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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGPMV22

Package: Registration

Routine: DGPMV22


Information

DGPMV22 ;ALB/MIR - SCHEDULED ADMISSION? ; 23 NOV 90

Source Information

Source file <DGPMV22.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
VA Fileman 2 C^%DTC  YN^DICN  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DGPMEX  DGPMV2  

Entry Points

Name Comments DBIA/ICR reference
PTF(DFN,DGPMDA,DGPME,DGPMCA) ;ptf check
SCHDQ
PTFQ
SCHDADM ;is this a scheduled admission...DGPMSA=1 for yes, 0 for no
WR
WHICH
ASK
PTFC(ADMIT,DGPME) ;check if ptf in close out file/ set error flag if true

External References

Name Field # of Occurrence
C^%DTC SCHDADM+2, SCHDADM+3
YN^DICN ASK

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Is this ",$S(DGCT=1:"the",1:"one of the")," scheduled admission",$S(DGCT>1:"s",1:"")," listed above"
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !?5,"Answer yes if this is a scheduled admission, otherwise no."
  • Line Location: ASK+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: WHICH+0
Function Call: WRITE
  • Prompt: !,"Choose a number 1-",DGCT
  • Line Location: WHICH+1
Function Call: WRITE
  • Prompt: !!,"Scheduled admissions:"
  • Line Location: WR+1
Function Call: WRITE
  • Prompt: !?2,DGCT,". ",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+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" WR
^DGP(45.84 - [#45.84] PTFC+9
^DGPM - [#405] PTF+15, PTF+22, PTF+30, PTF+35, PTFC+8
^DGPM("APMV" PTF+29
^DGS(41.1 - [#41.1] SCHDADM+4
^DIC(42 - [#42] WR+2
^DIC(45.7 - [#45.7] WR+2
^UTILITY("DGPMSA" ASK+2, WHICH+3, SCHDQ!, WR+3*

Label References

Name Line Occurrences
ASK ASK, WHICH+2
PTFC PTF+18, PTF+23, PTF+28, PTF+31, PTF+36
PTFQ PTF+18, PTF+21, PTF+26
SCHDQ SCHDADM+5, ASK+1, ASK+2, WHICH
WHICH WHICH+1
WR SCHDADM+4

Naked Globals

Name Field # of Occurrence
^(0 SCHDADM+4, WR+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK*, ASK+1
>> %Y ASK
ADMIT PTFC~, PTFC+6, PTFC+8
DFN SCHDADM+4, PTF~, PTF+12, PTF+29
DGCT SCHDADM+4*, SCHDADM+5, ASK, ASK+2, WHICH+1, WHICH+2, SCHDQ!, WR+1, WR+2, WR+3
DGI SCHDADM+4*, SCHDQ!, WR+3
DGPMCA PTF~, PTF+12, PTF+29
DGPMDA PTF~, PTF+12, PTF+15
DGPME PTF~, PTF+18, PTF+23, PTF+28, PTF+31, PTF+36, PTFC~, PTFC+9*
DGPMED SCHDADM+3*, SCHDADM+4, SCHDQ!
>> DGPMER WHICH*
>> DGPMSA SCHDADM+5*, ASK+1*, ASK+2*, WHICH+3*
DGPMSD SCHDADM+2*, SCHDADM+4, SCHDQ!
DGPMY SCHDADM+2, SCHDADM+3, WHICH!
DTIME WHICH
J SCHDADM+4*, SCHDQ!, WR, WR+2
MVTYPE PTF+14~
NODE PTF+14~, PTF+15*, PTF+18, PTF+21, PTF+22, PTF+28, PTF+29, PTF+35
PTF PTFC+7~, PTFC+8*, PTFC+9
TRANS PTF+14~, PTF+15*, PTF+21, PTF+26, PTF+34
>> TYPE PTF+15*, PTF+27, PTF+28, PTF+34
U PTF+15
X SCHDADM+2, SCHDADM+3, WHICH*, WHICH+1, WHICH+2, WHICH+3, SCHDQ!, PTF+14~, PTF+22*, PTF+23
, PTF+29*, PTF+30*, PTF+31, PTF+35*, PTF+36
X1 SCHDADM+2*, SCHDADM+3*, SCHDQ!
X2 SCHDADM+2*, SCHDADM+3*, SCHDQ!
>> Y WR*, WR+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All