WIILM02 ;VISN20/WDE/WHN - WII List Manager Actions continued ; 23-JUN-2008
;;1.0;Wounded Injured and Ill Warriors;**1**;06/26/2008;Build 28
;
EX ; expand eligibility for line
; FM DIR API called to select entry from current LM list, WIIENT set to movement
; IEN stored in LM "IDX" list x-ref. Patient DFN defined using FM $$GET1^DIQ()
; API to retrieve internal value of pointed to file.
Q:VALMCNT<1
K DIR S DIR(0)="NO^"_VALMBG_":"_VALMLST_":0" D ^DIR K DIR
Q:$D(DIRUT)
S WIIENT=$O(@VALMAR@("IDX",+Y,"")),DFN=$$GET1^DIQ(405,WIIENT,.03,"I") Q:'DFN
I $G(DFN)>0 D EN^VALM("WII ELIG REVIEW")
Q
ADD ; add entry to file
; FM DIR API called to select entry from Patien Movement file, selection screened
; to look at only admission(1) or discharge(3) transactions. WIIEN set to movement
; IEN. Patient DFN defined using FM $$GET1^DIQ()API to retrieve internal value
; of pointed to file.
D FULL^VALM1
W @IOF
; set up DIR and screen for admission (1) or discharge (3) transactions
K DIR S DIR(0)="PO^405:AEMQ",DIR("A")="Select Admission/Discharge Date",DIR("S")="I ""13""[$P(^(0),U,2)" D ^DIR K DIR
Q:$D(DIRUT)
S WIIENT=+Y,DFN=$$GET1^DIQ(405,WIIENT,.03,"I")
D FORCE^WIIACT4(DFN,WIIENT)
Q
ZAP ;
K DIE,DIRUT,DA,Y,X,DR,STATUS,WIILN,VALMAR,VALMBG,VALMCNT,VALMLST,WIIEN,WIILN,WIINODE,WIIX,WIIY,WIIZ,Y,DFN,WIIENT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HWIILM02 1353 printed Sep 02, 2024@19:31:39 Page 2
WIILM02 ;VISN20/WDE/WHN - WII List Manager Actions continued ; 23-JUN-2008
+1 ;;1.0;Wounded Injured and Ill Warriors;**1**;06/26/2008;Build 28
+2 ;
EX ; expand eligibility for line
+1 ; FM DIR API called to select entry from current LM list, WIIENT set to movement
+2 ; IEN stored in LM "IDX" list x-ref. Patient DFN defined using FM $$GET1^DIQ()
+3 ; API to retrieve internal value of pointed to file.
+4 if VALMCNT<1
QUIT
+5 KILL DIR
SET DIR(0)="NO^"_VALMBG_":"_VALMLST_":0"
DO ^DIR
KILL DIR
+6 if $DATA(DIRUT)
QUIT
+7 SET WIIENT=$ORDER(@VALMAR@("IDX",+Y,""))
SET DFN=$$GET1^DIQ(405,WIIENT,.03,"I")
if 'DFN
QUIT
+8 IF $GET(DFN)>0
DO EN^VALM("WII ELIG REVIEW")
+9 QUIT
ADD ; add entry to file
+1 ; FM DIR API called to select entry from Patien Movement file, selection screened
+2 ; to look at only admission(1) or discharge(3) transactions. WIIEN set to movement
+3 ; IEN. Patient DFN defined using FM $$GET1^DIQ()API to retrieve internal value
+4 ; of pointed to file.
+5 DO FULL^VALM1
+6 WRITE @IOF
+7 ; set up DIR and screen for admission (1) or discharge (3) transactions
+8 KILL DIR
SET DIR(0)="PO^405:AEMQ"
SET DIR("A")="Select Admission/Discharge Date"
SET DIR("S")="I ""13""[$P(^(0),U,2)"
DO ^DIR
KILL DIR
+9 if $DATA(DIRUT)
QUIT
+10 SET WIIENT=+Y
SET DFN=$$GET1^DIQ(405,WIIENT,.03,"I")
+11 DO FORCE^WIIACT4(DFN,WIIENT)
+12 QUIT
ZAP ;
+1 KILL DIE,DIRUT,DA,Y,X,DR,STATUS,WIILN,VALMAR,VALMBG,VALMCNT,VALMLST,WIIEN,WIILN,WIINODE,WIIX,WIIY,WIIZ,Y,DFN,WIIENT