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

Package: IHS Changes To ADT

Routine: ADGPMV10


Information

ADGPMV10 ; IHS/ADC/PDW/ENM - PATIENT MOVEMENT, CONT. ; [ 09/17/2002 4:01 PM ]

Source Information

Source file <ADGPMV10.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Registration 2 ^DGPMLOS  IN5^VADPT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To ADT 1 ADGRPD  

Entry Points

Name Comments DBIA/ICR reference
LODGER ;set-up necessary variables if getting last lodger episode
IHS ; los ;IHS
IN5 ; -- calls IN5^VADPT and sets up array
CS ;Current Status
NULL
CS1
CS2 ;-- additional fields for admission screen

External References

Name Field # of Occurrence
^DGPMLOS IHS+2
IN5^VADPT IN5+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"***NOTE*** This patient has not been converted into the new file structure.",!," Inpatient data for this patient is not yet available.",!
  • Line Location: CS+2
Function Call: WRITE
  • Prompt: !!,"Status : PATIENT HAS NO INPATIENT OR LODGER ACTIVITY IN THE COMPUTER",*7
  • Line Location: CS+3
Function Call: WRITE
  • Prompt: !!,"Inpatient Status: NO ACTIVITY RECORDED IN COMPUTER"
  • Line Location: CS+5
Function Call: WRITE
  • Prompt: "-"
  • Line Location: CS+8
Function Call: WRITE
  • Prompt: "on PASS"
  • Line Location: CS+8
Function Call: WRITE
  • Prompt: "on ",$S("^2^26^"[X:"A",1:"U"),"A"
  • Line Location: CS+9
Function Call: WRITE
  • Prompt: "ASIH"
  • Line Location: CS+10
Function Call: WRITE
  • Prompt: "OTHER FAC"
  • Line Location: CS+11
Function Call: WRITE
  • Prompt: "on WARD"
  • Line Location: CS+13
Function Call: WRITE
  • Prompt: ?39,"Discharge Type : ",$S($D(^DG(405.1,+$P(^(0),"^",4),0)):$P(^(0),"^",1),1:"UNKNOWN")
  • Line Location: CS1+0
Function Call: WRITE
  • Prompt: " (Seriously ill)"
  • Line Location: CS1+1
Function Call: WRITE
  • Prompt: ?39,$S("^4^5^"[("^"_+DGPMVI(2)_"^"):"Checked-out",+DGPMVI(2)=3:"Discharged ",1:"Transferred")," : ",$S("^1^4^"'[("^"_+DGPMVI(2)_"^"):$P(DGPMVI(3),"^",2),$P(DGPMVI(3),"^",2)'=$P(DGPMVI(13,1),"^",2):$P(DGPMVI(3),"^",2),1:"")
  • Line Location: CS1+3
Function Call: WRITE
  • Prompt: !,"Provider : ",$E($P(DGPMVI(7),"^",2),1,26),?39,"Specialty : ",$E($P(DGPMVI(8),"^",2),1,26)
  • Line Location: CS1+4
Function Call: WRITE
  • Prompt: !!,"Admission LOS: ",+$P(X,"^",5)," Absence days: ",+$P(X,"^",2)," Pass Days: ",+$P(X,"^",3)," ASIH days: ",+$P(X,"^",4)
  • Line Location: CS1+6
Function Call: WRITE
  • Prompt: !!,"Admission LOS: ",+$P(X,"^",5)
  • Line Location: IHS+1
Function Call: WRITE
  • Prompt: ?45,"Admission LOS: ",+$P(X,"^",5)," days"
  • Line Location: IHS+2
Function Call: WRITE
  • Prompt: !!,"Religion : ",$S($D(^DIC(13,+$P(DGHOLD,U,8),0)):$E($P(^(0),U),1,24),1:"")
  • Line Location: CS2+6
Function Call: WRITE
  • Prompt: ?39,"Marital Status : ",$S($D(^DIC(11,+$P(DGHOLD,U,5),0)):$P(^(0),U),1:"")
  • Line Location: CS2+7
Function Call: WRITE
  • Prompt: !,"Eligibility : ",$S($D(^DIC(8,+$P(DGHOLD,U),0)):$P(^(0),U),1:"")
  • Line Location: CS2+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(2 CS2+11
^DG(405.1 - [#405.1] CS1
^DGPM - [#405] CS1, LODGER+3, LODGER+4
^DGPM("ATID4" LODGER+2
^DGPM("C" CS+4
^DIC(11 - [#11] CS2+7
^DIC(13 - [#13] CS2+6
^DIC(42 - [#42] IN5+2
^DIC(8 - [#8] CS2+9
^DPT - [#2] CS+2, CS1+1, CS2+5, CS2+8, CS2+10
^UTILITY("VAIP" IN5+1, IN5+2, IN5+3

Label References

Name Line Occurrences
CS1 CS+8, CS+9, CS+10, CS+11
CS2 CS+5, CS1+5
IHS CS+13
NULL LODGER+3

Naked Globals

Name Field # of Occurrence
^( CS2+8, CS2+10, LODGER+2
^("DAC" CS1+1
^(0 CS1, CS2+5, CS2+6, CS2+7, CS2+9, IN5+2, LODGER+3, LODGER+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A CS+7*, CS+8, IHS+3!
C IHS+3!
>> DFN CS+2, CS+4, CS1+1, CS2+5, CS2+8, CS2+10, LODGER+2
DGHOLD CS2+5*, CS2+6, CS2+7, CS2+8*, CS2+9, CS2+10*, CS2+11, CS2+12, CS2+13!
>> DGPMDCD IN5+2*, LODGER+4*, LODGER+5*, NULL*
>> DGPMIFN IHS+2*
>> DGPMSV IN5+2*
>> DGPMSVC IN5+2
>> DGPMT CS+1, CS2+1
>> DGPMVI( IN5+1*, NULL*
>> DGPMVI(1 LODGER+4*, LODGER+5*
>> DGPMVI(13 CS1+2, CS1+3, IHS+2, IN5+3*, LODGER+4*, LODGER+5*
>> DGPMVI(17 CS1, LODGER+4*, LODGER+5*
>> DGPMVI(2 CS+7, CS1, CS1+1, CS1+2, CS1+3, CS1+4, IHS+2, LODGER+4*, LODGER+5*
>> DGPMVI(3 CS1+3
>> DGPMVI(4 CS+8
>> DGPMVI(5 CS1+4
>> DGPMVI(6 CS1+4
>> DGPMVI(7 CS1+4
>> DGPMVI(8 CS1+4
I IHS+3!, IN5+1*, LODGER+2*, LODGER+3, LODGER+4, LODGER+5, NULL*
J IHS+3!
U CS2+6, CS2+7, CS2+8, CS2+9, CS2+11, CS2+12
VAHOW IN5+1*, IN5+3!
X CS+1*, CS+8*, CS+9, CS+10, CS+11, IHS+2, IHS+3!, LODGER+3*, LODGER+4, LODGER+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All