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

Package: IHS Changes To ADT

Routine: ADGRPD


Information

ADGRPD ; IHS/ADC/PDW/ENM - PATIENT INQUIRY (NEW) 5/21/91 15:17 ; [ 09/17/2002 4:12 PM ]

Source Information

Source file <ADGRPD.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Registration 3 CHECK^DGPMV  A^DGRPU  (DEM,KVA)^VADPT  
VA Fileman 2 ^DIC  ^DIR  
IHS Changes To ADT 1 (CS,IN5)^ADGPMV10  
Kernel 1 ^%ZIS  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To ADT 1 ADGPI  

Entry Points

Name Comments DBIA/ICR reference
OREN
EN ;call to display patient inquiry - input DFN
HDR
CL
SAA
COV
INP ;EP; called by ^ADGPI, ^ADGPM1 ;IHS added
Q
FA ;EP; called by ^ADGPI; IHS added
RMK ;W !!,"Remarks: ",$P(^DPT(DFN,0),"^",10) ;IHS
SA
SEL

External References

Name Field # of Occurrence
^%ZIS HDR
CS^ADGPMV10 INP+7
IN5^ADGPMV10 INP+3
CHECK^DGPMV EN+1
A^DGRPU EN+3
^DIC SEL
^DIR EN+15
DEM^VADPT EN+2
KVA^VADPT Q

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "Address: ",$S($D(DGA(1)):DGA(1),1:"NONE ON FILE"),?40,"Temporary: ",$S($D(DGA(2)):DGA(2),1:"NO TEMPORARY ADDRESS")
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: DGA(I)
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !?1,"County: ",DGCC
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !?4,"POS: ",$S($D(^DIC(21,+$P(DGRP(.32),"^",3),0)):$P(^(0),"^",1),1:DGRPU),?42,"Claim #: ",$S($P(DGRP(.31),"^",3)]"":$P(DGRP(.31),"^",3),1:"")
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !?2,"Relig: ",$S($D(^DIC(13,+$P(DGRP(0),"^",8),0)):$P(^(0),"^",1),1:DGRPU),?46,"Sex: ",$P(VADM(5),"^",2)
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !!,"Primary Eligibility: ",$S($D(^DIC(8,+X1,0)):$P(^(0),"^",1)_" ("_$S(X="V":"VERIFIED",X="P":"PENDING VERIFICATION",X="R":"PENDING REVERIFICATION",1:"NOT VERIFIED")_")",1:DGRPU)
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !,"Other Eligibilities: "
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !?21
  • Condition for execution: $X+$L(X)>79
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: X
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: @IOF,!,$P(VADM(1),"^",1),?40,$P(VADM(2),"^",2),?65,$P(VADM(3),"^",2)
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,X,!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !?18,"Scheduled Admit"
  • Line Location: SA+0
Function Call: WRITE
  • Prompt: $S($D(^DIC(42,+$P(X,"^",8),0)):" on ward "_$P(^(0),"^",1),$D(^DIC(45.7,+$P(X,"^",9),0)):" for treating specialty "_$P(^(0),"^",1),1:"")," on ",$E(L,4,5),"/",$E(L,6,7),"/",$E(L,2,3)
  • Line Location: SAA+0
Function Call: WRITE
  • Prompt: !!,"Currently enrolled in "
  • Condition for execution: SDCT=1
  • Line Location: CL+0
Function Call: WRITE
  • Prompt: !?22
  • Condition for execution: $X>50
  • Line Location: CL+0
Function Call: WRITE
  • Prompt: $S($D(^SC(+^(0),0)):$P(^(0),"^",1)_", ",1:"")
  • Line Location: CL+0
Function Call: WRITE
  • Prompt: !!,"Future Appointments: "
  • Line Location: FA+1
Function Call: WRITE
  • Prompt: "NONE"
  • Line Location: FA+1
Function Call: WRITE
  • Prompt: ?22,"Date",?32,"Time",?39,"Clinic",!?22
  • Line Location: FA+2
Function Call: WRITE
  • Prompt: "="
  • Line Location: FA+2
Function Call: WRITE
  • Prompt: !?22,$E(FA,4,5),"/",$E(FA,6,7),"/",$E(FA,2,3),$J(+$E(FA_"00",9,10)_":"_$E(FA_"0000",11,12),6),?39,$P($S($D(^SC(C,0)):^(0),1:""),"^")," ",COV
  • Line Location: FA+3
