VAQPSL ;ALB/List Manager - INITIALIZE ENTRIES IN LIST TEMPLATE FILE; 25-OCT-1993
 ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
 W !,"'VAQ DIS MIN NUPD' List Template..."
 S DA=$O(^SD(409.61,"B","VAQ DIS MIN NUPD",0)),DIK="^SD(409.61," D ^DIK:DA
 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="VAQ DIS MIN NUPD" D FILE^DICN S VALM=+Y
 I VALM>0 D
 .S ^SD(409.61,VALM,0)="VAQ DIS MIN NUPD^2^^^6^18^1^1^PDX MINIMAL^VAQ DIS1 (MENU)^PDX V1.5 - MINIMAL UPDATE^1"
 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""VAQD1"",$J)"
 .S ^SD(409.61,VALM,"COL",0)="^409.621^1^1"
 .S ^SD(409.61,VALM,"COL",1,0)="LOCAL^2^25^Remote Patient Data"
 .S ^SD(409.61,VALM,"FNL")="D EXIT^VAQLED07"
 .S ^SD(409.61,VALM,"HDR")="D HD^VAQLED07"
 .S ^SD(409.61,VALM,"HLP")="S X=""?"" D DISP^XQORM1 W !"
 .S ^SD(409.61,VALM,"INIT")="D INIT^VAQLED07"
 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK
 .W "Filed."
 ;
 W !,"'VAQ DIS MIN UPD' List Template..."
 S DA=$O(^SD(409.61,"B","VAQ DIS MIN UPD",0)),DIK="^SD(409.61," D ^DIK:DA
 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="VAQ DIS MIN UPD" D FILE^DICN S VALM=+Y
 I VALM>0 D
 .S ^SD(409.61,VALM,0)="VAQ DIS MIN UPD^1^^^6^18^1^1^PDX MINIMAL^VAQ PDX7 (MENU)^PDX V1.5 - MINIMAL UPDATE^1"
 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""VAQD1"",$J)"
 .S ^SD(409.61,VALM,"COL",0)="^409.621^1^1"
 .S ^SD(409.61,VALM,"COL",1,0)="LOCAL^2^25^ Remote Patient Data"
 .S ^SD(409.61,VALM,"FNL")="D EXIT^VAQLED07"
 .S ^SD(409.61,VALM,"HDR")="D HD^VAQLED07"
 .S ^SD(409.61,VALM,"HLP")="S X=""?"" D DISP^XQORM1 W !"
 .S ^SD(409.61,VALM,"INIT")="D INIT^VAQLED07"
 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK
 .W "Filed."
 ;
 W !,"'VAQ DIS PATIENT PDX9' List Template..."
 S DA=$O(^SD(409.61,"B","VAQ DIS PATIENT PDX9",0)),DIK="^SD(409.61," D ^DIK:DA
 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="VAQ DIS PATIENT PDX9" D FILE^DICN S VALM=+Y
 I VALM>0 D
 .S ^SD(409.61,VALM,0)="VAQ DIS PATIENT PDX9^1^^^6^18^1^1^Entry^VAQ PDX9 (MENU)^PDX V1.5 DISPLAY BY PATIENT^1"
 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""VAQD1"",$J)"
 .S ^SD(409.61,VALM,"COL",0)="^409.621^4^4"
 .S ^SD(409.61,VALM,"COL",1,0)="ENTRY^2^7^Entry"
 .S ^SD(409.61,VALM,"COL",2,0)="DOMAIN^11^29^Domain"
 .S ^SD(409.61,VALM,"COL",3,0)="DATE^42^26^Date/Time"
 .S ^SD(409.61,VALM,"COL",4,0)="TRNO^69^10^Trans No"
 .S ^SD(409.61,VALM,"EXP")=""
 .S ^SD(409.61,VALM,"FNL")="D EXIT^VAQDIS11"
 .S ^SD(409.61,VALM,"HDR")="D HD^VAQDIS11"
 .S ^SD(409.61,VALM,"HLP")="S X=""?"" D DISP^XQORM1 W !"
 .S ^SD(409.61,VALM,"INIT")="D INIT^VAQDIS11"
 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK
 .W "Filed."
 ;
 W !,"'VAQ DIS REQUESTOR PDX10' List Template..."
 S DA=$O(^SD(409.61,"B","VAQ DIS REQUESTOR PDX10",0)),DIK="^SD(409.61," D ^DIK:DA
 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="VAQ DIS REQUESTOR PDX10" D FILE^DICN S VALM=+Y
 I VALM>0 D
 .S ^SD(409.61,VALM,0)="VAQ DIS REQUESTOR PDX10^1^^^6^16^1^1^Entry^VAQ PDX10 (MENU)^PDX V1.5 DISPLAY BY REQUESTOR^1"
 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""VAQD1"",$J)"
 .S ^SD(409.61,VALM,"COL",0)="^409.621^4^4"
 .S ^SD(409.61,VALM,"COL",1,0)="ENTRY^2^7^Entry"
 .S ^SD(409.61,VALM,"COL",2,0)="DOMAIN^11^29^Domain\Patient"
 .S ^SD(409.61,VALM,"COL",3,0)="DATE^42^26^Date/Time"
 .S ^SD(409.61,VALM,"COL",4,0)="TRNO^69^10^Tran No"
 .S ^SD(409.61,VALM,"FNL")="D EXIT^VAQDIS12"
 .S ^SD(409.61,VALM,"HDR")="D HD^VAQDIS12"
 .S ^SD(409.61,VALM,"HLP")="S X=""?"" D DISP^XQORM1 W !"
 .S ^SD(409.61,VALM,"INIT")="D INIT^VAQDIS12"
 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK
 .W "Filed."
 ;
 G ^VAQPSL1