Routine: IBCSC1

Information

IBCSC1 ;ALB/MJB - MCCR SCREEN 1 (DEMOGRAPHICS) ;27 MAY 88 10:13

Source file <IBCSC1.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: " DOB : ",$P(VADM(3),"^",2) Line Location: 1+0
Function Call: WRITE	Prompt: ?42,"Date of Death: ",$P(VADM(6),U,2)," (uneditable)" Line Location: 1+0
Function Call: WRITE	Prompt: " Alias : " Line Location: 2+0
Function Call: WRITE	Prompt: !?13 Condition for execution: $X>40 Line Location: 2+0
Function Call: WRITE	Prompt: Z,"/" Line Location: 2+0
Function Call: WRITE	Prompt: " Sex : ",$S($P(VADM(5),U,2)]"":$P(VADM(5),U,2),1:IBU),?48,"Marital: ",$S($D(^DIC(11,+$P(^DPT(DFN,0),U,5),0)):$E($P(^(0),U,1),1,28),1:IBU) Line Location: 3+0
Function Call: WRITE	Prompt: ! Line Location: 5+0
Function Call: WRITE	Prompt: " Address: ",$S($D(IBA(1)):IBA(1),1:"NONE ON FILE"),?46,"Temporary: ",$S($D(IBA(2)):IBA(2),1:"NO TEMPORARY ADDRESS") Line Location: 5+0
Function Call: WRITE	Prompt: IBA(I) Line Location: 5+1
Function Call: WRITE	Prompt: ! Line Location: 6+0
Function Call: WRITE	Prompt: " SC Care: " Line Location: 6+0
Function Call: WRITE	Prompt: " SC Care: " Line Location: 6+0
Function Call: WRITE	Prompt: " SC Care: " Line Location: 6+0