Function Call: WRITE
  • Prompt: !,"See Scheduling options for additional appointments."
  • Line Location: FA+4
Routine Call
  • DIC
  • Line Location:
    • SEL
Routine Call
  • DIR
  • Line Location:
    • EN+15
Routine Call
  • %ZIS
  • Line Location:
    • HDR

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN+7
^DG(43 - [#43] EN+2
^DGS(41.1 - [#41.1] SA
^DIC(13 - [#13] EN+10
^DIC(21 - [#21] EN+9
^DIC(42 - [#42] SAA
^DIC(45.7 - [#45.7] SAA
^DIC(5 - [#5] EN+6
^DIC(8 - [#8] EN+11, EN+12
^DPT - [#2] EN+2, CL, FA+1, FA+3, FA+4, RMK+1
^DPT("AEL" EN+12
^SC - [#44] CL, FA+3
^UTILITY("VAIP" INP+4!

Label References

Name Line Occurrences
CL SA
COV FA+3
EN SEL, OREN
FA CL
HDR EN+2, EN+15
INP EN+16
Q SEL, EN+15
RMK FA+1, FA+3
SA EN+16
SAA SA
SEL SEL

Naked Globals

Name Field # of Occurrence
^( EN+2, CL, FA+3
^(0 EN+2, EN+6, EN+9, EN+10, EN+11, EN+12, SAA, CL, FA+3, RMK+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT Q!
ADM RMK+2!
C FA+3*, RMK+2!
COV FA+3, RMK+2!, COV*
CT FA+1*, FA+3, RMK+2!, COV*
D0 Q!
D1 Q!
DFN SEL!*, EN+2, EN+12, SA, CL, FA+1, FA+3, FA+4, RMK+1, OREN*
DGA Q!
DGA( EN+5
DGA(1 EN+4
DGA(2 EN+4
DGA1 EN+3*, Q!
DGA2 EN+3*, Q!
DGABBRV EN+2*, EN+9, EN+10, EN+14, EN+15, Q!
DGAD EN+3*, Q!
DGCC EN+6*, Q!
DGD RMK+2!
DGD1 RMK+2!
DGHOW EN+2!
DGMTLL Q!
DGPMDCD INP+7!
DGPMIFN INP+7!
DGPMT INP+4*, INP+7!
DGPMVI INP+7!
DGRP Q!
DGRP( EN+2*, EN+3, EN+6, EN+7, EN+8, EN+9, EN+11
DGRP(0 EN+10
DGRPOUT SEL!, EN+2!, EN+15*
DGRPU EN+2*, EN+6, EN+7, EN+8, EN+9, EN+10, EN+11, Q!
DGS Q!
DGST EN+6*, Q!
>> DGSWITCH INP+7
DGTMPAD EN+3*, EN+7, EN+8!
DGXFR0 Q!
DIC SEL*, Q!
DIC(0 SEL*
DIR EN+15!
DIR(0 EN+15*
DIS RMK+2!
DT EN+3, SA, FA+1, FA+3
DTIME OREN
FA FA+3*, FA+4, RMK+2!
I EN+2*, EN+5*, EN+12*, EN+14*, Q!, SA*, CL*, FA+2*, RMK+2!
I1 EN+5*, Q!
IOF HDR, HDR+1
IOP HDR*!
>> L SA*, SAA, FA+3*, COV
LDM Q!
NOW RMK+2!
>> ORVP OREN
POP Q!
SDCT Q!, CL*
SSN RMK+2!
TRN RMK+2!
U EN+6, EN+7, EN+8, EN+9
VA Q!
>> VADM(1 HDR+1
>> VADM(2 HDR+1
>> VADM(3 HDR+1
>> VADM(5 EN+10
>> VAHOW INP+3*
>> VAIP("D" INP+3*
>> VAIP("L" EN+16*
X EN+7*, EN+8, EN+11*, EN+12*, Q!, HDR+1*, SA*, SAA, OREN*
X1 EN+11*, EN+12, Q!
>> XQORQUIT OREN*
Y SEL, EN+7*, EN+15, Q!
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